Skip to content

Commit

Permalink
Tweak style
Browse files Browse the repository at this point in the history
  • Loading branch information
srid committed Nov 29, 2023
1 parent ec1ca4a commit ddfbb32
Show file tree
Hide file tree
Showing 2 changed files with 35 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,7 @@ renderHtmlRoute rp m r = do
H.html ! A.lang "en" $ do
H.head $ do
renderHead rp m r
H.body $ do
H.body ! A.class_ "bg-gray-50" $ do
renderBody rp m r

renderHead :: Prism' FilePath Route -> Model -> HtmlRoute -> H.Html
Expand All @@ -79,7 +79,7 @@ renderHead rp model r = do

renderBody :: Prism' FilePath Route -> Model -> HtmlRoute -> H.Html
renderBody rp model r = do
H.div ! A.class_ "container mx-auto mt-8 p-2" $ do
H.div ! A.class_ "container mx-auto mt-8 p-4 max-w-prose border-2 bg-white rounded-lg shadow" $ do
renderNavbar rp r
H.h1 ! A.class_ "text-3xl font-bold" $ H.toHtml $ routeTitle r
case r of
Expand All @@ -89,7 +89,7 @@ renderBody rp model r = do
"?"
HtmlRoute_About -> do
"You are on the about page."
H.a ! A.href (staticRouteUrl rp model "logo.svg") $ do
H.a ! A.href (staticRouteUrl rp model "logo.svg") ! A.target "_blank" $ do
H.img ! A.src (staticRouteUrl rp model "logo.svg") ! A.class_ "py-4 w-32" ! A.alt "Ema Logo"

renderNavbar :: Prism' FilePath Route -> HtmlRoute -> H.Html
Expand Down
32 changes: 32 additions & 0 deletions static/tailwind.css

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

0 comments on commit ddfbb32

Please sign in to comment.