You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
432 B
Racket
18 lines
432 B
Racket
9 years ago
|
#lang racket/base
|
||
|
|
(require pollen/world)
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
(module config racket/base
|
||
|
|
(provide (all-defined-out))
|
||
|
|
(define poly-targets '(html txt))
|
||
|
|
(define compile-cache-active #f))
|
||
|
|
|
||
|
|
(define (heading . xs)
|
||
|
|
(case (world:current-poly-target)
|
||
|
|
[(txt) (map string-upcase xs)]
|
||
|
|
[else `(h2 ,@xs)]))
|
||
|
|
|
||
|
|
(define (emph . xs)
|
||
|
|
(case (world:current-poly-target)
|
||
|
|
[(txt) `("**" ,@xs "**")]
|
||
|
|
[else `(strong ,@xs)]))
|