02/04: hydra/goggles: Add search form to index page.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit e3b0a75ab4f6541cf86a1aaf8ad041297298e96b
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Fri May 8 05:50:07 2020 +0200

    hydra/goggles: Add search form to index page.
    
    * hydra/goggles.scm (index): Add search form.
---
 hydra/goggles.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index 596ddf2..5116ef9 100755
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -348,6 +348,11 @@ representation highlighting certain parts."
      (h1 ,(string-append channel " IRC channel logs"))
      (p ,(format #f "These are the channel logs for the #~a IRC channel on
 freenode." channel))
+     (form
+      (@ (action ,(string-append channel "/search")))
+      (input (@ (name "query")
+                (placeholder "nick:rekado frobnicate")) "")
+      (button (@ (type "submit")) "Search!"))
      (div
       (@ (class "years"))
       ,@(map (lambda (files)