commit 3a17f25515f5b44755b462748a52c5bc4561bb59
parent 1f8a9c933e714043e2173d2858bab47687f84d39
Author: Yuval Langer <yuval.langer@gmail.com>
Date: Fri, 12 Jan 2024 07:36:27 +0200
Consolidate HTML generation and add a textual description of the logo (VERY IMPORTANT!).
Diffstat:
| M | haunt.scm | | | 43 | ++++++++++++++++++++++--------------------- |
1 file changed, 22 insertions(+), 21 deletions(-)
diff --git a/haunt.scm b/haunt.scm
@@ -32,7 +32,8 @@
(define site-title-prefix "💩 Kaka Farm! 💩")
(define site-header
- `(h1 (img (@ (src "/images/logo.png")))
+ `(h1 (img (@ (src "/images/logo.png")
+ (alt "A superflat vector drawing of a ceramic throne.")))
"Kaka Farm!"))
(define haunt-footer
@@ -111,43 +112,43 @@
(style "display:inline-block;"))
" Attribution-ShareAlike 4.0 International "
(img (@ (style "height:22px!important;margin-left:3px;vertical-align:text-bottom;")
- (src "https://mirrors.creativecommons.org/presskit/icons/cc.svg?ref=chooser-v1")))
+ (src "https://mirrors.creativecommons.org/presskit/icons/cc.svg?ref=chooser-v1")
+ (alt "")))
(img (@ (style "height:22px!important;margin-left:3px;vertical-align:text-bottom;")
- (src "https://mirrors.creativecommons.org/presskit/icons/by.svg?ref=chooser-v1")))
+ (src "https://mirrors.creativecommons.org/presskit/icons/by.svg?ref=chooser-v1")
+ (alt "")))
(img (@ (style "height:22px!important;margin-left:3px;vertical-align:text-bottom;")
- (src "https://mirrors.creativecommons.org/presskit/icons/sa.svg?ref=chooser-v1"))))))
+ (src "https://mirrors.creativecommons.org/presskit/icons/sa.svg?ref=chooser-v1")
+ (alt ""))))))
-(define (blog-layout a-site a-page-title-string an-sxml-tree)
+(define (make-page an-sxml-tree title)
`((doctype "html")
- (html (head (meta (@ (charset "UTF-8")))
+ (html (@ (lang "en"))
+ (head (meta (@ (charset "UTF-8")))
(link (@ (rel "stylesheet")
(type "text/css")
(href "/assets/index.css")))
- (title ,(string-append site-title-prefix
- " -- "
- a-page-title-string)))
+ (title ,title))
(body (div (@ (id "topmostdiv"))
,site-header
,an-sxml-tree
,haunt-footer
,creative-commons-copyright-notice)))))
+
+(define (blog-layout a-site a-page-title-string an-sxml-tree)
+ (make-page an-sxml-tree
+ (string-append site-title-prefix
+ " -- "
+ a-page-title-string)))
+
(define blog-theme
(theme #:name "blog-theme"
#:layout blog-layout))
(define (topsite-layout a-site a-page-title-string an-sxml-tree)
- `((doctype "html")
- (html (head (meta (@ (charset "UTF-8")))
- (link (@ (rel "stylesheet")
- (type "text/css")
- (href "/assets/index.css")))
- (title ,site-title-prefix))
- (body (div (@ (id "topmostdiv"))
- ,site-header
- ,an-sxml-tree
- ,haunt-footer
- ,creative-commons-copyright-notice)))))
+ (make-page an-sxml-tree
+ site-title-prefix))
(define topsite-theme
(theme #:name "topsite-theme"
@@ -186,7 +187,7 @@
#:make-sxml kakafarm:software:clipboard-speaker:make-sxml
#:theme topsite-theme)
(json-page-builder #:destination "/contribute.json"
- #:make-scm make-contribute.json-scm)
+ #:make-scm make-contribute.json-scm)
(atom-feed #:file-name "/haunt/feed.xml"
#:blog-prefix "/haunt/posts")
(atom-feeds-by-tag #:prefix "/haunt/feeds"
