diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 11:42:01 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 11:42:01 +0200 |
| commit | 802f8a5d482e73785127dd7c560a68972c355c3f (patch) | |
| tree | e6c9e2efaf138727bd54b53fa72aeae2103ed01d /module/server | |
| parent | Whitespace fixup. (diff) | |
| download | calp-802f8a5d482e73785127dd7c560a68972c355c3f.tar.gz calp-802f8a5d482e73785127dd7c560a68972c355c3f.tar.xz | |
[today] and [jump to] now works without JS.
Diffstat (limited to 'module/server')
| -rw-r--r-- | module/server/macro.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/server/macro.scm b/module/server/macro.scm index 28565c3b..ba70a484 100644 --- a/module/server/macro.scm +++ b/module/server/macro.scm @@ -45,7 +45,10 @@ ;; (assert ;; (= (1- (match:count match-object)) ;; (length intersect))) + + ;; Those parameters which were present in the template uri ((lambda ,intersect + ;; Those that only are in the query string (lambda* (,@(unless (null? diff) `(#:key ,@diff #:allow-other-keys)) #:rest rest) ,@body)) |