From eabd3efb68a568bc26ded4f65f4c59b7e406cb5b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 29 Jun 2022 16:05:32 +0530
Subject: web: server: Self-document search filters.

* tissue/web/server.scm (make-search-page): Self-document search
filters.
(%css)[.search-hint, .search-filter]: New rules.
---
 tissue/web/server.scm | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index 55e57e1..22b0eb0 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -45,6 +45,17 @@ form {
     text-align: center;
 }
 
+.search-hint {
+    line-height: 2em;
+}
+
+.search-filter {
+    background-color: gray;
+    color: white;
+    border-radius: 0.2em;
+    padding: 0 0.2em;
+}
+
 .search-result {
     list-style-type: none;
     padding: 0.5em;
@@ -136,6 +147,30 @@ a URI to a stylesheet."
                      (value ,query)
                      (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
+operators "
+         (span (@ (class "search-filter"))
+               "AND")
+         " and "
+         (span (@ (class "search-filter"))
+               "OR")
+         "."))
      (ul ,@results))))
 
 (define (query-parameters query)
-- 
cgit v1.2.3