summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--haunt.scm38
1 files changed, 37 insertions, 1 deletions
diff --git a/haunt.scm b/haunt.scm
index c2c8652..105e44e 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -94,7 +94,7 @@
(div (@ (class "container"))
(div (@ (class "nav"))
(ul (li ,(link "David Thompson" "/"))
- (li (@ (class "fade-text")) "λ")
+ (li (@ (class "fade-text")) " ")
(li ,(link "About" "/about.html"))
(li ,(link "Blog" "/index.html"))
(li ,(link "Projects" "/projects.html"))))
@@ -176,6 +176,40 @@ free culture works available under the " ,%cc-by-sa-link " license.")
`(pre (@ ,@attrs)
,(maybe-highlight-code source)))))
+(define (about-page site posts)
+ (define body
+ `((h2 "Hi.")
+ (p "I am a professional software developer and free software
+activist based in Massachusetts.")
+ (p "I graudated from "
+ ,(anchor "Worcester State University" "http://worcester.edu")
+ " in 2012 with a BS in Computer Science.")
+ (p "I am currently a web developer with a focus on operations
+at "
+ ,(anchor "Vista Higher Learning" "http://vistahigherlearning.com")
+ ", and formerly a web developer at the "
+ ,(anchor "Free Software Foundation." "https://fsf.org"))
+ (p "You can follow me on "
+ ,(anchor "GNU Social" "https://quitter.se/davexunit") " and "
+ ,(anchor "Twitter" "https://twitter.com/davexunit") ".")))
+
+ (make-page "about.html"
+ (with-layout dthompson-theme site "About Me" body)
+ sxml->html))
+
+(define (projects-page site posts)
+ (define body
+ `((h1 "Projects")
+ (p ,(anchor "Guile-SDL2" "#") " — SDL2 bindings for Guile Scheme")
+ (p ,(anchor "Haunt" "#") " — Functional, hackable static site generator")
+ (p ,(anchor "Shroud" "#") " — GPG-based password manager")
+ (p ,(anchor "Sly" "#") " — Functional reactive game engine")
+ (p ,(anchor "srt2vtt" "#") " — SRT to WebVTT subtitle converter")))
+
+ (make-page "projects.html"
+ (with-layout dthompson-theme site "Projects" body)
+ sxml->html))
+
(site #:title "dthompson"
#:domain "dthompson.us"
#:default-metadata
@@ -185,6 +219,8 @@ free culture works available under the " ,%cc-by-sa-link " license.")
#:builders (list (blog #:theme dthompson-theme #:collections %collections)
(atom-feed)
(atom-feeds-by-tag)
+ about-page
+ projects-page
(static-directory "css")
(static-directory "fonts")
(static-directory "images")