diff options
Diffstat (limited to 'ibb/Main.hs')
| -rw-r--r-- | ibb/Main.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ibb/Main.hs b/ibb/Main.hs index 85a70df..d1d7773 100644 --- a/ibb/Main.hs +++ b/ibb/Main.hs @@ -28,6 +28,7 @@ data Person = Person { _name :: Text , _pic :: Text , _twitter :: Text + , _twitterLink :: Text , _website :: Text , _books :: [Book] } @@ -43,6 +44,7 @@ allPeople = [ Person { _name = "Joe Rogan" , _pic = "https://pbs.twimg.com/profile_images/552307347851210752/vrXDcTFC_400x400.jpeg" , _twitter = "joerogan" + , _twitterLink ="https://twitter.com/joerogan" , _website = "http://joerogan.com" , _books = [ Book {_title = "Food of the Gods" , _author = "Terence McKenna" @@ -57,6 +59,7 @@ allPeople = , Person { _name = "Beyoncé" , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcTxT84sF19lxdnSiblIXAp-Y4wAigpQn8sZ2GtAerIR_ApiiEJfFQ" , _twitter = "Beyonce" + , _twitterLink = "https://twitter.com/beyonce" , _website = "http://beyonce.com" , _books = [ Book { _title = "What Will It Take To Make A Woman President?" , _author = "Marianne Schnall" @@ -66,6 +69,7 @@ allPeople = , Person { _name = "Barrack Obama" , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcQeLzftR36p0hYI-EKNa5fm7CYDuN-vyz23_R48ocqa8X1nPr6C" , _twitter = "BarackObama" + , _twitterLink = "https://twitter.com/BarackObama" , _website = "http://barackobama.com" , _books = [ Book { _title = "An American Marriage" , _author = "Tayari Jones" @@ -78,6 +82,7 @@ allPeople = , Person { _name = "Warren Buffet" , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcQQbmnUykS6zqgzaf44tsq1RAsnHe6H7fapEoSqUwAoJGSFKbAPSw" , _twitter = "WarrenBuffett" + , _twitterLink = "https://twitter.com/WarrenBuffett" , _website = "http://berkshirehathaway.com" , _books = [ Book { _title = "The Intelligent Investor" , _author = "Benjamin Graham" @@ -90,6 +95,7 @@ allPeople = , Person { _name = "Bill Gates" , _pic = "https://pbs.twimg.com/profile_images/988775660163252226/XpgonN0X_400x400.jpg" , _twitter = "BillGates" + , _twitterLink = "https://twitter.com/billgates" , _website = "https://www.gatesnotes.com" , _books = [ Book { _title = "Leonardo da Vinci" , _author = "Walter Isaacson" @@ -110,6 +116,8 @@ displayPerson person = [shamlet| <div .card-body> <h4 .card-title> #{_name person} + <h6> + <a href=#{_twitterLink person} class="fab fa-twitter"> <h6 .card-subtitle> <a target=_blank href=#{_website person}>Website <p .card-text> @@ -132,6 +140,10 @@ homepage = [shamlet| rel="stylesheet" integrity="sha384-GJzZqFGwb1QTTN6wy59ffF1BuGJpLSa9DkKMp0DgiMDm4iYMj70gZWKYbI706tWS" crossorigin="anonymous"> + <link rel="stylesheet" + href="https://use.fontawesome.com/releases/v5.7.1/css/all.css" + integrity="sha384-fnmOCqbTlWIlj8LyTjo7mOUStjsKC4pOpQbqyi7RrhN7udi9RwhKkMHpvLbHG9Sr" + crossorigin="anonymous"> <link href="/custom.css" rel="stylesheet"> <title>#{title} | #{subtitle} <body> |