blob: e1009a44a5697a7c2e7882c5a5af8f7693707b4f (
plain)
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
|
declare-option str-to-str-map harpoon_buffers
define-command harpoon-nav \
-params 1..2 \
-docstring "harpoon-nav <index> [<add-if-empty>]: Navigate to the harpoon at <index>, or optionally add it if it's empty" \
%{
evaluate-commands %sh{
selected=$1
add=$2
eval "set -- $kak_quoted_opt_harpoon_buffers"
while [ $# -gt 0 ]; do
index=${1%%=*}
if [ "$index" = "$selected" ]; then
echo "edit ${1#*=}"
echo "echo 'Opened harpoon at index $selected'"
return
fi
shift
done
if [ "$add" = true ]; then
echo "harpoon-add $selected"
else
echo "fail 'No harpoon defined at index $selected'"
fi
}
}
define-command harpoon-add \
-params 1 \
-docstring "harpoon-add <index>: Harpoon the current file at <index>" \
%{
evaluate-commands %sh{
bufname=$(echo "$kak_bufname" | sed "s/@/@@/g")
echo "set-option -add global harpoon_buffers %@$1=$bufname@"
echo "echo 'Added current file at index $1'"
}
}
define-command harpoon-remove \
-params ..1 \
-docstring "harpoon-remove [<index>]: Remove the harpoon at <index>, or all harpoons" \
%{
evaluate-commands %sh{
if [ -n "$1" ]; then
echo "set-option -remove global harpoon_buffers '$1='"
echo "echo 'Removed harpoon at index $1'"
else
echo "set-option global harpoon_buffers"
echo "echo 'Removed all harpoons'"
fi
}
}
define-command harpoon-list \
-docstring "List harpoons in an infobox" \
%{
evaluate-commands %sh{
output=""
eval "set -- $kak_quoted_opt_harpoon_buffers"
while [ $# -gt 0 ]; do
index=${1%%=*}
filename=${1#*=}
# Add newline if it's not the first one
if [ -n "$output" ]; then
output="$output
$index: $filename"
else
output="$index: $filename"
fi
shift
done
output=$(echo "$output" | sed "s/@/@@/g" | sort)
if [ -n "$output" ]; then
echo "info -title harpoons %@$output@"
else
echo "fail 'There are no harpoons'"
fi
}
}
declare-user-mode harpoon
map global harpoon l ": harpoon-list<ret>" -docstring "List harpoons"
map global harpoon 1 ": harpoon-add 1<ret>" -docstring "Add file at 1"
map global harpoon 2 ": harpoon-add 2<ret>" -docstring "Add file at 2"
map global harpoon 3 ": harpoon-add 3<ret>" -docstring "Add file at 3"
map global harpoon 4 ": harpoon-add 4<ret>" -docstring "Add file at 4"
map global harpoon 5 ": harpoon-add 5<ret>" -docstring "Add file at 5"
map global harpoon 6 ": harpoon-add 6<ret>" -docstring "Add file at 6"
map global harpoon 7 ": harpoon-add 7<ret>" -docstring "Add file at 7"
map global harpoon 8 ": harpoon-add 8<ret>" -docstring "Add file at 8"
map global harpoon 9 ": harpoon-add 9<ret>" -docstring "Add file at 9"
define-command harpoon-add-bindings -docstring "Add convenient keybindings for navigating harpoons" %{
map global normal <c-1> ": harpoon-nav 1<ret>"
map global normal <c-2> ": harpoon-nav 2<ret>"
map global normal <c-3> ": harpoon-nav 3<ret>"
map global normal <c-4> ": harpoon-nav 4<ret>"
map global normal <c-5> ": harpoon-nav 5<ret>"
map global normal <c-6> ": harpoon-nav 6<ret>"
map global normal <c-7> ": harpoon-nav 7<ret>"
map global normal <c-8> ": harpoon-nav 8<ret>"
map global normal <c-9> ": harpoon-nav 9<ret>"
map global user h ": enter-user-mode harpoon<ret>" -docstring "harpoon..."
}
|
