Allow linking log buffers to client state #777

Author: Olical

.nvim.fnl

@@ -27,6 +27,8 @@
 ; (set vim.g.conjure#debug true)
 ; (set vim.g.conjure#client#clojure#nrepl#eval#auto_require false)
 
+; (set vim.g.conjure#log#linked_to_client_state true)
+
 (set vim.g.conjure#client#scheme#stdio#command "chicken-csi -:c")
 (set vim.g.conjure#client#scheme#stdio#prompt_pattern "\n-#;%d-> ")
 (set vim.g.conjure#client#scheme#stdio#value_prefix_pattern false)

doc/conjure.txt

@@ -782,6 +782,17 @@ configure the ones you care about one at a time you can set:
                                                           *g:conjure#log#wrap*
 `g:conjure#log#wrap`
             Enable line wrapping in the HUD and log.
+            Default: `false`
+
+                              *g:conjure#log#linked_to_client_state*
+`g:conjure#log#linked_to_client_state`
+            When enabled, the log buffer name is derived from the current
+            client state key (set via |:ConjureClientState|) rather than the
+            Neovim process ID. This gives each named state its own log buffer,
+            e.g. `conjure-log-my-feature.cljc`, making it easy to switch
+            between work streams within a long-running session.
+            Falls back to the PID name when no state key has been explicitly
+            set.
             Default: `false`
 
                                                   *g:conjure#log#fold#enabled*

fnl/conjure-spec/log_spec.fnl

@@ -0,0 +1,57 @@
+(local {: describe : it : before_each} (require :plenary.busted))
+(local assert (require :luassert.assert))
+(local log (require :conjure.log))
+(local client (require :conjure.client))
+(local config (require :conjure.config))
+(local vim _G.vim)
+
+(describe "log-buf?"
+  (fn []
+    (before_each
+      (fn []
+        (config.assoc-in [:log :linked_to_client_state] false)
+        (tset client.state :state-key-set? false)))
+
+    (describe "linked_to_client_state disabled"
+      (fn []
+        (it "matches a buffer named with the PID"
+          (fn []
+            (client.with-filetype :fennel
+              #(assert.is_true
+                 (log.log-buf? (.. "conjure-log-" (vim.fn.getpid) ".fnl"))))))
+
+        (it "does not match a buffer named with a state key"
+          (fn []
+            (client.set-state-key! :my-feature)
+            (client.with-filetype :fennel
+              #(assert.is_false (log.log-buf? "conjure-log-my-feature.fnl")))))))
+
+    (describe "linked_to_client_state enabled with state key set"
+      (fn []
+        (before_each
+          (fn []
+            (config.assoc-in [:log :linked_to_client_state] true)
+            (client.set-state-key! :my-feature)))
+
+        (it "matches a buffer named with the state key"
+          (fn []
+            (client.with-filetype :fennel
+              #(assert.is_true (log.log-buf? "conjure-log-my-feature.fnl")))))
+
+        (it "does not match a buffer named with the PID"
+          (fn []
+            (client.with-filetype :fennel
+              #(assert.is_false
+                 (log.log-buf? (.. "conjure-log-" (vim.fn.getpid) ".fnl"))))))))
+
+    (describe "linked_to_client_state enabled but no state key set"
+      (fn []
+        (before_each
+          (fn []
+            (config.assoc-in [:log :linked_to_client_state] true)))
+
+        (it "falls back to matching a buffer named with the PID"
+          (fn []
+            (client.with-filetype :fennel
+              #(assert.is_true
+                 (log.log-buf? (.. "conjure-log-" (vim.fn.getpid) ".fnl"))))))))))

fnl/conjure/config.fnl

@@ -144,7 +144,8 @@
     :fold {:enabled false
            :lines 10
            :marker {:start "~~~%{"
-                    :end "}%~~~"}}}
+                    :end "}%~~~"}}
+    :linked_to_client_state false}
 
    :extract
    {:context_header_lines -1

fnl/conjure/log.fnl

@@ -35,7 +35,13 @@
   (str.join [(client.get :comment-prefix) "State: " (client.state-key)]))
 
 (fn log-buf-name []
-  (str.join ["conjure-log-" (vim.fn.getpid) (client.get :buf-suffix)]))
+  (str.join
+    ["conjure-log-"
+     (if (and (config.get-in [:log :linked_to_client_state])
+              (client.multiple-states?))
+       (client.state-key)
+       (vim.fn.getpid))
+     (client.get :buf-suffix)]))
 
 (fn M.log-buf? [name]
   (vim.endswith name (log-buf-name)))