add Open Graph

1 files changed, 13 insertions, 1 deletions

diff --git a/builder/base.scm b/builder/base.scm
index 1672337..ff23a46 100644
--- a/builder/base.scm
+++ b/builder/base.scm
@@ -11,6 +11,13 @@
         "/static/reset.css"
         "/static/main.css"))
 
+(define open-graph
+  '(("og:title" "Eltrac")
+    ("og:url" "https://eltr.ac")
+    ("og:image" "/static/avatar.jpg")
+    ("og:type" "profile")
+    ("profile:username" "Eltrac")))
+
 (define (base-template site page-title . content)
   (let ((title (if page-title
                    (string-append page-title " · " (site-title site))
@@ -24,9 +31,14 @@
          (link (@ (rel "icon") (href "/static/favicon.ico")))
          (link (@ (rel "preconnect")
                   (href "https://fonts.bunny.net")))
+         ;; Open Graph
+         ,@(map (lambda (item) 
+                  `(meta (@ (name ,(car item)) (value ,(list-ref (cdr item) 0))))) 
+                open-graph)
          ;; stylesheet
          ,@(map (lambda (uri) 
-                  `(link (@ (rel "stylesheet") (href ,uri)))) stylesheets)
+                  `(link (@ (rel "stylesheet") (href ,uri)))) 
+                stylesheets)
          (title ,title))
         (body ,@content)))))