;feat: ui: redefine dark theme in fixed colors

Signed-off-by: Jonathan Dowland <[email protected]>

Author: jmtd

hledger-ui/Hledger/UI/Theme.hs

@@ -112,26 +112,26 @@ themesList = [
   ])
 
   ,("dark", attrMap (white `on` black & dim) [
-      (attrName "border"                                                                   , white `on` black)
+      (attrName "border"                                                                   , white8 `on` black8)
     , (attrName "border" <> attrName "bold"                                                , currentAttr & bold)
-    , (attrName "border" <> attrName "depth"                                               , active)
+    , (attrName "border" <> attrName "depth"                                               , active8)
     , (attrName "border" <> attrName "filename"                                            , currentAttr)
-    , (attrName "border" <> attrName "key"                                                 , active)
-    , (attrName "border" <> attrName "minibuffer"                                          , white `on` black & bold)
-    , (attrName "border" <> attrName "query"                                               , active)
-    , (attrName "border" <> attrName "selected"                                            , active)
-    , (attrName "error"                                                                    , fg red)
+    , (attrName "border" <> attrName "key"                                                 , active8)
+    , (attrName "border" <> attrName "minibuffer"                                          , white8 `on` black8 & bold)
+    , (attrName "border" <> attrName "query"                                               , active8)
+    , (attrName "border" <> attrName "selected"                                            , active8)
+    , (attrName "error"                                                                    , fg red8)
     , (attrName "help"                                                                     , currentAttr & bold)
-    , (attrName "help" <> attrName "heading"                                               , fg blue)
-    , (attrName "help" <> attrName "key"                                                   , active)
-    , (attrName "list" <> attrName "amount" <> attrName "decrease"                         , fg red)
-    , (attrName "list" <> attrName "amount" <> attrName "decrease" <> attrName "selected"  , red `on` black & bold)
+    , (attrName "help" <> attrName "heading"                                               , fg blue8)
+    , (attrName "help" <> attrName "key"                                                   , active8)
+    , (attrName "list" <> attrName "amount" <> attrName "decrease"                         , fg red8)
+    , (attrName "list" <> attrName "amount" <> attrName "decrease" <> attrName "selected"  , red8 `on` black8 & bold)
     , (attrName "list" <> attrName "balance"                                               , currentAttr)
-    , (attrName "list" <> attrName "balance" <> attrName "negative"                        , fg red)
-    , (attrName "list" <> attrName "balance" <> attrName "positive"                        , fg white)
-    , (attrName "list" <> attrName "balance" <> attrName "negative" <> attrName "selected" , red `on` black    & bold)
-    , (attrName "list" <> attrName "balance" <> attrName "positive" <> attrName "selected" , yellow `on` black & bold)
-    , (attrName "list" <> attrName "selected"                                              , yellow `on` black & bold)
+    , (attrName "list" <> attrName "balance" <> attrName "negative"                        , fg red8)
+    , (attrName "list" <> attrName "balance" <> attrName "positive"                        , fg white8)
+    , (attrName "list" <> attrName "balance" <> attrName "negative" <> attrName "selected" , red8 `on` black8    & bold)
+    , (attrName "list" <> attrName "balance" <> attrName "positive" <> attrName "selected" , yellow8 `on` black8 & bold)
+    , (attrName "list" <> attrName "selected"                                              , yellow8 `on` black8 & bold)
   ])
 
   ]