# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1650331184 14400
# Node ID 3ba047db7a50702f2ea6f041075cd7e6f6285b88
# Parent  2d0b4dae45a0c7dc4a9211e770be594c1ce6c0e8
Common Lisp is stable, I am not

diff -r 2d0b4dae45a0 -r 3ba047db7a50 generate.lisp
--- a/generate.lisp	Fri Oct 01 13:40:51 2021 -0400
+++ b/generate.lisp	Mon Apr 18 21:19:44 2022 -0400
@@ -89,10 +89,10 @@
   (digit-char-p (char (plump:tag-name node) 1)))
 
 (defun subheaders (root)
-  (-<> root
+  (_ root
     (gathering
-      (plump:traverse <> #'gather :test #'subheaderp))
-    (mapcar (lambda (node) (cons (header-level node) node)) <>)))
+      (plump:traverse _ #'gather :test #'subheaderp))
+    (mapcar (lambda (node) (cons (header-level node) node)) _)))
 
 (defun split-if (pred list)
   "Split list into two pieces, at the point where pred first becomes true.
@@ -205,10 +205,10 @@
         metadata))))
 
 (defun walk (path)
-  (-<> (sh (list "find" path "-name" "*.markdown") :result-type 'list)
-    (mapcar #'read-content <>)
-    (remove nil <>)
-    (sort <> #'local-time:timestamp> :key #'date)))
+  (_ (sh (list "find" path "-name" "*.markdown") :result-type 'list)
+    (mapcar #'read-content _)
+    (remove nil _)
+    (sort _ #'local-time:timestamp> :key #'date)))
 
 (defun gallery-photos (gallery)
   (let* ((slug (gallery gallery))