From: sabadev <saba@sabadev.xyz>
Date: Tue, 16 Mar 2021 13:01:37 +0000 (-0400)
Subject: Added a sparse main page.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=0b938f5e4b4d0f48e7c6d7cd1ad098ef6ec6f5fc;p=website.git

Added a sparse main page.
---

diff --git a/src/Server.hs b/src/Server.hs
index c98da1a..dc04496 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -20,25 +20,36 @@ type Themes = DarkTheme :<|> LightTheme
 type DarkTheme = "dark" :> Get '[CSS] T.Text
 type LightTheme = "light" :> Get '[CSS] T.Text
 
-type BlogId = Integer
+type BlogId = FilePath
 
 api :: Server Api
 api = mainPage :<|> blogPost :<|> themes
 
 mainPage :: Handler (Html ())
-mainPage = undefined
+mainPage = pure $ with doctypehtml_ [lang_ "en"] $ do
+  head_ $ do
+    title_ $ toHtml siteTitle
+    meta_ [charset_ "utf8"]
+    meta_ [name_ "description", content_ "width=device-width"]
+    link_ [rel_ "stylesheet", href_ "/dark"]
+  body_ $ do
+    h1_ $ toHtml siteTitle
 
 blogPost :: Maybe BlogId -> Handler (Html ())
-blogPost blogId = undefined
+blogPost Nothing = mainPage
+blogPost (Just blogId) = mainPage
 
 themes :: Server Themes
 themes = darkTheme :<|> lightTheme
 
 darkTheme :: Handler T.Text
-darkTheme = undefined
+darkTheme = pure mempty
 
 lightTheme :: Handler T.Text
-lightTheme = undefined
+lightTheme = pure mempty
 
 htmlContainer :: Html a -> Html a
 htmlContainer = id
+
+siteTitle :: T.Text
+siteTitle = "My Site"