Lua: include lpeg module (#7649)

Compiles the 'lpeg' library (Parsing Expression Grammars For Lua) into
the program.

Package maintainers may choose to rely on package dependencies to make
lpeg available, in which case they can compile the with the constraint
`lpeg +rely-on-shared-lpeg-library`.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Text/Pandoc/Lua/Packages.hs b/src/Text/Pandoc/Lua/Packages.hs
index 3a481886a..4fb11a646 100644
--- a/src/Text/Pandoc/Lua/Packages.hs
+++ b/src/Text/Pandoc/Lua/Packages.hs
@@ -22,6 +22,7 @@ import Text.Pandoc.Lua.PandocLua (PandocLua, liftPandocLua, loadDefaultModule)
 import qualified HsLua as Lua
 import qualified HsLua.Module.Path as Path
 import qualified HsLua.Module.Text as Text
+import qualified Lua.LPeg as LPeg
 import qualified Text.Pandoc.Lua.Module.Pandoc as Pandoc
 import qualified Text.Pandoc.Lua.Module.MediaBag as MediaBag
 import qualified Text.Pandoc.Lua.Module.System as System
@@ -35,6 +36,9 @@ installPandocPackageSearcher = liftPandocLua $ do
   shiftArray
   Lua.pushHaskellFunction $ Lua.toHaskellFunction pandocPackageSearcher
   Lua.rawseti (Lua.nth 2) 1
+  -- add lpeg searcher as last searcher
+  Lua.pushHaskellFunction $ Lua.state >>= Lua.liftIO . LPeg.lpeg_searcher
+  Lua.rawseti (Lua.nth 2) 6
   Lua.pop 1           -- remove 'package.searchers' from stack
  where
   shiftArray = forM_ [4, 3, 2, 1] $ \i -> do