diff options
Diffstat (limited to 'builder')
| -rw-r--r-- | builder/base.scm | 14 |
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))))) |