blob: 02f85a2fb275d4c5221f0d65b60db9ec969260c6 (
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
|
# Prompt for an search in the history for a pattern.
# Patterns to search are standard zsh patterns, but may include
# ^ at the start or $ at the end to anchor the pattern to the
# start or end of the history entry respectively.
#
# To search backwards, create a widget history-pattern-search-backward:
# zle -N history-pattern-search-backward history-pattern-search
# and to search forwards, create history-pattern-search-forward
# zle -N history-pattern-search-forward history-pattern-search
# Use extended globbing by default.
emulate -L zsh
setopt extendedglob
# Load required features.
autoload -U read-from-minibuffer
zmodload -i zsh/parameter
local REPLY dir new
integer i
local -a found match mbegin mend
# Decide if we are searching backwards or forwards.
if [[ $WIDGET = *forward* ]]; then
dir="forw"
else
dir="rev"
fi
# Read pattern. Prompt could be made customisable.
read-from-minibuffer "pat ($dir): "
# Abort if bad status or nothing entered
[[ $? -ne 0 || -z $REPLY ]] && return 0
# Handle start-of-line anchor.
if [[ $REPLY = \^* ]]; then
REPLY=$REPLY[2,-1]
else
REPLY="*$REPLY"
fi
# Handle end-of-line anchor.
if [[ $REPLY = *\$ ]]; then
REPLY=$REPLY[1,-2]
else
REPLY="$REPLY*"
fi
# Search history for pattern.
# As $history is an associative array we can get all matches.
found=(${(kon)history[(R)$REPLY]})
if [[ $dir = forw ]]; then
# Searching forward. Look back through matches until we
# get back to the current history number.
for (( i = ${#found}; i >= 1; i-- )); do
(( $found[$i] <= HISTNO )) && break
new=$found[$i]
done
else
# Searching backward. Look forward through matches until we
# reach the current history number.
for (( i = 1; i <= ${#found}; i++ )); do
(( $found[$i] >= HISTNO )) && break
new=$found[$i]
done
fi
if [[ -n $new ]]; then
# Match found. Move to line.
HISTNO=$new
if [[ $REPLY = *\* && $history[$new] = (#b)(${~REPLY[1,-2]})* ]]; then
# If not anchored to the end, move to the end of the pattern
# we were searching for.
CURSOR=$mend[1]
fi
return 0
else
return 1
fi
|
