mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-19 10:17:35 +03:00
2db87333d7
Using stack's script command meant that the scripts needed to be compatible, and regularly tested, with a hledger release in stackage, rather than the latest hledger source. This created hassles for maintainers, contributors and sometimes for users. To simplify things overall, we now require script users to check out the hledger source tree and run the scripts (or, bin/compile.sh) from there once so they compile themselves. Some notes on alternative setups are included (in one of the scripts, and referenced by the others). This ensures that users and our CI tests are building scripts the same way. Current stack does not allow a stack options line to be used with the "stack ghc" command, unfortunately, so instead we are using env's -S flag, which hopefully has sufficiently wide support by now, and putting all arguments in the shebang line. This method will probably require complete explicit --package options, unlike "stack script", so more testing and tweaking is expected. Probably we're going to end up with some long shebang lines. This isn't pretty but seems like a possible way to keep things manageable.
53 lines
1.7 KiB
Haskell
Executable File
53 lines
1.7 KiB
Haskell
Executable File
#!/usr/bin/env -S stack ghc --verbosity info --package hledger -- -O0
|
|
-- See hledger-check-fancyassertions.hs
|
|
|
|
--package string-qq
|
|
|
|
{-
|
|
Quick script that adds file/line number tags to print output.
|
|
cf https://www.reddit.com/r/plaintextaccounting/comments/ddzn8o/finding_corresponding_journal_files_from_hledger/
|
|
|
|
$ hledger print-location -f examples/sample.journal desc:eat
|
|
2008/06/03 * eat & shop
|
|
; location: /Users/simon/src/hledger/examples/sample.journal:30
|
|
expenses:food $1
|
|
expenses:supplies $1
|
|
assets:cash
|
|
-}
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
import Data.String.QQ (s)
|
|
import Data.Text (pack)
|
|
import Text.Printf
|
|
import Hledger.Cli
|
|
|
|
------------------------------------------------------------------------------
|
|
cmdmode = hledgerCommandMode
|
|
[s| print-location
|
|
Like print, but adds tags showing the file path and location of transactions.
|
|
_FLAGS
|
|
|]
|
|
[]
|
|
[generalflagsgroup1]
|
|
[]
|
|
([], Just $ argsFlag "[QUERY]")
|
|
------------------------------------------------------------------------------
|
|
|
|
main :: IO ()
|
|
main = do
|
|
opts <- getHledgerCliOpts cmdmode
|
|
withJournalDo opts $ \j ->
|
|
print' opts j{jtxns = map addLocationTag $ jtxns j}
|
|
|
|
addLocationTag :: Transaction -> Transaction
|
|
addLocationTag t = t{tcomment = tcomment t `commentAddTagNextLine` loctag}
|
|
where
|
|
loctag = ("location", pack $ showGenericSourcePosLine $ tsourcepos t)
|
|
|
|
-- Like showGenericSourcePos in Hledger.Data.Transaction, but show just the starting line number.
|
|
showGenericSourcePosLine :: GenericSourcePos -> String
|
|
showGenericSourcePosLine (GenericSourcePos f line _) = printf "%s:%d" f line
|
|
showGenericSourcePosLine (JournalSourcePos f (startline, _)) = printf "%s:%d" f startline
|