From 7f3b1cb6946cff68c9006c2694adac631f12f623 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 22 Feb 2022 18:45:00 -0600 Subject: added print explanation --- build-app.lisp | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) (limited to 'build-app.lisp') 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 -- cgit v1.2.3