aboutsummaryrefslogtreecommitdiff
path: root/src/lib.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 /src/lib.lisp
parentba5d58c335a69597fcd2531304eee42ef5247b1f (diff)
--newest and --all-flagged now work with ARGUMENTS
Diffstat (limited to 'src/lib.lisp')
-rw-r--r--src/lib.lisp6
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.