diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs index ee23203dd..aa0d04f76 100644 --- a/hledger-ui/Hledger/UI/AccountsScreen.hs +++ b/hledger-ui/Hledger/UI/AccountsScreen.hs @@ -172,7 +172,7 @@ asDraw UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}} ishistorical = balancetype_ ropts == HistoricalBalance toplabel = - files + withAttr ("border" <> "filename") files -- <+> withAttr ("border" <> "query") (str (if flat_ ropts then " flat" else "")) <+> nonzero <+> str (if ishistorical then " accounts" else " account changes") diff --git a/hledger-ui/Hledger/UI/Theme.hs b/hledger-ui/Hledger/UI/Theme.hs index 0ac50d59f..ace6003ad 100644 --- a/hledger-ui/Hledger/UI/Theme.hs +++ b/hledger-ui/Hledger/UI/Theme.hs @@ -72,9 +72,10 @@ themesList = [ ("border" , white `on` black & dim) ,("border" <> "bold" , currentAttr & bold) ,("border" <> "depth" , fg yellow & bold) + ,("border" <> "filename" , currentAttr) ,("border" <> "key" , fg brightWhite & bold) ,("border" <> "minibuffer" , white `on` black & bold) - ,("border" <> "query" , fg cyan & bold) + ,("border" <> "query" , fg brightWhite & bold) ,("border" <> "selected" , fg brightWhite & bold) ,("error" , fg red) ,("help" , white `on` black & dim)