diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-28 12:09:56 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-28 12:09:56 -0600 |
| commit | 042237c1db504e733a41e99cd7ee913023e136ec (patch) | |
| tree | 64d5913356021f05d79b5387f648683a46866a3c /src | |
| parent | 8ed7abf7435e412fb355c880da845a7bc203d20f (diff) | |
better tags display in edit function
Diffstat (limited to 'src')
| -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): " |