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

ui: style tweaks, white instead of cyan

Browse Source
This commit is contained in:
Simon Michael 2018-10-23 06:47:30 -07:00
parent 42a4a4a7e4
commit 3dd2bfd01d
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-ui/Hledger/UI/AccountsScreen.hs
View File

@ -172,7 +172,7 @@ asDraw UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
ishistorical = balancetype_ ropts == HistoricalBalance ishistorical = balancetype_ ropts == HistoricalBalance
toplabel = toplabel =
files withAttr ("border" <> "filename") files
-- <+> withAttr ("border" <> "query") (str (if flat_ ropts then " flat" else "")) -- <+> withAttr ("border" <> "query") (str (if flat_ ropts then " flat" else ""))
<+> nonzero <+> nonzero
<+> str (if ishistorical then " accounts" else " account changes") <+> str (if ishistorical then " accounts" else " account changes")

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

@ -72,9 +72,10 @@ themesList = [
("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" , fg yellow & bold)
,("border" <> "filename" , currentAttr)
,("border" <> "key" , fg brightWhite & bold) ,("border" <> "key" , fg brightWhite & bold)
,("border" <> "minibuffer" , white `on` black & bold) ,("border" <> "minibuffer" , white `on` black & bold)
,("border" <> "query" , fg cyan & bold) ,("border" <> "query" , fg brightWhite & bold)
,("border" <> "selected" , fg brightWhite & bold) ,("border" <> "selected" , fg brightWhite & bold)
,("error" , fg red) ,("error" , fg red)
,("help" , white `on` black & dim) ,("help" , white `on` black & dim)