diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-23 00:06:42 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-23 00:06:42 +0200 |
commit | e8d00149cf0bdca3c613c5317fc0618c1742550e (patch) | |
tree | f79fb498eeca0696aaa726de40c9d42f3eb17271 /module/html/view/search.scm | |
parent | Some benchmarking impmrovements. (diff) | |
download | calp-e8d00149cf0bdca3c613c5317fc0618c1742550e.tar.gz calp-e8d00149cf0bdca3c613c5317fc0618c1742550e.tar.xz |
GET /search without query now works.
Diffstat (limited to 'module/html/view/search.scm')
-rw-r--r-- | module/html/view/search.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/html/view/search.scm b/module/html/view/search.scm index 2b93ebfc..12d8399f 100644 --- a/module/html/view/search.scm +++ b/module/html/view/search.scm @@ -10,7 +10,7 @@ ) (define-public (search-result-page - search-term search-result page paginator q=) + has-query? search-term search-result page paginator q=) (xhtml-doc (@ (lang sv)) (head (title "Search results") @@ -20,8 +20,9 @@ (form (pre (textarea (@ (name "q") (rows 5) (spellcheck false) (style "width:100%")) - ,(with-output-to-string - (lambda () (pretty-print search-term))))) + ,(when has-query? + (with-output-to-string + (lambda () (pretty-print search-term)))))) (input (@ (type submit)))) (h2 "Result (page " ,page ")") (ul |