website: Add favicon.

1 files changed, 17 insertions, 0 deletions

diff --git a/.guix/ravanan-website.scm b/.guix/ravanan-website.scm
index b874aa9..66afc93 100644
--- a/.guix/ravanan-website.scm
+++ b/.guix/ravanan-website.scm
@@ -25,6 +25,18 @@
   #:use-module (guix utils)
   #:use-module ((ravanan-package) #:select (ravanan)))
 
+(define ravanan-website-head-gexp
+  #~(begin
+      (use-modules (srfi srfi-26)
+                   (sxml simple))
+
+      (call-with-output-file #$output
+        (cut sxml->xml
+             `(link (@ (rel "icon")
+                       (type "image/svg+xml")
+                       (href "artwork/icon/icon-head-light.svg")))
+             <>))))
+
 (define ravanan-website-home-page-gexp
   (with-imported-modules '((guix build utils))
     #~(begin
@@ -56,6 +68,9 @@ Browse the development version on [cgit](https://git.systemreboot.net/ravanan) o
                 "--title-prefix=ravanan"
                 "--metadata" "document-css=false"
                 "--css=style.css"
+                (string-append "--include-in-header="
+                               #$(computed-file "ravanan-website-head.html"
+                                                ravanan-website-head-gexp))
                 "--from=gfm"
                 (string-append "--output=" #$output)
                 "README.md"))))
@@ -67,6 +82,8 @@ Browse the development version on [cgit](https://git.systemreboot.net/ravanan) o
                                  ravanan-website-home-page-gexp))
                 ("artwork/logo/logo-light.svg"
                  ,(local-file "../artwork/logo/logo-light.svg"))
+                ("artwork/icon/icon-head-light.svg"
+                 ,(local-file "../artwork/icon/icon-head-light.svg"))
                 ("style.css" ,(local-file "../website/style.css"))
                 ("releases" ,(local-file "../releases"
                                          #:recursive? #t))