12 lines
313 B
Awk
12 lines
313 B
Awk
BEGIN {
|
|
n = split(ENVIRON["kak_text"], a, "·")
|
|
line = a[3]
|
|
if (n == 4 && line ~ /^[0-9]+/) {
|
|
pat = a[1]
|
|
gsub(/'/, "''", pat)
|
|
gsub(/\\/, "\\\\", pat)
|
|
print "edit --", a[4], line
|
|
print "execute-keys vv x s %{/\\b\\Q" pat "\\E\\b|\\Q" pat "<ret>} <a-)>,"
|
|
}
|
|
}
|