24
25
26
27
28
29
30
31
32
33
|
24
25
26
27
28
29
30
31
32
33
34
35
|
+
+
|
(require syntax/modresolve
racket/runtime-path
pollen/setup)
(provide (all-defined-out))
(define poly-targets '(html))
(define allow-unbound-ids? #f)
(define block-tags (append '(title style dt note) default-block-tags))
(define-runtime-path tags-html.rkt "tags-html.rkt")
(define-runtime-path snippets-html.rkt "snippets-html.rkt")
(define-runtime-path dust.rkt "dust.rkt")
|
89
90
91
92
93
94
95
96
97
98
|
91
92
93
94
95
96
97
98
99
100
101
|
+
|
(poly-branch-tag strike)
;(poly-branch-tag color)
(poly-branch-tag ol)
(poly-branch-tag ul)
(poly-branch-tag item)
(define li item) ; useful alias :-P
(poly-branch-tag sup)
(poly-branch-tag blockquote)
(poly-branch-tag newthought)
(poly-branch-tag sep)
(poly-branch-tag caps)
|
