Add delete functionality for works on brain switch
This commit is contained in:
parent
17448753e7
commit
67812ca1be
|
@ -127,9 +127,9 @@ CURRENT-WORK is the key that is considered to be the current work."
|
||||||
(interactive
|
(interactive
|
||||||
(let* ((state (fg42/load-brain-state)))
|
(let* ((state (fg42/load-brain-state)))
|
||||||
(list state
|
(list state
|
||||||
(completing-read "Work: " (fg42/brain-keys state) nil 'confirm))))
|
(completing-read "Work: " (fg42/brain-keys state)))))
|
||||||
(let ((buf (get-buffer-create (format "*%s-notes*" work)))
|
(let ((buf (get-buffer-create (format "*%s-notes*" work)))
|
||||||
(entries (cadr (assoc (intern work) (fg42/-brain-entry-map state)))))
|
(entries (cadr (assoc work (fg42/-brain-entry-map state)))))
|
||||||
(set-buffer buf)
|
(set-buffer buf)
|
||||||
(erase-buffer)
|
(erase-buffer)
|
||||||
(mapcar (lambda (entry)
|
(mapcar (lambda (entry)
|
||||||
|
|
Loading…
Reference in New Issue