Added `Text.Pandoc.Writers.Custom`, `--print-custom-lua-writer`.

    pandoc -t data/sample.lua

will load the script sample.lua and use it as a custom writer.
data/sample.lua is provided as an example.

Added `--print-custom-lua-writer` option to print the sample
script.

1 files changed, 8 insertions, 0 deletions

diff --git a/pandoc.hs b/pandoc.hs
index 7608ad017..1836fe345 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -327,6 +327,14 @@ options =
                   "FORMAT")
                  "" -- "Print default template for FORMAT"
 
+    , Option "" ["print-sample-lua-writer"]
+                 (NoArg
+                  (\_ -> do
+                    sample <- readDataFileUTF8 Nothing "sample.lua"
+                    UTF8.hPutStr stdout sample
+                    exitWith ExitSuccess))
+                  "" -- "Print sample lua custom writer"
+
     , Option "" ["no-wrap"]
                  (NoArg
                   (\opt -> return opt { optWrapText = False }))