;bin: register-max

bin/README.md

@@ -160,6 +160,18 @@ interprets all tag values containing a `/` (forward slash) as file paths, and ch
 [`hledger-check-tagfiles.cabal.hs`](https://github.com/simonmichael/hledger/blob/master/bin/hledger-check-tagfiles.cabal.hs)
 is the same command implemented as a cabal script rather than a stack script.
 
+### hledger-register-max
+
+[`hledger-register-max.hs`](https://github.com/simonmichael/hledger/blob/master/bin/hledger-register-max.hs)
+runs "register -H" and prints the posting with largest historical balance.
+
+```cli
+$ hledger-register-max -f examples/bcexample.hledger checking
+2013-01-03 Hoogle | Payroll  Assets:US:BofA:Checking      1350.60 USD  8799.22 USD
+$ hledger register-max -- -f examples/bcexample.hledger checking
+2013-01-03 Hoogle | Payroll  Assets:US:BofA:Checking      1350.60 USD  8799.22 USD
+```
+
 ### hledger-check-postable
 
 [`hledger-check-postable.hs`](https://github.com/simonmichael/hledger/blob/master/bin/hledger-check-postable.hs)

bin/hledger-register-max.hs

@@ -0,0 +1,45 @@
+#!/usr/bin/env stack
+-- stack script --compile --resolver lts-20.8 --verbosity error --package hledger-lib --package hledger --package text
+
+-- hledger-register-max - runs "register -H" and prints the posting with largest historical balance
+-- Usage:
+-- hledger-register-max [REGISTERARGS]
+-- hledger register-max -- [REGISTERARGS]
+-- For negative balances, use --invert.
+
+-- Examples:
+-- $ hledger-register-max -f examples/bcexample.hledger checking
+-- 2013-01-03 Hoogle | Payroll  Assets:US:BofA:Checking      1350.60 USD  8799.22 USD
+-- $ hledger register-max -- -f examples/bcexample.hledger checking
+-- 2013-01-03 Hoogle | Payroll  Assets:US:BofA:Checking      1350.60 USD  8799.22 USD
+
+
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE PackageImports #-}
+
+import Control.Monad
+import Data.List
+import Data.Maybe
+import Data.Ord
+import qualified "text" Data.Text as T
+import qualified Data.Text.IO as T
+import System.Environment
+import Hledger
+import Hledger.Cli
+import Hledger.Cli.Main (argsToCliOpts)
+
+-- needs --help, see hledger-addon-example.hs
+
+main = do
+  args <- getArgs
+  opts <- argsToCliOpts ("register" : "-H" : args) []
+  withJournalDo opts $ \j -> do
+    let r = postingsReport (reportspec_ opts) j
+    unless (null r) $ do
+      let
+        i = maximumBy (comparing fifth5) r
+        (_, _, mdesc, p, _) = i
+        d = maybe (error "shouldn't happen") tdate $ ptransaction p
+        desc = fromMaybe "" mdesc
+        ptxt = T.strip $ T.unlines $ first3 $ postingAsLines False True 20 15 p
+      T.putStrLn $ T.unwords [showDate d, desc, "", ptxt, "", T.pack $ showMixedAmountOneLine $ fifth5 i]