diff options
author | Jasper Van der Jeugt | 2020-08-16 12:33:21 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-08-16 12:33:21 +0200 |
commit | d543ef8b1f68a23f9bc3706363fc3807ccbabf30 (patch) | |
tree | 3d933f13ab57bf0ff2c625394cc1f4de0020af63 /server/lib | |
parent | 5a3fc14c1a92b28423d1b64b64e12d0502a90219 (diff) |
Room list styling
Diffstat (limited to '')
-rw-r--r-- | server/lib/Uplcg/Views.hs | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/server/lib/Uplcg/Views.hs b/server/lib/Uplcg/Views.hs index 772c83b..8241158 100644 --- a/server/lib/Uplcg/Views.hs +++ b/server/lib/Uplcg/Views.hs @@ -31,15 +31,16 @@ template conf title body = H.docTypeHtml $ do H.footer $ "Untitled PL Card Game version " <> H.toHtml version rooms :: Config -> [RoomView] -> H.Html -rooms conf rids = template conf "Untitled PL Card Game" $ do - H.h1 "Rooms" - H.ul $ for_ rids $ \(RoomView rid num) -> H.li $ do - H.a H.! A.href (H.toValue $ - BaseUrl.render (cBaseUrl conf) <> "/rooms/" <> rid) $ - H.toHtml rid - " (" - H.toHtml num - ")" +rooms conf rids = template conf "Untitled PL Card Game" $ + H.div H.! A.class_ "rooms" $ do + H.h1 "Rooms" + H.ul $ for_ rids $ \(RoomView rid num) -> H.li $ do + H.a H.! A.href (H.toValue $ + BaseUrl.render (cBaseUrl conf) <> "/rooms/" <> rid) $ + H.toHtml rid + " (" + H.toHtml num + ")" client :: Config -> Text -> H.Html client conf roomId = template conf "Untitled PL Card Game" $ do |