Consistently apply the default colors (oops).

hylang · Feb 19, 2024 · f89d12d · f89d12d
1 parent 0517f58
commit f89d12d
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/simalq/display.hy b/simalq/display.hy
@@ -42,12 +42,10 @@
   `blessed.Terminal` object `B`."
   (.join "" (gfor
     c x
-    :setv fg (if c.fg
-      (B.color-rgb #* (get color.by-name c.fg))
-      (fn [x] x))
-    :setv bg (if c.bg
-      (B.on-color-rgb #* (get color.by-name c.bg))
-      (fn [x] x))
+    :setv fg (B.color-rgb #* (get color.by-name
+      (or c.fg color.default-fg)))
+    :setv bg (B.on-color-rgb #* (get color.by-name
+      (or c.bg color.default-bg)))
     (fg (bg c.char)))))
 
 (defn colorstr-to-width [x width]