commit e20ef54d9fa1be087fb5b2baad9fcf5ecdfa073b Author: Jeremy Dormitzer Date: Tue May 28 08:57:43 2019 -0400 Initial commit diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..17db863 --- /dev/null +++ b/.gitignore @@ -0,0 +1,3 @@ +src/**/*.html +src/**/*.css +src/compiled/* \ No newline at end of file diff --git a/src/images/jeremy.jpg b/src/images/jeremy.jpg new file mode 100644 index 0000000..c98cb9f Binary files /dev/null and b/src/images/jeremy.jpg differ diff --git a/src/index.html.pm b/src/index.html.pm new file mode 100644 index 0000000..3433ba2 --- /dev/null +++ b/src/index.html.pm @@ -0,0 +1,9 @@ +#lang pollen + +◊image[#:src "images/jeremy.jpg" #:width "300px"] + +Hi! I’m Jeremy Dormitzer. I’m a full-stack software engineer from Boston, MA. + +I love generative art, entrepreneurship, and automation. I think that software gives us superpowers, and I want to build programs that suprise, delight, and empower. + +Connect with me on ◊link[#:href "https://mastodon.technology/@jdormit"]{Mastodon} or ◊link[#:href "https://linkedin.com/in/jeremydormitzer"]{LinkedIn}. \ No newline at end of file diff --git a/src/pollen.rkt b/src/pollen.rkt new file mode 100644 index 0000000..9b01f81 --- /dev/null +++ b/src/pollen.rkt @@ -0,0 +1,22 @@ +#lang racket +(require pollen/decode txexpr) +(provide (all-defined-out)) + +(define (root . elements) + (txexpr 'root + empty + (decode-elements elements + #:txexpr-elements-proc decode-paragraphs))) + +(define (zip-kws kws kw-args) + (map list (map string->symbol (map keyword->string kws)) kw-args)) + +(define link + (make-keyword-procedure + (lambda (kws kw-args . elements) + (txexpr 'a (zip-kws kws kw-args) elements)))) + +(define image + (make-keyword-procedure + (lambda (kws kw-args . elements) + (txexpr 'img (zip-kws kws kw-args) elements))))