tweaking oneliner addition functions

1 files changed, 3 insertions, 3 deletions

diff --git a/src/lib.lisp b/src/lib.lisp
index c6801df..300d6d5 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -150,13 +150,13 @@ the directories that appear in the value of that variable."
            (prompt "Brief Description: "))
          (tags
            (append init-tags
-                   (when (y-or-n-p "Add tags in addition to: ~{~a ~}?" init-tags)
-                     (ppcre:split " +" (prompt "(e.g. foo bar goo): ")))))
+                   (ppcre:split " +"
+                                (prompt (format nil "Additional Tags? [~{~a ~}]" init-tags)))))
          (explanation
            (when (y-or-n-p "Provide an explanation?")
              (string-from-editor)))
          (runstyle
-           (if (y-or-n-p "Is GUI, TUI, or requires further input?")
+           (if (y-or-n-p "Does this oneliner invoke a GUI, a TUI, or will it require user input?")
                "MANUAL"
                "AUTO")))
     (api:request-with