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

ui: ensure more consistent quiet style in horizontal borders (#838)

Browse Source
This commit is contained in:
Simon Michael 2018-10-23 05:41:42 -07:00
parent cf9eb78ad2
commit f10f9b6a17
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,7 +74,7 @@ themesList = [
(borderAttr <> "bold", white `on` black & bold), (borderAttr <> "bold", white `on` black & bold),
(borderAttr <> "query", cyan `on` black & bold), (borderAttr <> "query", cyan `on` black & bold),
(borderAttr <> "depth", yellow `on` black & bold), (borderAttr <> "depth", yellow `on` black & bold),
(borderAttr <> "keys", black `on` white & bold), -- (borderAttr <> "keys", black `on` white & bold),
(borderAttr <> "minibuffer", white `on` black & bold), (borderAttr <> "minibuffer", white `on` black & bold),
-- ("normal" , black `on` white), -- ("normal" , black `on` white),
("list" , black `on` white), -- regular list items ("list" , black `on` white), -- regular list items

4
hledger-ui/Hledger/UI/UIUtils.hs
View File

@ -221,11 +221,11 @@ topBottomBorderWithLabels toplabel bottomlabel body =
"" ""
-- " debug: "++show (_w,h') -- " debug: "++show (_w,h')
render $ render $
hBorderWithLabel (toplabel <+> str debugmsg) hBorderWithLabel (withAttr borderAttr $ toplabel <+> str debugmsg)
<=> <=>
body' body'
<=> <=>
hBorderWithLabel bottomlabel hBorderWithLabel (withAttr borderAttr bottomlabel)
---- XXX should be equivalent to the above, but isn't (page down goes offscreen) ---- XXX should be equivalent to the above, but isn't (page down goes offscreen)
--_topBottomBorderWithLabel2 :: Widget Name -> Widget Name -> Widget Name --_topBottomBorderWithLabel2 :: Widget Name -> Widget Name -> Widget Name