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