diff options
author | Colin Okay <okay@toyful.space> | 2022-03-05 17:22:59 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-03-05 17:22:59 -0600 |
commit | d8376d1bd717181892e339a6ca42be83b7ffae66 (patch) | |
tree | 728a577ac1a526b2febc44526340c637a6527ccd /src | |
parent | ba5d58c335a69597fcd2531304eee42ef5247b1f (diff) |
--newest and --all-flagged now work with ARGUMENTS
Diffstat (limited to 'src')
-rw-r--r-- | src/lib.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/lib.lisp b/src/lib.lisp index 9fd75a8..30c953d 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -570,7 +570,7 @@ and, failing that, try to fetch from configured server." (api:get--oneliners-all-flagged)))) (cache-and-print-search-response response)))) -(defun search-for-oneliners (terms limit not-flagged-p) +(defun search-for-oneliners (terms limit not-flagged-p all-flagged-p newestp) (assert (loop for term in terms never (find #\, term) )) (set-term-width) (ensure-config) @@ -579,7 +579,9 @@ and, failing that, try to fetch from configured server." (:host (host)) (api:get--oneliners :tags (str:join "," terms) :limit limit - :notflagged (if not-flagged-p "true" "false"))))) + :notflagged (if not-flagged-p "true" "false") + :newest (if newestp "true" "false") + :onlyflagged (if all-flagged-p "true" "false"))))) (cache-and-print-search-response response))) ;;; RUNNING THINGS IN THE SHELL. |