10 lines
349 B
Text
10 lines
349 B
Text
define-command -override url-open %{
|
|
evaluate-commands -save-regs 'ab' %{
|
|
set-register b 'https?://(www\.)?[-a-zA-Z0-9@:%._\+~#=]{1,256}\.[a-zA-Z0-9()]{1,6}\b([-a-zA-Z0-9()@:%_\+.~#?&//=]*)'
|
|
execute-keys -draft '<a-a><a-w>s<c-r>b<ret>"ay'
|
|
nop %sh{
|
|
xdg-open "$kak_reg_a"
|
|
}
|
|
echo %reg{a}
|
|
}
|
|
}
|