@@ -39,7 +39,7 @@ import Text.Pandoc.Templates
3939import Text.Printf ( printf )
4040import Network.URI ( isURI, unEscapeString )
4141import Data.Aeson (object, (.=))
42−import Data.List ( (\\), isInfixOf, stripPrefix, intercalate, intersperse )
42+import Data.List ( (\\), isInfixOf, stripPrefix, intercalate, intersperse, nub, nubBy )
4343import Data.Char ( toLower, isPunctuation, isAscii, isLetter, isDigit, ord )
4444import Data.Maybe ( fromMaybe )
4545import qualified Data.Text as T
@@ -145,6 +145,7 @@ pandocToLaTeX options (Pandoc meta blocks) = do
145145 st <- get
146146 titleMeta <- stringToLaTeX TextString $ stringify $ docTitle meta
147147 authorsMeta <- mapM (stringToLaTeX TextString . stringify) $ docAuthors meta
148+ let docLangs = nub $ query (extract "lang") blocks
148149 let context = defField "toc" (writerTableOfContents options) $
149150 defField "toc-depth" (show (writerTOCDepth options -
150151 if stBook st
@@ -179,18 +180,48 @@ pandocToLaTeX options (Pandoc meta blocks) = do
179180 Biblatex -> defField "biblio-title" biblioTitle .
180181 defField "biblatex" True
181182 _ -> id) $
183+ -- set lang to something so polyglossia/babel is included
184+ defField "lang" (if null docLangs then ""::String else "en") $
185+ defField "otherlangs" docLangs $
186+ defField "dir" (if (null $ query (extract "dir") blocks)
187+ then ""::String
188+ else "ltr") $
182189 metadata
183190 let toPolyObj lang = object [ "name" .= T.pack name
184191 , "options" .= T.pack opts ]
185192 where
186193 (name, opts) = toPolyglossia lang
187194 let lang = maybe [] (splitBy (=='-')) $ getField "lang" context
195+ otherlangs = maybe [] (map $ splitBy (=='-')) $ getField "otherlangs" context
188196 let context' =
189197 defField "babel-lang" (toBabel lang)
198+ $ defField "babel-otherlangs" (map toBabel otherlangs)
199+ $ defField "babel-newcommands" (concatMap (\(poly, babel) ->
200+ -- \textspanish and \textgalician are already used by babel
201+ -- save them as \oritext... and let babel use that
202+ if poly `elem` ["spanish", "galician"]
203+ then "\\let\\oritext" ++ poly ++ "\\text" ++ poly ++ "\n" ++
204+ "\\AddBabelHook{" ++ poly ++ "}{beforeextras}" ++
205+ "{\\renewcommand{\\text" ++ poly ++ "}{\\oritext"
206+ ++ poly ++ "}}\n" ++
207+ "\\AddBabelHook{" ++ poly ++ "}{afterextras}" ++
208+ "{\\renewcommand{\\text" ++ poly ++ "}[2][]{\\foreignlanguage{"
209+ ++ poly ++ "}{##2}}}\n"
210+ else "\\newcommand{\\text" ++ poly ++ "}[2][]{\\foreignlanguage{"
211+ ++ babel ++ "}{#2}}\n" ++
212+ "\\newenvironment{" ++ poly ++ "}[1]{\\begin{otherlanguage}{"
213+ ++ babel ++ "}}{\\end{otherlanguage}}\n"
214+ )
215+ -- eliminate duplicates that have same polyglossia name
216+ $ nubBy (\a b -> fst a == fst b)
217+ -- find polyglossia and babel names of languages used in the document
218+ $ map (\l ->
219+ let lng = splitBy (=='-') l
220+ in (fst $ toPolyglossia lng, toBabel lng)
221+ )
222+ docLangs )
190223 $ defField "polyglossia-lang" (toPolyObj lang)
191− $ defField "polyglossia-otherlangs"
192− (maybe [] (map $ toPolyObj . splitBy (=='-')) $
193− getField "otherlangs" context)
224+ $ defField "polyglossia-otherlangs" (map toPolyObj otherlangs)
194225 $ defField "latex-dir-rtl" (case (getField "dir" context)::Maybe String of
195226 Just "rtl" -> True
196227 _ -> False)
@@ -340,15 +371,24 @@ blockToLaTeX (Div (identifier,classes,kvs) bs) = do
340371 then empty
341372 else "\\hyperdef{}" <> braces (text ref) <>
342373 braces ("\\label" <> braces (text ref))
343− contents' <- blockListToLaTeX bs
344− let align dir = inCmd "begin" dir $$ contents' $$ inCmd "end" dir
345− let contents = case lookup "dir" kvs of
346− Just "rtl" -> align "RTL"
347− Just "ltr" -> align "LTR"
348− _ -> contents'
349− if beamer && "notes" `elem` classes -- speaker notes
350− then return $ "\\note" <> braces contents
351− else return (linkAnchor $$ contents)
374+ let align dir txt = inCmd "begin" dir $$ txt $$ inCmd "end" dir
375+ let wrapDir = case lookup "dir" kvs of
376+ Just "rtl" -> align "RTL"
377+ Just "ltr" -> align "LTR"
378+ _ -> id
379+ wrapLang txt = case lookup "lang" kvs of
380+ Just lng -> let (l, o) = toPolyglossiaEnv lng
381+ ops = if null o
382+ then ""
383+ else brackets $ text o
384+ in inCmd "begin" (text l) <> ops
385+ $$ blankline <> txt <> blankline
386+ $$ inCmd "end" (text l)
387+ Nothing -> txt
388+ wrapNotes txt = if beamer && "notes" `elem` classes
389+ then "\\note" <> braces txt -- speaker notes
390+ else linkAnchor $$ txt
391+ fmap (wrapDir . wrapLang . wrapNotes) $ blockListToLaTeX bs
352392blockToLaTeX (Plain lst) =
353393 inlineListToLaTeX $ dropWhile isLineBreakOrSpace lst
354394-- title beginning with fig: indicates that the image is a figure
@@ -759,9 +799,12 @@ inlineToLaTeX (Span (id',classes,kvs) ils) = do
759799 (if noSmallCaps then inCmd "textnormal" else id) .
760800 (if rtl then inCmd "RL" else id) .
761801 (if ltr then inCmd "LR" else id) .
762− (if not (noEmph || noStrong || noSmallCaps || rtl || ltr)
763− then braces
764− else id)) `fmap` inlineListToLaTeX ils
802+ (case lookup "lang" kvs of
803+ Just lng -> let (l, o) = toPolyglossiaEnv lng
804+ ops = if null o then "" else brackets (text o)
805+ in \c -> char '\\' <> "text" <> text l <> ops <> braces c
806+ Nothing -> id)
807+ ) `fmap` inlineListToLaTeX ils
765808inlineToLaTeX (Emph lst) =
766809 inlineListToLaTeX lst >>= return . inCmd "emph"
767810inlineToLaTeX (Strong lst) =
@@ -1002,6 +1045,30 @@ getListingsLanguage :: [String] -> Maybe String
10021045getListingsLanguage [] = Nothing
10031046getListingsLanguage (x:xs) = toListingsLanguage x <|> getListingsLanguage xs
10041047
1048+-- Extract a key from divs and spans
1049+extract :: String -> Block -> [String]
1050+extract key (Div attr _) = lookKey key attr
1051+extract key (Plain ils) = concatMap (extractInline key) ils
1052+extract key (Para ils) = concatMap (extractInline key) ils
1053+extract key (Header _ _ ils) = concatMap (extractInline key) ils
1054+extract _ _ = []
1055+
1056+-- Extract a key from spans
1057+extractInline :: String -> Inline -> [String]
1058+extractInline key (Span attr _) = lookKey key attr
1059+extractInline _ _ = []
1060+
1061+-- Look up a key in an attribute and give a list of its values
1062+lookKey :: String -> Attr -> [String]
1063+lookKey key (_,_,kvs) = maybe [] words $ lookup key kvs
1064+
1065+-- In environments \Arabic instead of \arabic is used
1066+toPolyglossiaEnv :: String -> (String, String)
1067+toPolyglossiaEnv l =
1068+ case toPolyglossia $ (splitBy (=='-')) l of
1069+ ("arabic", o) -> ("Arabic", o)
1070+ x -> x
1071+
10051072-- Takes a list of the constituents of a BCP 47 language code and
10061073-- converts it to a Polyglossia (language, options) tuple
10071074-- http://mirrors.concertpass.com/tex-archive/macros/latex/contrib/polyglossia/polyglossia.pdf