{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
module Ibb where
import Biz.Ibb (Person(..), Book(..), allPeople)
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 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>
#{_blurb person}
<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