@@ -118,6 +118,7 @@ inline =
118 , subscript
118 , subscript
119 , superscript
119 , superscript
120 , inlineLaTeX
120 , inlineLaTeX
123 ] <* (guard =<< newlinesCountWithinLimits)
124 ] <* (guard =<< newlinesCountWithinLimits)
@@ -129,7 +130,7 @@ inlines = trimInlinesF . mconcat <$> many1 inline
130-- treat these as potentially non-text when parsing inline:
131-- treat these as potentially non-text when parsing inline:
131specialChars :: [Char]
132specialChars :: [Char]
132−specialChars = "\"$'()*+-,./:;<=>[\\]^_{|}~"
133+specialChars = "\"$'()*+-,./:;<=>@[\\]^_{|}~"
135whitespace :: OrgParser (F Inlines)
136whitespace :: OrgParser (F Inlines)
@@ -841,6 +842,13 @@ inlineLaTeXCommand = try $ do
841dropWhileEnd :: (a -> Bool) -> [a] -> [a]
842dropWhileEnd :: (a -> Bool) -> [a] -> [a]
842dropWhileEnd p = foldr (\x xs -> if p x && null xs then [] else x : xs) []
843dropWhileEnd p = foldr (\x xs -> if p x && null xs then [] else x : xs) []
845+exportSnippet :: OrgParser (F Inlines)
846+exportSnippet = try $ do
848+ format <- many1Till (alphaNum <|> char '-') (char ':')
849+ snippet <- manyTill anyChar (try $ string "@@")
850+ returnF $ B.rawInline format snippet
844smart :: OrgParser (F Inlines)
852smart :: OrgParser (F Inlines)
845smart = do
853smart = do
846 getOption readerSmart >>= guard
854 getOption readerSmart >>= guard