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

Link to source code

parent cd355139
......@@ -126,7 +126,10 @@
`("最終更新日時は" ,(date->string/tojoqk updated) "です。")))
(else ""))))
(div ,(post-sxml post))
(a (@ (href "/")) "投稿の一覧"))))))
(ul (@ (class "post-end"))
(li (a (@ (href "/")) "投稿の一覧"))
(li (a (@ (href ,(string-append "https://gitlab.com/tojoqk/www-tojo-tokyo/-/tree/master/" (post-file-name post))))
"このページのソースコード"))))))))
(define (blog/tojoqk)
(blog #:theme (theme/tojoqk)
......
......@@ -120,3 +120,8 @@ p {
.post-date {
color: #d0d0d0;
}
.post-end {
padding-left: 0;
list-style-type: none;
}
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