Initial commit

.gitignore

@@ -0,0 +1,3 @@
+src/**/*.html
+src/**/*.css
+src/compiled/*

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}.

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