36 lines
1.1 KiB
Haskell
36 lines
1.1 KiB
Haskell
module Page where
|
|
|
|
import HtmlGen
|
|
import Templates
|
|
|
|
lastModified :: String
|
|
lastModified = "2018-05-05"
|
|
|
|
sitemap :: Sitemap
|
|
sitemap = baseSitemap projectsUrl
|
|
`withLastMod` lastModified
|
|
`withPriority` "0.8"
|
|
`withChangeFreq` "weekly"
|
|
|
|
page :: Html
|
|
page = simplePage "Lijero's Projects" "Lijero" lastModified $
|
|
article
|
|
%> (h1 %>> "Projects")
|
|
%> (h2 %>> "Programming")
|
|
%> (p
|
|
%>> "All of my active programming projects may be found on "
|
|
%> (href githubUserUrl $ text "my Github page")
|
|
%>> ". My most notable projects include my work-in-progress programming language "
|
|
%> (href (githubQiplProjectUrl "qipl-agda") $ text "Qipl")
|
|
%>> " and my contributions to "
|
|
%> (href (githubUrl ++ "HazenRobotics/ftc_app") $ text "Hazen Robotics")
|
|
%>> "."
|
|
)
|
|
%> (h2 %>> "Audiobooks")
|
|
%> (p
|
|
%>> "I am currently working on recording The Grapes of Wrath for my English teacher"
|
|
%>> "due to a lack of quality recordings of it. You may find that series in "
|
|
%> (href (baseUrl ++ "gow/") $ text "its YouTube playlist")
|
|
%>> "."
|
|
)
|