LaTeX writer: use % after hypertarget before code block

This commit is contained in:
John MacFarlane 2017-03-02 12:13:02 +01:00
parent 9e50319df3
commit 8709b7cf80

View file

@ -490,7 +490,10 @@ blockToLaTeX (BlockQuote lst) = do
blockToLaTeX (CodeBlock (identifier,classes,keyvalAttr) str) = do
opts <- gets stOptions
lab <- labelFor identifier
linkAnchor <- hypertarget True identifier lab
linkAnchor' <- hypertarget True identifier lab
let linkAnchor = if isEmpty linkAnchor'
then empty
else linkAnchor' <> "%"
let lhsCodeBlock = do
modify $ \s -> s{ stLHS = True }
return $ flush (linkAnchor $$ "\\begin{code}" $$ text str $$