From a8c7e8bf822535470d1a4621030b0edd07aaccb4 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sat, 16 May 2026 01:42:30 -0500
Subject: feat(ai-conversations): add cj/gptel-autosave-toggle with [AS]
 mode-line indicator

`cj/gptel-autosave-enabled` flipped to t inside the save/load entry
points with no way back off short of editing the variable or
clearing the buffer, and no visible indicator that it was on.

Two pieces:

- `cj/gptel-autosave-toggle` flips the buffer-local state in the
  current GPTel buffer.  Bound to `C-; a A` via `cj/ai-keymap`
  (which-key: "toggle autosave").  When autosave is OFF and no
  filepath is configured yet, the command prompts to save the
  conversation first so a save target exists; otherwise it just
  flips the bit.
- `cj/gptel-autosave-mode-line-format` surfaces " [AS]" in the
  mode-line when autosave is on, blank when off.  Installed via a
  `gptel-mode-hook` so every GPTel buffer picks it up.  The install
  helper is idempotent.

6 new tests cover enable/disable paths, the no-filepath prompt path,
the not-a-gptel-buffer error path, the mode-line format evaluation,
and the install idempotence.
---
 modules/ai-config.el        |  3 +++
 modules/ai-conversations.el | 42 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 45 insertions(+)

(limited to 'modules')

diff --git a/modules/ai-config.el b/modules/ai-config.el
index 0ffee799..e7907e36 100644
--- a/modules/ai-config.el
+++ b/modules/ai-config.el
@@ -33,6 +33,7 @@
 (autoload 'cj/gptel-save-conversation "ai-conversations" "Save the AI conversation to a file." t)
 (autoload 'cj/gptel-load-conversation "ai-conversations" "Load a saved AI conversation." t)
 (autoload 'cj/gptel-delete-conversation "ai-conversations" "Delete a saved AI conversation." t)
+(autoload 'cj/gptel-autosave-toggle "ai-conversations" "Toggle autosave in the current GPTel buffer." t)
 
 ;;; ------------------------- AI Config Helper Functions ------------------------
 
@@ -498,6 +499,7 @@ Works for any buffer, whether it's visiting a file or not."
 
 (defvar-keymap cj/ai-keymap
   :doc "Keymap for gptel and other AI operations."
+  "A" #'cj/gptel-autosave-toggle     ;; toggle autosave on the current GPTel buffer
   "B" #'cj/gptel-switch-backend      ;; change the backend (OpenAI, Anthropic, etc.
   "M" #'gptel-menu                   ;; gptel's transient menu
   "d" #'cj/gptel-delete-conversation ;; delete conversation
@@ -516,6 +518,7 @@ Works for any buffer, whether it's visiting a file or not."
 (with-eval-after-load 'which-key
   (which-key-add-key-based-replacements
     "C-; a" "AI assistant menu"
+    "C-; a A" "toggle autosave"
     "C-; a B" "switch backend"
     "C-; a M" "gptel menu"
     "C-; a d" "delete conversation"
diff --git a/modules/ai-conversations.el b/modules/ai-conversations.el
index 4f97d761..03ea6ec9 100644
--- a/modules/ai-conversations.el
+++ b/modules/ai-conversations.el
@@ -51,6 +51,36 @@ If displaying on the top or bottom, treat this value as a height fraction."
 (defvar-local cj/gptel-autosave-filepath nil
   "File path used for auto-saving the conversation buffer.")
 
+(defvar cj/gptel-autosave-mode-line-format
+  '(:eval (when (bound-and-true-p cj/gptel-autosave-enabled) " [AS]"))
+  "Mode-line construct that surfaces autosave state in GPTel buffers.")
+(put 'cj/gptel-autosave-mode-line-format 'risky-local-variable t)
+
+(defun cj/gptel-autosave-toggle ()
+  "Toggle autosave on/off in the current GPTel buffer.
+Flips `cj/gptel-autosave-enabled' and forces a mode-line redisplay so
+the [AS] indicator updates immediately.  When turning autosave ON
+without a configured filepath, prompt to save the conversation first
+so a path exists to autosave to."
+  (interactive)
+  (unless (bound-and-true-p gptel-mode)
+    (user-error "Not a GPTel buffer"))
+  (if cj/gptel-autosave-enabled
+      (progn
+        (setq-local cj/gptel-autosave-enabled nil)
+        (message "Autosave disabled"))
+    (cond
+     ((and (stringp cj/gptel-autosave-filepath)
+           (> (length cj/gptel-autosave-filepath) 0))
+      (setq-local cj/gptel-autosave-enabled t)
+      (message "Autosave enabled (saving to %s)"
+               (file-name-nondirectory cj/gptel-autosave-filepath)))
+     ((y-or-n-p "No save target yet.  Save conversation first? ")
+      (call-interactively #'cj/gptel-save-conversation))
+     (t
+      (message "Autosave not enabled (no save target)"))))
+  (force-mode-line-update))
+
 (defcustom cj/gptel-conversations-autosave-on-send t
   "Non-nil means auto-save the conversation immediately after `gptel-send'."
   :type 'boolean
@@ -71,6 +101,18 @@ If displaying on the top or bottom, treat this value as a height fraction."
   (unless (advice-member-p #'cj/gptel--autosave-after-send #'gptel-send)
 	(advice-add 'gptel-send :after #'cj/gptel--autosave-after-send)))
 
+(defun cj/gptel--install-autosave-mode-line ()
+  "Add the [AS] autosave indicator to the current buffer's mode-line.
+Idempotent: re-running in the same buffer does not duplicate the
+construct."
+  (unless (member 'cj/gptel-autosave-mode-line-format mode-line-format)
+    (setq-local mode-line-format
+                (append mode-line-format
+                        (list 'cj/gptel-autosave-mode-line-format)))))
+
+(with-eval-after-load 'gptel
+  (add-hook 'gptel-mode-hook #'cj/gptel--install-autosave-mode-line))
+
 (defun cj/gptel--slugify-topic (s)
   "Return a filesystem-friendly slug for topic string S."
   (let* ((down (downcase (or s "")))
-- 
cgit v1.2.3