GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-15 02:01:39 +03:00
Code Issues Projects Releases Wiki Activity

More flexible "start of code block" in Markdown mode.

Browse Source 
This should fix #595.
This commit is contained in:
Iavor Diatchki 2019-05-14 15:25:30 -07:00
parent 843fe310f8
commit f607b40fc3
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Cryptol/Parser/Unlit.hs
View File

@ -99,12 +99,17 @@ markdown = blanks []
| otherwise = fenced op (l : current) ls | otherwise = fenced op (l : current) ls
isOpenFence l | "```cryptol" == l' = Just Code isOpenFence l
| "```" == l' = Just Code | "```" `Text.isPrefixOf` l' =
| "```" `Text.isPrefixOf` l' = Just Comment Just $ case Text.drop 3 l' of
l'' | "cryptol" `Text.isPrefixOf` l'' -> Code
| isBlank l'' -> Code
| otherwise -> Comment
| otherwise = Nothing | otherwise = Nothing
where where
l' = Text.dropWhile isSpace l l' = Text.dropWhile isSpace l
isCloseFence l = "```" `Text.isPrefixOf` l isCloseFence l = "```" `Text.isPrefixOf` l
isBlank l = Text.all isSpace l isBlank l = Text.all isSpace l
isCodeLine l = "\t" `Text.isPrefixOf` l || " " `Text.isPrefixOf` l isCodeLine l = "\t" `Text.isPrefixOf` l || " " `Text.isPrefixOf` l