aboutsummaryrefslogtreecommitdiff
path: root/build-app.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'build-app.lisp')
-rw-r--r--build-app.lisp18
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")