home/rc/core/c-family.kak

350 lines
14 KiB
Plaintext

hook global BufCreate .*\.(cc|cpp|cxx|C|hh|hpp|hxx|H)$ %{
set-option buffer filetype cpp
}
hook global BufSetOption filetype=c\+\+ %{
set-option buffer filetype cpp
}
hook global BufCreate .*\.c$ %{
set-option buffer filetype c
}
hook global BufCreate .*\.h$ %{
try %{
execute-keys -draft %{%s\b::\b|\btemplate\h*<lt>|\bclass\h+\w+|\b(typename|namespace)\b|\b(public|private|protected)\h*:<ret>}
set-option buffer filetype cpp
} catch %{
set-option buffer filetype c
}
}
hook global BufCreate .*\.m %{
set-option buffer filetype objc
}
define-command -hidden c-family-trim-autoindent %[ evaluate-commands -draft -itersel %[
# remove the line if it's empty when leaving the insert mode
try %[ execute-keys <a-x> 1s^(\h+)$<ret> d ]
] ]
define-command -hidden c-family-indent-on-newline %< evaluate-commands -draft -itersel %<
execute-keys \;
try %<
# if previous line closed a paren, copy indent of the opening paren line
execute-keys -draft k<a-x> 1s(\))(\h+\w+)*\h*(\;\h*)?$<ret> m<a-\;>J s\A|.\z<ret> 1<a-&>
> catch %<
# else indent new lines with the same level as the previous one
execute-keys -draft K <a-&>
>
# remove previous empty lines resulting from the automatic indent
try %< execute-keys -draft k <a-x> <a-k>^\h+$<ret> Hd >
# indent after an opening brace
try %< execute-keys -draft k <a-x> s\{\h*$<ret> j <a-gt> >
# indent after a label
try %< execute-keys -draft k <a-x> s[a-zA-Z0-9_-]+:\h*$<ret> j <a-gt> >
# indent after a statement not followed by an opening brace
try %< execute-keys -draft k <a-x> <a-k>\b(if|else|for|while)\h*\(.+?\)\h*$<ret> j <a-gt> >
# align to the opening parenthesis or opening brace (whichever is first)
# on a previous line if its followed by text on the same line
try %< evaluate-commands -draft %<
# Go to opening parenthesis and opening brace, then select the most nested one
try %< try %< execute-keys [bZ<a-\;>[B<a-z><gt> > catch %< execute-keys [B > >
# Validate selection and get first and last char
execute-keys <a-k>\A[{(](\h*\S+)+\n<ret> <a-:><a-\;>L s\A|.\z<ret>
# Remove eventual indent from new line
try %< execute-keys -draft <space> <a-h> s\h+<ret> d >
# Now align that new line with the opening parenthesis/brace
execute-keys &
> >
> >
define-command -hidden c-family-indent-on-opening-curly-brace %[
# align indent with opening paren when { is entered on a new line after the closing paren
try %[ execute-keys -draft -itersel h<a-F>)M <a-k> \A\(.*\)\h*\n\h*\{\z <ret> s \A|.\z <ret> 1<a-&> ]
]
define-command -hidden c-family-indent-on-closing-curly-brace %[
# align to opening curly brace when alone on a line
try %[ execute-keys -itersel -draft <a-h><a-:><a-k>^\h+\}$<ret>hms\A|.\z<ret>1<a-&> ]
]
define-command -hidden c-family-insert-on-closing-curly-brace %[
# add a semicolon after a closing brace if part of a class, union or struct definition
try %[ execute-keys -itersel -draft hm<a-x>B<a-x><a-k>\A\h*(class|struct|union|enum)<ret> a\;<esc> ]
]
define-command -hidden c-family-insert-on-newline %[ evaluate-commands -draft %[
execute-keys \;
try %[
evaluate-commands -draft %[
# copy the commenting prefix
execute-keys -save-regs '' k <a-x>1s^\h*(//+\h*)<ret> y
try %[
# if the previous comment isn't empty, create a new one
execute-keys <a-x><a-K>^\h*//+\h*$<ret> j<a-x>s^\h*<ret>P
] catch %[
# if there is no text in the previous comment, remove it completely
execute-keys d
]
]
]
try %[
# if the previous line isn't within a comment scope, break
execute-keys -draft k<a-x> <a-k>^(\h*/\*|\h+\*(?!/))<ret>
# find comment opening, validate it was not closed, and check its using star prefixes
execute-keys -draft <a-?>/\*<ret><a-H> <a-K>\*/<ret> <a-k>\A\h*/\*([^\n]*\n\h*\*)*[^\n]*\n\h*.\z<ret>
try %[
# if the previous line is opening the comment, insert star preceeded by space
execute-keys -draft k<a-x><a-k>^\h*/\*<ret>
execute-keys -draft i<space>*<space><esc>
] catch %[
try %[
# if the next line is a comment line insert a star
execute-keys -draft j<a-x><a-k>^\h+\*<ret>
execute-keys -draft i*<space><esc>
] catch %[
try %[
# if the previous line is an empty comment line, close the comment scope
execute-keys -draft k<a-x><a-k>^\h+\*\h+$<ret> <a-x>1s\*(\h*)<ret>c/<esc>
] catch %[
# if the previous line is a non-empty comment line, add a star
execute-keys -draft i*<space><esc>
]
]
]
# trim trailing whitespace on the previous line
try %[ execute-keys -draft 1s(\h+)$<ret>d ]
# align the new star with the previous one
execute-keys J<a-x>1s^[^*]*(\*)<ret>&
]
] ]
# Regions definition are the same between c++ and objective-c
%sh{
for ft in c cpp objc; do
if [ "${ft}" = "objc" ]; then
maybe_at='@?'
else
maybe_at=''
fi
printf %s\\n '
add-highlighter shared/ regions -default code -match-capture FT \
string %{MAYBEAT(?<!QUOTE)"} %{(?<!\\)(?:\\\\)*"} "" \
string %{R"([^(]*)\(} %{\)([^)]*)"} "" \
comment /\* \*/ "" \
comment // $ "" \
disabled ^\h*?#\h*if\h+(?:0|FALSE)\b "#\h*(?:else|elif|endif)" "#\h*if(?:def)?" \
macro %{^\h*?\K#} %{(?<!\\)\n} ""
add-highlighter shared/FT/string fill string
add-highlighter shared/FT/comment fill comment
add-highlighter shared/FT/disabled fill rgb:666666
add-highlighter shared/FT/macro fill meta
add-highlighter shared/FT/macro regex ^\h*#include\h+(\S*) 1:module
' | sed -e "s/FT/${ft}/g; s/QUOTE/'/g; s/MAYBEAT/${maybe_at}/;"
done
}
# c specific
add-highlighter shared/c/code regex %{\b-?(0x[0-9a-fA-F]+|\d+)[fdiu]?|'((\\.)?|[^'\\])'} 0:value
%sh{
# Grammar
keywords="asm|break|case|continue|default|do|else|for|goto|if|return"
keywords="${keywords}|sizeof|switch|while"
attributes="auto|const|enum|extern|inline|register|restrict|static|struct"
attributes="${attributes}|typedef|union|volatile"
types="char|double|float|int|long|short|signed|size_t|unsigned|void"
values="NULL"
# Add the language's grammar to the static completion list
printf %s\\n "hook global WinSetOption filetype=c %{
set-option window static_words '${keywords}:${attributes}:${types}:${values}'
}" | sed 's,|,:,g'
# Highlight keywords
printf %s "
add-highlighter shared/c/code regex \b(${keywords})\b 0:keyword
add-highlighter shared/c/code regex \b(${attributes})\b 0:attribute
add-highlighter shared/c/code regex \b(${types})\b 0:type
add-highlighter shared/c/code regex \b(${values})\b 0:value
"
}
# c++ specific
add-highlighter shared/cpp/code regex %{\b-?(0x[0-9a-fA-F]+|\d+)[fdiu]?|'((\\.)?|[^'\\])'} 0:value
%sh{
# Grammar
keywords="alignas|alignof|and|and_eq|asm|bitand|bitor|break|case|catch"
keywords="${keywords}|compl|const_cast|continue|decltype|default|delete"
keywords="${keywords}|do|dynamic_cast|else|explicit|for|goto|if|new|not"
keywords="${keywords}|not_eq|operator|or|or_eq|reinterpret_cast|return"
keywords="${keywords}|sizeof|static_assert|static_cast|switch|throw|try"
keywords="${keywords}|typeid|using|while|xor|xor_eq"
attributes="auto|class|const|constexpr|enum|extern|final|friend|inline"
attributes="${attributes}|mutable|namespace|noexcept|override|private"
attributes="${attributes}|protected|public|register|static|struct|template"
attributes="${attributes}|thread_local|typedef|typename|union|virtual"
attributes="${attributes}|volatile"
types="bool|byte|char|char16_t|char32_t|double|float|int|long|max_align_t"
types="${types}|nullptr_t|ptrdiff_t|short|signed|size_t|unsigned|void"
types="${types}|wchar_t"
values="NULL|false|nullptr|this|true"
# Add the language's grammar to the static completion list
printf %s\\n "hook global WinSetOption filetype=cpp %{
set-option window static_words '${keywords}:${attributes}:${types}:${values}'
}" | sed 's,|,:,g'
# Highlight keywords
printf %s "
add-highlighter shared/cpp/code regex \b(${keywords})\b 0:keyword
add-highlighter shared/cpp/code regex \b(${attributes})\b 0:attribute
add-highlighter shared/cpp/code regex \b(${types})\b 0:type
add-highlighter shared/cpp/code regex \b(${values})\b 0:value
"
}
# c and c++ compiler macros
%sh{
builtin_macros="__cplusplus|__STDC_HOSTED__|__FILE__|__LINE__|__DATE__|__TIME__|__STDCPP_DEFAULT_NEW_ALIGNMENT__"
printf %s "
add-highlighter shared/c/code regex \b(${builtin_macros})\b 0:builtin
add-highlighter shared/cpp/code regex \b(${builtin_macros})\b 0:builtin
"
}
# objective-c specific
add-highlighter shared/objc/code regex %{\b-?\d+[fdiu]?|'((\\.)?|[^'\\])'} 0:value
%sh{
# Grammar
keywords="break|case|continue|default|do|else|for|goto|if|return|switch"
keywords="${keywords}|while"
attributes="IBAction|IBOutlet|__block|assign|auto|const|copy|enum|extern"
attributes="${attributes}|inline|nonatomic|readonly|retain|static|strong"
attributes="${attributes}|struct|typedef|union|volatile|weak"
types="BOOL|CGFloat|NSInteger|NSString|NSUInteger|bool|char|float"
types="${types}|instancetype|int|long|short|signed|size_t|unsigned|void"
values="FALSE|NO|NULL|TRUE|YES|id|nil|self|super"
decorators="autoreleasepool|catch|class|end|implementation|interface"
decorators="${decorators}|property|protocol|selector|synchronized"
decorators="${decorators}|synthesize|try"
# Add the language's grammar to the static completion list
printf %s\\n "hook global WinSetOption filetype=objc %{
set-option window static_words '${keywords}:${attributes}:${types}:${values}:${decorators}'
}" | sed 's,|,:,g'
# Highlight keywords
printf %s "
add-highlighter shared/objc/code regex \b(${keywords})\b 0:keyword
add-highlighter shared/objc/code regex \b(${attributes})\b 0:attribute
add-highlighter shared/objc/code regex \b(${types})\b 0:type
add-highlighter shared/objc/code regex \b(${values})\b 0:value
add-highlighter shared/objc/code regex @(${decorators})\b 0:attribute
"
}
hook global WinSetOption filetype=(c|cpp|objc) %[
try %{ # we might be switching from one c-family language to another
remove-hooks window c-family-hooks
remove-hooks window c-family-indent
remove-hooks window c-family-insert
}
hook -group c-family-indent window InsertEnd .* c-family-trim-autoindent
hook -group c-family-insert window InsertChar \n c-family-insert-on-newline
hook -group c-family-indent window InsertChar \n c-family-indent-on-newline
hook -group c-family-indent window InsertChar \{ c-family-indent-on-opening-curly-brace
hook -group c-family-indent window InsertChar \} c-family-indent-on-closing-curly-brace
hook -group c-family-insert window InsertChar \} c-family-insert-on-closing-curly-brace
alias window alt c-family-alternative-file
]
hook global WinSetOption filetype=(?!c)(?!cpp)(?!objc).* %[
remove-hooks window c-family-hooks
remove-hooks window c-family-indent
remove-hooks window c-family-insert
unalias window alt c-family-alternative-file
]
hook -group c-highlight global WinSetOption filetype=c %[ add-highlighter window ref c ]
hook -group c-highlight global WinSetOption filetype=(?!c).* %[ remove-highlighter window/c ]
hook -group cpp-highlight global WinSetOption filetype=cpp %[ add-highlighter window ref cpp ]
hook -group cpp-highlight global WinSetOption filetype=(?!cpp).* %[ remove-highlighter window/cpp ]
hook -group objc-highlight global WinSetOption filetype=objc %[ add-highlighter window ref objc ]
hook -group objc-highlight global WinSetOption filetype=(?!objc).* %[ remove-highlighter window/objc ]
declare-option -docstring %{control the type of include guard to be inserted in empty headers
Can be one of the following:
ifdef: old style ifndef/define guard
pragma: newer type of guard using "pragma once"} \
str c_include_guard_style "ifdef"
define-command -hidden c-family-insert-include-guards %{
%sh{
case "${kak_opt_c_include_guard_style}" in
ifdef)
echo 'execute-keys ggi<c-r>%<ret><esc>ggxs\.<ret>c_<esc><space>A_INCLUDED<esc>ggxyppI#ifndef<space><esc>jI#define<space><esc>jI#endif<space>//<space><esc>O<esc>'
;;
pragma)
echo 'execute-keys ggi#pragma<space>once<esc>'
;;
*);;
esac
}
}
hook -group c-family-insert global BufNewFile .*\.(h|hh|hpp|hxx|H) c-family-insert-include-guards
declare-option -docstring "colon separated list of path in which header files will be looked for" \
str-list alt_dirs ".:.."
define-command c-family-alternative-file -docstring "Jump to the alternate file (header/implementation)" %{ %sh{
alt_dirs=$(printf %s\\n "${kak_opt_alt_dirs}" | tr ':' '\n')
file="${kak_buffile##*/}"
file_noext="${file%.*}"
dir=$(dirname "${kak_buffile}")
case ${file} in
*.c|*.cc|*.cpp|*.cxx|*.C|*.inl|*.m)
for alt_dir in ${alt_dirs}; do
for ext in h hh hpp hxx H; do
altname="${dir}/${alt_dir}/${file_noext}.${ext}"
if [ -f ${altname} ]; then
printf 'edit %%{%s}\n' "${altname}"
exit
fi
done
done
;;
*.h|*.hh|*.hpp|*.hxx|*.H)
for alt_dir in ${alt_dirs}; do
for ext in c cc cpp cxx C m; do
altname="${dir}/${alt_dir}/${file_noext}.${ext}"
if [ -f ${altname} ]; then
printf 'edit %%{%s}\n' "${altname}"
exit
fi
done
done
;;
*)
echo "echo -markup '{Error}extension not recognized'"
exit
;;
esac
echo "echo -markup '{Error}alternative file not found'"
}}