mirror of
https://github.com/mawww/kakoune.git
synced 2024-12-18 08:51:46 +03:00
ec16969609
Automatic reparsing of %sh{...}, while convenient in many cases,
can be surprising as well, and can lead to security problems:
'echo %sh{ printf "foo\necho bar" }' runs 'echo foo', then 'echo bar'.
we make this danger explicit, and we fix the 'nop %sh{...}' pattern.
To reparse %sh{...} strings, they can be passed to evaluate-commands,
which has been fixed to work in every cases where %sh{...} reparsing
was used..
94 lines
4.3 KiB
Plaintext
94 lines
4.3 KiB
Plaintext
# http://kakoune.org
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
# Detection
|
|
# ‾‾‾‾‾‾‾‾‾
|
|
|
|
hook global BufCreate (.*/)?(kakrc|.*.kak) %{
|
|
set-option buffer filetype kak
|
|
}
|
|
|
|
# Highlighters & Completion
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
add-highlighter shared/ regions -default code kakrc \
|
|
comment (^|\h)\K# $ '' \
|
|
double_string %{(^|\h)\K"} %{(?<!\\)(\\\\)*"} '' \
|
|
single_string %{(^|\h)\K'} %{(?<!\\)(\\\\)*'} '' \
|
|
shell '(^|\h)\K%?%sh\{' '\}' '\{' \
|
|
shell '(^|\h)\K%?%sh\(' '\)' '\(' \
|
|
shell '(^|\h)\K%?%sh\[' '\]' '\[' \
|
|
shell '(^|\h)\K%?%sh<' '>' '<' \
|
|
shell '(^|\h)\K-shell-(completion|candidates)\h+%\{' '\}' '\{' \
|
|
shell '(^|\h)\K-shell-(completion|candidates)\h+%\(' '\)' '\(' \
|
|
shell '(^|\h)\K-shell-(completion|candidates)\h+%\[' '\]' '\[' \
|
|
shell '(^|\h)\K-shell-(completion|candidates)\h+%<' '>' '<'
|
|
|
|
evaluate-commands %sh{
|
|
# Grammar
|
|
keywords="edit write write-all kill quit write-quit write-all-quit map unmap alias unalias
|
|
buffer buffer-next buffer-previous delete-buffer add-highlighter remove-highlighter
|
|
hook remove-hooks define-command echo debug source try fail nop
|
|
set-option unset-option update-option declare-option execute-keys evaluate-commands
|
|
prompt menu on-key info set-face unset-face rename-client set-register select
|
|
change-directory rename-session colorscheme declare-user-mode enter-user-mode"
|
|
attributes="global buffer window current
|
|
normal insert menu prompt goto view user object
|
|
number_lines show_matching show_whitespaces fill regex dynregex group flag_lines
|
|
ranges line column wrap ref regions replace-ranges"
|
|
types="int bool str regex int-list str-list completions line-specs range-specs"
|
|
values="default black red green yellow blue magenta cyan white yes no false true"
|
|
|
|
join() { printf "%s" "$1" | tr -s ' \n' "$2"; }
|
|
|
|
# Add the language's grammar to the static completion list
|
|
printf '%s\n' "hook global WinSetOption filetype=kak %{
|
|
set-option window static_words '$(join "${keywords}:${attributes}:${types}:${values}" ':')'
|
|
set-option -- window extra_word_chars '-'
|
|
}"
|
|
|
|
# Highlight keywords (which are always surrounded by whitespace)
|
|
printf '%s\n' "add-highlighter shared/kakrc/code regex (?:\s|\A)\K($(join "${keywords}" '|'))(?:(?=\s)|\z) 0:keyword
|
|
add-highlighter shared/kakrc/code regex (?:\s|\A)\K($(join "${attributes}" '|'))(?:(?=\s)|\z) 0:attribute
|
|
add-highlighter shared/kakrc/code regex (?:\s|\A)\K($(join "${types}" '|'))(?:(?=\s)|\z) 0:type
|
|
add-highlighter shared/kakrc/code regex (?:\s|\A)\K($(join "${values}" '|'))(?:(?=\s)|\z) 0:value"
|
|
}
|
|
|
|
add-highlighter shared/kakrc/code regex \brgb:[0-9a-fA-F]{6}\b 0:value
|
|
|
|
add-highlighter shared/kakrc/double_string fill string
|
|
add-highlighter shared/kakrc/single_string fill string
|
|
add-highlighter shared/kakrc/comment fill comment
|
|
add-highlighter shared/kakrc/shell ref sh
|
|
|
|
# Commands
|
|
# ‾‾‾‾‾‾‾‾
|
|
|
|
define-command -hidden kak-indent-on-new-line %{
|
|
evaluate-commands -draft -itersel %{
|
|
# copy '#' comment prefix and following white spaces
|
|
try %{ execute-keys -draft k <a-x> s ^\h*#\h* <ret> y jgh P }
|
|
# preserve previous line indent
|
|
try %{ execute-keys -draft \; K <a-&> }
|
|
# cleanup trailing whitespaces from previous line
|
|
try %{ execute-keys -draft k <a-x> s \h+$ <ret> d }
|
|
# indent after line ending with %[\W\S]
|
|
try %{ execute-keys -draft k <a-x> <a-k> \%[\W\S]$ <ret> j <a-gt> }
|
|
}
|
|
}
|
|
|
|
# Initialization
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
hook -group kak-highlight global WinSetOption filetype=kak %{ add-highlighter window ref kakrc }
|
|
|
|
hook global WinSetOption filetype=kak %{
|
|
hook window InsertChar \n -group kak-indent kak-indent-on-new-line
|
|
# cleanup trailing whitespaces on current line insert end
|
|
hook window ModeChange insert:.* -group kak-indent %{ try %{ execute-keys -draft \; <a-x> s ^\h+$ <ret> d } }
|
|
set-option buffer extra_word_chars '-'
|
|
}
|
|
|
|
hook -group kak-highlight global WinSetOption filetype=(?!kak).* %{ remove-highlighter window/kakrc }
|
|
hook global WinSetOption filetype=(?!kak).* %{ remove-hooks window kak-indent }
|