From fb07803be6af1d6e6faf9792d0b9667a20727715 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 22 Nov 2007 17:33:12 +0000 Subject: + 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 --- src/Text/Pandoc/Writers/ConTeXt.hs | 2 +- src/headers/ConTeXtHeader | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 diff --git a/src/headers/ConTeXtHeader b/src/headers/ConTeXtHeader index 567245cd9..fedc7e3de 100644 --- a/src/headers/ConTeXtHeader +++ b/src/headers/ConTeXtHeader @@ -1,7 +1,7 @@ \enableregime[utf] % use UTF-8 \setupcolors[state=start] -\setupinteraction[state=start, color=middlered] % needed for hyperlinks +\setupinteraction[state=start, color=middleblue] % needed for hyperlinks \setuppapersize[letter][letter] % use letter paper \setuplayout[width=middle, backspace=1.5in, cutspace=1.5in, -- cgit v1.2.3