From 042237c1db504e733a41e99cd7ee913023e136ec Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 28 Feb 2022 12:09:56 -0600
Subject: better tags display in edit function

---
 src/lib.lisp | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'src')

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): "
-- 
cgit v1.2.3