blob: 8440852ab3dc6b3957d6a97aa3a93c0155fc53f3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
# Select the entire word around the cursor. Intended for use as
# a vim-style text object in vi mode but with customisable
# word boundaries.
#
# For example:
# autoload -U select-word-match
# zle -N select-in-camel select-word-match
# bindkey -M viopp ic select-in-camel
# zstyle ':zle:*-camel' word-style normal-subword
emulate -L zsh
setopt extendedglob
local curcontext=:zle:$WIDGET
local -A matched_words
# Start and end of range of characters
integer pos1 pos2 num=${NUMERIC:-1}
local style word
# choose between inner word or a word style of widget
for style in $1 ${${WIDGET#*-}[1]} $KEYS[1] "i"; do
[[ $style = [ai] ]] && break
done
autoload -Uz match-words-by-style
while (( num-- )); do
if (( MARK > CURSOR )); then
# if cursor is at the start of the selection, just move back a word
match-words-by-style
if [[ $style = i && -n $matched_words[ws-before-cursor] ]]; then
word=$matched_words[ws-before-cursor]
else
word=$matched_words[word-before-cursor]$matched_words[ws-before-cursor]
fi
if [[ -n $word ]]; then
(( CURSOR -= ${#word} ))
else
return 1
fi
elif (( MARK >= 0 && MARK < CURSOR )); then
# cursor at the end, move forward a word
(( CURSOR+1 == $#BUFFER )) && return 1
(( CURSOR++ ))
match-words-by-style
if [[ -n $matched_words[ws-after-cursor] ]]; then
if [[ $style = i ]]; then
# just skip the whitespace
word=$matched_words[ws-after-cursor]
else
# skip the whitespace plus word
word=$matched_words[ws-after-cursor]$matched_words[word-after-cursor]
fi
else
if [[ $style = i ]]; then
# skip the word
word=$matched_words[word-after-cursor]
else
# skip word and following whitespace
word=$matched_words[word-after-cursor]$matched_words[ws-after-word]
fi
fi
(( CURSOR += ${#word} - 1 ))
else
match-words-by-style
if (( ${matched_words[is-word-start]} )); then
# The word we are selecting starts at the cursor position.
pos1=$CURSOR
else
# No whitespace before us, so select any wordcharacters there.
pos1="${#matched_words[start]}"
fi
if [[ -n "${matched_words[ws-after-cursor]}" ]]; then
if [[ -n "${matched_words[ws-before-cursor]}" ]] || (( CURSOR == 0 )); then
# whitespace either side, select it
(( pos1 = CURSOR - ${#matched_words[ws-before-cursor]} ))
(( pos2 = CURSOR + ${#matched_words[ws-after-cursor]} ))
else
# There's whitespace at the cursor position, so only select
# up to the cursor position.
(( pos2 = CURSOR + 1 ))
fi
else
# No whitespace at the cursor position, so select the
# current character and any following wordcharacters.
(( pos2 = CURSOR + ${#matched_words[word-after-cursor]} ))
fi
if [[ $style = a ]]; then
if [[ -n "${matched_words[ws-after-cursor]}" && ( -n "${matched_words[ws-before-cursor]}" || CURSOR -eq 0 ) ]]; then
# in the middle of whitespace so grab a word
if [[ -n "${matched_words[word-after-cursor]}" ]]; then
(( pos2 += ${#matched_words[word-after-cursor]} )) # preferably the one after
else
(( pos1 -= ${#matched_words[word-before-cursor]} )) # otherwise the one before
fi
elif [[ -n "${matched_words[ws-after-word]}" ]]; then
(( pos2 += ${#matched_words[ws-after-word]} ))
elif [[ -n "${matched_words[ws-before-cursor]}" ]]; then
# couldn't grab whitespace forwards so try backwards
(( pos1 -= ${#matched_words[ws-before-cursor]} ))
elif (( pos1 > 0 )); then
# There might have been whitespace before the word
(( CURSOR = pos1 ))
match-words-by-style
if [[ -n "${matched_words[ws-before-cursor]}" ]]; then
(( pos1 -= ${#matched_words[ws-before-cursor]} ))
fi
fi
fi
(( MARK = pos1, CURSOR = pos2-1 ))
fi
done
if [[ $KEYMAP == vicmd ]] && (( !REGION_ACTIVE )); then
(( CURSOR++ )) # Need to include cursor position for operators
fi
|
