Commit 0fe1c9a5 authored by Masaya Tojo's avatar Masaya Tojo
Browse files

OGPまわりの記述を追記する

parent 8bb68993
......@@ -67,23 +67,24 @@
(href ,(string-append "/static/image/QK-" pxp ".png"))
(sizes ,pxp))))
(list "57x57" "60x60" "72x72" "76x76" "114x114" "152x152" "180x180"))
(meta (@ (name "twitter:card") (content "summary")))
(meta (@ (name "twitter:card") (content "summary_large_image")))
(meta (@ (name "twitter:site") (content "@tojoqk")))
(meta (@ (name "twitter:creator") (content "@tojoqk")))
(meta (@ (property "og:title") (content ,(assoc-ref og 'title))))
(meta (@ (property "og:type") (content ,(assoc-ref og 'type))))
(meta (@ (property "og:url") (content ,(assoc-ref og 'url))))
,@(cond
((assoc-ref og 'description)
=> (lambda (description)
(list
`(meta (@ (property "og:description") (content ,description))))))
`((meta (@ (name "description") (content ,description)))
(meta (@ (property "og:description") (content ,description))))))
(else '()))
(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")))))
(or (assoc-ref og 'image) "/static/image/TojoQK.png")))))
(title
,(if (string=? title site-name)
site-name
......
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