1
2
3
4
5
6
7
8
9
10
11
12
13
|
1
2
3
4
5
6
7
8
9
10
11
12
|
-
|
#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/core
|
| ︙ | | |
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
-
+
+
-
+
|
<a href="/index.html"><header>
<img src="/web-extra/mark.svg" alt="The Local Yarn" height="103" class="logo">
<h1>The Local Yarn</h1>
</header></a>})
(define (html$-repo-links)
(define (html$-repo-links [line #f])
(define here (path->string (here-source-path)))
(define line-param (if line (format "?ln=~a" line) ""))
(cond
[(checked-in?)
◊string-append{<div class="scm-links">
<a title="source" href="/code/file/◊here">§</a>
<a title="source" href="/code/file/◊|here|◊line-param">§</a>
<a title="changes" href="/code/finfo?name=◊here">¢</a>
</div>}]
[else (format "<!-- ~a -->" here) ]))
(define (html$-article-open pagenode title? title-tx published)
|
| ︙ | | |
133
134
135
136
137
138
139
140
141
142
143
|
133
134
135
136
137
138
139
140
141
142
143
144
|
-
+
+
|
(cons (txexpr first-tag 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 (html$-note-listing-full pagenode note-id title-html-flow
date srcline 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|"><i>◊|author|</i></a>
|
| ︙ | | |
154
155
156
157
158
159
160
161
162
163
|
155
156
157
158
159
160
161
162
163
164
165
|
+
|
<article class="with-title ◊maybe-author-class hentry">
<h1 class="entry-title note-full">◊|title-html-flow|</h1>
<p class="time"><a href="/◊(symbol->string pagenode)#◊note-id" class="rel-bookmark note-permlink">
<time datetime="◊date">◊ymd->english[date]</time>
</a></p>
◊(html$-repo-links srcline)
<section class="entry-content">
<div class="p-content p-name">◊|contents|</div>
◊author-part
</section>
</article>})
|
| ︙ | | |
