Worked on about page, added link highlighting, added many logos.
|
@ -4,7 +4,7 @@ import HtmlGen
|
||||||
import Templates
|
import Templates
|
||||||
|
|
||||||
lastModified :: String
|
lastModified :: String
|
||||||
lastModified = "2018-05-05"
|
lastModified = "2018-05-06"
|
||||||
|
|
||||||
sitemap :: Sitemap
|
sitemap :: Sitemap
|
||||||
sitemap = baseSitemap aboutUrl
|
sitemap = baseSitemap aboutUrl
|
||||||
|
@ -17,7 +17,18 @@ page = simplePage "About Lijero" "Lijero" lastModified $
|
||||||
article
|
article
|
||||||
%> (h1 %>> "About")
|
%> (h1 %>> "About")
|
||||||
%> (p
|
%> (p
|
||||||
%>> "I am a programmer, musician, and hiker. I seek beauty, elegance, and cleanliness in everything I do."
|
%>> "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."
|
%>> "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."
|
%>> "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`.")
|
||||||
|
|
|
@ -0,0 +1,3 @@
|
||||||
|
cd templates
|
||||||
|
stack install
|
||||||
|
cd ..
|
Before Width: | Height: | Size: 3.2 KiB After Width: | Height: | Size: 3.2 KiB |
|
@ -75,6 +75,16 @@ a:hover {
|
||||||
color: #8080A0;
|
color: #8080A0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
.accounticon {
|
||||||
|
height: 100px;
|
||||||
|
padding: 10px;
|
||||||
|
}
|
||||||
|
|
||||||
|
.current-link:not(.navbrand) {
|
||||||
|
color: #505070;
|
||||||
|
border-bottom-style: solid;
|
||||||
|
}
|
||||||
|
|
||||||
.quote-content::before {
|
.quote-content::before {
|
||||||
content: url("/res/icon/double-quote-serif-left.svg");
|
content: url("/res/icon/double-quote-serif-left.svg");
|
||||||
}
|
}
|
||||||
|
|
|
@ -0,0 +1 @@
|
||||||
|
window.onload = function(){document.querySelectorAll('a[href=\"'+document.URL+'\"]').forEach(function(elem){elem.className += ' current-link';});};
|
After Width: | Height: | Size: 12 KiB |
After Width: | Height: | Size: 3.3 KiB |
After Width: | Height: | Size: 7.0 KiB |
After Width: | Height: | Size: 1.9 KiB |
After Width: | Height: | Size: 5.5 KiB |
After Width: | Height: | Size: 4.2 KiB |
After Width: | Height: | Size: 33 KiB |
After Width: | Height: | Size: 9.6 KiB |
After Width: | Height: | Size: 326 KiB |
After Width: | Height: | Size: 4.6 KiB |
After Width: | Height: | Size: 36 KiB |
|
@ -20,13 +20,14 @@ basePage pageTitle authorName content =
|
||||||
%> faviconLink
|
%> faviconLink
|
||||||
%> (title %>> pageTitle)
|
%> (title %>> pageTitle)
|
||||||
%> viewport
|
%> viewport
|
||||||
|
%> (newTag "script" %% ("async", "async") %% ("type", "text/javascript") %% ("src", resUrl ++ "common.js"))
|
||||||
)
|
)
|
||||||
%> content
|
%> content
|
||||||
|
|
||||||
navSection :: Html
|
navSection :: Html
|
||||||
navSection =
|
navSection =
|
||||||
nav
|
nav
|
||||||
%> (spanTag `withId` "navbrand" %>> "Lijero")
|
%> (spanTag `withId` "navbrand" %> ((href baseUrl $ text "Lijero") %% ("class", "navbrand")))
|
||||||
%> unorderedList
|
%> unorderedList
|
||||||
[ href baseUrl $ text "Home"
|
[ href baseUrl $ text "Home"
|
||||||
, href projectsUrl $ text "Projects"
|
, href projectsUrl $ text "Projects"
|
||||||
|
|
|
@ -43,3 +43,42 @@ faviconMime = "image/png"
|
||||||
|
|
||||||
faviconLink :: Html
|
faviconLink :: Html
|
||||||
faviconLink = favicon faviconUrl faviconMime
|
faviconLink = favicon faviconUrl faviconMime
|
||||||
|
|
||||||
|
accountIconClass :: (String, String)
|
||||||
|
accountIconClass = ("class", "accounticon")
|
||||||
|
|
||||||
|
githubMarkUrl :: String
|
||||||
|
githubMarkUrl = iconUrl ++ "github-mark-100px.png"
|
||||||
|
|
||||||
|
githubMark :: Html
|
||||||
|
githubMark = img "GitHub" githubMarkUrl %% accountIconClass
|
||||||
|
|
||||||
|
linkedinLogoUrl :: String
|
||||||
|
linkedinLogoUrl = iconUrl ++ "linkedin-logo-100px.png"
|
||||||
|
|
||||||
|
linkedinLogo :: Html
|
||||||
|
linkedinLogo = img "LinkedIn" linkedinLogoUrl %% accountIconClass
|
||||||
|
|
||||||
|
redditLogoUrl :: String
|
||||||
|
redditLogoUrl = iconUrl ++ "reddit-logo-100px.png"
|
||||||
|
|
||||||
|
redditLogo :: Html
|
||||||
|
redditLogo = img "Reddit" redditLogoUrl %% accountIconClass
|
||||||
|
|
||||||
|
wikipediaLogoUrl :: String
|
||||||
|
wikipediaLogoUrl = iconUrl ++ "wikipedia-logo-100px.png"
|
||||||
|
|
||||||
|
wikipediaLogo :: Html
|
||||||
|
wikipediaLogo = img "Wikipedia" wikipediaLogoUrl %% accountIconClass
|
||||||
|
|
||||||
|
youtubeLogoUrl :: String
|
||||||
|
youtubeLogoUrl = iconUrl ++ "youtube-logo-100px.jpeg"
|
||||||
|
|
||||||
|
youtubeLogo :: Html
|
||||||
|
youtubeLogo = img "Youtube" youtubeLogoUrl %% accountIconClass
|
||||||
|
|
||||||
|
freenodeLogoUrl :: String
|
||||||
|
freenodeLogoUrl = iconUrl ++ "freenode-logo.svg"
|
||||||
|
|
||||||
|
freenodeLogo :: Html
|
||||||
|
freenodeLogo = img "Freenode" freenodeLogoUrl %% accountIconClass
|
||||||
|
|