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

imp: cli: non-bold version string

Browse Source
This commit is contained in:
Simon Michael 2023-01-26 23:17:58 -10:00
parent dc35fd173b
commit 7a636dd428
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli/Commands.hs
View File

@ -153,8 +153,8 @@ _banner_speed = drop 1 [""
-- picking one that will contrast with the current terminal background colour. -- picking one that will contrast with the current terminal background colour.
accent :: String -> String accent :: String -> String
accent accent
| terminalIsLight == Just False = bold . yellow -- . blackBg | terminalIsLight == Just False = yellow -- . blackBg
| otherwise = bold . green -- . blackBg | otherwise = green -- . blackBg
highlightAddon = id highlightAddon = id
@ -179,7 +179,7 @@ highlightAddon = id
commandsList :: String -> [String] -> Bool -> [String] commandsList :: String -> [String] -> Bool -> [String]
commandsList progversion othercmds highlight = commandsList progversion othercmds highlight =
(if highlight then (map (\s -> if "+" `isPrefixOf` s then highlightAddon (' ' : drop 1 s) else s)) else id) $ (if highlight then (map (\s -> if "+" `isPrefixOf` s then highlightAddon (' ' : drop 1 s) else s)) else id) $
map accent _banner_smslant ++ [ map (bold.accent) _banner_smslant ++ [
-- keep synced with hledger.m4.md > PART 4: COMMANDS, Hledger/Cli/Commands > commands.m4 --> -- keep synced with hledger.m4.md > PART 4: COMMANDS, Hledger/Cli/Commands > commands.m4 -->
-----------------------------------------80------------------------------------- -----------------------------------------80-------------------------------------
"" ""