Fix the fucking background color
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Fri, 05 Aug 2016 01:26:38 +0000 |
| parents |
d809b623b6f4
|
| children |
a62254c88969
|
| branches/tags |
(none) |
| files |
src/main.lisp |
Changes
--- a/src/main.lisp Fri Aug 05 01:22:03 2016 +0000
+++ b/src/main.lisp Fri Aug 05 01:26:38 2016 +0000
@@ -40,9 +40,10 @@
(defmacro with-color (color &body body)
(once-only (color)
- `(prog2
- (charms/ll:attron (charms/ll:color-pair ,color))
- (progn ,@body)
+ `(unwind-protect
+ (prog2
+ (charms/ll:attron (charms/ll:color-pair ,color))
+ (progn ,@body))
(charms/ll:attroff (charms/ll:color-pair ,color)))))