pandoc-cli: support `-E` flag in pandoc-lua

1 files changed, 14 insertions, 0 deletions

diff --git a/src/Text/Pandoc/Lua/Init.hs b/src/Text/Pandoc/Lua/Init.hs
index 966f0a581..04f007e0e 100644
--- a/src/Text/Pandoc/Lua/Init.hs
+++ b/src/Text/Pandoc/Lua/Init.hs
@@ -12,6 +12,7 @@ Functions to initialize the Lua interpreter.
 -}
 module Text.Pandoc.Lua.Init
   ( runLua
+  , runLuaNoEnv
   ) where
 
 import Control.Monad (forM, forM_, when)
@@ -46,6 +47,19 @@ runLua action =
     initLuaState
     liftPandocLua action
 
+-- | Like 'runLua', but ignores all environment variables like @LUA_PATH@.
+runLuaNoEnv :: (PandocMonad m, MonadIO m)
+            => LuaE PandocError a -> m (Either PandocError a)
+runLuaNoEnv action =
+  runPandocLua . try $ do
+    liftPandocLua $ do
+      -- This is undocumented, but works -- the code is adapted from the
+      -- `lua.c` sources for the default interpreter.
+      Lua.pushboolean True
+      Lua.setfield Lua.registryindex "LUA_NOENV"
+    initLuaState
+    liftPandocLua action
+
 -- | Modules that are loaded at startup and assigned to fields in the
 -- pandoc module.
 --