Commit f8b12637 authored by Masaya Tojo's avatar Masaya Tojo
Browse files

サイトの名前を「TojoQKの日記」に統一する

parent 727abc91
......@@ -26,6 +26,8 @@
(haunt post)
(sxml simple))
(define site-name "TojoQKの日記")
(define (date->string/tojoqk date)
(date->string date "~Y年~m月~d日の~H時"))
......@@ -74,14 +76,16 @@
(list
`(meta (@ (property "og:description") (content ,description))))))
(else '()))
(meta (@ (property "og:site_name") (content "TojoQK")))
(meta (@ (property "og:site_name") (content ,site-name)))
(meta (@ (property "og:image")
(content
,(string-append "https://"
(site-domain site)
(or (assoc-ref og 'image) "/static/image/QK.png")))))
(title
,(string-append title " -- TojoQK")))
(if (string=? title site-name)
site-name
,(string-append title " -- " site-name))))
(body
(div (@ (class "world"))
(nav (@ (class "nav-bar"))
......@@ -99,7 +103,7 @@
(cons
`((title . ,title)
(type . "website")
(description . "TojoQKのブログ")
(description . "TojoQKの日記")
(url . "/"))
`((h1 "最近の投稿")
(ul (@ (class "post-list"))
......@@ -135,9 +139,9 @@
(define (blog/tojoqk)
(blog #:theme (theme/tojoqk)
#:collections (list (list "最近の投稿" "index.html" posts/reverse-chronological))))
#:collections (list (list site-name "index.html" posts/reverse-chronological))))
(site #:title "TojoQK"
(site #:title site-name
#:domain "www.tojo.tokyo"
#:default-metadata
'((author . "Masaya Tojo")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment