diff options
-rw-r--r-- | mumi/web/view/html.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index 2f05e1d..281b684 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -1,5 +1,5 @@ ;;; mumi -- Mediocre, uh, mail interface -;;; Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This program is free software: you can redistribute it and/or @@ -87,7 +87,7 @@ "source code here") "."))))) #:extra-headers ,extra-headers)) -(define* (search-form #:key (standalone? #f)) +(define* (search-form #:key (standalone? #f) (text "")) `(form (@ (id "search") ,(if standalone? '(class "") @@ -101,6 +101,7 @@ (class "form-control") (id "query") (name "query") + (value ,text) (placeholder "Input your search query..."))) (span (@ (class "input-group-append")) (button |