summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-01-19 00:34:03 +0200
committerThanos Apollo <[email protected]>2024-01-19 00:34:03 +0200
commitc5c0320e24929309b17103cbea93e16acaefa894 (patch)
tree033fd2060edc4d34e7a1630829bd2a181107ec59 /gnosis.el
parent1b16f3743946fa18127872a70ed31a04329bd135 (diff)
gnosis-review--session: Refactor using read-multiple-choice
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el15
1 files changed, 10 insertions, 5 deletions
diff --git a/gnosis.el b/gnosis.el
index 26e8cdd..6662d1c 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1034,13 +1034,18 @@ NOTE-NUM: The number of notes reviewed in the session."
(cl-loop for note in notes
do (gnosis-review-note note)
(setf note-count (1+ note-count))
- (pcase (read-char-choice "Note Action: [n]ext, [s]uspend, [e]dit, [q]uit: " '(?n ?s ?e ?q))
+ (pcase (car (read-multiple-choice
+ "Note actions"
+ '((?n "next")
+ (?s "suspend")
+ (?e "edit")
+ (?q "quit"))))
(?n nil)
(?s (gnosis-suspend-note note))
- (?e (progn (gnosis-edit-note note)
- (recursive-edit)))
- (?q (progn (gnosis-review-commit note-count)
- (cl-return))))
+ (?e (gnosis-edit-note note)
+ (recursive-edit))
+ (?q (gnosis-review-commit note-count)
+ (cl-return)))
finally (gnosis-review-commit note-count))))))