summaryrefslogtreecommitdiff
path: root/ibb
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-02-04 11:46:14 -0800
committerBen Sima <ben@bsima.me>2019-02-04 11:46:14 -0800
commit786e22174a52df46af18a9220aa8ecd66e76dec8 (patch)
treed046aaf0b2ca87aedef17cef90331cc44773ca76 /ibb
parent17efc29532c49a94c7e2fb140c32d6bcbeb485b2 (diff)
Change _link to _amznref
This allows us to format Amazon links in a standard way, which means we can add our own affiliate code, etc.
Diffstat (limited to 'ibb')
-rw-r--r--ibb/Main.hs22
1 files changed, 11 insertions, 11 deletions
diff --git a/ibb/Main.hs b/ibb/Main.hs
index 77a7d0b..5937b96 100644
--- a/ibb/Main.hs
+++ b/ibb/Main.hs
@@ -28,7 +28,7 @@ data Person = Person
data Book = Book
{ _title :: Text
, _author :: Text
- , _link :: Text
+ , _amznref :: Text
}
allPeople :: [Person]
@@ -39,11 +39,11 @@ allPeople =
, _website = "http://joerogan.com"
, _books = [ Book {_title = "Food of the Gods"
, _author = "Terence McKenna"
- , _link = "https://www.amazon.com/Food-Gods-Original-Knowledge-Evolution/dp/0553371304"
+ , _amznref = "0553371304"
}
, Book { _title = "The War of Art"
, _author ="Steven Pressfield"
- , _link ="https://www.amazon.com/dp/B007A4SDCG/ref=dp-kindle-redirect?_encoding=UTF8&btkr=1"
+ , _amznref ="B007A4SDCG"
}
]
}
@@ -53,7 +53,7 @@ allPeople =
, _website = "http://beyonce.com"
, _books = [ Book { _title = "What Will It Take To Make A Woman President?"
, _author = "Marianne Schnall"
- , _link = "https://www.amazon.com/dp/B00E257Y7G/ref=dp-kindle-redirect?_encoding=UTF8&btkr="}
+ , _amznref = "B00E257Y7G"}
]
}
, Person { _name = "Barrack Obama"
@@ -62,10 +62,10 @@ allPeople =
, _website = "http://barackobama.com"
, _books = [ Book { _title = "An American Marriage"
, _author = "Tayari Jones"
- , _link = "https://www.amazon.com/American-Marriage-Novel-Oprahs-Selection-ebook/dp/B01NCUXEFR"}
+ , _amznref = "B01NCUXEFR"}
, Book { _title = "Americanah"
, _author = "Chimamanda Ngozi Adichie"
- , _link = "https://www.amazon.com/dp/B00A9ET4MC/ref=dp-kindle-redirect?_encoding=UTF8&btkr=1"}
+ , _amznref = "B00A9ET4MC"}
]
}
, Person { _name = "Warren Buffet"
@@ -74,10 +74,10 @@ allPeople =
, _website = "http://berkshirehathaway.com"
, _books = [ Book { _title = "The Intelligent Investor"
, _author = "Benjamin Graham"
- , _link = "https://www.amazon.com/dp/B000FC12C8/ref=dp-kindle-redirect?_encoding=UTF8&btkr=1"}
+ , _amznref = "B000FC12C8"}
, Book { _title = "Security Analysis"
, _author = "Benjamin Graham"
- , _link = "https://www.amazon.com/Security-Analysis-Foreword-Buffett-Editions-ebook/dp/B0037JO5J8"}
+ , _amznref = "B0037JO5J8"}
]
}
, Person { _name = "Bill Gates"
@@ -86,11 +86,11 @@ allPeople =
, _website = "https://www.gatesnotes.com"
, _books = [ Book { _title = "Leonardo da Vinci"
, _author = "Walter Isaacson"
- , _link = "https://www.amazon.com/Leonardo-Vinci-Walter-Isaacson/dp/1501139169/ref=sr_1_1_sspa?s=digital-text&ie=UTF8&qid=1549043782&sr=1-1-spons&keywords=leonardo+da+vinci+by+walter+isaacson&psc=1"
+ , _amznref = "1501139169"
}
, Book { _title = "Educated"
, _author = "Tara Wetsover"
- , _link = "https://www.amazon.com/Educated-Memoir-Tara-Westover-ebook/dp/B072BLVM83/ref=sr_1_1?ie=UTF8&qid=1549044230&sr=8-1&keywords=education+tara+westover"
+ , _amznref = "B072BLVM83"
}
]
}
@@ -103,7 +103,7 @@ displayPerson person = [shamlet|
<h4>#{_name person}
<ul>
$forall book <- (_books person)
- <li><a href=#{_link book} class="text-dark">#{_title book}</a>
+ <li><a .text-dark href="https://www.amazon.com/dp/#{_amznref book}">#{_title book}</a>
<div .card-footer>
<a .btn href=#{_website person}>Personal Website
|]