diff options
-rw-r--r-- | posts/2024-06-01-lisp-icing-or-cake.md | 2 | ||||
-rw-r--r-- | theme.scm | 11 |
2 files changed, 6 insertions, 7 deletions
diff --git a/posts/2024-06-01-lisp-icing-or-cake.md b/posts/2024-06-01-lisp-icing-or-cake.md index 0d2479e..36a61b3 100644 --- a/posts/2024-06-01-lisp-icing-or-cake.md +++ b/posts/2024-06-01-lisp-icing-or-cake.md @@ -208,7 +208,7 @@ toolchain](https://wingolog.org/archives/2024/05/24/hoots-wasm-toolkit), and extended Guile’s compiler. It's Lisp all the way until you hit the browser runtime! We even have a Wasm interpreter that runs on the Guile VM! Hoot rules! It was a risk but it paid off. On the other -hand, the canvas API is very high level. The more cake thing to do +hand, the canvas API is very high-level. The more cake thing to do would be to use Hoot’s JS FFI to call WebGL and/or WebGPU. Indeed, this is the plan for the future! Wasm GC needs some improvements to make this feasible, but my personal goal is to get Chickadee ported to @@ -38,14 +38,13 @@ (img (@ (src "https://licensebuttons.net/l/by-sa/4.0/80x15.png"))))) (define (first-paragraph post) - (let loop ((sxml (post-sxml post)) - (result '())) + (let loop ((sxml (post-sxml post))) (match sxml - (() (reverse result)) - ((or (('p ...) _ ...) (paragraph _ ...)) - (reverse (cons paragraph result))) + (() '()) + (((and paragraph ('p . _)) . _) + (list paragraph)) ((head . tail) - (loop tail (cons head result)))))) + (cons head (loop tail)))))) (define dthompson-theme (theme #:name "dthompson" |