diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-25 11:59:21 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-25 11:59:21 -0600 |
| commit | e6d10c9b4d57fa5330f7be1a62fbba44622f5a60 (patch) | |
| tree | 6c86313718b82b1a204a74c8c674041975674f0a /build-app.lisp | |
| parent | 770dce28402e89ee57a1ba0f292dfdb79da545e0 (diff) | |
all-flagged option
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 10 |
1 files changed, 7 insertions, 3 deletions
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 |