diff options
| author | Ben Sima <ben@bsima.me> | 2019-02-23 19:46:09 -0800 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-02-23 19:54:41 -0800 |
| commit | f75eaf7fff963b88e412d315d0fdef8151943c20 (patch) | |
| tree | 4e10e624ab6b93b640f2a93f648207a41cc90a25 /apex/Main.hs | |
| parent | 81313e15c70bf1c2fe2cd4720f19ae7a2e952fc7 (diff) | |
Reorganize directory
Diffstat (limited to 'apex/Main.hs')
| -rw-r--r-- | apex/Main.hs | 117 |
1 files changed, 117 insertions, 0 deletions
diff --git a/apex/Main.hs b/apex/Main.hs new file mode 100644 index 0000000..27506d8 --- /dev/null +++ b/apex/Main.hs @@ -0,0 +1,117 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE QuasiQuotes #-} + +module Main 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 |