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