aboutsummaryrefslogtreecommitdiff
path: root/build-app.lisp
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-03-05 17:22:59 -0600
committerColin Okay <okay@toyful.space>2022-03-05 17:22:59 -0600
commitd8376d1bd717181892e339a6ca42be83b7ffae66 (patch)
tree728a577ac1a526b2febc44526340c637a6527ccd /build-app.lisp
parentba5d58c335a69597fcd2531304eee42ef5247b1f (diff)
--newest and --all-flagged now work with ARGUMENTS
Diffstat (limited to 'build-app.lisp')
-rw-r--r--build-app.lisp16
1 files changed, 8 insertions, 8 deletions
diff --git a/build-app.lisp b/build-app.lisp
index adf8c08..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.")
@@ -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")
@@ -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)))