diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-08-11 11:56:54 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-11 22:22:31 -0700 |
commit | 74212eb1b0e1757fc0ac3e5d45b0ee18bac491e5 (patch) | |
tree | 522b79da10f8838b0bd2665ddfa741eed0ecbeff /src/Text/Pandoc/Lua | |
parent | 7892dcd353ff0efd24ed753061b9be8e556b0177 (diff) | |
download | pandoc-74212eb1b0e1757fc0ac3e5d45b0ee18bac491e5.tar.gz |
Added support for translations (localization) (see #3559).
* readDataFile, readDefaultDataFile, getReferenceDocx,
getReferenceODT have been removed from Shared and
moved into Class. They are now defined in terms of
PandocMonad primitives, rather than being primitve
methods of the class.
* toLang has been moved from BCP47 to Class.
* NoTranslation and CouldNotLoudTranslations have
been added to LogMessage.
* New module, Text.Pandoc.Translations, exporting
Term, Translations, readTranslations.
* New functions in Class: translateTerm, setTranslations.
Note that nothing is loaded from data files until
translateTerm is used; setTranslation just sets the
language to be used.
* Added two translation data files in data/translations.
* LaTeX reader: Support `\setmainlanguage` or `\setdefaultlanguage`
(polyglossia) and `\figurename`.
Diffstat (limited to 'src/Text/Pandoc/Lua')
-rw-r--r-- | src/Text/Pandoc/Lua/PandocModule.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Lua/PandocModule.hs b/src/Text/Pandoc/Lua/PandocModule.hs index 2d0baf4f8..d46ed3629 100644 --- a/src/Text/Pandoc/Lua/PandocModule.hs +++ b/src/Text/Pandoc/Lua/PandocModule.hs @@ -32,13 +32,12 @@ import Data.ByteString.Char8 (unpack) import Data.Default (Default (..)) import Data.Text (pack) import Scripting.Lua (LuaState, call, push, pushhsfunction, rawset) -import Text.Pandoc.Class hiding (readDataFile) +import Text.Pandoc.Class import Text.Pandoc.Definition (Pandoc) import Text.Pandoc.Options (ReaderOptions(readerExtensions)) import Text.Pandoc.Lua.Compat (loadstring) import Text.Pandoc.Lua.StackInstances () import Text.Pandoc.Readers (Reader (..), getReader) -import Text.Pandoc.Shared (readDataFile) -- | Push the "pandoc" on the lua stack. pushPandocModule :: Maybe FilePath -> LuaState -> IO () @@ -52,7 +51,8 @@ pushPandocModule datadir lua = do -- | Get the string representation of the pandoc module pandocModuleScript :: Maybe FilePath -> IO String -pandocModuleScript datadir = unpack <$> readDataFile datadir "pandoc.lua" +pandocModuleScript datadir = unpack <$> + runIOorExplode (setUserDataDir datadir >> readDataFile "pandoc.lua") read_doc :: String -> String -> IO (Either String Pandoc) read_doc formatSpec content = do |