diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-08-23 20:19:28 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-08-23 20:19:28 -0500 |
| commit | 4c43e044f3bbe51b78c99a2027ea3fddb36c5821 (patch) | |
| tree | 3ec380c6b70bf103910c3b34d202b0e70720a7bf | |
| parent | 5a16537d72931db14ca9f7a67c7b8def7d3f51bb (diff) | |
[modify] cli search command; [modify] spurious kwargs in search
| -rw-r--r-- | app/search.lisp | 4 | ||||
| -rw-r--r-- | 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) |