From 26686704df52581b78e77002e7d6e5fef4fcecb3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 27 Aug 2020 21:04:43 +0200
Subject: Whoops, add (web uri-query).

---
 module/web/uri-query.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 module/web/uri-query.scm

diff --git a/module/web/uri-query.scm b/module/web/uri-query.scm
new file mode 100644
index 00000000..868b1399
--- /dev/null
+++ b/module/web/uri-query.scm
@@ -0,0 +1,13 @@
+(define-module (web uri-query)
+  :use-module ((calp util) :select (->string))
+  :use-module ((web uri) :select (uri-encode))
+  )
+
+
+(define-public (encode-query-parameters parameters)
+  (string-join
+   (map (lambda (p)
+          (format #f "~a=~a"
+                  (car p)
+                  (uri-encode (->string (cdr p)))))
+        parameters)))
-- 
cgit v1.2.3