#lang racket

(require txexpr pollen/setup pollen/decode pollen/misc/tutorial racket/list)

(define (digram-row . digrams) 
  (txexpr 'table '((class "digram-table"))
    (txexpr `tr empty
      (txexpr `tbody empty
        (map (lambda (e) (txexpr 'td '((class "digram-row-cell")) (list e))) digrams)))))

;;; why does the following
;;; output a bare "&tr;" and "&tbody;" into my HTML,
;;; rather than the DOM elements themselves
(digram-row (lesser-yin) (greater-yin) (lesser-yang) (greater-yang))

;;; '(table ((class "digram-table")) tr tbody (td ((class "digram-row-cell")) (span ((class "digram")) "⚍")) (td ((class "digram-row-cell")) (span ((class "digram")) "⚏")) (td ((class "digram-row-cell")) (span ((class "digram")) "⚎")) (td ((class "digram-row-cell")) (span ((class "digram")) "⚌")))
;;;                                  ^  ^ I think this is where things are going wrong, but I don't know how to fix it.


;;; Supporting functions:

(define (digram char)
  (case (current-poly-target)
  [(txt) (list char)]
  [else (txexpr 'span '((class "digram")) (list char))]))

(define (lesser-yin)
  (case (current-poly-target)
    [(txt) "figure out later"]
    [else (digram "⚍")]))

(define (greater-yin)
  (case (current-poly-target)
    [(txt) "figure out later"]
    [else (digram "⚏")]))

(define (lesser-yang)
  (case (current-poly-target)
    [(txt) "figure out later"]
    [else (digram "⚎")]))

(define (greater-yang)
  (case (current-poly-target)
    [(txt) "figure out later"]
    [else (digram "⚌")]))

standard-module-name-resolver: collection not found
  for module path: txexpr
  collection: "txexpr"
  in collection directories:
   /home/pasterack/.racket/6.8/collects
   /home/pasterack/racket68/collects
   ... [161 additional linked and package directories]
  context...:
   show-collection-err
   standard-module-name-resolver
   /home/pasterack/racket68/collects/racket/require-transform.rkt:266:2: expand-import
   /home/pasterack/racket68/collects/racket/private/reqprov.rkt:571:24
   /home/pasterack/racket68/collects/racket/private/reqprov.rkt:559:5
   /home/pasterack/racket68/collects/racket/require-transform.rkt:266:2: expand-import
   /home/pasterack/racket68/collects/racket/private/reqprov.rkt:266:21: try-next
   /home/pasterack/racket68/collects/racket/private/reqprov.rkt:348:21: try-next
   /home/pasterack/racket68/collects/racket/private/reqprov.rkt:243:2
   /home/pasterack/racket68/collects/syntax/wrap-modbeg.rkt:46:4
   standard-module-name-resolver
   loop
   ...cket/cmdline.rkt:179:51
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/run.rkt: [running body]