diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-11-22 17:33:12 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-11-22 17:33:12 +0000 |
| commit | fb07803be6af1d6e6faf9792d0b9667a20727715 (patch) | |
| tree | 86ef204d65a12d0f797cb50300713ff0b93f0171 /src/Text/Pandoc/Writers/ConTeXt.hs | |
| parent | f7b705b44cfff881d12501eb8061ebdf20627632 (diff) | |
+ Changed \useurl to \useURL in ConTeXt output.
+ Changed links from red to blue in ConTeXt output.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1087 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers/ConTeXt.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index a718daac8..98252f172 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -283,7 +283,7 @@ inlineToConTeXt (Link txt (src, _)) = do put $ st {stNextRef = next + 1} let ref = show next label <- inlineListToConTeXt txt - return $ text "\\useurl[" <> text ref <> text "][" <> text src <> + return $ text "\\useURL[" <> text ref <> text "][" <> text src <> text "][][" <> label <> text "]\\from[" <> text ref <> char ']' inlineToConTeXt (Image alternate (src, tit)) = do alt <- inlineListToConTeXt alternate |