@@ -398,17 +398,20 @@ inlineCommands = M.unions
398398 , ("footnote", skipopts >> note <$> grouped block)
399399 , ("passthrough", tok) -- \passthrough macro used by latex writer
400400 -- for listings
401+ , ("includegraphics", do options <- option [] keyvals
402+ src <- braced
403+ mkImage options .
404+ unescapeURL .
405+ removeDoubleQuotes $ untokenize src)
406+ -- hyperref
401407 , ("url", (\url -> link url "" (str url)) . unescapeURL . untokenize <$>
402408 bracedUrl)
403409 , ("nolinkurl", code . unescapeURL . untokenize <$> bracedUrl)
404410 , ("href", do url <- bracedUrl
405411 sp
406412 link (unescapeURL $ untokenize url) "" <$> tok)
407− , ("includegraphics", do options <- option [] keyvals
408− src <- braced
409− mkImage options . unescapeURL . removeDoubleQuotes $
410− untokenize src)
411413 , ("hyperlink", hyperlink)
414+ , ("hyperref", hyperref)
412415 , ("hypertarget", hypertargetInline)
413416 -- hyphenat
414417 , ("nohyphens", tok)
@@ -463,6 +466,12 @@ hyperlink = try $ do
463466 lab <- tok
464467 return $ link ("#" <> src) "" lab
465468
469+hyperref :: PandocMonad m => LP m Inlines
470+hyperref = try $ do
471+ url <- (("#" <>) . untokenize <$> try (sp *> bracketedToks <* sp))
472+ <|> untokenize <$> (bracedUrl <* bracedUrl <* bracedUrl)
473+ link url "" <$> tok
474+
466475hypertargetBlock :: PandocMonad m => LP m Blocks
467476hypertargetBlock = try $ do
468477 ref <- untokenize <$> braced