awkward macro added by erkin on Sat Jul 21 20:19:42 2018
(define-syntax define-query
(syntax-rules ()
((define-query query-string ...)
(define query
(let ((query
(string-append
"?"
(begin
(if query-string
(string-append
(string-translate
(->string (quote query-string)) "-" "_")
"="
(if (eqv? query-string #t)
"true"
(->string query-string))
"&")
"")
...))))
(if (< (string-length query) 4)
""
(string-chomp query "&")))))))