1 files changed, 117 insertions, 0 deletions
diff --git a/apex/Ibb.hs b/apex/Ibb.hs
new file mode 100644
index 0000000..1472811
--- /dev/null
+++ b/apex/Ibb.hs
@@ -0,0 +1,117 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE QuasiQuotes #-}
+
+module Ibb where
+
+import Control.Monad.IO.Class (liftIO)
+import Data.ByteString.Lazy (ByteString)
+import Data.Maybe (fromMaybe)
+import Data.Text.Lazy (Text)
+import Data.Text.Lazy.Encoding (encodeUtf8)
+import Influencers (Person(..), Book(..), allPeople)
+import System.Environment (lookupEnv)
+import System.Random (newStdGen)
+import System.Random.Shuffle (shuffle')
+import Text.Blaze (Markup)
+import Text.Blaze.Html (Html)
+import Text.Blaze.Html.Renderer.Text (renderHtml)
+import Text.Hamlet (shamlet)
+import Text.Lucius (lucius, renderCss)
+import Web.Scotty (ActionM, ScottyM, scotty, get, html, raw, setHeader)
+
+render :: Html -> ActionM ()
+render = html . renderHtml
+
+css :: ByteString -> ActionM ()
+css src = setHeader "content-type" "text/css" >> raw src
+
+main :: IO ()
+main = do
+    port <- read <$> fromMaybe "3000" <$> lookupEnv "PORT" :: IO Int
+    scotty port routes
+
+routes :: ScottyM ()
+routes = do
+    get "/" $ do
+        r <- liftIO newStdGen
+        let peopleList = shuffle' allPeople (length allPeople) r
+        render (homepage peopleList)
+    get "/custom.css" $ css stylesheet
+
+displayPerson :: Person -> Markup
+displayPerson person = [shamlet|
+<div .card>
+  <img .card-img .img-fluid src=#{_pic person}>
+  <div .card-body>
+    <h4 .card-title>
+      #{_name person}
+    <h6>
+      <a target=_blank href="https://twitter.com/#{_twitter person}" class="fab fa-twitter">
+      <a target=_blank href=#{_website person} class="fas fa-globe">
+    <p .card-text>
+      <ul>
+        $forall book <- (_books person)
+          <li>
+            <a target=_blank .text-dark href="https://www.amazon.com/dp/#{_amznref book}">
+              #{_title book}
+|]
+
+title, subtitle :: Text
+title = "Influenced By Books"
+subtitle = "Influential people and the books that made them."
+
+homepage :: [Person] -> Markup
+homepage peopleList = [shamlet|
+<!doctype html>
+<head>
+  <meta charset="utf-8">
+  <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
+  <link href="https://stackpath.bootstrapcdn.com/bootstrap/4.2.1/css/bootstrap.min.css"
+        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}
+  <script>
+    (function(f, a, t, h, o, m){
+        a[h]=a[h]||function(){
+            (a[h].q=a[h].q||[]).push(arguments)
+        };
+        o=f.createElement('script'),
+        m=f.getElementsByTagName('script')[0];
+        o.async=1; o.src=t; o.id='fathom-script';
+        m.parentNode.insertBefore(o,m)
+    })(document, window, '//stats.simatime.com/tracker.js', 'fathom');
+    fathom('set', 'siteId', 'IJATN');
+    fathom('trackPageview');
+<body>
+  <div .container.mt-5>
+    <div .jumbotron>
+      <h1 .display-4>
+        #{title}
+      <p .lead>
+        #{subtitle}
+
+      <p .lead>
+        <a href="http://eepurl.com/ghBFjv">
+          Get new book recommendations from the world's influencers in your email.
+
+    <div .card-columns>
+      $forall person <- peopleList
+        #{displayPerson person}
+|]
+
+stylesheet :: ByteString
+stylesheet = encodeUtf8 . renderCss $ [lucius|
+.jumbotron
+{ background: #fff
+; text-align: center
+}
+h1.display-4
+{ font-family: 'Times New Roman', times, serif
+}
+|] undefined