From f89d12d19ad97ed8fd8f523f6b1be12768a0e7a9 Mon Sep 17 00:00:00 2001 From: Kodi Arfer Date: Mon, 19 Feb 2024 15:17:04 -0500 Subject: [PATCH] Consistently apply the default colors (oops). --- simalq/display.hy | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/simalq/display.hy b/simalq/display.hy index 0150e8a..70addd6 100644 --- 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]