106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
(cond
[(equal? 'p first-tag)
(cons (txexpr 'p first-attrs (cons disposition first-elems)) (cdr elems))]
[else
(cons disposition elems)]))
(string-append* (map ->html body-elems)))
(define (html$-note-listing-full pagenode note-id title-html-flow date author author-url contents)
(define author-part
(cond [(non-empty-string? author)
◊string-append{
<div class="note-meta">
—<a class="u-author h-card" href="◊|author-url|">◊|author|</a>
</div>}]
[else ◊string-append{
<div class="note-meta">
—<a class="u-author h-card" href="https://thelocalyarn.com">◊|default-authorname|</a>
</div>}]))
◊string-append{
<article class="with-title hentry">
<h1 class="entry-title">◊|title-html-flow|</h1>
<p class="time"><a href="◊|pagenode|◊note-id" class="rel-bookmark note-permlink">
<time datetime="◊date">◊ymd->english[date]</time>
</a></p>
<section class="entry-content">
<div class="p-content p-name">◊|contents|</div>
◊author-part
</section>
</article>})
(define (html$-note-in-article id date author author-url contents)
◊string-append{
<div class="note u-comment" id="◊|id|">
|
|
|
|
>
>
>
|
|
>
>
>
|
|
|
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
(cond
[(equal? 'p first-tag)
(cons (txexpr 'p first-attrs (cons disposition first-elems)) (cdr elems))]
[else
(cons disposition elems)]))
(string-append* (map ->html body-elems)))
(define (html$-note-listing-full pagenode note-id title-html-flow date contents [author default-authorname] [author-url ""])
(define author-part
(cond [(non-empty-string? author-url)
◊string-append{
<div class="note-meta">
—<a class="u-author h-card" href="◊|author-url|">◊|author|</a>
</div>}]
[else ◊string-append{
<div class="note-meta">
—<span class="h-card">◊|author|</span>
</div>}]))
(define maybe-author-class?
(cond [(string=? author default-authorname) "by-proprietor"]
[else ""]))
◊string-append{
<article class="with-title ◊maybe-author-class? hentry">
<h1 class="entry-title">◊|title-html-flow|</h1>
<p class="time"><a href="◊|pagenode|◊note-id" class="rel-bookmark note-permlink">
<time datetime="◊date">◊ymd->english[date]</time>
</a></p>
<section class="entry-content">
<div class="p-content p-name">◊|contents|</div>
◊author-part
</section>
</article>})
(define (html$-note-in-article id date contents author author-url)
(define maybe-author-class?
(cond [(or (string=? author default-authorname) (string=? author "")) "by-proprietor"]
[else ""]))
◊string-append{<div class="note ◊maybe-author-class? 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>
|
