wip

erdos · Nov 4, 2023 · 1fb8dbd · 1fb8dbd
1 parent a12a9b3
commit 1fb8dbd
Showing 1 changed file with 8 additions and 9 deletions.
diff --git a/src/stencil/merger.clj b/src/stencil/merger.clj
@@ -12,15 +12,14 @@
 ;; only fragment includes are evaluated
 (def ^:dynamic *only-includes* false)
 
-(defn map-action-token [token]
-  (if-let [action (:action token)]
-    (let [parsed (tokenizer/text->cmd action)
-          parsed (assoc parsed :raw (str open-tag action close-tag))]
-      (if (and *only-includes*
-               (not= :cmd/include (:cmd parsed)))
-        {:text (str open-tag action close-tag)}
-        {:action parsed}))
-    token))
+(defn map-action-token [{:keys [action]}]
+  (let [parsed (tokenizer/text->cmd action)
+        source (str open-tag action close-tag)
+        parsed (assoc parsed :raw source)]
+    (if (and *only-includes*
+             (not= :cmd/include (:cmd parsed)))
+      {:text source}
+      {:action parsed})))
 
 (defn- map-text-nodes [rf]
   (fn ([acc] (rf acc))