From 7a636dd42843227f5cc54367a1e2227e58abeb5f Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 26 Jan 2023 23:17:58 -1000
Subject: [PATCH] imp: cli: non-bold version string

---
 hledger/Hledger/Cli/Commands.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands.hs b/hledger/Hledger/Cli/Commands.hs
index a57bfbf7c..51faf0579 100644
--- a/hledger/Hledger/Cli/Commands.hs
+++ b/hledger/Hledger/Cli/Commands.hs
@@ -153,8 +153,8 @@ _banner_speed = drop 1 [""
 -- picking one that will contrast with the current terminal background colour.
 accent :: String -> String
 accent
-  | terminalIsLight == Just False = bold . yellow -- . blackBg
-  | otherwise                     = bold . green  -- . blackBg
+  | terminalIsLight == Just False = yellow -- . blackBg
+  | otherwise                     = green  -- . blackBg
 
 highlightAddon = id
 
@@ -179,7 +179,7 @@ highlightAddon = id
 commandsList :: String -> [String] -> Bool -> [String]
 commandsList progversion othercmds highlight =
   (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 -->
     -----------------------------------------80-------------------------------------
    ""