Refactor fennel scripts to babashka clojure

2 files changed, 13 insertions, 12 deletions

diff --git a/autoload/grep.kak b/autoload/grep.kak
index c753ab2..5da657f 100644
--- a/autoload/grep.kak
+++ b/autoload/grep.kak
@@ -4,17 +4,18 @@ map global file g ':grep ''''<left>' -docstring 'Grep'
 map global file * ': grep --case-sensitive %val{selection}<ret>' -docstring 'Grep selection'
 
 define-command grep-write %{
-  execute-keys '%' # Consider selecting manually
-  evaluate-commands %sh{
-    echo "$kak_selections" | "$kak_config/scripts/apply_vimgrep_updates.fnl" | xargs -i echo "info '{}'"
+  evaluate-commands -draft %{
+    execute-keys '%'
+    set-register c %sh{ echo "$kak_selections" | "$kak_config/scripts/grep-write.clj" }
   }
+  info %val{reg_c}
 }
 
-hook global -always BufOpenFifo '\*grep\*' %{
+hook global BufOpenFifo '\*grep\*' %{
   map global file [ ': grep-previous-match<ret>'
   map global file ] ': grep-next-match<ret>'
 }
-hook global -always BufOpenFifo '\*make\*' %{
+hook global BufOpenFifo '\*make\*' %{
   map global file [ ': make-previous-error<ret>'
   map global file ] ': make-next-error<ret>'
 }
diff --git a/autoload/marks.kak b/autoload/marks.kak
index 92f45a2..1621308 100644
--- a/autoload/marks.kak
+++ b/autoload/marks.kak
@@ -1,31 +1,31 @@
 define-command marks-select -params 1 %{
   evaluate-commands %sh{
-    mark=$("$kak_config/scripts/marks.fnl" get "${1:-0}")
+    mark=$("$kak_config/scripts/marks.clj" get "${1:-0}")
     [ -z "$mark" ] || echo "edit $mark"
   }
   marks-show
 }
 
 define-command marks-add -params 1..2 %{
-  nop %sh{ "$kak_config/scripts/marks.fnl" add "$1" "$2" }
+  nop %sh{ "$kak_config/scripts/marks.clj" add "$1" "$2" }
   marks-show
 }
 
 define-command marks-delete -params 1 %{
-  nop %sh{ "$kak_config/scripts/marks.fnl" delete "$1" }
+  nop %sh{ "$kak_config/scripts/marks.clj" delete "$1" }
   delete-buffer %arg{1}
   marks-show
 }
 
 define-command marks-clear %{
-  nop %sh{ "$kak_config/scripts/marks.fnl" clear }
+  nop %sh{ "$kak_config/scripts/marks.clj" clear }
 }
 
 define-command marks-show %{
   info -title 'marks' -markup %sh{
     path="$kak_opt_marks_path/$kak_opt_marks_name"
     echo -n "{Default}"
-    marks=$("$kak_config/scripts/marks.fnl" show)
+    marks=$("$kak_config/scripts/marks.clj" show)
     if [ -z "$marks" ]; then
       echo "{comment}<empty>" && exit 0;
     fi
@@ -38,14 +38,14 @@ define-command marks-show %{
 }
 
 define-command marks-edit-all %{
-  edit %sh{ "$kak_config/scripts/marks.fnl" show-path }
+  edit %sh{ "$kak_config/scripts/marks.clj" show-path }
 }
 
 define-command marks-add-all-buffers %{
   eval %sh{
     echo "$kak_quoted_buflist" | xargs -n1 | while IFS= read file; do
       if [ -f "$file" ]; then
-        "$kak_config/scripts/marks.fnl" add "$(realpath "$file")"
+        "$kak_config/scripts/marks.clj" add "$(realpath "$file")"
       fi
     done
   }