141 lines
2.3 KiB
Bash
141 lines
2.3 KiB
Bash
_get_surround_target() {
|
|
read_key -v _s_ch
|
|
case "$_s_ch" in
|
|
\(|\)) _sl='('; _sr=')' ;;
|
|
\[|\]) _sl='['; _sr=']' ;;
|
|
\{|\}) _sl='{'; _sr='}' ;;
|
|
\<|\>) _sl='<'; _sr='>' ;;
|
|
*) _sl="$_s_ch"; _sr="$_s_ch" ;;
|
|
esac
|
|
|
|
}
|
|
_read_obj() {
|
|
_obj=""
|
|
while read_key -v key; do
|
|
if [[ "${#_obj}" -ge 3 ]]; then return 1; fi
|
|
case "$key" in
|
|
i|a)
|
|
if [ -n "$_obj" ]; then return 1; fi
|
|
_obj="$key"
|
|
;;
|
|
b|e)
|
|
if [ -n "$_obj" ]; then return 1; fi
|
|
_obj="$key"
|
|
break
|
|
;;
|
|
w|W)
|
|
_obj="$_obj$key"
|
|
break
|
|
;;
|
|
f|F)
|
|
read_key -v char
|
|
_obj="$key$char"
|
|
break
|
|
;;
|
|
\(|\)|\[|\]|\{|\}|\"|\')
|
|
if [ -z "$_obj" ]; then return 1; fi
|
|
_obj="$_obj$key"
|
|
break
|
|
;;
|
|
esac
|
|
done
|
|
|
|
}
|
|
_scan_left() {
|
|
local needle="$1"
|
|
local haystack="$2"
|
|
local i=$((${#haystack} - 1))
|
|
|
|
|
|
while [ "$i" -ge 0 ]; do
|
|
ch="${haystack:$i:1}"
|
|
if [ "$ch" = "$needle" ]; then
|
|
left=$i
|
|
return 0
|
|
fi
|
|
i=$((i - 1))
|
|
done
|
|
|
|
return 1
|
|
|
|
}
|
|
_scan_right() {
|
|
local needle="$1"
|
|
local haystack="$2"
|
|
local i=0
|
|
|
|
|
|
while [ "$i" -lt "${#haystack}" ]; do
|
|
ch="${haystack:$i:1}"
|
|
if [ "$ch" = "$needle" ]; then
|
|
right="$i"
|
|
return 0
|
|
fi
|
|
i=$((i + 1))
|
|
done
|
|
|
|
return 1
|
|
|
|
}
|
|
_surround_1() {
|
|
local _obj
|
|
_read_obj
|
|
_get_surround_target
|
|
_KEYS="v$_obj"
|
|
|
|
}
|
|
_surround_2() {
|
|
local start
|
|
local end
|
|
if [ "$_ANCHOR" -lt "$_CURSOR" ]; then
|
|
start=$_ANCHOR
|
|
end=$_CURSOR
|
|
else
|
|
start=$_CURSOR
|
|
end=$_ANCHOR
|
|
fi
|
|
end=$((end + 1))
|
|
|
|
delta=$((end - start))
|
|
|
|
left="${_BUFFER:0:$start}"
|
|
mid="${_BUFFER:$start:$delta}"
|
|
right="${_BUFFER:$end}"
|
|
_BUFFER="$left$_sl$mid$_sr$right"
|
|
_CURSOR=$start
|
|
|
|
}
|
|
_surround_del() {
|
|
_get_surround_target
|
|
local left_buf="${_BUFFER:0:$_CURSOR}"
|
|
local right_buf="${_BUFFER:$left}"
|
|
local left=""
|
|
local right=""
|
|
_scan_left $_sl "$left_buf"
|
|
|
|
if [ "$?" -ne 0 ]; then
|
|
_scan_right $_sl "$right_buf"
|
|
|
|
[ "$?" -ne 0 ] && return 1
|
|
left=$right
|
|
fi
|
|
|
|
mid_start=$((left + 1))
|
|
right=""
|
|
left_buf="${_BUFFER:0:$left}"
|
|
right_buf="${_BUFFER:$mid_start}"
|
|
_scan_right $_sr "$right_buf"
|
|
|
|
[ "$?" -ne 0 ] && return 1
|
|
|
|
mid_end=$((mid_start + right))
|
|
right_start=$((mid_end + 1))
|
|
new_left_buf="${_BUFFER:0:$left}"
|
|
new_mid_buf="${_BUFFER:$mid_start:$right}"
|
|
new_right_buf="${_BUFFER:$right_start}"
|
|
|
|
|
|
_BUFFER="$new_left_buf$new_mid_buf$new_right_buf"
|
|
|
|
}
|