diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-22 22:28:29 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-22 22:28:29 +0200 |
commit | 8fefdc707257b2ed1a2fde2c267e6f17d1babd78 (patch) | |
tree | 8a7d11bfa8e2d01aeda7ffb9e73bf27f5d0d315c /module/server/util.scm | |
parent | Add support for events without DTEND set. (diff) | |
download | calp-8fefdc707257b2ed1a2fde2c267e6f17d1babd78.tar.gz calp-8fefdc707257b2ed1a2fde2c267e6f17d1babd78.tar.xz |
Large work on server software.
Diffstat (limited to 'module/server/util.scm')
-rw-r--r-- | module/server/util.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/module/server/util.scm b/module/server/util.scm new file mode 100644 index 00000000..b9bc6099 --- /dev/null +++ b/module/server/util.scm @@ -0,0 +1,10 @@ +(define-module (server util) + :use-module (util) + :use-module (srfi srfi-1)) + +(define-public (parse-query query) + (when query + (fold (lambda (str list) + (let* (((k v) (string-split str #\=))) + (cons* (-> k string->symbol symbol->keyword) v list))) + '() (string-split query #\&)))) |