Param parser for search terms

1 files changed, 5 insertions, 3 deletions

diff --git a/fussy.lisp b/fussy.lisp
index 7416378..4f20643 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -567,12 +567,14 @@ h1 {
 
 (defun a-string (s) s)
 
-(lzb:defendpoint* :get "/" ((page an-integer) (terms a-string)) ()
+(defun a-search-query (terms)
+  "Parses a space separated list for search terms and returns a list."
+  (when terms (str:split-omit-nulls #\space terms)))
+
+(lzb:defendpoint* :get "/" ((page an-integer) (terms a-search-query)) ()
   "The landing page"
   (let* ((page
            (or page 0))
-         (terms
-           (when terms (str:split-omit-nulls #\space terms)))
          (all-themes
            (if terms
                (search-themes terms :sort-by (complement #'package-version<=))