aboutsummaryrefslogtreecommitdiff
path: root/build-app.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'build-app.lisp')
-rw-r--r--build-app.lisp20
1 files changed, 10 insertions, 10 deletions
diff --git a/build-app.lisp b/build-app.lisp
index dd70322..b50635f 100644
--- a/build-app.lisp
+++ b/build-app.lisp
@@ -102,11 +102,11 @@ export EDITOR=/usr/bin/zile
:description "The maximum number of results to return."
:typespec 'integer)
(flag :long-name "all-flagged"
- :description "Return flagged oneliners.")
+ :description "Request that only flagged oneliners are returned. Without any ARGUMENTS, simply returns all flagged oneliners.")
(flag :long-name "not-flagged"
- :description "Request that no flagged oneliners are returned.")
+ :description "Request that no flagged oneliners are returned with the search results. Does nothing without ARGUMENTS")
(flag :long-name "newest"
- :description "Return newest oneliners."))
+ :description "Return newest oneliners that match. Without any ARGUMENTS, simply returns the newest oneliners."))
(text :contents " ")
(group (:header "EXECUTION OPTIONS")
(text :contents "Several options override the default interpretation of ARGUMENTS.")
@@ -119,7 +119,7 @@ export EDITOR=/usr/bin/zile
:description "Like --run, but puts the oneliner into the clipboard."))
(text :contents " ")
(group (:header "OTHER OPTIONS")
- (flag :long-name "view"
+ (flag :long-name "show"
:description "View all information for the oneliner given by NAME or ID")
(lispobj :long-name "timeout"
:argument-type :optional
@@ -238,12 +238,10 @@ than the users."
((getopt :long-name "add")
(cli::add-new-oneliner))
- ((getopt :long-name "all-flagged")
- (format t "WARNING: --all-flagged is likely to soon change its behavior~%.")
+ ((and (null arguments) (getopt :long-name "all-flagged"))
(cli::all-flagged-oneliners (getopt :long-name "limit")))
- ((getopt :long-name "newest")
- (format t "WARNING: --newest is likely to soon change its behavior~%")
+ ((and (null arguments) (getopt :long-name "newest"))
(cli::newest-oneliners (getopt :long-name "limit")))
((getopt :long-name "clear-cache")
@@ -262,7 +260,7 @@ than the users."
(cli::unlock-item id-or-name ))
((getopt :long-name "edit")
(cli::edit-item id-or-name ))
- ((getopt :long-name "view")
+ ((getopt :long-name "show")
(cli::print-item-explanation id-or-name))
((getopt :long-name "clip")
(cli::run-item id-or-name args
@@ -274,7 +272,9 @@ than the users."
(t
(cli::search-for-oneliners arguments
(getopt :long-name "limit")
- (getopt :long-name "not-flagged")))))
+ (getopt :long-name "not-flagged")
+ (getopt :long-name "all-flagged")
+ (getopt :long-name "newest")))))
(uiop:quit))
(t
(help)))