aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-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): "