diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-27 21:04:43 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-27 21:04:43 +0200 |
| commit | 26686704df52581b78e77002e7d6e5fef4fcecb3 (patch) | |
| tree | 6dc24c9da4c2641fee94bc405b58f8f5fe9dfd39 | |
| parent | Propagate errors to HTML search page. (diff) | |
| download | calp-26686704df52581b78e77002e7d6e5fef4fcecb3.tar.gz calp-26686704df52581b78e77002e7d6e5fef4fcecb3.tar.xz | |
Whoops, add (web uri-query).
| -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))) |