Add favicon.

2 files changed, 69 insertions, 0 deletions

diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index 7fa6ceb0..4e6332ad 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -68,6 +68,11 @@
         (return '((content-type text/html))
                 (sxml->html-string '(a (@ (href "/today")) "Gå till idag"))))
 
+   (GET "/favicon.ico" ()
+        (return
+         `((content-type image/svg+xml))
+         (call-with-input-file "static/calendar.svg" read-string)))
+
    ;; TODO any exception in this causes the whole page to fail
    ;; It would be much better if most of the page could still make it.
    (GET "/week/:start-date.html" (start-date)
diff --git a/static/calendar.svg b/static/calendar.svg
new file mode 100644
index 00000000..d9e42da8
--- /dev/null
+++ b/static/calendar.svg
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<svg
+   xmlns:dc="http://purl.org/dc/elements/1.1/"
+   xmlns:cc="http://creativecommons.org/ns#"
+   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+   xmlns:svg="http://www.w3.org/2000/svg"
+   xmlns="http://www.w3.org/2000/svg"
+   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
+   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
+   width="79.37603mm"
+   height="85.344139mm"
+   viewBox="0 0 79.37603 85.344139"
+   version="1.1"
+   id="svg858"
+   inkscape:version="1.0 (4035a4fb49, 2020-05-01)"
+   sodipodi:docname="calendar.svg">
+  <defs
+     id="defs852" />
+  <sodipodi:namedview
+     fit-margin-bottom="0"
+     fit-margin-right="0"
+     fit-margin-left="0"
+     fit-margin-top="0"
+     id="base"
+     pagecolor="#ffffff"
+     bordercolor="#666666"
+     borderopacity="1.0"
+     inkscape:pageopacity="0.0"
+     inkscape:pageshadow="2"
+     inkscape:zoom="0.35"
+     inkscape:cx="347.10899"
+     inkscape:cy="540.85525"
+     inkscape:document-units="mm"
+     inkscape:current-layer="layer1"
+     inkscape:document-rotation="0"
+     showgrid="false"
+     inkscape:window-width="689"
+     inkscape:window-height="783"
+     inkscape:window-x="0"
+     inkscape:window-y="15"
+     inkscape:window-maximized="1" />
+  <metadata
+     id="metadata855">
+    <rdf:RDF>
+      <cc:Work
+         rdf:about="">
+        <dc:format>image/svg+xml</dc:format>
+        <dc:type
+           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
+        <dc:title></dc:title>
+      </cc:Work>
+    </rdf:RDF>
+  </metadata>
+  <g
+     transform="translate(-13.994079,-5.065382)"
+     inkscape:label="Layer 1"
+     inkscape:groupmode="layer"
+     id="layer1">
+    <path
+       id="rect4218-9"
+       style="fill:#000000;stroke-width:0.264583"
+       d="m 31.430741,5.065382 c -1.628457,0 -2.939873,1.221743 -2.939873,2.739367 v 9.225794 c 0,1.517545 1.31131,2.739367 2.939873,2.739367 1.628484,0 2.939355,-1.221822 2.939355,-2.739367 V 7.804749 c 0,-1.51757 -1.310766,-2.739367 -2.939355,-2.739367 z m 44.428812,0 c -1.628484,0 -2.939872,1.221743 -2.939872,2.739367 v 9.225794 c 0,1.517545 1.311283,2.739367 2.939872,2.739367 1.628458,0 2.939354,-1.221822 2.939354,-2.739367 V 7.804749 c 0,-1.51757 -1.310843,-2.739367 -2.939354,-2.739367 z m -39.103039,5.969144 v 6.899837 c 0,2.707747 -2.405831,4.944918 -5.316988,4.944918 -2.911158,0 -5.251649,-2.238176 -5.316472,-4.944918 v -6.885367 h -7.441406 c -2.621544,0.147823 -4.687569,2.18212 -4.687569,4.694287 V 27.304334 H 93.369082 V 15.743283 c 0,-2.512087 -2.06553,-4.546385 -4.68706,-4.694287 l -7.441402,-0.01447 v 6.899837 c 0,2.707747 -2.405885,4.944918 -5.316987,4.944918 -2.911105,0 -5.381813,-2.23815 -5.31699,-4.944918 V 11.034526 Z M 13.994079,29.288709 v 56.411544 c 0,2.60879 2.226279,4.70927 4.99091,4.70927 h 69.394733 c 2.76463,0 4.99039,-2.10043 4.99039,-4.70927 V 29.288709 H 13.995113 Z m 8.878011,5.74952 H 33.142264 V 45.450514 H 22.87209 Z m 12.837459,0 H 45.979205 V 45.450514 H 35.709549 Z m 12.837459,0 H 58.816664 V 45.450514 H 48.547008 Z m 12.836943,0 h 5.16e-4 10.269659 v 10.412285 h -10.269659 -5.16e-4 z m 12.837974,0 H 84.491584 V 45.450514 H 74.221925 Z M 22.871573,47.764584 H 33.14123 V 58.176869 H 22.871573 Z m 12.837459,0 H 45.978689 V 58.176869 H 35.709032 Z m 12.836944,0 H 58.816148 V 58.176869 H 48.545976 Z m 12.837459,0 H 71.653091 V 58.176869 H 61.383435 Z m 12.837459,0 H 84.491066 V 58.176869 H 74.220894 Z M 22.87054,60.490423 H 33.140714 V 70.903221 H 22.87054 Z m 12.837459,0 H 45.977655 V 70.903221 H 35.707999 Z m 12.837458,0 H 58.815116 V 70.903221 H 48.545457 Z m 12.836943,0 H 71.652575 V 70.903221 H 61.3824 Z m 12.837978,0 H 84.490034 V 70.903221 H 74.220378 Z M 22.870023,73.216259 h 3.173966 5.261178 1.834513 v 6.115904 2.14819 2.14871 H 31.305167 26.043989 24.70402 c -1.015974,0 -1.833997,-0.9584 -1.833997,-2.14871 v -6.11487 z m 38.512377,0 h 5.16e-4 1.833997 5.261694 3.17345 5.18e-4 V 83.629063 H 61.3824 v -2.14871 -2.14819 z m 12.837459,0 h 1.834515 5.261692 3.173968 v 2.149224 6.11487 c 0,1.19033 -0.817531,2.14871 -1.83348,2.14871 h -1.339969 -5.262211 -1.834515 v -2.14871 -2.14819 -6.115385 z m -38.512377,5.19e-4 H 45.977139 V 83.629063 H 35.707482 Z m 12.836943,0 H 58.814598 V 83.629063 H 48.544425 Z" />
+  </g>
+</svg>