Views.hs

{-# LANGUAGE OverloadedStrings #-}

module Views (root, Views.list) where

import Problems (Problem(..), problems)
import Data.Monoid (mempty)
import qualified Web.Scotty as S
import Text.Blaze.Html5
import Text.Blaze.Html5.Attributes
import Text.Blaze.Html5 as H
import Text.Blaze.Html5.Attributes as A
import Text.Blaze.Html.Renderer.Text
import Prelude hiding (head, div, id)

renderProblems :: Html
renderProblems = mapM_
    (\(n,d) -> div $ do
        H.span ! class_ "num" $ toHtml $ show n ++ ". "
        a ! href (toValue $ "/" ++ show n) $ toHtml d
        br
        br)
    $ zip [1..] $ Prelude.map description problems

renderTests :: Problem -> Html
renderTests p = mapM_
    (\t -> div ! class_ "test" $ do
        div ! class_ "success neutral" $ mempty
        div ! class_ "overview" $ toHtml $ (fst t) ++ " -> " ++ (snd t))
    (tests p)

root :: Int -> S.ActionM ()
root i = S.html . renderHtml $ do
    head $ do
        H.title "99 Haskell"
        link ! rel "stylesheet" ! href "https://maxcdn.bootstrapcdn.com\
            \/font-awesome/4.3.0/css/font-awesome.min.css"
        link ! rel "stylesheet" ! href
            "https://fonts.googleapis.com/css?family=Open+Sans:400,400italic"
        link ! rel "stylesheet" ! href
            "https://fonts.googleapis.com/css?family=Source+Code+Pro"
        link ! rel "stylesheet" ! href "/css/root.css"

    body $ do
        div ! class_ "datax" ! dataAttribute "num" (toValue i) $ mempty
        div ! class_ "topbar" $ mempty
        header "99 Haskell"

        div ! class_ "io-wrap" $ do
            section ! class_ "in" $ do
                div ! class_ "dashboard" $ do
                    div ! class_ "problem" $ do
                        b $ do
                            toHtml i
                            ". "
                        toHtml . description $ p

                    div ! class_ "control" $ do
                        a ! href "/problems" ! target "_blank" $ "Problems"
                        br
                        a ! href (toValue $
                            "https://wiki.haskell.org/99_questions/Solutions/"
                            ++ show i) ! target "_blank" $ "Solutions"

                div ! class_ "termbar" $ do
                    div ! class_ "left" $ do
                        H.span ! class_ "filename" $ "Main.hs"

                    div ! class_ "right" $ do
                        H.span ! class_ "run fa fa-play"
                               ! A.title "Run code (Ctrl-Enter)"
                               ! dataAttribute "disabled" "false" $ mempty

                div ! id "terminal" $ toHtml . hint $ p
                div ! class_ "warning" $ mempty

            nav $ do
                a ! class_ "all" ! href "/problems" $ do
                    H.span ! class_ "fa fa-th-list" $ mempty
                a ! class_ "next" ! href (toValue $ "/" ++ show (i + 1)) $
                    toHtml $ "Nice! Head over to problem #" ++ show (i + 1)

            section ! class_ "out" $ renderTests $ p

        footer $ do
            div ! class_ "quote" $
                "\"I've got 99 problems but a side effect ain't one\""

            "A service made by "
            a ! href "http://bram.gg" $ "Bram Hoskin"
            " - "
            a ! href
                "https://github.com/bramgg/99haskell/blob/master/README.md" $
                "About"

        script ! src "https://cdn.jsdelivr.net/ace/1.1.8/min/ace.js" $ mempty
        script ! src "/js/root.js" $ mempty
    where p = problems !! (i - 1)

list :: S.ActionM ()
list = S.html . renderHtml $ do
    head $ do
        H.title "Problems | 99 Haskell"
        link ! rel "stylesheet" ! href
            "https://fonts.googleapis.com/css?family=Open+Sans:400,400italic"
        link ! rel "stylesheet" ! href "/css/general.css"

    body $ do
        div ! class_ "topbar" $ mempty
        header "99 Haskell"
        div ! class_ "wrap" $ renderProblems