diff options
| -rw-r--r-- | src/lib.lisp | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/lib.lisp b/src/lib.lisp index b49f8c2..f5f55b4 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -271,9 +271,11 @@ the directories that appear in the value of that variable." :expect 'valid-brief-description-p :retry-text "Too long. Must be <= 72 characters: ")) (tags - (append init-tags - (ppcre:split " +" - (prompt (format nil "Tags in addition to ~{~a ~} ?" init-tags))))) + (progn + (format t "Tags include: ~{~a ~}~%" init-tags) + (append init-tags + (ppcre:split " +" + (prompt "More tags here, or Enter to skip: "))))) (runstyle (string-upcase (prompt "Runstyle (auto or manual): " |