Make library more GraalVM native-image friendly

Author: borkdude

CHANGELOG.md

@@ -2,7 +2,7 @@
 
 ## Unreleased
 
-...
+* Make library more GraalVM `native-image` friendly
 
 ## 0.7.184
 

src/nextjournal/markdown/impl.clj

@@ -223,9 +223,9 @@
 
 (def ^:private visitChildren-meth
   ;; cached reflection only happens once
-  (delay (let [meth (.getDeclaredMethod AbstractVisitor "visitChildren" (into-array [Node]))]
-           (.setAccessible meth true)
-           meth)))
+  (let [meth (.getDeclaredMethod AbstractVisitor "visitChildren" (into-array [Node]))]
+    (.setAccessible meth true)
+    meth))
 
 (defn node->data [{:as ctx-in :keys [footnotes]} ^Node node]
   (assert (:type ctx-in) ":type must be set on initial doc")
@@ -267,7 +267,7 @@
                    (if (get-method open-node (class node))
                      (with-tight-list node
                        (swap! !ctx open-node node)
-                       (.invoke ^java.lang.reflect.Method @visitChildren-meth this (into-array Object [node]))
+                       (.invoke ^java.lang.reflect.Method visitChildren-meth this (into-array Object [node]))
                        (swap! !ctx close-node node))
                      (prn ::not-implemented node))))))
 

src/nextjournal/markdown/impl/extensions.clj

@@ -75,7 +75,7 @@
         (let [next-non-space (.getNextNonSpaceIndex state)
               m (block-formula-delimiter-matcher state)]
           (if (re-find m)
-            (.atIndex (BlockStart/of (into-array [(block-formula-parser)]))
+            (.atIndex (BlockStart/of (into-array BlockParser [(block-formula-parser)]))
                       (+ next-non-space (.end m)))
             (BlockStart/none)))))))
 
@@ -94,7 +94,7 @@
         (let [next-non-space (.getNextNonSpaceIndex state)
               m (block-toc-delimiter-matcher state)]
           (if (re-find m)
-            (.atIndex (BlockStart/of (into-array [(block-toc-parser)]))
+            (.atIndex (BlockStart/of (into-array BlockParser [(block-toc-parser)]))
                       (+ next-non-space (.end m)))
             (BlockStart/none)))))))