Content in about page, removed lorem ipsum, center titles, updates.

master
LijeroM 2018-05-06 20:19:34 -07:00
parent 0bfc359ae3
commit 92cd0b3c08
6 changed files with 101 additions and 20 deletions

View File

@ -17,11 +17,96 @@ 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."
%>> "Hi! I'm James Martin, a student at Hazen High School with an insatiable love of learning. "
%>> "Right now I'm working on a " %> (href githubQiplUrl $ text "fully reversible programming language")
%>> ", and actively studying " %> (href "https://homotopytypetheory.org/" $ text "homotopy type theory") %>> "."
)
%> (h2 %>> "Accounts")
%> (p
%>> "When I'm not busy with my head in some books or deep into writing some proof, "
%>> "you can find me involved in various school activities. "
%>> "I'm a member of the Hazen Marching Band, and the zero-period jazz band. "
%>> "In addition I write Java for "
%> (href "https://github.com/HazenRobotics/" $ text "robotics club")
%>> ". "
)
%> (p
%>> "When the outdoors call you'll find me hiking or skiing. "
%>> "There isn't anywhere quite like a mountaintop in clear weather, "
%>> "a crystal-clear alpine lake, "
%>> "or a challenging slope covered in fresh powder."
)
%> (h2 %>> "Hobbies")
%> (h3 %>> "Programming")
%> (p
%>> "Obviously, I'm a programmer. "
%>> "Aside from the aforementioned programming language and this website, "
%>> "I've written a Minecraft clone, platformer games, HTTP and IRC servers, "
%>> "other programming languages, and similar things."
)
%> (p
%>> "I've researched operating systems and CPUs, "
%>> "though I never got far in implementing either. "
%>> "I sure learned a lot in the process, though! "
%>> "I did actually implement a CPU in Minecraft once, "
%>> "though I don't think that really counts."
)
%> (p
%>> "Once upon a time I also ran a fairly popular Minecraft server, "
%>> "most gameplay features of which were custom coded. "
%>> "That said, I was eleven, which was not exactly my prime. "
)
%> (h3 %>> "Conlanging")
%> (p
%>> "Conlanging is the art of artificial language construction. "
%>> "It's a lot of fun, because it's at the perfect intersection "
%>> "of creative and technical. "
%>> "It's also given me a reasonable linguistics background."
)
%> (p
%>> "There's also Worldbuilding, "
%>> "immersing yourself in entire new worlds for fun and profit. "
%>> "Unfortunately I haven't had as much time recently to do this as I'd like."
)
%> (h3 %>> "Music")
%> (p
%>> "Aside from being a trombonist, I have very broad tastes in music. "
%>> "I like everything from jazz to glitch funk to rock. "
%>> "I'm taking AP Music Theory so I can learn to compose my own!"
)
%> (h2 %>> "Things I use")
%> (h3 %>> "Programming Languages")
%> (h4 %>> "The daily drivers")
%> unorderedList
[ spanTag %> bold "Haskell" %>> ", my go-to language."
, spanTag %> bold "Agda" %>> ", used for writing proof-carrying code."
, spanTag %> bold "Java" %>> ", used in Hazen Robotics."
, spanTag %> bold "HTML" %>> " and " %> bold "CSS" %>> ", for this website."
]
%> (h4 %>> "Interesting alternatives")
%> unorderedList
[ spanTag %> bold "Racket" %>> ", though usually I prefer Haskell."
, spanTag %> bold "Rust" %>> ", though I don't write much low-level code."
, spanTag %> bold "Forth" %>> " and " %> bold "Prolog" %>> ", interesting but impractical."
, spanTag %> bold "C#" %>> ", though I'm more likely to use Java."
]
%> (h3 %>> "GNU/Linux")
%> (p
%>> "I'm a satisfied user of Debian GNU/Linux and a supporter of "
%> (href "https://www.gnu.org/philosophy/free-sw.html" $ text "free software") %>> ". "
%>> "I enjoy the simplicity and power of " %> (href "http://xmonad.org/" $ text "xmonad") %>> ". "
%>> "Emacs is my preferred editor."
)
%> (h3 %>> "Let's Encrypt")
%> (p
%>> "I believe that it is important to " %> (href "https://www.eff.org/encrypt-the-web" $ text "encrypt the web") %>> ". "
%>> "This website uses strong encryption provided by " %> (href "https://letsencrypt.org/" $ text "Let's Encrypt") %>> ". "
%>> "In fact, " %> (href "https://www.ssllabs.com/ssltest/analyze.html?d=lijero.co&latest" $ text "this site has a perfect (A+) score") %>> " on SSL Labs."
)
%> (p
%>> "Relatedly, you can find the entirety of this site's source code " %> (href (githubProjectUrl "lijero.co") $ text "on GitHub") %>> ". "
%>> "The site's Nginx, DNS, and other configuration can be found in " %> (href (githubProjectUrl "lijero.co-config") $ text "another repository") %>> "."
)
%> (h2 %>> "Accounts" %% ("id", "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)
@ -30,5 +115,5 @@ page = simplePage "About Lijero" "Lijero" lastModified $
%> (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`.")
%> (h2 %>> "Contact" %% ("id", "contact"))
%> (p %>> "You may email me at " %> italic "jtmar@[this website]" %>> " for professional contact or " %> italic "lijero@[this website]" %>> ". I may also be found on Freenode as " %> italic "lijero" %>> ".")

View File

@ -5,10 +5,10 @@ import Templates
import HtmlGen
lastModified :: String
lastModified = "2018-05-05"
lastModified = "2018-05-06"
sitemap :: Sitemap
sitemap = baseSitemap "https://lijero.co/index.xhtml"
sitemap = baseSitemap "https://lijero.co/"
`withLastMod` lastModified
`withPriority` "1.0"
`withChangeFreq` "weekly"
@ -16,9 +16,8 @@ sitemap = baseSitemap "https://lijero.co/index.xhtml"
page :: Html
page = simplePage "Lijero" "Lijero" lastModified $
article
%> (h1 %>> "Home Page")
%> (p %>> "Sorry! This site is currently under construction.")
%> (h2 %>> "Lorem Ipsum")
%> (p %>> "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.")
%> (p %>> "Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt explicabo. Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt. Neque porro quisquam est, qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit, sed quia non numquam eius modi tempora incidunt ut labore et dolore magnam aliquam quaerat voluptatem. Ut enim ad minima veniam, quis nostrum exercitationem ullam corporis suscipit laboriosam, nisi ut aliquid ex ea commodi consequatur? Quis autem vel eum iure reprehenderit qui in ea voluptate velit esse quam nihil molestiae consequatur, vel illum qui dolorem eum fugiat quo voluptas nulla pariatur?")
%> (p %>> "At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia deserunt mollitia animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet ut et voluptates repudiandae sint et molestiae non recusandae. Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus maiores alias consequatur aut perferendis doloribus asperiores repellat.")
%> (h1 %>> "Home")
%> (p
%>> "Sorry! This site is currently under construction. "
%>> "However, you'll find that some of the other pages are more complete."
)

View File

@ -51,6 +51,7 @@ p {
}
article h1 {
text-align: center;
font-size: 30px;
}
@ -132,10 +133,6 @@ footer {
min-width: 25em;
max-width: 33em;
}
article h1 {
margin-left: -20px;
}
}
pre {

Binary file not shown.

@ -1 +1 @@
Subproject commit ee8ceaca33d16a07a8b1128398150daf11867c06
Subproject commit af27fc6304ae0a6b9b70afc242bf4e0a031b88ba

View File

@ -20,7 +20,7 @@ basePage pageTitle authorName content =
%> faviconLink
%> (title %>> pageTitle)
%> viewport
%> (newTag "script" %% ("async", "async") %% ("type", "text/javascript") %% ("src", resUrl ++ "common.js"))
%> (newTag "script" %% ("async", "async") %% ("src", resUrl ++ "common.js"))
)
%> content