35 lines
1.5 KiB
Haskell
35 lines
1.5 KiB
Haskell
module Page where
|
|
|
|
import HtmlGen
|
|
import Templates
|
|
|
|
lastModified :: String
|
|
lastModified = "2018-05-06"
|
|
|
|
sitemap :: Sitemap
|
|
sitemap = baseSitemap aboutUrl
|
|
`withLastMod` lastModified
|
|
`withPriority` "0.8"
|
|
`withChangeFreq` "weekly"
|
|
|
|
page :: Html
|
|
page = simplePage "About Lijero" "Lijero" lastModified $
|
|
article
|
|
%> (h1 %>> "About")
|
|
%> (p
|
|
%>> "I am a programmer, musician, and hiker. I seek beauty, elegance, and cleanliness in everything I do. "
|
|
%>> "I write Agda, Haskell, and Java. I enjoy making programming languages and constructed human languages. "
|
|
%>> "This page is, like the rest of the site, obviously incomplete."
|
|
)
|
|
%> (h2 %>> "Accounts")
|
|
%> (p %>> "This is intended to be the exhaustive and canonical list of my online accounts. Anything not listed here is not me.")
|
|
%> (href "https://github.com/lijerom/" githubMark)
|
|
%> (href "https://www.linkedin.com/in/jtmarlijero/" linkedinLogo)
|
|
%> (href "https://www.reddit.com/user/lijero" redditLogo)
|
|
%> (href "https://www.youtube.com/channel/UCdLV1echQeS2BZxF7uSmubw" youtubeLogo)
|
|
%> (href "https://en.wikipedia.org/wiki/User:Lijero" wikipediaLogo)
|
|
%> (href "https://webchat.freenode.net/?channels=%23lijero" freenodeLogo)
|
|
%> (href "https://stackexchange.com/users/10815798/james-martin" $ img "James Martin's Stack Exchange profile" "https://stackexchange.com/users/flair/10815798.png" %% accountIconClass)
|
|
%> (h2 %>> "Contact")
|
|
%> (p %>> "You may email me at jtmar@[this website] for professional contact or lijero@[this website]. I may also be found on Freenode as `lijero`.")
|