From 7a1f2471b5b2c37a0582ae9c49e85b099bbd7260 Mon Sep 17 00:00:00 2001 From: Nick Sima Date: Fri, 1 Feb 2019 09:36:21 -0800 Subject: Changed html to better suite templates and data. --- ibb/Main.hs | 127 +++++++++++++++++++++++++++++------------------------------- 1 file changed, 62 insertions(+), 65 deletions(-) diff --git a/ibb/Main.hs b/ibb/Main.hs index bf94277..91112f0 100644 --- a/ibb/Main.hs +++ b/ibb/Main.hs @@ -17,10 +17,11 @@ render = html . renderHtml main :: IO () main = scotty 3000 $ - get "/" $ render influencerCards + get "/" $ render homepage data Person = Person { _name :: Text + , _pic :: Text , _twitter :: Text , _website :: Text , _books :: [Book] @@ -35,25 +36,73 @@ data Book = Book allPeople = [ Person { _name = "Joe Rogan" + , _pic = "https://pbs.twimg.com/profile_images/552307347851210752/vrXDcTFC_400x400.jpeg" , _twitter = "joerogan" , _website = "joerogan.com" , _books = [ Book {_title = "Food of the Gods" - , _author = "fixme" - , _link = "fixme" + , _author = "Terence McKenna" + , _link = "https://www.amazon.com/Food-Gods-Original-Knowledge-Evolution/dp/0553371304" } , Book { _title = "The War of Art" - , _author ="fixme" - , _link ="fixme" + , _author ="Steven Pressfield" + , _link ="https://www.amazon.com/dp/B007A4SDCG/ref=dp-kindle-redirect?_encoding=UTF8&btkr=1" } ] } + , Person { _name = "Beyoncé" + , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcTxT84sF19lxdnSiblIXAp-Y4wAigpQn8sZ2GtAerIR_ApiiEJfFQ" + , _twitter = "Beyonce" + , _website = "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="} + ] + } + , Person { _name = "Barrack Obama" + , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcQeLzftR36p0hYI-EKNa5fm7CYDuN-vyz23_R48ocqa8X1nPr6C" + , _twitter = "BarackObama" + , _website = "barackobama.com" + , _books = [ Book { _title = "An American Marriage" + , _author = "Tayari Jones" + , _link = "https://www.amazon.com/American-Marriage-Novel-Oprahs-Selection-ebook/dp/B01NCUXEFR"} + , Book { _title = "Americanah" + , _author = "Chimamanda Ngozi Adichie" + , _link = "https://www.amazon.com/dp/B00A9ET4MC/ref=dp-kindle-redirect?_encoding=UTF8&btkr=1"} + ] + } + , Person { _name = "Warren Buffet" + , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcQQbmnUykS6zqgzaf44tsq1RAsnHe6H7fapEoSqUwAoJGSFKbAPSw" + , _twitter = "WarrenBuffett" + , _website = "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"} + , Book { _title = "Security Analysis" + , _author = "enjamin Graham" + , _link = "https://www.amazon.com/Security-Analysis-Foreword-Buffett-Editions-ebook/dp/B0037JO5J8"} + ] + } + , Person { _name = "Micheal Jordan" + , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcQfl_Dm2RUhknIxGEafGOlQC7Jj3Ky0nyQYk6GvG791sClzwFQb" + , _twitter = "" + , _website = "michaeljordansworld.com" + , _books = [ Book { _title = "Statistical Inference" + , _author = "George Casella" + , _link = "https://www.amazon.com/Statistical-Inference-George-Casella/dp/0534243126"} + , Book { _title = "A Course In Large Sample Therapy" + , _author = "Thomas S. Ferguson" + , _link = "https://www.amazon.com/Course-Sample-Chapman-Statistical-Science/dp/041204371"} + ] + } ] displayPerson person = [shamlet| -

#{_name person} -