From 1fde7a340b25ce16c5197ec690885ad15d91daa8 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 8 Dec 2016 11:09:40 +0100
Subject: [PATCH] Set PANDOC_VERSION environment variable for filters.
Closes #2640.
---
pandoc.hs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/pandoc.hs b/pandoc.hs
index 89681258f..a0899adb6 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -44,7 +44,7 @@ import Text.Pandoc.SelfContained ( makeSelfContained )
import Text.Pandoc.Process (pipeProcess)
import Text.Highlighting.Kate ( languages, Style, tango, pygments,
espresso, zenburn, kate, haddock, monochrome )
-import System.Environment ( getArgs, getProgName )
+import System.Environment ( getArgs, getProgName, getEnvironment )
import System.Exit ( ExitCode (..), exitSuccess )
import System.FilePath
import System.Console.GetOpt
@@ -135,8 +135,10 @@ externalFilter f args' d = do
when (isNothing mbExe) $
err 83 $ "Error running filter " ++ f ++ ":\n" ++
"Could not find executable '" ++ f' ++ "'."
+ env <- getEnvironment
+ let env' = Just $ ("PANDOC_VERSION", pandocVersion) : env
(exitcode, outbs, errbs) <- E.handle filterException $
- pipeProcess Nothing f' args'' $ encode d
+ pipeProcess env' f' args'' $ encode d
unless (B.null errbs) $ B.hPutStr stderr errbs
case exitcode of
ExitSuccess -> return $ either error id $ eitherDecode' outbs