68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
-
-
-
-
+
+
+
+
|
◊string-append{</section>
<footer class="article-info"><span class="x">(</span>◊|footertext|<span class="x">)</span></footer>
</article>}]
[else "</section></article>"]))
(define (html$-article-listing-short pagenode pubdate title)
◊string-append{
<li><a href="/◊(symbol->string pagenode)">
<div class="article-list-date caps">◊(ymd->english pubdate)</div>
<div class="article-list-title">◊|title|</div>
</a></li>})
<article class="short-listing"><a href="/◊(symbol->string pagenode)">
<time datetime="◊pubdate" class="caps">◊(ymd->english pubdate)</time>
<h3>◊|title|</h3>
</a></article>})
(define (html$-page-footer)
◊string-append{
<footer id="main">
<p class="title">The Local Yarn</p>
<nav><a href="/">Home</a> •
<a href="/blog-pg1.html">Blog</a> •
|
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
-
+
|
(if (eq? pagecount pagenum)
"<li class=\"nav-text inactive-link\">Older→</li>"
(page-func (+ pagenum 1) "Older →" "nav-text")))
(string-join `(,prev-link ,@page-group ,next-link)))
(define (series->txpr s)
`(li (a [[href ,(symbol->string (cache:series-page s))]]
`(li (a [[href ,(string-append web-root (symbol->string (cache:series-page s)))]]
(i ,(cache:series-title s)))))
(define (html$-series-list)
(define series-list-items
(for/list ([group (in-list (series-grouped-list))])
`(div (h2 ,(cache:series-noun-plural (first group))) (ul ,@(map series->txpr group)))))
(->html `(section [[class "column-list"] [style "margin-top: 1.3rem"]] ,@series-list-items)))
|
