summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Lib.hs72
1 files changed, 41 insertions, 31 deletions
diff --git a/src/Lib.hs b/src/Lib.hs
index 212f31e..35db408 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -348,21 +348,22 @@ playURI mediumTags periods level gameState = "/" <> toUrlPiece (safeLink api (Pr
gameCrumbs :: Monad m => [MediumTag] -> [T.Text] -> [Period] -> Level -> [HtmlT m ()]
gameCrumbs _ labels periods level =
- [ span_ $ toHtmlRaw $ T.intercalate " &middot; " labels,
- span_ $ toHtmlRaw $ T.intercalate " &middot; " (renderPeriod <$> periods),
+ [ span_ $ toHtmlRaw $ T.intercalate ", " labels,
+ span_ $ toHtmlRaw $ T.intercalate ", " (renderPeriod <$> periods),
span_ $ toHtml . tshow $ level
]
instance ToHtml HomeView where
toHtml (HomeView (Manifest mediums)) =
pageTemplate
- [a_ [href_ "https://cyfraeviolae.org/git/antiquitysort", class_ "nonbreaking"] "source code"]
+ []
homeBody
where
- homeBody = div_ [class_ "narrow"] $ do
+ homeBody = div_ $ do
p_ $ toHtmlRaw $ T.pack "The spectral sorcerer Roseacrucis has cast his nefarious randomizing algorithms upon the Library&rsquo;s chronicles. Your mission is to restore the well&dash;ordering of our cultural histories."
+ br_ []
form_ [method_ "get", action_ "/antiquitysort/play"] $ do
- fieldset_ $ do
+ div_ $ do
legend_ "Folios"
forM_ mediums $ \Medium {tag = (MediumTag tagm), label, description, disabled} -> div_ $ do
input_ $
@@ -370,44 +371,47 @@ instance ToHtml HomeView where
++ [checked_ | tagm == "ReligiousArchitecture"]
++ [disabled_ "1" | disabled]
label_ (for_ tagm : [class_ "disabled" | disabled]) $ do
- span_ $ strong_ $ toHtml label <> ". "
+ span_ $ toHtml label <> ". "
if disabled
then span_ "Coming soon."
else span_ $ toHtmlRaw description
- fieldset_ $ do
+ br_ []
+ div_ $ do
legend_ "Periods"
div_ $ do
input_ [type_ "checkbox", name_ "p", value_ "Ancient", id_ "Ancient", checked_]
label_ [for_ "Ancient"] $ do
- span_ $ strong_ "Ancient "
+ span_ $ "Ancient "
span_ $ toHtmlRaw $ T.pack "(3000 BCE&mdash;600 CE)"
div_ $ do
input_ [type_ "checkbox", name_ "p", value_ "Postclassical", id_ "Postclassical"]
label_ [for_ "Postclassical"] $ do
- span_ $ strong_ "Postclassical "
+ span_ $ "Postclassical "
span_ $ toHtmlRaw $ T.pack "(400 CE&mdash;1600 CE)"
div_ $ do
input_ [type_ "checkbox", name_ "p", value_ "EarlyModern", id_ "EarlyModern"]
label_ [for_ "EarlyModern"] $ do
- span_ $ strong_ "Early modern "
+ span_ $ "Early modern "
span_ $ toHtmlRaw $ T.pack "(1400 CE&mdash;1850 CE)"
div_ $ do
input_ [type_ "checkbox", name_ "p", value_ "Modern", id_ "Modern"]
label_ [for_ "Modern"] $ do
- span_ $ strong_ "Modern "
+ span_ $ "Modern "
span_ $ toHtmlRaw $ T.pack "(1750 CE&mdash;)"
- fieldset_ $ do
+ br_ []
+ div_ $ do
legend_ "Duration"
div_ $ do
input_ [type_ "radio", name_ "l", value_ "Short", id_ "Short", checked_]
label_ [for_ "Short"] $ do
- span_ $ strong_ "Short "
+ span_ $ "Short "
span_ "(6 works, less than 11 questions)"
div_ $ do
input_ [type_ "radio", name_ "l", value_ "Long", id_ "Long"]
label_ [for_ "Long"] $ do
- span_ $ strong_ "Long "
+ span_ $ "Long "
span_ "(10 works, less than 25 questions)"
+ br_ []
button_ [type_ "submit"] "Start"
toHtmlRaw = toHtml
@@ -435,11 +439,12 @@ showCard Work {name, year, wiki} = do
renderWork :: Monad m => Work -> HtmlT m () -> HtmlT m ()
renderWork Work {figures} header = div_ [class_ "work"] $ do
div_ header
- div_ [class_ "subwork"] $ mapM_ renderFigure figures
+ div_ [class_ "wrapper"] $ mapM_ renderFigure figures
renderFigure :: Monad m => Figure -> HtmlT m ()
renderFigure Figure {file, byline} = figure_ $ do
img_ [src_ ("/antiquitysort/static/assets/" <> file)]
+ br_ []
figcaption_ $ toHtml byline
instance ToHtml PlayView where
@@ -447,8 +452,8 @@ instance ToHtml PlayView where
pageTemplate (gameCrumbs mediumTags labels periods level) body
where
body = do
- div_ [class_ "row"] $
- div_ [class_ "narrow"] $ do
+ div_ $
+ div_ $ do
p_ . toHtmlRaw $ feedback level misses
p_ $
em_ $ do
@@ -456,7 +461,8 @@ instance ToHtml PlayView where
span_ " or "
a_ [href_ homeURI] "choose different folios and periods"
span_ "."
- div_ [class_ "row"] $
+ br_ []
+ div_ $
table_ $ do
tr_ $ th_ "Your ordering" <> th_ "Correct ordering"
mapM_
@@ -465,8 +471,8 @@ instance ToHtml PlayView where
td_ (showCard userWork) <> td_ (showCard sortedWork)
)
(zip userWorks sortedWorks)
- div_ [class_ "row"] $
- div_ [class_ ""] $
+ div_ $
+ div_ $
mapM_
( \work -> do
renderWork work $
@@ -481,12 +487,14 @@ instance ToHtml PlayView where
pageTemplate (gameCrumbs mediumTags labels periods level) body
where
body = do
- div_ [class_ "row"] $
+ div_ $
p_ $ do
strong_ . toHtml $ "Question " <> tshow (length comps + 1) <> ". "
span_ "Select the work that was created first."
+ br_ []
small_ $ em_ " Dates for ancient works are approximate and reflect when construction began."
- div_ [class_ "row"] $ do
+ br_ []
+ div_ $ do
renderWork work1 (strong_ $ a_ [href_ (mkURI Less)] "Work A was created first.")
hr_ []
renderWork work2 (strong_ $ a_ [href_ (mkURI Greater)] "Work B was created first.")
@@ -500,20 +508,22 @@ pageTemplate crumbs body = doctypehtml_ $ do
meta_ [charset_ "utf-8"]
meta_ [name_ "viewport", content_ "width=device-width, initial-scale=1.0"]
link_ [rel_ "shortcut icon", type_ "image/x-icon", href_ "/antiquitysort/static/favicon.ico"]
- link_ [rel_ "stylesheet", type_ "text/css", href_ "/antiquitysort/static/style.css"]
+ link_ [rel_ "stylesheet", type_ "text/css", href_ "/static/styles.css"]
+ link_ [rel_ "stylesheet", type_ "text/css", href_ "/antiquitysort/static/styles.css"]
body_ $
div_ [class_ "container"] $ do
- div_ [class_ "row navbar"] $
- sequence_ $
+ div_ $ do
+ div_ [class_ "home"] $ do
+ a_ [href_ homeURI, class_ "home-title"] (strong_ "Antiquitysort")
+ span_ " at "
+ a_ [href_ "/"] "cyfraeviolae.org"
+ div_ [class_ "crumbs"] $ sequence_ $
L.intersperse
- (span_ [class_ "sep"] (toHtmlRaw (T.pack " | ")))
- (crumb : crumbs)
+ (span_ [class_ "sep"] (toHtmlRaw (T.pack " &middot; ")))
+ (srcCrumb : crumbs)
body
where
- crumb = span_ [class_ "ico"] $ do
- a_ [href_ homeURI, class_ "title"] (strong_ "Antiquitysort")
- span_ "@"
- a_ [href_ "https://cyfraeviolae.org"] "cyfraeviolae.org"
+ srcCrumb = a_ [href_ "/git/antiquitysort"] "source code"
tshow :: Show a => a -> T.Text
tshow = T.pack . show