22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
;; -------------------------------------------------------------------------
;; Provides functions for displaying content in HTML templates.
(require pollen/core
pollen/template
pollen/decode
racket/string
txexpr
openssl/sha1
"dust.rkt")
(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
html$-note-contents
html$-note-listing-full
html$-note-in-article
html$-notes-section)
(define (html$-page-head [title #f])
◊string-append{<head>
<title>◊if[title title ""] </title>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel="stylesheet" type="text/css" href="/web-extra/martin.css">
|
>
>
|
>
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
;; -------------------------------------------------------------------------
;; Provides functions for displaying content in HTML templates.
(require pollen/core
pollen/template
pollen/decode
racket/string
racket/function
racket/list
txexpr
openssl/sha1
"dust.rkt")
(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
html$-note-contents
html$-note-listing-full
html$-note-in-article
html$-notes-section
html$-paginate-navlinks)
(define (html$-page-head [title #f])
◊string-append{<head>
<title>◊if[title title ""] </title>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel="stylesheet" type="text/css" href="/web-extra/martin.css">
|
157
158
159
160
161
162
163
|
</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>})
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
|
</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>})
;; (private) Returns HTML for a list-item link to a particular page in a set of numbered pages
(define (html$-paginate-link basename pagenum [linktext (format "p. ~a" (number->string pagenum))] [class ""])
(define cstr (if (non-empty-string? class) (format " class=\"~a\"" class) ""))
(format "<li~a><a href=\"/~a-pg~a.html\">~a</a></li>" cstr basename pagenum linktext))
;; Returns HTML for a series of list items with links to numbered pages
(define (html$-paginate-navlinks pagenum pagecount basename)
(define slots 9)
(define on-first-group? (<= pagenum (- slots 4)))
(define on-last-group? (>= pagenum (- pagecount slots -4)))
(define only-one-group? (<= pagecount slots))
(define group-start (- pagenum (quotient (- slots 4) 2))) ; not always used!
(define page-func (curry html$-paginate-link basename))
(define page-group-syms
(cond [only-one-group?
`(,@(range 1 (+ 1 pagecount)))]
[on-first-group?
`(,@(range 1 (min (+ 1 pagecount) (- slots 1))) "..." ,pagecount)]
[on-last-group?
`(1 "..." ,@(range (- pagecount slots -3) (+ pagecount 1)))]
[else
`(1
"..."
,@(range group-start (min (+ 1 pagecount) (+ group-start (- slots 4))))
"..."
,pagecount)]))
(define page-group
(for/list ([psym (in-list page-group-syms)])
(cond
[(and (number? psym) (equal? psym pagenum))
(format "<li class=\"current-page\">~a</li>" psym)]
[(number? psym) (page-func psym)]
[else "<li>…</li>"])))
(define prev-link
(if (eq? 1 pagenum)
"<li class=\"nav-text inactive-link\">←Newer</li>"
(page-func (- pagenum 1) "← Newer" "nav-text")))
(define next-link
(if (eq? pagecount pagenum)
"<li class=\"nav-text inactive-link\">Older→</li>"
(page-func (+ pagenum 1) "Older →" "nav-text")))
(string-join `(,prev-link ,@page-group ,next-link)))
|
