diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Vimwiki.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Vimwiki.hs b/src/Text/Pandoc/Readers/Vimwiki.hs index f3551b278..74dac5ea7 100644 --- a/src/Text/Pandoc/Readers/Vimwiki.hs +++ b/src/Text/Pandoc/Readers/Vimwiki.hs @@ -236,7 +236,11 @@ preformatted = try $ do makeAttr :: Text -> Attr makeAttr s = let xs = splitTextBy (`elem` (" \t" :: String)) s in - ("", [], mapMaybe nameValue xs) + ("", syntax xs, mapMaybe nameValue xs) + +syntax :: [Text] -> [Text] +syntax (s:_) | not $ T.isInfixOf "=" s = [s] +syntax _ = [] nameValue :: Text -> Maybe (Text, Text) nameValue s = |