init commitHEADmaster

1 files changed, 70 insertions, 0 deletions

diff --git a/autoload/tools/jump.kak b/autoload/tools/jump.kak
new file mode 100644
index 0000000..60d777d
--- /dev/null
+++ b/autoload/tools/jump.kak
@@ -0,0 +1,70 @@
+declare-option -docstring "name of the client in which all source code jumps will be executed" \
+    str jumpclient
+declare-option -docstring "name of the client in which utilities display information" \
+    str toolsclient
+
+provide-module jump %{
+
+declare-option -hidden int jump_current_line 0
+
+define-command -hidden jump %{
+    evaluate-commands -save-regs a %{ # use evaluate-commands to ensure jumps are collapsed
+        try %{
+            evaluate-commands -draft %{
+                execute-keys ',xs^([^:\n]+):(\d+):(\d+)?<ret>'
+                set-register a %reg{1} %reg{2} %reg{3}
+            }
+            set-option buffer jump_current_line %val{cursor_line}
+            evaluate-commands -try-client %opt{jumpclient} -verbatim -- edit -existing -- %reg{a}
+            try %{ focus %opt{jumpclient} }
+        }
+    }
+}
+
+define-command jump-next -params 1.. -docstring %{
+    jump-next <bufname>: jump to next location listed in the given *grep*-like location list buffer.
+} %{
+    evaluate-commands -try-client %opt{jumpclient} -save-regs / %{
+        buffer %arg{@}
+        jump-select-next
+        jump
+    }
+    try %{
+        evaluate-commands -client %opt{toolsclient} %{
+            buffer %arg{@}
+            execute-keys gg %opt{jump_current_line}g
+        }
+    }
+}
+complete-command jump-next buffer
+define-command -hidden jump-select-next %{
+    # First jump to end of buffer so that if jump_current_line == 0
+    # 0g<a-l> will be a no-op and we'll jump to the first result.
+    # Yeah, thats ugly...
+    execute-keys ge %opt{jump_current_line}g<a-l> /^[^:\n]+:\d+:<ret>
+}
+
+define-command jump-previous -params 1.. -docstring %{
+    jump-previous <bufname>: jump to previous location listed in the given *grep*-like location list buffer.
+} %{
+    evaluate-commands -try-client %opt{jumpclient} -save-regs / %{
+        buffer %arg{@}
+        jump-select-previous
+        jump
+    }
+    try %{
+        evaluate-commands -client %opt{toolsclient} %{
+            buffer %arg{@}
+            execute-keys gg %opt{jump_current_line}g
+        }
+    }
+}
+complete-command jump-previous buffer
+define-command -hidden jump-select-previous %{
+    # See comment in jump-select-next
+    execute-keys ge %opt{jump_current_line}g<a-h> <a-/>^[^:\n]+:\d+:<ret>
+}
+
+}
+
+hook -once global KakBegin .* %{ require-module jump }