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

fix: clear bookmark-alist before first project save

Browse Source
This commit is contained in:
Thierry Pouplier
2026-07-17 15:24:18 -04:00
parent 453bda34b7
commit 40f8d57609
2 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3579,8 +3579,9 @@ Saves only project bookmarks without contaminating global list."
(saved-alist (copy-tree bookmark-alist))) (saved-alist (copy-tree bookmark-alist)))
;; Save globals first, then load project bookmarks ;; Save globals first, then load project bookmarks
(bookmark-save) (bookmark-save)
(when (file-exists-p proj-file) (if (file-exists-p proj-file)
(bookmark-load proj-file t)) (bookmark-load proj-file t)
(setq bookmark-alist nil))
(bookmark-store name `((filename . ,url)) nil) (bookmark-store name `((filename . ,url)) nil)
(bookmark-save nil proj-file) (bookmark-save nil proj-file)
;; Restore globals ;; Restore globals
@@ -3620,9 +3621,10 @@ Project bookmarks go to .bookmarks file in project root."
(record (bookmark-make-record))) (record (bookmark-make-record)))
;; Save current globals to disk first ;; Save current globals to disk first
(bookmark-save) (bookmark-save)
;; Load existing .bookmarks (if any) ;; Load or init project bookmark alist
(when (file-exists-p proj-file) (if (file-exists-p proj-file)
(bookmark-load proj-file t)) (bookmark-load proj-file t)
(setq bookmark-alist nil))
;; Add new bookmark to alist ;; Add new bookmark to alist
(bookmark-store name (cdr record) nil) (bookmark-store name (cdr record) nil)
;; Write ONLY project bookmarks to .bookmarks ;; Write ONLY project bookmarks to .bookmarks

12
doom/.config/doom/config.el
View File

@@ -2649,8 +2649,9 @@ Saves only project bookmarks without contaminating global list."
(saved-alist (copy-tree bookmark-alist))) (saved-alist (copy-tree bookmark-alist)))
;; Save globals first, then load project bookmarks ;; Save globals first, then load project bookmarks
(bookmark-save) (bookmark-save)
(when (file-exists-p proj-file) (if (file-exists-p proj-file)
(bookmark-load proj-file t)) (bookmark-load proj-file t)
(setq bookmark-alist nil))
(bookmark-store name `((filename . ,url)) nil) (bookmark-store name `((filename . ,url)) nil)
(bookmark-save nil proj-file) (bookmark-save nil proj-file)
;; Restore globals ;; Restore globals
@@ -2690,9 +2691,10 @@ Project bookmarks go to .bookmarks file in project root."
(record (bookmark-make-record))) (record (bookmark-make-record)))
;; Save current globals to disk first ;; Save current globals to disk first
(bookmark-save) (bookmark-save)
;; Load existing .bookmarks (if any) ;; Load or init project bookmark alist
(when (file-exists-p proj-file) (if (file-exists-p proj-file)
(bookmark-load proj-file t)) (bookmark-load proj-file t)
(setq bookmark-alist nil))
;; Add new bookmark to alist ;; Add new bookmark to alist
(bookmark-store name (cdr record) nil) (bookmark-store name (cdr record) nil)
;; Write ONLY project bookmarks to .bookmarks ;; Write ONLY project bookmarks to .bookmarks