rafalio / kindlehaskell

Parser in haskell parsec for kindle clippings format

Kindle Parser

Some parsec code to parse the format Kindle saves your highlights in into a manageable format. It's not cabalized or anything, and also currently depends on Pandoc as I generate markdown files from this. I'll clean up whenever I get some time.

Example

Running on the exampleClippings.txt file:

Highlight {bBook = Book {bTitle = "The Power of No", bAuthor = "Altucher, James, Altucher, Claudia Azula"}, bPage = Just 31, bLoc = "461-462", bTime = 2014-08-14 21:37:42 UTC, bContent = "being clear about which relationships and which people we let into our lives is the key to access our creative forces."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 18, bLoc = "272-273", bTime = 2014-09-20 04:59:34 UTC, bContent = "if you want to create and capture lasting value, don\8217t build an undifferentiated commodity business."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 25, bLoc = "374-375", bTime = 2014-09-20 05:13:05 UTC, bContent = "Monopoly is the condition of every successful business."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 25, bLoc = "373-374", bTime = 2014-09-20 05:13:29 UTC, bContent = "In the real world outside economic theory, every business is successful exactly to the extent that it does something others cannot."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 25, bLoc = "376-377", bTime = 2014-09-20 05:14:12 UTC, bContent = "All happy companies are different: each one earns a monopoly by solving a unique problem. All failed companies are the same: they failed to escape competition."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 31, bLoc = "474-474", bTime = 2014-09-20 05:36:58 UTC, bContent = "either don\8217t throw any punches, or strike hard and end it quickly."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 39, bLoc = "598-599", bTime = 2014-09-20 05:54:22 UTC, bContent = "The perfect target market for a startup is a small group of particular people concentrated together and served by few or no competitors."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 50, bLoc = "767-768", bTime = 2014-09-20 15:34:45 UTC, bContent = "Finance epitomizes indefinite thinking because it\8217s the only way to make money when you have no idea how to create wealth."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 51, bLoc = "768-769", bTime = 2014-09-20 15:35:41 UTC, bContent = "If they don\8217t go to law school, bright college graduates head to Wall Street precisely because they have no real plan for their careers."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 57, bLoc = "863-863", bTime = 2014-09-20 16:09:42 UTC, bContent = "Darwinism may be a fine theory in other contexts, but in startups, intelligent design works best."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 62, bLoc = "945-946", bTime = 2014-09-20 17:19:28 UTC, bContent = "once you think that you\8217re playing the lottery, you\8217ve already psychologically prepared yourself to lose."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 65, bLoc = "983-984", bTime = 2014-09-20 17:23:10 UTC, bContent = "You should focus relentlessly on something you\8217re good at doing, but before that you must think hard about whether it will be valuable in the future."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 68, bLoc = "1031-1032", bTime = 2014-09-20 17:31:25 UTC, bContent = "If everything worth doing has already been done, you may as well feign an allergy to achievement and become a barista."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 73, bLoc = "1105-1106", bTime = 2014-09-20 17:42:40 UTC, bContent = "If you think something hard is impossible, you\8217ll never even start trying to achieve it."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 86, bLoc = "1309-1310", bTime = 2014-09-21 14:20:45 UTC, bContent = "Since time is your most valuable asset, it\8217s odd to spend it working with people who don\8217t envision any long-term future together."}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 108, bLoc = "1653-1653", bTime = 2014-09-21 15:33:46 UTC, bContent = "how can computers help humans solve hard problems?"}
Highlight {bBook = Book {bTitle = "Zero to One: Notes on Startups, or How to Build the Future", bAuthor = "Peter Thiel;Blake Masters"}, bPage = Just 111, bLoc = "1699-1700", bTime = 2014-09-21 15:39:01 UTC, bContent = "A great technology company should have proprietary technology an order of magnitude better than its nearest substitute."}
Highlight {bBook = Book {bTitle = "Influencer: The New Science of Leading Change, Second Edition", bAuthor = "Grenny, Joseph;Patterson, Kerry;Maxfield, David;McMillan, Ron;Switzler, Al"}, bPage = Just 77, bLoc = "990-990", bTime = 2016-01-18 07:33:22 UTC, bContent = "Hard work pays off in the future. Laziness pays off now."}
Highlight {bBook = Book {bTitle = "Influencer: The New Science of Leading Change, Second Edition", bAuthor = "Grenny, Joseph;Patterson, Kerry;Maxfield, David;McMillan, Ron;Switzler, Al"}, bPage = Just 87, bLoc = "1122-1124", bTime = 2016-01-18 07:44:21 UTC, bContent = "You must replace judgment with empathy, and lectures with questions. If you do so, you gain influence. The instant you stop trying to impose your agenda on others, you eliminate the fight for control. You end unnecessary battles over whose view of the world is correct."}