@@ -487,7 +487,7 @@ inlineToConTeXt (Note contents) = do
487487 then literal "\\footnote{" <> nest 2 (chomp contents') <> char '}'
488488 else literal "\\startbuffer " <> nest 2 (chomp contents') <>
489489 literal "\\stopbuffer\\footnote{\\getbuffer}"
490−inlineToConTeXt (Span (_,_,kvs) ils) = do
490+inlineToConTeXt (Span (ident,_,kvs) ils) = do
491491 mblang <- fromBCP47 (lookup "lang" kvs)
492492 let wrapDir txt = case lookup "dir" kvs of
493493 Just "rtl" -> braces $ "\\righttoleft " <> txt
@@ -497,7 +497,11 @@ inlineToConTeXt (Span (_,_,kvs) ils) = do
497497 Just lng -> braces ("\\language" <>
498498 brackets (literal lng) <> txt)
499499 Nothing -> txt
500− wrapLang . wrapDir <$> inlineListToConTeXt ils
500+ addReference =
501+ if T.null ident
502+ then id
503+ else (("\\reference" <> brackets (literal ident) <> "{}") <>)
504+ addReference . wrapLang . wrapDir <$> inlineListToConTeXt ils
501505
502506-- | Craft the section header, inserting the section reference, if supplied.
503507sectionHeader :: PandocMonad m