(import-for-syntax matchable)

(define-syntax text-color
  (ir-macro-transformer
   (lambda (expr inject compare)
     (let ((color (cadr expr))
           (bold (cddr expr)))
       (match expr
         ((_ color)
          `(lambda () (attrset (COLOR_PAIR ,color))))
         ((_ color #t)
          `(lambda () (attrset (bitwise-ior (COLOR_PAIR ,color) A_BOLD)))))))))