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
|
#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
pollen/template
pollen/decode
pollen/private/version
racket/string
racket/function
racket/list
txexpr
openssl/sha1
|
|
<
<
>
|
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/template
pollen/decode
pollen/private/version
racket/string
racket/function
racket/list
txexpr
"cache.rkt"
"dust.rkt")
(provide html$-page-head
html$-page-body-open
html$-series-list
html$-article-open
html$-article-close
html$-article-listing-short
html$-article-excerpt
html$-page-footer
html$-page-body-close
html$-note-contents
html$-note-listing-full
html$-note-in-article
html$-notes-section
html$-paginate-navlinks)
|
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
(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$-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> •
|
>
>
>
>
>
>
|
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> •
|
