1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
-
+
-
-
+
|
#lang pollen/mode racket/base
; SPDX-License-Identifier: BlueOak-1.0.0
; This file is licensed under the Blue Oak Model License 1.0.0.
;; Provides functions for displaying content in HTML templates.
(require pollen/core
(require pollen/template
pollen/template
openssl/sha1
|
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
+
+
+
+
+
+
|
(define (html$-article-listing-short pagenode pubdate title)
◊string-append{
<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$-article-excerpt pagenode excerpt-tx)
◊string-append{
◊(->html excerpt-tx #:splice? #t)
<p class="further-reading"><a href="◊|web-root|◊symbol->string[pagenode]">Read more…</a></p>
})
(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> •
|
