@@ -1,36 +1,11 @@
 #lang racket/base
 
-(require pollen/decode
-         txexpr
-         yarn/markup
-         yarn/string
-         yarn/tools)
+(require yarn/markup)
 
 (provide
  (all-defined-out)
  (all-from-out yarn/markup))
 
 (module+ setup
   (provide block-tags)
   (define block-tags blocks-elements))
-
-;; Customized paragraph decoder replaces single newlines within paragraphs
-;; with single spaces instead of <br> tags. Allows for “semantic line wrapping”.
-(define (decode-hardwrapped-paragraphs xs)
-  (define (no-linebreaks xs)
-    (decode-linebreaks xs " "))
-  (decode-paragraphs xs 'paragraph #:linebreak-proc no-linebreaks))
-
-(define (root . elems)
-  (validate-txexpr `(test ,@elems))
-  (check-title elems)
-  `(document ,@(decode-hardwrapped-paragraphs elems)))
-
-(define (check-title elems)
-  (cond
-    [(and (not (meta-set? 'title))
-          ((tx-is? 'poetry #:has-attrs 'title) (car elems)))
-     (set-meta 'title (format "‘~a’" (attr-ref (car elems) 'title)))
-     (set-meta 'title-supplied? #t)]
-    [(not (meta-set? 'title))
-     (set-meta 'title (first-words elems 5))]))