diff options
| -rw-r--r-- | haunt/jakob/builder/blog.scm | 4 | ||||
| -rw-r--r-- | haunt/jakob/theme.scm | 8 | ||||
| -rw-r--r-- | org/Farewell, Kona, My Life-Long Companion/farewell-kona.org | 1 | ||||
| -rw-r--r-- | org/I Love My PinePhone/i-love-my-pinephone.org | 1 |
4 files changed, 14 insertions, 0 deletions
diff --git a/haunt/jakob/builder/blog.scm b/haunt/jakob/builder/blog.scm index cf333d6..bea9ed5 100644 --- a/haunt/jakob/builder/blog.scm +++ b/haunt/jakob/builder/blog.scm @@ -134,10 +134,14 @@ (define (post->page post) "Return a Haunt page for POST." + (define meta-tags (call-with-input-string (post-ref post 'meta-tags) read)) + (define scripts (call-with-input-string (post-ref post 'scripts) read)) (make-page (post-uri post) (theme #:title (post-ref post 'title) #:description (description-from-post post) #:keywords (post-ref post 'tags) + #:meta (if (not (eof-object? meta-tags)) meta-tags '()) + #:scripts (if (not (eof-object? scripts)) scripts '()) #:content (render-article post)) sxml->html)) diff --git a/haunt/jakob/theme.scm b/haunt/jakob/theme.scm index b9a2dc5..2d999f1 100644 --- a/haunt/jakob/theme.scm +++ b/haunt/jakob/theme.scm @@ -73,6 +73,8 @@ International") (title '()) (description "") (keywords '()) + (meta '()) + (scripts '()) (content '(div ""))) "Return an SHTML document using the website's theme." `((doctype "html") @@ -97,6 +99,11 @@ International") (meta (@ (name "og:title") (content ,title))) + ,@(map (match-lambda + ((name . content) + `(meta (@ (name ,name) (content ,content))))) + meta) + ,@(map (lambda (file-name) (stylesheet file-name)) %stylesheets) ,@(map (match-lambda @@ -107,4 +114,5 @@ International") (body ,%header ,content + ,@scripts ,%footer)))) diff --git a/org/Farewell, Kona, My Life-Long Companion/farewell-kona.org b/org/Farewell, Kona, My Life-Long Companion/farewell-kona.org index 850c1cd..57dca1d 100644 --- a/org/Farewell, Kona, My Life-Long Companion/farewell-kona.org +++ b/org/Farewell, Kona, My Life-Long Companion/farewell-kona.org @@ -1,6 +1,7 @@ #+TITLE: A Good-Bye Letter To My Life-Long Companion #+TAGS: non-technical #+DATE: <2022-05-13 Fri 20:06> +#+HAUNT_METADATA: (("scripts" . "((script (@ (src \"/static/js/oneko.js\"))))")) Last night -- Thursday, May 12th, 2022, at 22:17L -- my cat was put to rest. I tend to avoid publishing anything non-technical to this website, but she diff --git a/org/I Love My PinePhone/i-love-my-pinephone.org b/org/I Love My PinePhone/i-love-my-pinephone.org index 948eabb..c71ff86 100644 --- a/org/I Love My PinePhone/i-love-my-pinephone.org +++ b/org/I Love My PinePhone/i-love-my-pinephone.org @@ -1,6 +1,7 @@ #+TITLE: I Love My PinePhone #+DATE: <2022-08-26 Fri 06:29> #+TAGS: writeup, programming, arm, rust, pinephone, alpine, postmarketos, emacs +#+HAUNT_METADATA: (("meta-tags" . "((\"twitter:card\" . \"summary\") (\"twitter:site\" . \"@0daysfordays\") (\"twitter:creator\" . \"@0daysfordays\") (\"og:description\" . \"An attempt to document my experiences and rationale for wanting to use a PinePhone, as well as my thoughts on mobile Linux in general.\") (\"og:image\" . \"https://jakob.space/static/image/pinephone-1.jpg\"))")) For the past ten months, I've been using my [[https://www.pine64.org/pinephone/][PinePhone]] as a "daily driver." By which, I mean it's been in my pocket everywhere I go, and it's the device I use |