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