5cd475b · typeable/pandoc

MANUAL.txt+4−4

@@ -733,10 +733,10 @@ Options affecting specific writers

733

734`--id-prefix=`*STRING*

735

736−: Specify a prefix to be added to all automatically generated identifiers

736+: Specify a prefix to be added to all identifiers and internal links

737− in HTML and DocBook output, and to footnote numbers in Markdown output.

737+ in HTML and DocBook output, and to footnote numbers in Markdown

738− This is useful for preventing duplicate identifiers when generating

738+ and Haddock output. This is useful for preventing duplicate

739− fragments to be included in other pages.

739+ identifiers when generating fragments to be included in other pages.

740

741`-T` *STRING*, `--title-prefix=`*STRING*

742

src/Text/Pandoc/Writers/Docbook.hs+1−1

@@ -405,7 +405,7 @@ inlineToDocbook opts (Link attr txt (src, _))

405 | otherwise = do

406 version <- ask

407 (if isPrefixOf "#" src

408− then inTags False "link" $ ("linkend", drop 1 src) : idAndRole attr

408+ then inTags False "link" $ ("linkend", writerIdentifierPrefix opts ++ drop 1 src) : idAndRole attr

409 else if version == DocBook5

410 then inTags False "link" $ ("xlink:href", src) : idAndRole attr

411 else inTags False "ulink" $ ("url", src) : idAndRole attr )

src/Text/Pandoc/Writers/HTML.hs+5−3

@@ -933,9 +933,11 @@ inlineToHtml opts inline = do

933 linkText <- inlineListToHtml opts txt

934 slideVariant <- gets stSlideVariant

935 let s' = case s of

936− '#':xs | slideVariant == RevealJsSlides

936+ '#':xs -> let prefix = if slideVariant == RevealJsSlides

937− -> '#':'/':xs

937+ then "/"

938+ else writerIdentifierPrefix opts

939+ in '#' : prefix ++ xs

938− _ -> s

940+ _ -> s

939 let link = H.a ! A.href (toValue s') $ linkText

941 let link = H.a ! A.href (toValue s') $ linkText

940 let link' = if txt == [Str (unEscapeString s)]

942 let link' = if txt == [Str (unEscapeString s)]

941 then link ! A.class_ "uri"

943 then link ! A.class_ "uri"