From 4c43e044f3bbe51b78c99a2027ea3fddb36c5821 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 23 Aug 2022 20:19:28 -0500 Subject: [modify] cli search command; [modify] spurious kwargs in search --- app/search.lisp | 4 +--- lib/client.lisp | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/app/search.lisp b/app/search.lisp index 0cd454c..f54cfa2 100644 --- a/app/search.lisp +++ b/app/search.lisp @@ -55,9 +55,7 @@ (ol:search-for-oneliners args limit - (cli:getopt cmd :no-flagged) - (cli:getopt cmd :flagged) - (cli:getopt cmd :newest))) + (cli:getopt cmd :no-flagged))) ;; if no search terms, but --newest or -n ((cli:getopt cmd :newest) diff --git a/lib/client.lisp b/lib/client.lisp index a526b5c..8a8c4be 100644 --- a/lib/client.lisp +++ b/lib/client.lisp @@ -27,7 +27,7 @@ ;;; GETTING ONELINERS & DISPLAYING ONELINERS -(defun search-for-oneliners (terms limit &optional not-flagged-p all-flagged-p newestp) +(defun search-for-oneliners (terms limit &optional not-flagged-p) (assert (loop for term in terms never (find #\, term)) () "Search terms may not contain commas.") (let ((json (api:get-oneliners (str:join "," terms) -- cgit v1.2.3