aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-28 12:09:56 -0600
committerColin Okay <okay@toyful.space>2022-02-28 12:09:56 -0600
commit042237c1db504e733a41e99cd7ee913023e136ec (patch)
tree64d5913356021f05d79b5387f648683a46866a3c
parent8ed7abf7435e412fb355c880da845a7bc203d20f (diff)
better tags display in edit function
-rw-r--r--src/lib.lisp16
1 files changed, 10 insertions, 6 deletions
diff --git a/src/lib.lisp b/src/lib.lisp
index f5f55b4..fb2217b 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -315,12 +315,16 @@ the directories that appear in the value of that variable."
(init-tags
(tags-from-oneliner oneliner))
(tags
- (append init-tags
- (ppcre:split " +"
- (prompt (format nil "Tags in addition to ~{~a ~}? " init-tags)
- :prefill (str:join " " (set-difference (getf ol :tags)
- init-tags
- :test 'equal))))))
+ (progn
+ (format t "Tags include: ~{~a ~}~%" init-tags)
+ (append init-tags
+ (ppcre:split " +"
+ (prompt "More tags here, or Enter to skip: "
+ :prefill (str:join " "
+ (set-difference
+ (getf ol :tags)
+ init-tags
+ :test 'equal)))))))
(runstyle
(string-upcase
(prompt "Runstyle (auto or manual): "