[API Change] Extract Lua code into new package pandoc-lua-engine

The flag 'lua53` must now be used with that package if pandoc is to be
compiled against Lua 5.3.

1 files changed, 0 insertions, 61 deletions

diff --git a/src/Text/Pandoc/Lua/Module/Template.hs b/src/Text/Pandoc/Lua/Module/Template.hs
deleted file mode 100644
index 967fe31a8..000000000
--- a/src/Text/Pandoc/Lua/Module/Template.hs
+++ /dev/null
@@ -1,61 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{- |
-   Module      : Text.Pandoc.Lua.Module.Template
-   Copyright   : Copyright © 2022 Albert Krewinkel, John MacFarlane
-   License     : GNU GPL, version 2 or above
-   Maintainer  : Albert Krewinkel <tarleb+pandoc@moltkeplatz.de>
-
-Lua module to handle pandoc templates.
--}
-module Text.Pandoc.Lua.Module.Template
-  ( documentedModule
-  ) where
-
-import HsLua
-import Text.Pandoc.Error (PandocError)
-import Text.Pandoc.Lua.Marshal.Template (pushTemplate)
-import Text.Pandoc.Lua.PandocLua (PandocLua (unPandocLua), liftPandocLua)
-import Text.Pandoc.Templates
-  (compileTemplate, getDefaultTemplate, runWithPartials, runWithDefaultPartials)
-
-import qualified Data.Text as T
-
--- | The "pandoc.template" module.
-documentedModule :: Module PandocError
-documentedModule = Module
-  { moduleName = "pandoc.template"
-  , moduleDescription = T.unlines
-    [ "Lua functions for pandoc templates."
-    ]
-  , moduleFields = []
-  , moduleOperations = []
-  , moduleFunctions = functions
-  }
-
--- | Template module functions.
-functions :: [DocumentedFunction PandocError]
-functions =
-  [ defun "compile"
-     ### (\template mfilepath -> unPandocLua $
-           case mfilepath of
-             Just fp -> runWithPartials (compileTemplate fp template)
-             Nothing -> runWithDefaultPartials
-                        (compileTemplate "templates/default" template))
-     <#> parameter peekText "string" "template" "template string"
-     <#> opt (stringParam "templ_path" "template path")
-     =#> functionResult (either failLua pushTemplate) "pandoc Template"
-           "compiled template"
-
-  , defun "default"
-     ### (\mformat -> unPandocLua $ do
-           let getFORMAT = liftPandocLua $ do
-                 getglobal "FORMAT"
-                 forcePeek $ peekText top `lastly` pop 1
-           format <- maybe getFORMAT pure mformat
-           getDefaultTemplate format)
-     <#> opt (textParam "writer"
-              "writer for which the template should be returned.")
-     =#> functionResult pushText "string"
-           "string representation of the writer's default template"
-
-  ]