35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
"template-html.rkt"
"crystalize.rkt")
(provide (all-defined-out)
(all-from-out "crystalize.rkt" "template-html.rkt"))
(module setup racket/base
(require syntax/modresolve)
(provide (all-defined-out))
(define poly-targets '(html))
(define cache-watchlist
(map resolve-module-path '("tags-html.rkt"
"template-html.rkt"
"dust.rkt"
"crystalize.rkt"))))
;; Macro for defining tag functions that automatically branch based on the
|
|
>
|
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
"template-html.rkt"
"crystalize.rkt")
(provide (all-defined-out)
(all-from-out "crystalize.rkt" "template-html.rkt"))
(module setup racket/base
(require syntax/modresolve pollen/setup)
(provide (all-defined-out))
(define poly-targets '(html))
;(define block-tags (cons 'note default-block-tags))
(define cache-watchlist
(map resolve-module-path '("tags-html.rkt"
"template-html.rkt"
"dust.rkt"
"crystalize.rkt"))))
;; Macro for defining tag functions that automatically branch based on the
|
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
(poly-branch-tag blockcode)
(poly-branch-tag verse) ; [#:title ""] [#:italic "no"]
(poly-branch-func link)
(poly-branch-func url)
(poly-branch-func fn)
(poly-branch-func fndef)
;; Not yet implemented
; (poly-branch-tag table) ; #:columns ""
; (poly-branch-tag inline-math)
; (poly-branch-tag margin-note)
; (poly-branch-tag noun)
; (poly-branch-func index-entry entry)
|
>
>
|
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
(poly-branch-tag blockcode)
(poly-branch-tag verse) ; [#:title ""] [#:italic "no"]
(poly-branch-func link)
(poly-branch-func url)
(poly-branch-func fn)
(poly-branch-func fndef)
(poly-branch-tag note)
;; Not yet implemented
; (poly-branch-tag table) ; #:columns ""
; (poly-branch-tag inline-math)
; (poly-branch-tag margin-note)
; (poly-branch-tag noun)
; (poly-branch-func index-entry entry)
|
