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

feat: ui: Add a dark theme

Browse Source 
I wanted a theme with roughly the same degree of colour as the
default but which was easier on my eyes late at night.

Signed-off-by: Jonathan Dowland <jon@dow.land>
This commit is contained in:
Jonathan Dowland 2024-02-09 21:51:00 +00:00 committed by Simon Michael
parent 4c15cfb275
commit 32328e33de
5 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -103,6 +103,29 @@ themesList = [
(attrName "list" <> attrName "selected" , defAttr & reverseVideo) (attrName "list" <> attrName "selected" , defAttr & reverseVideo)
]) ])
,("dark", attrMap (white `on` black & dim) [
(attrName "border" , white `on` black)
, (attrName "border" <> attrName "bold" , currentAttr & bold)
, (attrName "border" <> attrName "depth" , active)
, (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 "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 "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)
])
] ]
-- halfbrightattr = defAttr & dim -- halfbrightattr = defAttr & dim

2
hledger-ui/hledger-ui.1
View File

@ -49,7 +49,7 @@ hledger\-ui provides the following options:
\f[CR]\-w \-\-watch\f[R] \f[CR]\-w \-\-watch\f[R]
watch for data and date changes and reload automatically watch for data and date changes and reload automatically
.TP .TP
\f[CR]\-\-theme=default|terminal|greenterm\f[R] \f[CR]\-\-theme=default|terminal|greenterm|dark\f[R]
use this custom display theme use this custom display theme
.TP .TP
\f[CR]\-\-menu\f[R] \f[CR]\-\-menu\f[R]

2
hledger-ui/hledger-ui.info
View File

@ -66,7 +66,7 @@ the data.
'-w --watch' '-w --watch'
watch for data and date changes and reload automatically watch for data and date changes and reload automatically
'--theme=default|terminal|greenterm' '--theme=default|terminal|greenterm|dark'
use this custom display theme use this custom display theme
'--menu' '--menu'

2
hledger-ui/hledger-ui.m4.md
View File

@ -57,7 +57,7 @@ hledger-ui provides the following options:
`-w --watch` `-w --watch`
: watch for data and date changes and reload automatically : watch for data and date changes and reload automatically
`--theme=default|terminal|greenterm` `--theme=default|terminal|greenterm|dark`
: use this custom display theme : use this custom display theme
`--menu` `--menu`

2
hledger-ui/hledger-ui.txt
View File

@ -44,7 +44,7 @@ OPTIONS
-w --watch -w --watch
watch for data and date changes and reload automatically watch for data and date changes and reload automatically
--theme=default|terminal|greenterm --theme=default|terminal|greenterm|dark
use this custom display theme use this custom display theme
--menu start in the menu screen --menu start in the menu screen