19 lines
561 B
Text
19 lines
561 B
Text
define-command -hidden replace-insert -params 1 %{
|
|
try %{
|
|
execute-keys -draft ';<a-K>\n<ret>'
|
|
execute-keys '<del>'
|
|
}
|
|
}
|
|
|
|
define-command -hidden replace-delete -params 1 %{
|
|
execute-keys '<space><a-;>H'
|
|
}
|
|
|
|
define-command replace -docstring 'Enter in replace mode' %{
|
|
hook window InsertChar '[^\n]' -group replace %(replace-insert %val(hook_param))
|
|
hook window InsertDelete '[^\n]' -group replace %(replace-delete %val(hook_param))
|
|
hook -once window ModeChange insert:normal %{
|
|
remove-hooks window replace
|
|
}
|
|
execute-keys -with-hooks i
|
|
}
|