diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-07-01 12:11:25 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-07-01 12:11:45 -0700 |
| commit | e0a88df686ee120075c88ffe6604a0e862040f9f (patch) | |
| tree | 056107c9878994237c4b736e18c2b1dc8d95baae /src/Text/Pandoc/Writers/ConTeXt.hs | |
| parent | 668833dd0b059e6dcf63b14216252fa5aa919a15 (diff) | |
| download | pandoc-e0a88df686ee120075c88ffe6604a0e862040f9f.tar.gz | |
ConTeXt: use `\goto` for internal links.
Diffstat (limited to 'src/Text/Pandoc/Writers/ConTeXt.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index 275fd26e2..1f8bbcdba 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -302,13 +302,8 @@ inlineToConTeXt (Link txt (('#' : ref), _)) = do opts <- gets stOptions contents <- inlineListToConTeXt txt let ref' = toLabel $ stringToConTeXt opts ref - return $ text "\\in" - <> braces (if writerNumberSections opts - then contents <+> text "(\\S" - else contents) -- prefix - <> braces (if writerNumberSections opts - then text ")" - else empty) -- suffix + return $ text "\\goto" + <> braces contents <> brackets (text ref') inlineToConTeXt (Link txt (src, _)) = do |