diff --git a/pollen/private/main-base.rkt b/pollen/private/main-base.rkt index 2ba96b2..60be44a 100644 --- a/pollen/private/main-base.rkt +++ b/pollen/private/main-base.rkt @@ -38,7 +38,8 @@ DOC-ID ; positional arg for doclang-raw: name of export (λ (xs) (define proc (make-parse-proc PARSER-MODE ROOT-ID)) - (define doc-elements (splice (strip-leading-newlines xs) (setup:splicing-tag))) + (define trimmed-xs (if (setup:trim-whitespace?) (strip-leading-newlines xs) xs)) + (define doc-elements (splice trimmed-xs (setup:splicing-tag))) (proc doc-elements)) ; positional arg for doclang-raw: post-processor (module META-MOD-ID racket/base (provide METAS-ID) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index c31c6e0..d1a5076 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1534800722 +1535405509 diff --git a/pollen/setup.rkt b/pollen/setup.rkt index 84a5d43..26c5a41 100644 --- a/pollen/setup.rkt +++ b/pollen/setup.rkt @@ -120,7 +120,7 @@ (define-settable extra-published-path? (λ (path) #f)) ; deprecated in favor of `extra-path?` (define-settable extra-path? (λ (path) #f)) - +(define-settable trim-whitespace? #t) (define-settable here-path-key 'here-path)