diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-01-05 08:36:02 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-01-05 08:36:02 +0000 |
| commit | e1e9bfc004ddea81e1082362dbd212b3b75ca5ca (patch) | |
| tree | d6107d22109d4ed7ad1bff66479c896efaf59b71 /src/Text/Pandoc/Writers/LaTeX.hs | |
| parent | b4925d08c6b6e9152b9775a15df01809b370dc77 (diff) | |
LaTeX writer: Removed stLink, link template variable.
Reason: we now always include hyperref in the template.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1796 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 4ce2b44d1..e9097fc02 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -46,7 +46,6 @@ data WriterState = , stTable :: Bool -- true if document has a table , stStrikeout :: Bool -- true if document has strikeout , stSubscript :: Bool -- true if document has subscript - , stLink :: Bool -- true if document has links , stUrl :: Bool -- true if document has visible URL link , stGraphics :: Bool -- true if document contains images , stLHS :: Bool -- true if document has literate haskell code @@ -60,7 +59,7 @@ writeLaTeX options document = WriterState { stInNote = False, stOLLevel = 1, stOptions = options, stVerbInNote = False, stEnumerate = False, stTable = False, stStrikeout = False, stSubscript = False, - stLink = False, stUrl = False, stGraphics = False, + stUrl = False, stGraphics = False, stLHS = False, stBook = False } pandocToLaTeX :: WriterOptions -> Pandoc -> State WriterState String @@ -95,7 +94,6 @@ pandocToLaTeX options (Pandoc (Meta title authors date) blocks) = do [ ("tables", "yes") | stTable st ] ++ [ ("strikeout", "yes") | stStrikeout st ] ++ [ ("subscript", "yes") | stSubscript st ] ++ - [ ("links", "yes") | stLink st ] ++ [ ("url", "yes") | stUrl st ] ++ [ ("lhs", "yes") | stLHS st ] ++ [ ("graphics", "yes") | stGraphics st ] @@ -329,8 +327,7 @@ inlineToLaTeX (TeX str) = return $ text str inlineToLaTeX (HtmlInline _) = return empty inlineToLaTeX (LineBreak) = return $ text "\\\\" inlineToLaTeX Space = return $ char ' ' -inlineToLaTeX (Link txt (src, _)) = do - modify $ \s -> s{ stLink = True } +inlineToLaTeX (Link txt (src, _)) = case txt of [Code x] | x == src -> -- autolink do modify $ \s -> s{ stUrl = True } |