simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-18 17:57:11 +03:00
Code Issues Projects Releases Wiki Activity

fix: make --tldr compatible with the tealdeer client also

Browse Source
This commit is contained in:
Simon Michael 2024-06-08 10:06:45 -07:00
parent 1d7fdd423d
commit 4772001fe5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger/Hledger/Cli/DocFiles.hs
View File

@ -147,15 +147,14 @@ tldr name = lookup name tldrs
-- | Display one of the hledger tldr pages, using "tldr".
runTldrForPage :: TldrPage -> IO ()
runTldrForPage name =
let tldrprog = "tldr" in
case tldr name of
Nothing -> error' $ "sorry, there's no " <> name <> " tldr page yet"
Just b -> (do
withSystemTempFile (name++".md") $ \f h -> do
BC.hPutStrLn h b
hClose h
callCommand $ dbg1 "tldr command" $ unwords [tldrprog, "-r", f]
callCommand $ dbg1 "tldr command" $ "tldr --render " <> f
) `catch` (\(_e::IOException) -> do
hPutStrLn stderr $ "Could not run " <> tldrprog <> ", using fallback viewer:\n"
hPutStrLn stderr $ "Warning: could not run tldr, using fallback viewer instead.\n"
BC.putStrLn b
)