From 5bc86f01f33dfbe99975bdfc8341bc93fc78b2ed Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 30 Jun 2022 10:12:23 +0530
Subject: web: server: Add class to search results ul list.

* tissue/web/server.scm (make-search-page): Add class "search-results"
to search results ul.
---
 tissue/web/server.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tissue')

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."
-- 
cgit v1.2.3