From 2dff868c30ebf8db172449822a5bcaf1ad52050e Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 30 Jun 2022 09:29:11 +0530 Subject: web: server: Re-indent make-search-page. * tissue/web/server.scm (make-search-page): Re-indent. --- tissue/web/server.scm | 44 ++++++++++++++++++++++---------------------- 1 file changed, 22 insertions(+), 22 deletions(-) (limited to 'tissue') diff --git a/tissue/web/server.scm b/tissue/web/server.scm index 22b0eb0..10ef95e 100644 --- a/tissue/web/server.scm +++ b/tissue/web/server.scm @@ -148,29 +148,29 @@ a URI to a stylesheet." (placeholder "Enter search query"))) (input (@ (type "submit") (value "Search")))) (details (@ (class "search-hint")) - (summary "Hint") - (p "Refine your search with filters " - ,@(append-map (lambda (filter) - (list `(span (@ (class "search-filter")) - ,filter) - ", ")) - (list "type:issue" - "type:document" - "is:open" - "is:closed" - "title:git" - "creator:mani" - "lastupdater:vel" - "assigned:muthu" - "tag:feature-request")) - "etc. Optionally, combine search terms with boolean + (summary "Hint") + (p "Refine your search with filters " + ,@(append-map (lambda (filter) + (list `(span (@ (class "search-filter")) + ,filter) + ", ")) + (list "type:issue" + "type:document" + "is:open" + "is:closed" + "title:git" + "creator:mani" + "lastupdater:vel" + "assigned:muthu" + "tag:feature-request")) + "etc. Optionally, combine search terms with boolean operators " - (span (@ (class "search-filter")) - "AND") - " and " - (span (@ (class "search-filter")) - "OR") - ".")) + (span (@ (class "search-filter")) + "AND") + " and " + (span (@ (class "search-filter")) + "OR") + ".")) (ul ,@results)))) (define (query-parameters query) -- cgit v1.2.3