Add "About Me" and "Projects" pages.

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")