diff options
Diffstat (limited to 'module/web/uri-query.scm')
-rw-r--r-- | module/web/uri-query.scm | 13 |
1 files changed, 13 insertions, 0 deletions
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))) |