17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(provide html$-page-head
html$-page-body-open
html$-article-open
html$-article-close
html$-article-listing-short
html$-page-body-close
html$-note-title
|
<
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(provide html$-page-head
html$-page-body-open
html$-article-open
html$-article-close
html$-article-listing-short
html$-page-body-close
html$-note-contents
html$-note-listing-full
html$-note-in-article
html$-notes-section
html$-paginate-navlinks)
(define (html$-page-head [title #f] [close-head? #t])
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
(define (html$-page-body-close)
◊string-append{<footer>By Joel Dueck</footer>
</main></body>})
;; Notes
;;
(define (html$-note-title pagenode parent-title)
(format "Re: <a class=\"cross-reference\" href=\"/~a\">~a</a>"
pagenode
parent-title))
|
<
<
<
<
<
|
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
(define (html$-page-body-close)
◊string-append{<footer>By Joel Dueck</footer>
</main></body>})
;; Notes
;;
(define (html$-note-contents disposition-mark disposition-verb elems)
(define disposition
(cond [(non-empty-string? disposition-mark)
`(abbr [[class "disposition-mark-in-note"]
[title ,(string-append "The original article is herewith considered "
disposition-verb)]]
,disposition-mark)]
|
