From e6d10c9b4d57fa5330f7be1a62fbba44622f5a60 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Fri, 25 Feb 2022 11:59:21 -0600
Subject: all-flagged option

---
 build-app.lisp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'build-app.lisp')

diff --git a/build-app.lisp b/build-app.lisp
index 2b49b0a..5995439 100644
--- a/build-app.lisp
+++ b/build-app.lisp
@@ -29,12 +29,14 @@ my1337pw.")
 (defsynopsis (:postfix "[TAGS ...] | N [ARGS ...]")
   (group (:header "SEARCH")
          (text :contents "Return oneliners tagged with all of TAGS")
-          (lispobj :long-name "limit" 
+         (lispobj :long-name "limit" 
                   :argument-type :optional
                   :argument-name "NUMBER"
                   :default-value 10
                   :description "The maximum number of results to return."
                   :typespec 'integer)
+         (flag :long-name "all-flagged"
+               :description "Return flagged oneliners. Ignores TAGS. Respects --limit")
          (flag :long-name "not-flagged"
                :description "Request that no flagged oneliners are returned.")
          (stropt :long-name "brief-like"
@@ -110,7 +112,6 @@ than the users."
   (handler-case
       (let ((arguments (remainder)))
         (cond
-
           ((getopt :long-name "redeem")
            (destructuring-bind (token name pass) arguments
              (cli::redeem-invite token name pass)))
@@ -126,7 +127,10 @@ than the users."
            (cli::revoke-access))
 
           ((getopt :long-name "add")
-           (oneliners.cli::add-new-oneliner))
+           (cli::add-new-oneliner))
+
+          ((getopt :long-name "all-flagged")
+           (cli::all-flagged-oneliners (getopt :long-name "limit")))
 
           (arguments
            ;; when the first argument is a number, try run a oneliner 
-- 
cgit v1.2.3