diff options
| -rw-r--r-- | src/lib.lisp | 16 |
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): " |