Skip to content

Instantly share code, notes, and snippets.

@MagnificentPako
Created March 30, 2019 00:19
Show Gist options
  • Save MagnificentPako/8b551d982bb5b140c4fe16be1605e35b to your computer and use it in GitHub Desktop.
Save MagnificentPako/8b551d982bb5b140c4fe16be1605e35b to your computer and use it in GitHub Desktop.
extractContent = concat
. map (++ "\n")
. filter ((> 1) . length)
. map (cleanString)
. map (innerText)
. map (return)
. takeWhile (~/= TagOpen "" [("class", "bold uppercase text-center")])
. dropWhile (~/= TagOpen "div" [("class", "chapter-inner chapter-content")])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment