From baa7441f3b1dc449d7b1435160cfb2a285334a61 Mon Sep 17 00:00:00 2001 From: Thierry Pouplier Date: Sat, 18 Jul 2026 19:09:25 -0400 Subject: [PATCH] fix: correct y-or-n-p typo, clarify link session prompt - s/y-or-p-n/y-or-n-p/ in hermes-remove-session - Change link-session prompt to 'Link external session (ID, empty to browse)...' to distinguish from SPC p L (remove) --- doom/.config/doom/README.org | 4 ++-- doom/.config/doom/config.el | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/doom/.config/doom/README.org b/doom/.config/doom/README.org index 1e51739..7268777 100644 --- a/doom/.config/doom/README.org +++ b/doom/.config/doom/README.org @@ -2171,7 +2171,7 @@ With prefix arg, prompt for remote SSH host (default: lazyworkhorse)." "Link an existing Hermes session to the current project. If SESSION-ID is empty, show a menu of recent sessions to browse." (interactive - (let ((id (read-string "Session ID (empty to browse recent): "))) + (let ((id (read-string "Link external session (ID, empty to browse recent globally): "))) (if (string-empty-p id) (let* ((output (shell-command-to-string "hermes sessions list --limit 50 2>&1")) (lines (split-string output "\n" t)) @@ -2244,7 +2244,7 @@ If SESSION-ID is empty, show a menu of recent sessions to browse." (choice (completing-read "Remove Hermes session: " items nil t)) (idx (cl-position choice items :test #'string=)) (target (nth idx sessions))) - (when (y-or-p-n (format "Remove \"%s\"? " (plist-get target :title))) + (when (y-or-n-p (format "Remove \"%s\"? " (plist-get target :title))) (let ((kept (cl-remove-if (lambda (s) (string= (plist-get s :id) (plist-get target :id))) diff --git a/doom/.config/doom/config.el b/doom/.config/doom/config.el index f871f55..e6e9e8a 100644 --- a/doom/.config/doom/config.el +++ b/doom/.config/doom/config.el @@ -1367,7 +1367,7 @@ With prefix arg, prompt for remote SSH host (default: lazyworkhorse)." "Link an existing Hermes session to the current project. If SESSION-ID is empty, show a menu of recent sessions to browse." (interactive - (let ((id (read-string "Session ID (empty to browse recent): "))) + (let ((id (read-string "Link external session (ID, empty to browse recent globally): "))) (if (string-empty-p id) (let* ((output (shell-command-to-string "hermes sessions list --limit 50 2>&1")) (lines (split-string output "\n" t)) @@ -1440,7 +1440,7 @@ If SESSION-ID is empty, show a menu of recent sessions to browse." (choice (completing-read "Remove Hermes session: " items nil t)) (idx (cl-position choice items :test #'string=)) (target (nth idx sessions))) - (when (y-or-p-n (format "Remove \"%s\"? " (plist-get target :title))) + (when (y-or-n-p (format "Remove \"%s\"? " (plist-get target :title))) (let ((kept (cl-remove-if (lambda (s) (string= (plist-get s :id) (plist-get target :id)))