diff options
Diffstat (limited to 'tissue/web/server.scm')
-rw-r--r-- | tissue/web/server.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tissue/web/server.scm b/tissue/web/server.scm index 1e6d04b..e9665ec 100644 --- a/tissue/web/server.scm +++ b/tissue/web/server.scm @@ -41,6 +41,7 @@ #:use-module (tissue document) #:use-module (tissue git) #:use-module (tissue search) + #:use-module (tissue tissue) #:use-module (tissue utils) #:export (log-request mime-type-for-extension @@ -237,7 +238,7 @@ query. QUERY and FILTER are Xapian Query objects." db (new-Query (Query-OP-FILTER) query filter)) #:maximum-items (database-document-count db)))) -(define (search-handler request body xapian-index css) +(define (search-handler request body xapian-index project) (let* ((path (uri-path (request-uri request))) (parameters (query-parameters (uri-query (request-uri request)))) (search-query (or (assoc-ref parameters "query") @@ -280,7 +281,7 @@ query. QUERY and FILTER are Xapian Query objects." '() mset)) search-query - css + (tissue-configuration-web-css project) #:page-uri-path path #:page-uri-parameters parameters #:matches (matches db query (Query-MatchAll)) @@ -320,7 +321,7 @@ See `start-web-server' for documentation of HOSTS." ((member path (list "/" "/search")) (search-handler request body (assq-ref host-parameters 'xapian-directory) - (assq-ref host-parameters 'css))) + (assq-ref host-parameters 'project))) ;; Static files ((let ((file-path (find file-exists? |