From cbfa42bc73a17fefb7b03fb17172238bb800107d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= Date: Tue, 10 Mar 2026 13:27:18 -0600 Subject: [PATCH] --- doerg/src/net/deertopia/doerg/element.clj | 24 +++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/doerg/src/net/deertopia/doerg/element.clj b/doerg/src/net/deertopia/doerg/element.clj index ac2cdeb..00494b5 100644 --- a/doerg/src/net/deertopia/doerg/element.clj +++ b/doerg/src/net/deertopia/doerg/element.clj @@ -12,7 +12,8 @@ [com.rpl.specter :as sp] [clojure.tools.logging.readable :as lr] [clojure.zip :as z] - [com.rpl.specter.zipper :as sz]) + [com.rpl.specter.zipper :as sz] + [clojure.core.match :refer [match]]) (:import (java.util UUID)) (:refer-clojure :exclude [read-string])) @@ -251,17 +252,16 @@ [postorder-walker (sp/must :children)] (fn [children] - (-> children z/vector-zip - (=>> (fn [para-loc] - (let [tex-loc (some-> para-loc z/right) - next-para (some-> tex-loc z/right)] - (when (and (of-type? (z/node para-loc) "paragraph") - (some-> tex-loc z/node - (of-type? "latex-environment"))) - (when (separated-by-explicit-paragraph-break? - (z/node para-loc) (z/node tex-loc)) - (swap! r #(conj % (z/node para-loc)))))) - (z/node para-loc))))) + (loop [acc [] + cs (vec children)] + (match cs + [(para :guard #(of-type? % "paragraph")) + (tex :guard #(of-type? % "latex-environment")) + & rest] + (recur (conj acc (swallow para tex)) rest) + [] acc + [c & rest] + (recur (conj acc c) rest)))) doc)] @r))