summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdist/antiquitysort-exebin22612696 -> 22624312 bytes
-rw-r--r--src/Lib.hs72
-rw-r--r--static/style.css112
3 files changed, 41 insertions, 143 deletions
diff --git a/dist/antiquitysort-exe b/dist/antiquitysort-exe
index ad984ec..6ca9fe4 100755
--- a/dist/antiquitysort-exe
+++ b/dist/antiquitysort-exe
Binary files differ
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
diff --git a/static/style.css b/static/style.css
deleted file mode 100644
index e014d12..0000000
--- a/static/style.css
+++ /dev/null
@@ -1,112 +0,0 @@
-@font-face {
- font-family: EBGaramond;
- src: url(/antiquitysort/static/EBGaramond-VariableFont_wght.ttf) format('woff2-variations');
- font-style: normal;
-}
-
-@font-face {
- font-family: EBGaramond;
- src: url(/antiquitysort/static/EBGaramond-Italic-VariableFont_wght.ttf) format('woff2-variations');
- font-style: italic;
-}
-
-body {
- background: #fdf3f3;
- color: DarkSlateGrey;
- font-family: EBGaramond, serif;
- font-size: large;
-}
-
-a {
- color: #1a97bf;
-}
-
-a:hover {
- color: #075d77;
-}
-
-.container {
- margin: 1em;
-}
-
-.row {
- margin-bottom: 1em;
-}
-
-.title {
- letter-spacing: -0.5px;
-}
-
-ul {
- margin-top: 2px;
- margin-bottom: 0;
- padding-left: 0;
-}
-
-figure {
- margin: 0px;
- display: inline-block;
-}
-
-figcaption {
- font-family: sans-serif;
- font-size: small;
- margin-top: -7px;
-}
-
-img {
- width: 85%;
- max-width: 1200px;
- padding: 5px;
-}
-
-form {
- padding: 10px;
-}
-
-.work {
- vertical-align: top;
- text-align: center;
-}
-
-.subwork {
- overflow-x: scroll;
- overflow-y: hidden;
- white-space: nowrap;
-}
-
-td, th {
- border-bottom: 1px black solid;
- border-bottom: 1px black solid;
- padding: 4px;
-}
-
-.narrow {
- max-width: 31em;
-}
-
-fieldset {
- margin-bottom: 10px;
-}
-
-p {
- margin-top: .3em;
- margin-bottom: .3em;
-}
-
-
-.ico {
-}
-
-.sep {
- margin-left: 6px;
- margin-right: 6px;
-}
-
-.nonbreaking {
- white-space: nowrap;
-}
-
-.disabled {
- color: grey;
-}