FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve the brain state lib to delete the work in demand

This commit is contained in:
Sameer Rahmani 2020-07-09 11:45:53 +01:00
parent 3188b3c451
commit 17448753e7
1 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lib/fg42/brain-switch.el
View File

@ -84,7 +84,7 @@ CURRENT-WORK is the key that is considered to be the current work."
(defun fg42/add-brain-entry (state work entry) (defun fg42/add-brain-entry (state work entry)
"Add the given ENTRY under the key WORK in the given STATE." "Add the given ENTRY under the key WORK in the given STATE."
(let ((entries (assoc work (fg42/-brain-entry-map state))) (let ((entries (assoc work (fg42/-brain-entry-map state)))
(log (list (format-time-string fg42/brain-state-date-format) work))) (log (list :add (format-time-string fg42/brain-state-date-format) work)))
(fg42/brain-state-create (fg42/brain-state-create
(fg42/-brain-current state) (fg42/-brain-current state)
(cons (list work (cons entry (cadr entries))) (cons (list work (cons entry (cadr entries)))
@ -104,12 +104,30 @@ CURRENT-WORK is the key that is considered to be the current work."
'())) '()))
(defun fg42/brain-delete-work (state work)
"Remove the give WORK from the given STATE."
(interactive
(let ((state (fg42/load-brain-state)))
(list state
(completing-read "Work: " (fg42/brain-keys state)))))
(fg42/save-brain-state
(fg42/brain-state-create
nil
(seq-filter (lambda (x) (equal (car x) work))
(fg42/-brain-entry-map state))
(cons (list :delete
(format-time-string fg42/brain-state-date-format)
work)
(fg42/-brain-logs state)))))
(defun fg42/brain-notes-for (state work) (defun fg42/brain-notes-for (state work)
"Create a buffer with all the nosts of the given WORK in STATE." "Create a buffer with all the nosts of the given WORK in STATE."
(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))))) (completing-read "Work: " (fg42/brain-keys state) nil 'confirm))))
(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 (intern work) (fg42/-brain-entry-map state)))))
(set-buffer buf) (set-buffer buf)
@ -149,15 +167,16 @@ CURRENT-WORK is the key that is considered to be the current work."
NOTE is the message that has to be saved for the SRC-WORK." NOTE is the message that has to be saved for the SRC-WORK."
(interactive (interactive
(let* ((state (fg42/load-brain-state)) (let* ((state (fg42/load-brain-state))
(keys (fg42/brain-keys state))
(current (fg42/-brain-current state))) (current (fg42/-brain-current state)))
(list (list
state state
(or current (read-string "What were you working on: ")) (completing-read "What were you working on: " keys nil 'confirm)
(read-string (read-string
(format "Note for the current work%s: " "Note for the current work: ")
(if current (format "(%s)" current) "")))
(completing-read "Switch brain to: " (completing-read "Switch brain to: "
(fg42/brain-keys state))))) keys))))
(fg42/save-brain-state (fg42/save-brain-state
(plist-put (plist-put