2017-01-15 14:58:07 +01:00
|
|
|
|
## Line comments
|
|
|
|
|
decl str comment_line "#"
|
2016-10-15 10:04:43 +02:00
|
|
|
|
|
2017-01-15 14:58:07 +01:00
|
|
|
|
## Block comments
|
2017-01-15 15:07:17 +01:00
|
|
|
|
decl str-list comment_block
|
2015-10-25 13:17:36 +01:00
|
|
|
|
|
2017-01-15 14:58:07 +01:00
|
|
|
|
## Default comments for all languages
|
2016-10-15 10:04:43 +02:00
|
|
|
|
hook global BufSetOption filetype=asciidoc %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_block '///:///'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=(c|cpp|go|java|javascript|objc|sass|scala|scss|swift) %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line '//'
|
|
|
|
|
set buffer comment_block '/*:*/'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=(cabal|haskell|moon) %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line '--'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=clojure %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line '#_ '
|
|
|
|
|
set buffer comment_block '(comment :)'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
2016-10-14 21:12:01 +02:00
|
|
|
|
hook global BufSetOption filetype=coffee %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_block '###:###'
|
2016-10-14 21:12:01 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=css %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line ''
|
|
|
|
|
set buffer comment_block '/*:*/'
|
2016-10-14 21:12:01 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=d %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line '//'
|
|
|
|
|
set buffer comment_block '/+:+/'
|
2016-10-14 21:12:01 +02:00
|
|
|
|
}
|
|
|
|
|
|
2016-10-15 10:04:43 +02:00
|
|
|
|
hook global BufSetOption filetype=(gas|ini) %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line ';'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=haml %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line '-#'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
2016-10-14 21:12:01 +02:00
|
|
|
|
hook global BufSetOption filetype=html %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line ''
|
|
|
|
|
set buffer comment_block '<!--:-->'
|
2016-10-14 21:12:01 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=latex %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line '%'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=lisp %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line ';'
|
|
|
|
|
set buffer comment_block '#|:|#'
|
2016-10-14 21:12:01 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=lua %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line '--'
|
|
|
|
|
set buffer comment_block '--[[:]]'
|
2016-10-14 21:12:01 +02:00
|
|
|
|
}
|
|
|
|
|
|
2016-10-15 10:04:43 +02:00
|
|
|
|
hook global BufSetOption filetype=markdown %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line ''
|
|
|
|
|
set buffer comment_block '[//]: # (:)'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=perl %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_block '#[:]'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=(pug|rust) %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line '//'
|
2016-10-15 10:04:43 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=python %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_block '\'\'\':\'\'\''
|
2016-10-14 21:12:01 +02:00
|
|
|
|
}
|
|
|
|
|
|
2016-10-15 10:04:43 +02:00
|
|
|
|
hook global BufSetOption filetype=ragel %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_line '%%'
|
|
|
|
|
set buffer comment_block '%%{:}%%'
|
2016-10-14 21:12:01 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
hook global BufSetOption filetype=ruby %{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
set buffer comment_block '^begin=:^=end'
|
2016-10-14 21:12:01 +02:00
|
|
|
|
}
|
|
|
|
|
|
2017-01-15 14:45:22 +01:00
|
|
|
|
def comment-block -docstring "(un)comment selected lines using block comments" %{
|
2015-10-25 13:17:36 +01:00
|
|
|
|
%sh{
|
2016-10-14 21:15:35 +02:00
|
|
|
|
exec_proof() {
|
2015-12-03 06:52:57 +01:00
|
|
|
|
## Replace the '<' sign that is interpreted differently in `exec`
|
2016-04-23 07:47:01 +02:00
|
|
|
|
printf %s\\n "$@" | sed 's,<,<lt>,g'
|
2015-10-25 13:17:36 +01:00
|
|
|
|
}
|
|
|
|
|
|
2017-01-15 14:58:07 +01:00
|
|
|
|
readonly opening=$(exec_proof "${kak_opt_comment_block%:*}")
|
|
|
|
|
readonly closing=$(exec_proof "${kak_opt_comment_block##*:}")
|
2015-10-25 13:17:36 +01:00
|
|
|
|
|
2016-03-15 12:51:19 +01:00
|
|
|
|
if [ -z "${opening}" ] || [ -z "${closing}" ]; then
|
2017-01-15 14:58:07 +01:00
|
|
|
|
echo "echo -debug 'The \`comment_block\` variable is empty, could not comment the selection'"
|
2015-10-25 13:17:36 +01:00
|
|
|
|
exit
|
|
|
|
|
fi
|
|
|
|
|
|
2016-10-14 21:15:35 +02:00
|
|
|
|
printf %s\\n "eval -draft %{ try %{
|
2015-10-25 13:17:36 +01:00
|
|
|
|
## The selection is empty
|
2016-10-14 21:15:35 +02:00
|
|
|
|
exec <a-K>\\A[\\h\\v\\n]*\\z<ret>
|
2015-10-25 13:17:36 +01:00
|
|
|
|
|
|
|
|
|
try %{
|
|
|
|
|
## The selection has already been commented
|
2016-10-14 21:15:35 +02:00
|
|
|
|
exec %{<a-K>\\A\\Q${opening}\\E.*\\Q${closing}\\E\\n*\\z<ret>}
|
2015-10-25 13:17:36 +01:00
|
|
|
|
|
|
|
|
|
## Comment the selection
|
2016-10-14 21:15:35 +02:00
|
|
|
|
exec -draft %{a${closing}<esc>i${opening}}
|
2015-10-25 13:17:36 +01:00
|
|
|
|
} catch %{
|
|
|
|
|
## Uncomment the commented selection
|
2016-10-14 21:15:35 +02:00
|
|
|
|
exec -draft %{s(\\A\\Q${opening}\\E)|(\\Q${closing}\\E\\n*\\z)<ret>d}
|
2015-10-25 13:17:36 +01:00
|
|
|
|
}
|
2016-10-14 21:15:35 +02:00
|
|
|
|
} }"
|
2015-10-25 13:17:36 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2017-01-15 14:43:45 +01:00
|
|
|
|
def comment-line -docstring "(un)comment selected lines using line comments" %{
|
2015-10-25 13:17:36 +01:00
|
|
|
|
%sh{
|
2017-01-15 14:58:07 +01:00
|
|
|
|
readonly opening="${kak_opt_comment_line}"
|
2016-10-14 21:15:35 +02:00
|
|
|
|
readonly opening_escaped="\\Q${opening}\\E"
|
2015-10-25 13:17:36 +01:00
|
|
|
|
|
|
|
|
|
if [ -z "${opening}" ]; then
|
2017-01-15 14:58:07 +01:00
|
|
|
|
echo "echo -debug 'The \`comment_line\` variable is empty, could not comment the line'"
|
2015-10-25 13:17:36 +01:00
|
|
|
|
exit
|
|
|
|
|
fi
|
|
|
|
|
|
2016-10-14 21:15:35 +02:00
|
|
|
|
printf %s\\n "eval -draft %{
|
2017-01-15 14:43:45 +01:00
|
|
|
|
## Select the content of the lines, without indentation
|
|
|
|
|
exec <a-s>I<esc><a-l>
|
2015-10-25 13:17:36 +01:00
|
|
|
|
|
|
|
|
|
try %{
|
2017-01-15 15:05:01 +01:00
|
|
|
|
## There’s no text on the line
|
2016-10-14 21:15:35 +02:00
|
|
|
|
exec <a-K>\\A[\\h\\v\\n]*\\z<ret>
|
|
|
|
|
|
|
|
|
|
try %{
|
|
|
|
|
## The line has already been commented
|
|
|
|
|
exec %{<a-K>\\A${opening_escaped}<ret>}
|
|
|
|
|
|
|
|
|
|
## Comment the line
|
|
|
|
|
exec -draft %{i${opening}}
|
|
|
|
|
} catch %{
|
|
|
|
|
## Uncomment the line
|
|
|
|
|
exec -draft %{s\\A${opening_escaped}\\h*<ret>d}
|
|
|
|
|
}
|
2015-10-25 13:17:36 +01:00
|
|
|
|
}
|
|
|
|
|
}"
|
|
|
|
|
}
|
|
|
|
|
}
|