Add (with-attrs)

3 files changed, 12 insertions, 1 deletions

@@ -72,6 +72,10 @@ AS is a list of attributes, each of one of the following forms:
 
 Anything else is an error.  `attrs' returns a string ready to be displayed on the terminal.
 
+-- (with-attrs as str)
+
+Print STR prepended with AS and followed by (attrs 'reset).
+
 (yolk cursor) --- cursor movement
 
 Variables.
@@ -1,6 +1,7 @@
 (define-library (yolk attrs)
   (export prop?
           color?
-          attrs)
+          attrs
+          with-attrs)
 
   (include "yolk.attrs.ss"))
@@ -85,3 +85,9 @@
     => (lambda (prop)
          (cddr (assq prop %props-alist))))
    (else (error "Bad attribute" attr))))
+
+(define (with-attrs as str)
+  (string-append
+   (attrs as)
+   str
+   (attrs 'reset)))