69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
[else
◊string-append{<article class="no-title hentry">
<h1><a href="#" class="rel-bookmark">
<time datetime="◊published" class="entry-title">◊ymd->english[published]</time>
</a></h1>
<section class="entry-content">}]))
(define (html$-article-close)
◊string-append{</section>
<footer class="article-info"><span class="x">(</span>Part of ‘Talking About Poetry’. Once I threw a mudball at a birdhouse. I’m not exactly proud of it, though.<span class="x">)</span></footer>
</article>})
|
|
|
<
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
[else
◊string-append{<article class="no-title hentry">
<h1><a href="#" class="rel-bookmark">
<time datetime="◊published" class="entry-title">◊ymd->english[published]</time>
</a></h1>
<section class="entry-content">}]))
(define (html$-article-close footertext)
◊string-append{</section>
<footer class="article-info"><span class="x">(</span>◊|footertext|<span class="x">)</span></footer>
</article>})
(define (html$-page-body-close)
◊string-append{<footer>By Joel Dueck</footer>
</main></body>})
;; Notes
;;
(define (html$-note-title author pagenode parent-title)
|
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
◊author-part
</section>
</article>})
(define (html$-note-in-article id date author author-url contents)
◊string-append{
<div class="note u-comment" id="◊|id|">
<h3><a href="◊|id|"><time class="dt-published" datetime="◊date">◊ymd->english[date]</time>
</a></h3>
<div class="p-content p-name">
◊contents
</div>
<div class="note-meta">
—<a class="u-author h-card" href="◊|author-url|">◊|author|</a>
</div>
</div>})
(define (html$-notes-section note-htmls)
◊string-append{<div class="further-notes">
<h2>Further Notes</h2>
◊(apply string-append note-htmls)
</div>})
|
|
|
|
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
◊author-part
</section>
</article>})
(define (html$-note-in-article id date author author-url contents)
◊string-append{
<div class="note u-comment" id="◊|id|">
<h3><a href="#◊|id|"><time class="dt-published" datetime="◊date">◊ymd->english[date]</time>
</a></h3>
<div class="p-content p-name">
◊contents
</div>
<div class="note-meta">
—<a class="u-author h-card" href="◊|author-url|">◊|author|</a>
</div>
</div>})
(define (html$-notes-section note-htmls)
◊string-append{<div class="further-notes" id="furthernotes">
<h2>Further Notes</h2>
◊(apply string-append note-htmls)
</div>})
|
