pingu/org-to-mafiauniverse
1
0
Fork 0
mirror of https://github.com/The1Penguin/org-to-mafiauniverse.git synced 2025-06-29 09:27:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added example, drops until first empty line, todo list

Browse Source 
Drops the usually headers of the document until there is a empty line
This commit is contained in:
Pingu
2022-10-29 11:44:52 +02:00
parent 96180d8ffc
commit 2cd0d66bb3
3 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/Main.hs
View File

@ -56,7 +56,7 @@ parseHelper parser x = case parse parser "" x of
Right text -> text
parseFile :: String -> Post
parseFile = Post . reduce . map (parseHelper fileParser) . lines
parseFile = Post . reduce . map (parseHelper fileParser) . dropWhile (/= "") . lines
fileParser :: Parser Info
fileParser =
@ -70,8 +70,8 @@ fileParser =
Image . URL <$> between (string' "[[") (string' "]]") (takeWhileP Nothing (/= ']')),
Video . URL <$> between (string' "[[") (string' "]]") (takeWhileP Nothing (/= ']')),
-- parseLink,
Spoiler . (: []) . Bread <$> (string' "+BEGIN" >> return ""),
Spoiler . (: []) . Bread <$> (string' "+END" >> return ""),
Spoiler . (: []) . Bread <$> (string' "#+BEGIN" >> return ""),
Spoiler . (: []) . Bread <$> (string' "#+END" >> return ""),
Bread <$> takeRest
]