From 72f883d2b5313169a5f0184df35092dee0c23477 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 4 May 2020 22:39:13 +0200
Subject: Add link in root to /today.

---
 module/entry-points/server.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index 6ab9a2d1..deda98b4 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -63,6 +63,11 @@
 (define-method (make-make-routes)
   (make-routes
 
+   ;; Manual redirect to not reserve root.
+   (GET "/" ()
+        (return '((content-type text/html))
+                (sxml->html-string '(a (@ (href "/today")) "Gå till idag"))))
+
    (GET "/week/:start-date.html" (start-date)
         (let* ((start-date
                 (start-of-week (parse-iso-date start-date)
-- 
cgit v1.2.3