stats: show count of market prices (P), and the commodities covered

hledger/Hledger/Cli/Commands/Stats.hs

@@ -70,6 +70,7 @@ showLedgerStats l today span =
         ,("Payees/descriptions", show $ size $ fromList $ map (tdescription) ts)
         ,("Accounts", printf "%d (depth %d)" acctnum acctdepth)
         ,("Commodities", printf "%s (%s)" (show $ length cs) (T.intercalate ", " cs))
+        ,("Market prices", printf "%s (%s)" (show $ length mktprices) (T.intercalate ", " mktpricecommodities))
       -- Transactions this month     : %(monthtxns)s (last month in the same period: %(lastmonthtxns)s)
       -- Unmarked transactions      : %(unmarked)s
       -- Days since reconciliation   : %(reconcileelapsed)s
@@ -106,4 +107,5 @@ showLedgerStats l today span =
              acctnum = length as
              acctdepth | null as = 0
                        | otherwise = maximum $ map accountNameLevel as
-
+             mktprices = jpricedirectives j
+             mktpricecommodities = nub $ sort $ map pdcommodity mktprices

hledger/Hledger/Cli/Commands/Stats.md

@@ -21,6 +21,7 @@ Transactions last 7 days : 0 (0.0 per day)
 Payees/descriptions      : 5
 Accounts                 : 8 (depth 3)
 Commodities              : 1 ($)
+Market prices            : 12 ($)
 ```
 
 This command also supports