From 4ab30f3ceaec427b6f89f2fe32cef4b0b1b5e955 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 24 Sep 2012 19:13:34 -0700
Subject: Texinfo writer:  Fixed internal cross-references.

Now we insert anchors after each header, and use @ref
instead of @uref for links.

Commas are now escaped as @comma{} only when needed; previously
all commas were escaped.  (This change is needed, in part, because @ref
commands must be followed by a real comma or period.)

Also insert a blank line in from of @verbatim environments.
---
 src/Text/Pandoc/Writers/Texinfo.hs | 33 ++++++++++++++++++++++++++-------
 1 file changed, 26 insertions(+), 7 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs
index 40e76c615..5ced0d9ec 100644
--- a/src/Text/Pandoc/Writers/Texinfo.hs
+++ b/src/Text/Pandoc/Writers/Texinfo.hs
@@ -45,6 +45,8 @@ data WriterState =
   WriterState { stStrikeout   :: Bool  -- document contains strikeout
               , stSuperscript :: Bool -- document contains superscript
               , stSubscript   :: Bool -- document contains subscript
+              , stEscapeComma :: Bool -- in a context where we need @comma
+              , stIdentifiers :: [String] -- header ids used already
               }
 
 {- TODO:
@@ -56,7 +58,8 @@ data WriterState =
 writeTexinfo :: WriterOptions -> Pandoc -> String
 writeTexinfo options document =
   evalState (pandocToTexinfo options $ wrapTop document) $
-  WriterState { stStrikeout = False, stSuperscript = False, stSubscript = False }
+  WriterState { stStrikeout = False, stSuperscript = False,
+                stEscapeComma = False, stSubscript = False, stIdentifiers = [] }
 
 -- | Add a "Top" node around the document, needed by Texinfo.
 wrapTop :: Pandoc -> Pandoc
@@ -95,7 +98,6 @@ stringToTexinfo = escapeStringUsing texinfoEscapes
   where texinfoEscapes = [ ('{', "@{")
                          , ('}', "@}")
                          , ('@', "@@")
-                         , (',', "@comma{}") -- only needed in argument lists
                          , ('\160', "@ ")
                          , ('\x2014', "---")
                          , ('\x2013', "--")
@@ -103,6 +105,14 @@ stringToTexinfo = escapeStringUsing texinfoEscapes
                          , ('\x2019', "'")
                          ]
 
+escapeCommas :: State WriterState Doc -> State WriterState Doc
+escapeCommas parser = do
+  oldEscapeComma <- gets stEscapeComma
+  modify $ \st -> st{ stEscapeComma = True }
+  res <- parser
+  modify $ \st -> st{ stEscapeComma = oldEscapeComma }
+  return res
+
 -- | Puts contents into Texinfo command.
 inCmd :: String -> Doc -> Doc
 inCmd cmd contents = char '@' <> text cmd <> braces contents
@@ -134,7 +144,8 @@ blockToTexinfo (BlockQuote lst) = do
            text "@end quotation"
 
 blockToTexinfo (CodeBlock _ str) = do
-  return $ text "@verbatim" $$
+  return $ blankline $$
+           text "@verbatim" $$
            flush (text str) $$
            text "@end verbatim" <> blankline
 
@@ -194,9 +205,13 @@ blockToTexinfo (Header 0 lst) = do
 blockToTexinfo (Header level lst) = do
   node <- inlineListForNode lst
   txt <- inlineListToTexinfo lst
+  idsUsed <- gets stIdentifiers
+  let id' = uniqueIdent lst idsUsed
+  modify $ \st -> st{ stIdentifiers = id' : idsUsed }
   return $ if (level > 0) && (level <= 4)
-              then blankline <> text "@node " <> node <> cr <>
-                   text (seccmd level) <> txt
+              then blankline <> text "@node " <> node $$
+                   text (seccmd level) <> txt $$
+                   text "@anchor" <> braces (text $ '#':id')
               else txt
   where
     seccmd 1 = "@chapter "
@@ -404,17 +419,21 @@ inlineToTexinfo (RawInline _ _) = return empty
 inlineToTexinfo (LineBreak) = return $ text "@*"
 inlineToTexinfo Space = return $ char ' '
 
+inlineToTexinfo (Link txt (src@('#':_), _)) = do
+  contents <- escapeCommas $ inlineListToTexinfo txt
+  return $ text "@ref" <>
+           braces (text (stringToTexinfo src) <> text "," <> contents)
 inlineToTexinfo (Link txt (src, _)) = do
   case txt of
         [Code _ x] | x == src ->  -- autolink
              do return $ text $ "@url{" ++ x ++ "}"
-        _ -> do contents <- inlineListToTexinfo txt
+        _ -> do contents <- escapeCommas $ inlineListToTexinfo txt
                 let src1 = stringToTexinfo src
                 return $ text ("@uref{" ++ src1 ++ ",") <> contents <>
                          char '}'
 
 inlineToTexinfo (Image alternate (source, _)) = do
-  content <- inlineListToTexinfo alternate
+  content <- escapeCommas $ inlineListToTexinfo alternate
   return $ text ("@image{" ++ base ++ ",,,") <> content <> text "," <>
            text (ext ++ "}")
   where
-- 
cgit v1.2.3