branch: elpa/gptel
commit 9c475b1ffb153a05fde25e10262bb07c4e5129a4
Author: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmaga...@gmail.com>

    gptel-transient: Add log level and inspect log options
    
    * gptel-transient.el (gptel-menu): Add logging options, hidden
    behind `gptel-expert-options'.
---
 gptel-transient.el | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/gptel-transient.el b/gptel-transient.el
index 3d49bff18f..4c0dcb65fe 100644
--- a/gptel-transient.el
+++ b/gptel-transient.el
@@ -793,7 +793,26 @@ Also format its value in the Transient menu."
        (gptel--inspect-query
         (gptel--suffix-send
          (cons "I" (transient-args transient-current-command)))
-        'json)))]]
+        'json)))]
+   ["Logging"
+    :if (lambda () (or gptel-log-level gptel-expert-commands))
+    ("-l" "Log level" "-l"
+     :class gptel-lisp-variable
+     :variable gptel-log-level
+     :set-value gptel--set-with-scope
+     :display-nil "Off"
+     :prompt "Prompt: "
+     :reader
+     (lambda (prompt _ _)
+       "Manage gptel's logging."
+       (let ((state (completing-read
+                     "Log level: " '(off info debug) nil t)))
+         (message "Log level set to %s" state)
+         (if (eq state 'off) nil (intern state)))))
+    ("L" "Inspect Log"
+     (lambda () (interactive)
+       (pop-to-buffer (get-buffer-create gptel--log-buffer-name)))
+     :format "  %k %d")]]
   [(gptel--suffix-send)]
   (interactive)
   (gptel--sanitize-model)

Reply via email to