aboutsummaryrefslogtreecommitdiff
path: root/build-app.lisp
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-22 18:45:00 -0600
committerColin Okay <okay@toyful.space>2022-02-22 18:45:00 -0600
commit7f3b1cb6946cff68c9006c2694adac631f12f623 (patch)
treee89db6e362ff4f4b428b417d153f1d16b71dd5e7 /build-app.lisp
parent379480e6af030dee3d225fa4f76735fa43db36de (diff)
added print explanation
Diffstat (limited to 'build-app.lisp')
-rw-r--r--build-app.lisp15
1 files changed, 13 insertions, 2 deletions
diff --git a/build-app.lisp b/build-app.lisp
index 284feaa..8122b1e 100644
--- a/build-app.lisp
+++ b/build-app.lisp
@@ -43,15 +43,18 @@ my1337pw.")
(text :contents " ")
(text :contents "Runs the Nth search result with possible arguments ARGS.")
(flag :long-name "clip"
- :description "Force an attempt to copy the oneliner to the clipboard instead of running it."))
+ :description "Put oneliner into clipboard instead of running it."))
(text :contents " ")
(group (:header "Help")
+ (flag :long-name "explain"
+ :description "View oneliner explaination text.")
(flag :long-name "help"
:description "Print this help menu.")
(enum :long-name "help-topic"
:enum '(:access :wiki :invites)
:argument-name "TOPIC"
- :description "Print help for a topic. Topics are: wiki, access, invites"))
+ :description "Print help for a topic.
+Topics: wiki, access, invites"))
(group (:header "Wiki" :hidden t)
(flag :long-name "add"
:description "Intaractively add a oneliner and update the wiki.")
@@ -136,6 +139,8 @@ than the users."
(cli::unlock-item hist-number))
((getopt :long-name "edit")
(cli::edit-item hist-number))
+ ((getopt :long-name "explain")
+ (cli::print-item-explanation hist-number))
(t
(cli::run-item hist-number (rest arguments) (getopt :long-name "clip"))))
(uiop:quit))
@@ -148,6 +153,12 @@ than the users."
(uiop:quit))
(error (e)
(format *error-output* "~%ERROR: ~a~%" e)
+ (uiop:quit))
+ (#+sbcl sb-sys:interactive-interrupt
+ #+ccl ccl:interrupt-signal-condition
+ #+ecl ext:interactive-interrupt
+ ()
+ (format t "Aborted by User Interrupt.~%")
(uiop:quit))))
;;; DUMP EXECUTABLE