# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1470360398 0
# Node ID 8495238d791922143f98258ef49c869b058c6149
# Parent  d809b623b6f4924b130678fe040513009eb42ef7
Fix the fucking background color

diff -r d809b623b6f4 -r 8495238d7919 src/main.lisp
--- 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)))))