(define-syntax text-color
  (syntax-rules ()
    ((_ color)
      `(lambda () (attrset (COLOR_PAIR color))))
    ((_ color bold)
      `(lambda () (attrset (bitwise-ior (COLOR_PAIR color) A_BOLD))))))