xenia/kakoune
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rc: POSIXify the modeline.kak script

Browse Source 
Fixes #893
This commit is contained in:
Frank LENORMAND 2017-02-26 10:09:57 +03:00
parent 8703f30063
commit 5f5706eda3
1 changed files with 23 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
rc/extra/modeline.kak
View File

@ -14,10 +14,10 @@ decl int modelines 5
def -hidden modeline-parse-impl %{ def -hidden modeline-parse-impl %{
%sh{ %sh{
# Translate a vim option into the corresponding kakoune one # Translate a vim option into the corresponding kakoune one
function translate_opt_vim { translate_opt_vim() {
readonly key="$1" readonly key="$1"
readonly value="$2" readonly value="$2"
local tr="" tr=""
case "${key}" in case "${key}" in
so|scrolloff) tr="scrolloff ${value},${kak_opt_scrolloff##*,}";; so|scrolloff) tr="scrolloff ${value},${kak_opt_scrolloff##*,}";;
@ -42,40 +42,19 @@ def -hidden modeline-parse-impl %{
} }
# Pass a few whitelisted options to kakoune directly # Pass a few whitelisted options to kakoune directly
function translate_opt_kakoune { translate_opt_kakoune() {
readonly key="$1" readonly key="$1"
readonly value="$2" readonly value="$2"
readonly OPTS_ALLOWED=(
scrolloff
tabstop
indentwidth
autowrap_column
eolformat
filetype
BOM
)
printf %s\\n "${OPTS_ALLOWED[@]}" | grep -qw "${key}" || { case "${key}" in
printf %s\\n "echo -debug 'Unsupported kakoune variable: ${key}'"; scrolloff|tabstop|indentwidth|autowrap_column|eolformat|filetype|BOM);;
return; *) printf %s\\n "echo -debug 'Unsupported kakoune variable: ${key}'"
} return;;
esac
printf %s\\n "set buffer ${key} ${value}" printf %s\\n "set buffer ${key} ${value}"
} }
# The following subshell will keep the actual options of the modeline, and strip:
# - the text that leads the first option, according to the official vim modeline format
# - the trailing text after the last option, and an optional ':' sign before it
# It will also convert the ':' seperators beween the option=value pairs
# More info: http://vimdoc.sourceforge.net/htmldoc/options.html#modeline
options=(
$(printf %s\\n "${kak_selection}" | sed \
-e 's/^[^:]\{1,\}://' \
-e 's/[ \t]*set\{0,1\}[ \t]//' \
-e 's/:[^a-zA-Z0-9_=-]*$//' \
-e 's/:/ /g')
)
case "${kak_selection}" in case "${kak_selection}" in
*vi:*|*vim:*) type_selection="vim";; *vi:*|*vim:*) type_selection="vim";;
*kak:*|*kakoune:*) type_selection="kakoune";; *kak:*|*kakoune:*) type_selection="kakoune";;
@ -83,10 +62,23 @@ def -hidden modeline-parse-impl %{
esac esac
[ -n "${type_selection}" ] || exit 1 [ -n "${type_selection}" ] || exit 1
for option in "${options[@]}"; do # The following subshell will keep the actual options of the modeline, and strip:
# - the text that leads the first option, according to the official vim modeline format
# - the trailing text after the last option, and an optional ':' sign before it
# It will also convert the ':' seperators beween the option=value pairs
# More info: http://vimdoc.sourceforge.net/htmldoc/options.html#modeline
printf %s "${kak_selection}" | sed \
-e 's/^[^:]\{1,\}://' \
-e 's/[ \t]*set\{0,1\}[ \t]//' \
-e 's/:[^a-zA-Z0-9_=-]*$//' \
-e 's/:/ /g' \
| tr ' ' '\n' \
| while read -r option; do
name_option="${option%%=*}" name_option="${option%%=*}"
value_option="${option#*=}" value_option="${option#*=}"
[ -z "${option}" ] && continue
case "${type_selection}" in case "${type_selection}" in
vim) tr=$(translate_opt_vim "${name_option}" "${value_option}");; vim) tr=$(translate_opt_vim "${name_option}" "${value_option}");;
kakoune) tr=$(translate_opt_kakoune "${name_option}" "${value_option}");; kakoune) tr=$(translate_opt_kakoune "${name_option}" "${value_option}");;
@ -102,7 +94,7 @@ def -hidden modeline-parse-impl %{
def modeline-parse -docstring "Read and interpret vi-format modelines at the beginning/end of the buffer" %{ def modeline-parse -docstring "Read and interpret vi-format modelines at the beginning/end of the buffer" %{
try %{ eval -draft %{ try %{ eval -draft %{
exec \%s\`|.\'<ret> %opt{modelines}k <a-x> %opt{modelines}X \ exec \%s\`|.\'<ret> %opt{modelines}k <a-x> %opt{modelines}X \
s^[^\s]+?\s(vim?|kak(oune)?):\s?[^\n]+<ret> s^[^\s]+?\s(vim?|kak(oune)?):\s?[^\n]+<ret> <a-x>
eval -draft -itersel modeline-parse-impl eval -draft -itersel modeline-parse-impl
} } } }
} }