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.

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
 |]