Commit ff5a8f06 authored by Kisaragi Hiu's avatar Kisaragi Hiu

try Practical Typography style out links

parent 3167bc2e
Pipeline #103285980 passed with stage
in 2 minutes and 18 seconds
......@@ -34,9 +34,9 @@
(make-parameter "https://barren-moon.kisaragi-hiu.com/"))
(define current-publish-date
(make-parameter "2019-12-13"))
(make-parameter "2019-12-16"))
(define current-version
(make-parameter "0.2"))
(make-parameter "0.3"))
(components-output-types #:dynamic html
#:static css)
......@@ -224,20 +224,13 @@
(when target (set! result (attr-set result 'target target)))
result)
(define-component (listing top nodes)
(define-component (out-link url . text)
#:html
`(div ((class "listing"))
(h2 ,top)
(ul
,@(map listing-item nodes)))
(apply link url #:class "out-link" text)
#:css
(css-expr
[div.listing
[a #:font-family ,@serif-list]
[ul #:list-style none
#:padding 0]]))
;;; Path
[a.out-link::after
#:content "°"]))
;; append local site prefix
(define (abs-local . rest)
......
......@@ -59,7 +59,7 @@
</p>
<p>
© 2019
to-html{link["https://kisaragi-hiu.com"]{如月飛羽}};◊to-html{link["https://gitlab.com/kisaragi-hiu/barren-moon"]{原始碼}}MIT授權條款釋出。
to-html{link["https://kisaragi-hiu.com"]{如月飛羽}};◊to-html{out-link["https://gitlab.com/kisaragi-hiu/barren-moon"]{原始碼}}MIT授權條款釋出。
</p>
</footer>
(to-html (listing "目錄" (children 'index.html)))
......
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