Add a mapping to restart the babashka auto REPL

Author: Olical

doc/conjure-client-clojure-nrepl.txt

@@ -143,6 +143,11 @@ options relevant to these mappings.
 
 <localleader>rc          Clear the namespace refresh cache.
 
+<localleader>car         Restart the babashka auto-REPL. This will disconnect
+                         the current nREPL connection, stop the babashka
+                         process, and start a fresh one. Your next evaluation
+                         will automatically reconnect.
+
 ==============================================================================
 CONFIGURATION                     *conjure-client-clojure-nrepl-configuration*
 
@@ -492,6 +497,11 @@ All configuration can be set as described in |conjure-configuration|.
             Clear the namespace refresh cache.
             Default: `rc`
 
+                    *g:conjure#client#clojure#nrepl#mapping#auto_repl_restart*
+`g:conjure#client#clojure#nrepl#mapping#auto_repl_restart`
+            Restart the babashka auto-REPL.
+            Default: `car`
+
                  *g:conjure#client#clojure#nrepl#completion#cljs#use_suitable*
 `g:conjure#client#clojure#nrepl#completion#cljs#use_suitable`
             Use `clj-suitable` to improve cljs completion.

fnl/conjure/client/clojure/nrepl/auto-repl.fnl

@@ -4,7 +4,9 @@
 (local config (autoload :conjure.config))
 (local log (autoload :conjure.log))
 (local process (autoload :conjure.process))
+(local server (autoload :conjure.client.clojure.nrepl.server))
 (local state (autoload :conjure.client.clojure.nrepl.state))
+(local vim _G.vim)
 
 (local M (define :conjure.client.clojure.nrepl.auto-repl))
 
@@ -53,4 +55,20 @@
         (log.append [(.. "; Starting auto-repl: " cmd)])
         proc))))
 
+(fn M.stop-auto-repl-proc []
+  "Stops the auto REPL if running."
+  (let [proc (state.get :auto-repl-proc)]
+    (when (process.running? proc)
+      (process.stop proc)
+      (M.delete-auto-repl-port-file)
+      (core.assoc (state.get) :auto-repl-proc nil)
+      (core.assoc (state.get) :auto-repl-port nil)
+      (log.append ["; Stopped auto-repl"]))))
+
+(fn M.restart-auto-repl-proc []
+  "Restarts the auto REPL - disconnects, stops, starts fresh, and reconnects."
+  (server.disconnect)
+  (M.stop-auto-repl-proc)
+  (M.upsert-auto-repl-proc))
+
 M

fnl/conjure/client/clojure/nrepl/init.fnl

@@ -125,7 +125,9 @@
 
         :refresh_changed "rr"
         :refresh_all "ra"
-        :refresh_clear "rc"}}}}}))
+        :refresh_clear "rc"
+
+        :auto_repl_restart "car"}}}}}))
 
 (fn M.context [header]
   (-?> header
@@ -290,6 +292,11 @@
     (util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :view-tap)
     {:desc "Show all tapped values and clear the queue"})
 
+  (mapping.buf
+    :CljAutoReplRestart (cfg [:mapping :auto_repl_restart])
+    (util.wrap-require-fn-call :conjure.client.clojure.nrepl.auto-repl :restart-auto-repl-proc)
+    {:desc "Restart the babashka auto-REPL"})
+
   (vim.api.nvim_buf_create_user_command
     0
     "ConjureShadowSelect"