web: Move query string utilities.

* tissue/web/server.scm (query-parameters, query-string): Move to ...
* tissue/utils.scm: ... here. Import (ice-9 match) and (web uri).

1 files changed, 0 insertions, 22 deletions

diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index f5e601b..1e6d04b 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -198,28 +198,6 @@ operators "
      (ul (@ (class "search-results"))
          ,@results))))
 
-(define (query-parameters query)
-  "Return an association list of query parameters in web QUERY string."
-  (if query
-      (map (lambda (parameter)
-             (match (string-split parameter #\=)
-               ((key value)
-                (cons (uri-decode key)
-                      (uri-decode value)))))
-           (string-split query #\&))
-      '()))
-
-(define (query-string parameters)
-  "Return a query string for association list of PARAMETERS."
-  (string-join
-   (map (match-lambda
-          ((key . value)
-           (string-append (uri-encode key)
-                          "="
-                          (uri-encode value))))
-        parameters)
-   "&"))
-
 (define (log-request request)
   "Log @var{request} to standard output."
   (format #t "~a ~a\n"