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.
pollen/test/data/poly/pollen.rkt

18 lines
432 B
Racket

#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)]))