diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-22 18:45:00 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-22 18:45:00 -0600 |
| commit | 7f3b1cb6946cff68c9006c2694adac631f12f623 (patch) | |
| tree | e89db6e362ff4f4b428b417d153f1d16b71dd5e7 /build-app.lisp | |
| parent | 379480e6af030dee3d225fa4f76735fa43db36de (diff) | |
added print explanation
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 15 |
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 |