Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Custom writer: read lua script as UTF-8.

Browse source 
This should fix #1189.
This commit is contained in:
John MacFarlane 2014-04-04 10:07:56 -07:00
parent 4ee92dce0c
commit fa0f73aef9
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Writers/Custom.hs
View file

@ -37,6 +37,7 @@ import Data.Char ( toLower )
import Scripting.Lua (LuaState, StackValue, callfunc)
import qualified Scripting.Lua as Lua
import Text.Pandoc.UTF8 (fromString, toString)
import qualified Text.Pandoc.UTF8 as UTF8
import Data.ByteString (ByteString)
import qualified Data.ByteString.Char8 as C8
import Data.Monoid
@ -131,7 +132,7 @@ instance StackValue MetaValue where
-- | Convert Pandoc to custom markup.
writeCustom :: FilePath -> WriterOptions -> Pandoc -> IO String
writeCustom luaFile opts doc = do
luaScript <- readFile luaFile
luaScript <- UTF8.readFile luaFile
lua <- Lua.newstate
Lua.openlibs lua
Lua.loadstring lua luaScript "custom"