32648d6cf4
this will only highlight elm 0.19 (latest) properly very close to how https://ellie-app.com/ highlights - anything that starts with an upper case letter is a type - anything that starts with a lower case letter is a function - function declaration is just a function at the start of a line note: the default color scheme looks too colorful
79 lines
3.1 KiB
Plaintext
79 lines
3.1 KiB
Plaintext
# http://elm-lang.org
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
# Detection
|
|
# ‾‾‾‾‾‾‾‾‾
|
|
|
|
hook global BufCreate .*[.](elm) %{
|
|
set-option buffer filetype elm
|
|
}
|
|
|
|
# Initialization
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
hook global WinSetOption filetype=elm %{
|
|
require-module elm
|
|
|
|
hook window ModeChange insert:.* -group elm-trim-indent elm-trim-indent
|
|
hook window InsertChar \n -group elm-indent elm-indent-on-new-line
|
|
|
|
hook -once -always window WinSetOption filetype=.* %{ remove-hooks window elm-.+ }
|
|
}
|
|
|
|
hook -group elm-highlight global WinSetOption filetype=elm %{
|
|
add-highlighter window/elm ref elm
|
|
hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/elm }
|
|
}
|
|
|
|
provide-module elm %[
|
|
|
|
# Highlighters
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
add-highlighter shared/elm regions
|
|
add-highlighter shared/elm/code default-region group
|
|
add-highlighter shared/elm/string region '"' (?<!\\)(\\\\)*" fill string
|
|
add-highlighter shared/elm/line_comment region (--) $ fill comment
|
|
add-highlighter shared/elm/comment region -recurse \{- \{- -\} fill comment
|
|
|
|
add-highlighter shared/elm/code/ regex (\b)+([A-Z]+[^\s]*) 0:type
|
|
add-highlighter shared/elm/code/ regex (\b)+([a-z]+[^\s]*) 0:variable
|
|
add-highlighter shared/elm/code/ regex (^[a-z]+[^\s]*) 0:function
|
|
add-highlighter shared/elm/code/ regex "-?\b[0-9]*\.?[0-9]+" 0:value
|
|
add-highlighter shared/elm/code/ regex \B(\+|\+\+|/|//|-|\*|=|==|&&|\|\||<\||\|>|->)\B 0:operator
|
|
add-highlighter shared/elm/code/ regex \b(import|exposing|as|module|where)\b 0:meta
|
|
add-highlighter shared/elm/code/ regex (\b(type|alias|if|then|else|case|of|let|in|infix|->)\b)|(\B(:)\B) 0:keyword
|
|
|
|
|
|
|
|
# Commands
|
|
# ‾‾‾‾‾‾‾‾
|
|
|
|
# http://elm-lang.org/docs/style-guide
|
|
|
|
define-command -hidden elm-trim-indent %{
|
|
# remove trailing white spaces
|
|
try %{ execute-keys -draft -itersel <a-x> s \h+$ <ret> d }
|
|
}
|
|
|
|
define-command -hidden elm-indent-after "
|
|
execute-keys -draft \\; k x <a-k> ^\\h*(if)|(case\\h+[\\w']+\\h+of|let|in|\\{\\h+\\w+|\\w+\\h+->|[=(])$ <ret> j <a-gt>
|
|
"
|
|
|
|
define-command -hidden elm-indent-on-new-line %{
|
|
evaluate-commands -draft -itersel %{
|
|
# copy -- comments prefix and following white spaces
|
|
try %{ execute-keys -draft k <a-x> s ^\h*\K--\h* <ret> y gh j P }
|
|
# preserve previous line indent
|
|
try %{ execute-keys -draft \; K <a-&> }
|
|
# align to first clause
|
|
try %{ execute-keys -draft \; k x X s ^\h*(if|then|else)?\h*(([\w']+\h+)+=)?\h*(case\h+[\w']+\h+of|let)\h+\K.* <ret> s \A|.\z <ret> & }
|
|
# filter previous line
|
|
try %{ execute-keys -draft k : elm-trim-indent <ret> }
|
|
# indent after lines beginning with condition or ending with expression or =(
|
|
try %{ elm-indent-after }
|
|
}
|
|
}
|
|
|
|
]
|