diff options
| -rw-r--r-- | haunt.scm | 38 |
1 files changed, 37 insertions, 1 deletions
@@ -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") |