#lang racket/base

(define (digram . elements)
  (case (current-poly-target)
  [(txt) elements]
  [else (txexpr 'span empty elements)]))

(define (digram-row . elements)
  (case (current-poly-target)
    [(txt) elements]
    [else (txexpr 'ol empty elements)]))

(define (digram-row-item . elements)
  (case (current-poly-target)
    [(txt) elements]
    [else (txexpr 'li empty elements)]))

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

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

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

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