43 lines
1.4 KiB
Haskell
43 lines
1.4 KiB
Haskell
module Page where
|
|
|
|
import HtmlGen
|
|
import Templates
|
|
|
|
lastModified :: String
|
|
lastModified = "2018-09-19"
|
|
|
|
sitemap :: Sitemap
|
|
sitemap = baseSitemap projectsUrl
|
|
`withLastMod` lastModified
|
|
`withPriority` "0.8"
|
|
`withChangeFreq` "weekly"
|
|
|
|
page :: Html
|
|
page = simplePage "James's Projects" "James" 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-asm") $ text "Qipl")
|
|
%>> " and my contributions to "
|
|
%> (href (githubUrl ++ "HazenRobotics/ftc_app") $ text "Hazen Robotics")
|
|
%>> ". I also have a planned bootable Qipl-based operating system, named "
|
|
%> (href (githubQiplProjectUrl "quos-kernel") $ text "Quos")
|
|
%>> "."
|
|
)
|
|
%> (p
|
|
%>> "In addition, we have the static site generator I wrote for this website, "
|
|
%> (href (githubProjectUrl "html-generator") $ text "html-generator")
|
|
%>> ", and of course "
|
|
%> (href (githubProjectUrl "jtmar.me") $ text "the source code for this website itself")
|
|
%>> "."
|
|
)
|
|
%> (h2 %>> "Music")
|
|
%> (p
|
|
%>> "Writing music is one of my other hobbies. "
|
|
%>> "However, I have not yet released anything. "
|
|
)
|