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

imp:setup: show more green for ideal setups

Browse Source
This commit is contained in:
Simon Michael 2025-04-25 12:04:06 -10:00
parent 4a5b0d46b5
commit 45e449e97a
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
hledger/Hledger/Cli/Commands/Setup.hs
View File

@ -105,8 +105,9 @@ setupHledger = do
pgroup "hledger"
pdesc "is a released version ?"
let isreleased = if isReleaseVersion $ hbinPackageVersion binaryinfo then Y else N
i isreleased prognameandversion
if isReleaseVersion $ hbinPackageVersion binaryinfo
then p Y prognameandversion
else i N prognameandversion
pdesc "is up to date ?"
elatestversionnumstr <- getLatestHledgerVersion
@ -289,7 +290,7 @@ setupTerminal conf = do
confgenargs = confLookup "general" conf
confpretty = isJust $ find ("--pretty" ==) confgenargs
if confpretty
then i Y "tables will use box-drawing characters"
then p Y "tables will use box-drawing characters"
else i N "tables will use ASCII characters"
pdesc "bash shell completions are installed ?" >> p U ""
@ -409,10 +410,10 @@ setupJournal = do
-- if null typesinferredfromnames then i N "" else i Y (concatMap show typesinferredfromnames)
pdesc "all accounts are declared ?"
if null undeclaredaccts then i Y (show numaccts) else i N (show (length undeclaredaccts) <> " undeclared")
if null undeclaredaccts then p Y (show numaccts) else i N (show (length undeclaredaccts) <> " undeclared")
pdesc "all accounts have types ?"
if null untypedaccts then i Y "" else i N (show (length untypedaccts) <> " untyped")
if null untypedaccts then p Y "" else i N (show (length untypedaccts) <> " untyped")
pdesc "accounts of each type were detected ?"
if null typesnotfound