slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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". -- | Display one of the hledger tldr pages, using "tldr".
runTldrForPage :: TldrPage -> IO () runTldrForPage :: TldrPage -> IO ()
runTldrForPage name = runTldrForPage name =
let tldrprog = "tldr" in
case tldr name of case tldr name of
Nothing -> error' $ "sorry, there's no " <> name <> " tldr page yet" Nothing -> error' $ "sorry, there's no " <> name <> " tldr page yet"
Just b -> (do Just b -> (do
withSystemTempFile (name++".md") $ \f h -> do withSystemTempFile (name++".md") $ \f h -> do
BC.hPutStrLn h b BC.hPutStrLn h b
hClose h hClose h
callCommand $ dbg1 "tldr command" $ unwords [tldrprog, "-r", f] callCommand $ dbg1 "tldr command" $ "tldr --render " <> f
) `catch` (\(_e::IOException) -> do ) `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 BC.putStrLn b
) )