summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-06-30 10:12:23 +0530
committerArun Isaac2022-06-30 10:12:23 +0530
commit5bc86f01f33dfbe99975bdfc8341bc93fc78b2ed (patch)
treee44d61b1efd79b6d65d1e972bba19a8737661a64
parent9926be311b099650e369270297727dd94ffbd794 (diff)
downloadtissue-5bc86f01f33dfbe99975bdfc8341bc93fc78b2ed.tar.gz
tissue-5bc86f01f33dfbe99975bdfc8341bc93fc78b2ed.tar.lz
tissue-5bc86f01f33dfbe99975bdfc8341bc93fc78b2ed.zip
web: server: Add class to search results ul list.
* tissue/web/server.scm (make-search-page): Add class "search-results" to search results ul.
-rw-r--r--tissue/web/server.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index 0002866..54f0cb1 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -179,7 +179,8 @@ operators "
(p "Found an estimated "
(strong ,(string-append (number->string estimated-matches))
" results"))
- (ul ,@results))))
+ (ul (@ (class "search-results"))
+ ,@results))))
(define (query-parameters query)
"Return an association list of query parameters in web QUERY string."