From 164673d23241f9b503396480be2093806d8a8f86 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 1 Mar 2022 11:24:35 -0600 Subject: minor version bump. can now flag, unflag, lock, unlock, edit, and run oneliners by their id. --- build-app.lisp | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) (limited to 'build-app.lisp') diff --git a/build-app.lisp b/build-app.lisp index 0a1bfd5..69338b1 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -80,7 +80,7 @@ you run the oneliner, all positional variables appear first. (group (:header "ONELINER EXECUTION OPTIONS") (text :contents "Runs the Nth search result with possible arguments ARGS.") (flag :long-name "id" - :description "Runs a oneliner by its id instead of by result number.") + :description "Refers a oneliner by its unique id instead of by result number.") (flag :long-name "clip" :description "Put oneliner into clipboard instead of running it.") (flag :long-name "clear-cache" @@ -203,21 +203,17 @@ than the users." (a:when-let (hist-number (parse-integer (first arguments) :junk-allowed t)) (cond ((getopt :long-name "flag") - (cli::flag-item hist-number)) + (cli::flag-item hist-number (getopt :long-name "id"))) ((getopt :long-name "unflag") - (cli::unflag-item hist-number)) + (cli::unflag-item hist-number (getopt :long-name "id"))) ((getopt :long-name "lock") - (cli::lock-item hist-number)) + (cli::lock-item hist-number (getopt :long-name "id"))) ((getopt :long-name "unlock") - (cli::unlock-item hist-number)) + (cli::unlock-item hist-number (getopt :long-name "id"))) ((getopt :long-name "edit") - (cli::edit-item hist-number)) + (cli::edit-item hist-number (getopt :long-name "id"))) ((getopt :long-name "explain") - (cli::print-item-explanation hist-number)) - - ;; ((getopt :long-name "alias") - ;; (cli::make-alias-for-item hist-number (second arguments))) - + (cli::print-item-explanation hist-number (getopt :long-name "id"))) (t (cli::run-item hist-number (rest arguments) :by-id (getopt :long-name "id") -- cgit v1.2.3