82 lines
3.3 KiB
Plaintext
82 lines
3.3 KiB
Plaintext
# http://janet-lang.org
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
# Detection
|
|
# ‾‾‾‾‾‾‾‾‾
|
|
|
|
hook global BufCreate .*[.](janet|jdn) %{
|
|
set-option buffer filetype janet
|
|
}
|
|
|
|
|
|
hook global WinSetOption filetype=janet %{
|
|
require-module janet
|
|
|
|
hook window ModeChange pop:insert:.* -group janet-trim-indent janet-trim-indent
|
|
hook window InsertChar \n -group janet-indent janet-indent-on-new-line
|
|
set-option buffer extra_word_chars ! @ $ '%' ^ & * - _ + = : < > . ?
|
|
|
|
hook -once -always window WinSetOption filetype=.* %{ remove-hooks window janet-.+ }
|
|
}
|
|
|
|
hook -group janet-highlight global WinSetOption filetype=janet %{
|
|
add-highlighter window/janet ref janet
|
|
hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/janet }
|
|
}
|
|
|
|
provide-module janet %{
|
|
|
|
require-module lisp
|
|
|
|
# Highlighters
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
add-highlighter shared/janet regions
|
|
add-highlighter shared/janet/code default-region group
|
|
add-highlighter shared/janet/comment region '(?<!\\)(?:\\\\)*\K#' '$' fill comment
|
|
add-highlighter shared/janet/comment-form region -recurse \( '(?<!\\)(?:\\\\)*\K\(comment ' '\)' fill comment
|
|
add-highlighter shared/janet/string region '(?<!\\)(?:\\\\)*\K"' '(?<!\\)(?:\\\\)*"' fill string
|
|
add-highlighter shared/janet/raw-string region -match-capture '(`+)' '(`+)' fill string
|
|
add-highlighter shared/janet/code/ regex \b(nil|true|false)\b 0:value
|
|
add-highlighter shared/janet/code/number regex \W\K(?:[\-+]?\dx?[\der._+a-f]*)\b 0:value
|
|
add-highlighter shared/janet/code/function-definition regex \((?:defn-?|fn)\s([!@$%\^&*\-_+=:<>.?\w/]+) 1:function
|
|
add-highlighter shared/janet/code/function-call regex \(([!@$%\^&*\-_+=:<>.?\w/]+) 1:function
|
|
add-highlighter shared/janet/code/keyword regex \W\K:[!@$%\^&*\-_+=:<>.?\w/]+ 0:value
|
|
add-highlighter shared/janet/code/special regex \((def-?|defn-?|var-?|fn|do|quote|if|splice|while|break|set|quasiquote|unquote|upscope)\s 1:keyword
|
|
add-highlighter shared/janet/code/ regex \W\K(&|&opt|&keys|&named)\W 1:keyword
|
|
|
|
# Commands
|
|
# ‾‾‾‾‾‾‾‾
|
|
|
|
define-command -hidden janet-trim-indent lisp-trim-indent
|
|
|
|
declare-option \
|
|
-docstring 'regex matching the head of forms which have options *and* indented bodies' \
|
|
regex janet_special_indent_forms \
|
|
'(?:def.*|while|for|fn\*?|if(-.*|)|let.*|loop|seq|with(-.*|)|when(-.*|))|defer|do|match|var'
|
|
|
|
define-command -hidden janet-indent-on-new-line %{
|
|
# registers: i = best align point so far; w = start of first word of form
|
|
evaluate-commands -draft -save-regs '/"|^@iw' -itersel %{
|
|
execute-keys -draft 'gk"iZ'
|
|
try %{
|
|
execute-keys -draft '[bl"i<a-Z><gt>"wZ'
|
|
|
|
try %{
|
|
# If a special form, indent another j
|
|
execute-keys -draft '"wze<a-k>\A' %opt{janet_special_indent_forms} '\z<ret><a-L>s.\K.*<ret><a-;>;"i<a-Z><gt>'
|
|
} catch %{
|
|
# If not special and parameter appears on line 1, indent to parameter
|
|
execute-keys -draft '"wze<a-l>s\h\K[^\s].*<ret><a-;>;"i<a-Z><gt>'
|
|
}
|
|
}
|
|
try %{ execute-keys -draft '[rl"i<a-Z><gt>' }
|
|
try %{ execute-keys -draft '[Bl"i<a-Z><gt>' }
|
|
execute-keys -draft '"i<a-z>a&,'
|
|
# trim trailing whitespace on the previous line
|
|
try %{ execute-keys -draft k : janet-trim-indent <ret> }
|
|
}
|
|
}
|
|
|
|
}
|