@@ -601,7 +601,7 @@ inlineCommands = M.fromList $
601 , ("thanks", note <$> grouped block)
601 , ("thanks", note <$> grouped block)
602 , ("footnote", note <$> grouped block)
602 , ("footnote", note <$> grouped block)
603 , ("verb", doverb)
603 , ("verb", doverb)
604− , ("lstinline", skipopts *> doverb)
604+ , ("lstinline", dolstinline)
605 , ("Verb", doverb)
605 , ("Verb", doverb)
606 , ("url", (unescapeURL <$> braced) >>= \url ->
606 , ("url", (unescapeURL <$> braced) >>= \url ->
607 pure (link url "" (str url)))
607 pure (link url "" (str url)))
@@ -716,6 +716,13 @@ doverb = do
716 marker <- anyChar
716 marker <- anyChar
717 code <$> manyTill (satisfy (/='\n')) (char marker)
717 code <$> manyTill (satisfy (/='\n')) (char marker)
719+dolstinline :: PandocMonad m => LP m Inlines
721+ options <- option [] keyvals
722+ let classes = maybeToList $ lookup "language" options >>= fromListingsLanguage
723+ marker <- char '{' <|> anyChar
724+ codeWith ("",classes,[]) <$> manyTill (satisfy (/='\n')) (char '}' <|> char marker)
719doLHSverb :: PandocMonad m => LP m Inlines
726doLHSverb :: PandocMonad m => LP m Inlines
720doLHSverb = codeWith ("",["haskell"],[]) <$> manyTill (satisfy (/='\n')) (char '|')
727doLHSverb = codeWith ("",["haskell"],[]) <$> manyTill (satisfy (/='\n')) (char '|')