slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ui: style tweaks; cyan/blue -> white/yellow

Browse Source
This commit is contained in:
Simon Michael 2018-10-23 07:15:11 -07:00
parent 3dd2bfd01d
commit 7ebf3a276b
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
hledger-ui/Hledger/UI/Theme.hs
View File

@ -62,47 +62,49 @@ themeNames :: [String]
themeNames = map fst themesList themeNames = map fst themesList
(&) = withStyle (&) = withStyle
active = fg brightWhite & bold
-- assume standard brick attr names: selectbg = yellow
-- "border", "list", "list" <> "selected", "list" <> "selected" <> "focused" select = black `on` selectbg
themesList :: [(String, AttrMap)] themesList :: [(String, AttrMap)]
themesList = [ themesList = [
("default", attrMap (black `on` white) [ ("default", attrMap (black `on` white) [
("border" , white `on` black & dim) ("border" , white `on` black & dim)
,("border" <> "bold" , currentAttr & bold) ,("border" <> "bold" , currentAttr & bold)
,("border" <> "depth" , fg yellow & bold) ,("border" <> "depth" , active)
,("border" <> "filename" , currentAttr) ,("border" <> "filename" , currentAttr)
,("border" <> "key" , fg brightWhite & bold) ,("border" <> "key" , active)
,("border" <> "minibuffer" , white `on` black & bold) ,("border" <> "minibuffer" , white `on` black & bold)
,("border" <> "query" , fg brightWhite & bold) ,("border" <> "query" , active)
,("border" <> "selected" , fg brightWhite & bold) ,("border" <> "selected" , active)
,("error" , fg red) ,("error" , fg red)
,("help" , white `on` black & dim) ,("help" , white `on` black & dim)
,("help" <> "heading" , fg yellow) ,("help" <> "heading" , fg yellow)
,("help" <> "key" , fg brightWhite & bold) ,("help" <> "key" , active)
,("list" , black `on` white) -- ,("list" , black `on` white)
-- ,("list" <> "amount" , currentAttr)
,("list" <> "amount" <> "decrease" , fg red) ,("list" <> "amount" <> "decrease" , fg red)
,("list" <> "amount" <> "decrease" <> "selected" , brightRed `on` blue & bold)
,("list" <> "amount" <> "increase" , fg green) ,("list" <> "amount" <> "increase" , fg green)
,("list" <> "amount" <> "increase" <> "selected" , brightGreen `on` blue & bold) ,("list" <> "amount" <> "decrease" <> "selected" , red `on` selectbg & bold)
,("list" <> "amount" <> "increase" <> "selected" , green `on` selectbg & bold)
,("list" <> "balance" , currentAttr & bold)
,("list" <> "balance" <> "negative" , fg red) ,("list" <> "balance" <> "negative" , fg red)
,("list" <> "balance" <> "negative" <> "selected" , brightRed `on` blue & bold)
,("list" <> "balance" <> "positive" , fg black) ,("list" <> "balance" <> "positive" , fg black)
,("list" <> "balance" <> "positive" <> "selected" , white `on` blue & bold) ,("list" <> "balance" <> "negative" <> "selected" , red `on` selectbg & bold)
,("list" <> "selected" , white `on` blue & bold) ,("list" <> "balance" <> "positive" <> "selected" , select & bold)
,("list" <> "selected" , select)
-- ,("list" <> "accounts" , white `on` brightGreen) -- ,("list" <> "accounts" , white `on` brightGreen)
-- ,("list" <> "selected" , black `on` brightYellow) -- ,("list" <> "selected" , black `on` brightYellow)
]) ])
,("greenterm", attrMap (green `on` black) [ ,("greenterm", attrMap (green `on` black) [
("list" <> "selected" , black `on` green & bold) ("list" <> "selected" , black `on` green)
]) ])
,("terminal", attrMap defAttr [ ,("terminal", attrMap defAttr [
("border" , white `on` black), ("border" , white `on` black),
("list" , defAttr), ("list" , defAttr),
("list" <> "selected" , defAttr & reverseVideo & bold) ("list" <> "selected" , defAttr & reverseVideo)
]) ])
] ]