Skip to content

Commit 9372ab0

Browse files
committed
;imp:setup: use better-supported blue square, large yellow diamond
The blue square is double-width like the others in apple font. The large yellow diamond is more consistently readable, eg in my gui emacs font.
1 parent 4e788af commit 9372ab0

File tree

1 file changed

+3
-6
lines changed

1 file changed

+3
-6
lines changed

hledger/Hledger/Cli/Commands/Setup.hs

Lines changed: 3 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -499,7 +499,7 @@ i result msg = putStrLn $ unwords ["", showInfo result, "", msg]
499499
showInfo U = styleWarning " ?"
500500

501501
styleGood = ansiGood >>> appendIfColor checkmarkInGreenBoxEmoji
502-
styleInfo = ansiInfo >>> appendIfColor iInBlueBoxEmoji
502+
styleInfo = ansiInfo >>> appendIfColor blueSquareEmoji
503503
styleWarning = ansiWarning >>> appendIfColor yellowDiamondEmoji
504504
styleBad = ansiProblem >>> appendIfColor redExclamationMarkEmoji
505505

@@ -515,11 +515,8 @@ appendIfColor suffix t = t <> if useColorOnStdoutUnsafe then " " <> suffix else
515515

516516
-- Use only reasonably well-supported emojis here.
517517
checkmarkInGreenBoxEmoji = ""
518-
-- This one may render as monochrome in some terminals ?
519-
-- Also it seems more likely to be single rather than double width, so a space is added to compensate.
520-
iInBlueBoxEmoji = "ℹ️ "
521-
yellowDiamondEmoji = "🔸"
522-
largeYellowDiamondEmoji = "🔶"
518+
blueSquareEmoji = "🟦"
519+
yellowDiamondEmoji = "🔶"
523520
redExclamationMarkEmoji = ""
524521

525522
-- | Print a setup test group's heading.

0 commit comments

Comments
 (0)