--newest and --all-flagged now work with ARGUMENTS

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.