0a9c90fecf
This should cover all filetypes that already auto-insert comments,
except for rust.kak, which is left for a follow-up.
Most of these are straightforward, some explanation for special cases:
rc/filetype/zig.kak rc/filetype/cue.kak
These indent hooks used their own logic to indent after "{" only if
no comment was inserted. Replace this logic by checking if a comment
was inserted. This works because these "*-insert" hooks are run
before their respective "*-indent" hooks.
rc/filetype/php.kak
This also has some logic to insert "*" after "/*" lines. Basic
usage seems to work still. In future this should borrow from the
c-family one, which works a bit better.
105 lines
4.1 KiB
Plaintext
105 lines
4.1 KiB
Plaintext
# http://ponylang.org
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
# Detection
|
|
# ‾‾‾‾‾‾‾‾‾
|
|
|
|
hook global BufCreate .*[.](pony) %{
|
|
set-option buffer filetype pony
|
|
}
|
|
|
|
# Initialization
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
hook global WinSetOption filetype=pony %{
|
|
require-module pony
|
|
|
|
set-option window static_words %opt{pony_static_words}
|
|
|
|
hook window InsertChar \n -group pony-insert pony-insert-on-new-line
|
|
hook window InsertChar \n -group pony-indent pony-indent-on-new-line
|
|
# cleanup trailing whitespaces on current line insert end
|
|
hook window ModeChange pop:insert:.* -group pony-trim-indent %{ try %{ execute-keys -draft <semicolon> <a-x> s ^\h+$ <ret> d } }
|
|
|
|
hook -once -always window WinSetOption filetype=.* %{ remove-hooks window pony-.+ }
|
|
}
|
|
|
|
hook -group pony-highlight global WinSetOption filetype=pony %{
|
|
add-highlighter window/pony ref pony
|
|
hook -once -always window WinSetOption filetype=.* %{ remove-highlighter pony }
|
|
}
|
|
|
|
provide-module pony %{
|
|
|
|
# Highlighters & Completion
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
add-highlighter shared/pony regions
|
|
add-highlighter shared/pony/code default-region group
|
|
add-highlighter shared/pony/triple_string region '"""' '"""' fill string
|
|
add-highlighter shared/pony/double_string region '"' (?<!\\)(\\\\)*" fill string
|
|
add-highlighter shared/pony/comment region '/\*' '\*/' fill comment
|
|
add-highlighter shared/pony/line_comment region '//' '$' fill comment
|
|
|
|
evaluate-commands %sh{
|
|
# Grammar
|
|
values="true|false|None|this"
|
|
meta='use'
|
|
# Keyword list is collected using `keyword.kwlist` from `keyword`
|
|
keywords="and|as|or|break|match|continue|else|try|in|return|end|for|is"
|
|
keywords="${keywords}|recover|consume|error|do|then|if|while"
|
|
func_decl="new|fun|be|lambda"
|
|
capabilities="iso|ref|box|tag|val|trn"
|
|
struct="class|actor|interface|trait|primitive|type|var|let|embed"
|
|
|
|
|
|
# Add the language's grammar to the static completion list
|
|
static_words="${values} ${meta} ${keywords} ${types_decl} ${capabilities}"
|
|
static_words="${static_words} ${struct}"
|
|
printf %s\\n "declare-option str-list pony_static_words ${static_words}" | tr '|' ' '
|
|
|
|
# Highlight keywords
|
|
printf %s "
|
|
add-highlighter shared/pony/code/ regex '\b(${values})\b' 0:value
|
|
add-highlighter shared/pony/code/ regex '\b(${meta})\b' 0:meta
|
|
add-highlighter shared/pony/code/ regex '\b(${func_decl})(\s+(${capabilities}))?(\s+\w+)\(' 1:type 3:builtin 4:builtin
|
|
add-highlighter shared/pony/code/ regex '\b(${func_decl})\b' 0:type
|
|
add-highlighter shared/pony/code/ regex '=>' 0:type
|
|
add-highlighter shared/pony/code/ regex '\b(${keywords})\b' 0:keyword
|
|
add-highlighter shared/pony/code/ regex ';' 0:keyword
|
|
add-highlighter shared/pony/code/ regex '^\s*|' 0:keyword
|
|
add-highlighter shared/pony/code/ regex '\b(${struct})\b' 0:variable
|
|
add-highlighter shared/pony/code/ regex '\b(${capabilities})\b(!|^)?' 1:builtin 2:builtin
|
|
"
|
|
|
|
# Highlight types and attributes
|
|
printf %s "
|
|
add-highlighter shared/pony/code/ regex '@[\w_]+\b' 0:attribute
|
|
"
|
|
}
|
|
|
|
# Commands
|
|
# ‾‾‾‾‾‾‾‾
|
|
|
|
define-command -hidden pony-insert-on-new-line %{
|
|
evaluate-commands -draft -itersel %{
|
|
# copy // comments prefix and following white spaces
|
|
try %{ execute-keys -draft k x s ^\h*//\h* <ret> y jgh P }
|
|
}
|
|
}
|
|
|
|
define-command -hidden pony-indent-on-new-line %{
|
|
evaluate-commands -draft -itersel %{
|
|
# preserve previous line indent
|
|
try %{ execute-keys -draft <space> K <a-&> }
|
|
# cleanup trailing whitespaces from previous line
|
|
try %{ execute-keys -draft k <a-x> s \h+$ <ret> d }
|
|
# indent after line ending with :
|
|
try %{ execute-keys -draft <space> k x <a-k> (\b(?:do|try|then|else)|:|=>)$ <ret> j <a-gt> }
|
|
# else, end are always de-indented
|
|
try %{ execute-keys -draft <space> k x <a-k> \b(else|end):$ <ret> k x s ^\h* <ret> y j x <a-k> ^<c-r>" <ret> J <a-lt> }
|
|
}
|
|
}
|
|
|
|
}
|