From 2462951122ff2afcf96bbcf84f1537e590fa4200 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 25 Mar 2025 00:59:11 +0000 Subject: web: themes: Pull out search endpoint path from object. * tissue/web/themes/default.scm (render-sxml): Pull out search endpoint path from object. --- tissue/web/themes/default.scm | 9 ++++++--- 1 file 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 +;;; Copyright © 2022, 2023, 2025 Arun Isaac ;;; ;;; This file is part of tissue. ;;; @@ -145,7 +145,8 @@ stylesheet is linked to." (define-method (render-sxml (form ) (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:" -- cgit v1.2.3