fixup! ;feat: ui: WIP redefine default theme in terms of fixed colors

simonmichael · Feb 22, 2024 · 52d8d14 · 52d8d14
1 parent 8d69201
commit 52d8d14
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/hledger-ui/Hledger/UI/Theme.hs b/hledger-ui/Hledger/UI/Theme.hs
@@ -72,7 +72,7 @@ active8   = fg (Color240 (255 - 16)) & bold
 -- we use reverseVideo here to have a legible fallback if the terminal does
 -- not support the colors (and falls back to black/white)
 select8   = yellow8 `on` black8 & reverseVideo
-moo       = yellow8 `on` red8 & reverseVideo -- & bold
+selectNeg = yellow8 `on` red8 & reverseVideo -- & bold
 
 themesList :: [(String, AttrMap)]
 themesList = [
@@ -91,11 +91,11 @@ themesList = [
     , (attrName "help" <> attrName "heading"                                               , fg yellow8)
     , (attrName "help" <> attrName "key"                                                   , active8)
     , (attrName "list" <> attrName "amount" <> attrName "decrease"                         , fg red8)
-    , (attrName "list" <> attrName "amount" <> attrName "decrease" <> attrName "selected"  , moo)
+    , (attrName "list" <> attrName "amount" <> attrName "decrease" <> attrName "selected"  , selectNeg)
     , (attrName "list" <> attrName "balance"                                               , currentAttr & bold)
     , (attrName "list" <> attrName "balance" <> attrName "negative"                        , fg red8)
     , (attrName "list" <> attrName "balance" <> attrName "positive"                        , fg black8)
-    , (attrName "list" <> attrName "balance" <> attrName "negative" <> attrName "selected" , moo)
+    , (attrName "list" <> attrName "balance" <> attrName "negative" <> attrName "selected" , selectNeg)
     , (attrName "list" <> attrName "balance" <> attrName "positive" <> attrName "selected" , select8)
     , (attrName "list" <> attrName "selected"                                              , select8)
   ])