@@ -91,8 +91,8 @@ latexHeader options (Meta title authors date) = do
91 else "\\setcounter{secnumdepth}{0}\n"
91 else "\\setcounter{secnumdepth}{0}\n"
92 let baseHeader = writerHeader options
92 let baseHeader = writerHeader options
93 let header = baseHeader ++ extras
93 let header = baseHeader ++ extras
94− return $ header ++ secnumline ++ titletext ++ authorstext ++ datetext ++
94+ return $ header ++ secnumline ++ verbatim ++ titletext ++ authorstext ++
95− "\\begin{document}\n" ++ maketitle ++ verbatim ++ "\n"
95+ datetext ++ "\\begin{document}\n" ++ maketitle ++ "\n"
97-- escape things as needed for LaTeX
97-- escape things as needed for LaTeX
@@ -112,7 +112,7 @@ stringToLaTeX = escapeStringUsing latexEscapes
112deVerb :: [Inline] -> [Inline]
112deVerb :: [Inline] -> [Inline]
113deVerb [] = []
113deVerb [] = []
114deVerb ((Code str):rest) =
114deVerb ((Code str):rest) =
115− (Str $ "\\texttt{" ++ stringToLaTeX str ++ "}"):(deVerb rest)
115+ (Str $ stringToLaTeX str):(deVerb rest)
116deVerb (other:rest) = other:(deVerb rest)
116deVerb (other:rest) = other:(deVerb rest)
118-- | Convert Pandoc block element to LaTeX.
118-- | Convert Pandoc block element to LaTeX.
@@ -179,9 +179,9 @@ tableRowToLaTeX cols =
179listItemToLaTeX lst = blockListToLaTeX lst >>= (return . ("\\item "++))
179listItemToLaTeX lst = blockListToLaTeX lst >>= (return . ("\\item "++))
181defListItemToLaTeX (term, def) = do
181defListItemToLaTeX (term, def) = do
182− term' <- inlineListToLaTeX term
182+ term' <- inlineListToLaTeX (deVerb term)
183 def' <- blockListToLaTeX def
183 def' <- blockListToLaTeX def
184− return $ "\\item[" ++ substitute "]" "\\]" term' ++ "] " ++ def'
184+ return $ "\\item[" ++ term' ++ "] " ++ def'
186-- | Convert list of inline elements to LaTeX.
186-- | Convert list of inline elements to LaTeX.
187inlineListToLaTeX :: [Inline] -- ^ Inlines to convert
187inlineListToLaTeX :: [Inline] -- ^ Inlines to convert