(define-syntax text-color
  (ir-macro-transformer
    (lambda (expr inject compare)
      (let ((color (cadr expr))
            (bold (cddr expr)))
        (if (null? 'bold)
           `(lambda () (attrset (COLOR_PAIR ,color)))
           `(lambda () (attrset (bitwise-ior (COLOR_PAIR ,color) ,(inject 'A_BOLD)))))))))