@@ -570,6 +570,10 @@ inlineToLaTeX (RawInline "tex" str) = return $ text str
570inlineToLaTeX (RawInline _ _) = return empty
570inlineToLaTeX (RawInline _ _) = return empty
571inlineToLaTeX (LineBreak) = return "\\\\"
571inlineToLaTeX (LineBreak) = return "\\\\"
572inlineToLaTeX Space = return space
572inlineToLaTeX Space = return space
573+inlineToLaTeX (Link txt ('#':ident, _)) = do
574+ contents <- inlineListToLaTeX txt
575+ ident' <- stringToLaTeX False ident
576+ return $ text "\\hyperref" <> brackets (text ident') <> braces contents
573inlineToLaTeX (Link txt (src, _)) =
577inlineToLaTeX (Link txt (src, _)) =
574 case txt of
578 case txt of
575 [Code _ x] | x == src -> -- autolink
579 [Code _ x] | x == src -> -- autolink