diff options
| author | Arun Isaac | 2025-03-25 00:59:11 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-03-25 01:27:04 +0000 |
| commit | 2462951122ff2afcf96bbcf84f1537e590fa4200 (patch) | |
| tree | 832732eb6a8641541340658d188cfd3b04c9d0ea | |
| parent | 6688ff027f92076be74df2469ae44cb05f1beab5 (diff) | |
| download | tissue-2462951122ff2afcf96bbcf84f1537e590fa4200.tar.gz tissue-2462951122ff2afcf96bbcf84f1537e590fa4200.tar.lz tissue-2462951122ff2afcf96bbcf84f1537e590fa4200.zip | |
web: themes: Pull out search endpoint path from <search-page> object.
* tissue/web/themes/default.scm (render-sxml): Pull out search endpoint path from <search-page> object.
| -rw-r--r-- | tissue/web/themes/default.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tissue/web/themes/default.scm b/tissue/web/themes/default.scm index 10732ee..b8432ce 100644 --- a/tissue/web/themes/default.scm +++ b/tissue/web/themes/default.scm @@ -1,5 +1,5 @@ ;;; tissue --- Text based issue tracker -;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2022, 2023, 2025 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of tissue. ;;; @@ -145,7 +145,8 @@ stylesheet is linked to." (define-method (render-sxml (form <search-page-form>) (page <search-page>)) `(div - (form (@ (action "/search") (method "GET")) + (form (@ (action ,(uri-path (search-page-uri page))) + (method "GET")) (input (@ (type "text") (name "query") (value ,(search-page-query page)) @@ -280,7 +281,9 @@ stylesheet is linked to." " tag-feature" "")))) (a (@ (href ,(string-append - "/search?query=" + (uri-path (search-page-uri page)) + "?query=" + (search-page-query page) (uri-encode ;; Quote tag if it has spaces. (string-append "tag:" |