diff options
Diffstat (limited to 'code.scm')
-rwxr-xr-x | code.scm | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -38,3 +38,14 @@ (time<=? (date->time-utc input-date) (date->time-utc then))))) + +(define-syntax-rule (color-if pred color body ...) + (let ((pred-value pred)) + (format #f "~a~a~a" + (if pred-value color "") + (begin body ...) + (if pred-value STR-RESET "")))) + +(define-syntax-rule (for-each-in lst proc) + (for-each proc lst)) + |