From 7502d1e84ae9956356e1578f65d11a8326ce3ec0 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Tue, 23 Jun 2026 00:50:21 +0530
Subject: Refactor fennel scripts to babashka clojure

---
 autoload/grep.kak  | 11 ++++++-----
 autoload/marks.kak | 14 +++++++-------
 2 files changed, 13 insertions(+), 12 deletions(-)

(limited to 'autoload')

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
   }
-- 
cgit v1.3.1