From d8376d1bd717181892e339a6ca42be83b7ffae66 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 5 Mar 2022 17:22:59 -0600 Subject: --newest and --all-flagged now work with ARGUMENTS --- build-app.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'build-app.lisp') 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))) -- cgit v1.2.3