gortium/dotfiles
1
0
Fork 0
Code Issues 1 Pull Requests 5 Actions Packages Projects Releases Wiki Activity

fix: use function arg session-id instead of undefined id in hermes-link-session body

Browse Source 
The interactive form returns (list sid title) which binds to
session-id / title function args, but the body was using 'id'
which is undefined at that scope.
This commit is contained in:
Thierry Pouplier
2026-07-18 18:54:05 -04:00
parent 47d26a6a8d
commit 6c420a60dc
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
doom/.config/doom/README.org
View File

@@ -2206,9 +2206,9 @@ If SESSION-ID is empty, show a menu of recent sessions to browse."
(list sid (read-string "Title: " default-title))))) (list sid (read-string "Title: " default-title)))))
(list id (read-string "Title: "))))) (list id (read-string "Title: ")))))
(pcase-let ((`(,root ,sfile ,name) (gortium/hermes--project-info))) (pcase-let ((`(,root ,sfile ,name) (gortium/hermes--project-info)))
(gortium/hermes--rename-session id (format "[%s] %s" name title)) (gortium/hermes--rename-session session-id (format "[%s] %s" name title))
(gortium/hermes-append-session sfile id title) (gortium/hermes-append-session sfile session-id title)
(message "Session %s linked to project %s as \"%s\"" id name title))) (message "Session %s linked to project %s as \"%s\"" session-id name title)))
(map! :leader (map! :leader
:desc "New Hermes session" "p h" #'gortium/hermes-start :desc "New Hermes session" "p h" #'gortium/hermes-start
:desc "Resume Hermes session" "p H" #'gortium/hermes-resume :desc "Resume Hermes session" "p H" #'gortium/hermes-resume

6
doom/.config/doom/config.el
View File

@@ -1402,9 +1402,9 @@ If SESSION-ID is empty, show a menu of recent sessions to browse."
(list sid (read-string "Title: " default-title))))) (list sid (read-string "Title: " default-title)))))
(list id (read-string "Title: "))))) (list id (read-string "Title: ")))))
(pcase-let ((`(,root ,sfile ,name) (gortium/hermes--project-info))) (pcase-let ((`(,root ,sfile ,name) (gortium/hermes--project-info)))
(gortium/hermes--rename-session id (format "[%s] %s" name title)) (gortium/hermes--rename-session session-id (format "[%s] %s" name title))
(gortium/hermes-append-session sfile id title) (gortium/hermes-append-session sfile session-id title)
(message "Session %s linked to project %s as \"%s\"" id name title))) (message "Session %s linked to project %s as \"%s\"" session-id name title)))
(map! :leader (map! :leader
:desc "New Hermes session" "p h" #'gortium/hermes-start :desc "New Hermes session" "p h" #'gortium/hermes-start
:desc "Resume Hermes session" "p H" #'gortium/hermes-resume :desc "Resume Hermes session" "p H" #'gortium/hermes-resume