diff options
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 18 |
1 files changed, 7 insertions, 11 deletions
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") |