mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-19 13:33:52 +01:00
40 lines
1.3 KiB
Plaintext
40 lines
1.3 KiB
Plaintext
# Transpose words, matching the words using match-words-by-style, q.v.
|
|
# The group of word characters preceding the cursor (not necessarily
|
|
# immediately) are transposed with the group of word characters following
|
|
# the cursor (again, not necessarily immediately).
|
|
#
|
|
# Note the style skip-chars, used in the context of the current widget.
|
|
# This gives a number of character starting from the cursor position
|
|
# which are never considered part of a word and hence are always left
|
|
# alone. The default is 0 and typically the only useful alternative
|
|
# is one. This would have the effect that `fooXbar' with the cursor
|
|
# on X would be turned into `barXfoo' with the cursor still on the X,
|
|
# regardless of what the character X is.
|
|
|
|
autoload match-words-by-style
|
|
|
|
local curcontext=":zle:$WIDGET" skip
|
|
local -a matched_words
|
|
integer count=${NUMERIC:-1} neg
|
|
|
|
(( count < 0 )) && (( count = -count, neg = 1 ))
|
|
|
|
while (( count-- > 0 )); do
|
|
match-words-by-style
|
|
|
|
[[ -z "$matched_words[2]$matched_words[5]" ]] && return 1
|
|
|
|
if (( neg )); then
|
|
LBUFFER="$matched_words[1]"
|
|
RBUFFER="$matched_words[5]${(j..)matched_words[3,4]}\
|
|
$matched_words[2]${(j..)matched_words[6,7]}"
|
|
else
|
|
LBUFFER="$matched_words[1]$matched_words[5]${(j..)matched_words[3,4]}\
|
|
$matched_words[2]"
|
|
RBUFFER="${(j..)matched_words[6,7]}"
|
|
fi
|
|
|
|
done
|
|
|
|
return 0
|