preserve locs

Author: borkdude

src/nextjournal/markdown/impl.clj

@@ -77,18 +77,16 @@
     (when-not (.isEmpty spans)
       (let [^SourceSpan first-span (first spans)
             ^SourceSpan last-span (last spans)]
-        {:line (.getLineIndex first-span)
+        {:input-index (.getInputIndex first-span)
+         :length (apply + (map #(.getLength ^Node %) spans))
+         :line (.getLineIndex first-span)
          :column (.getColumnIndex first-span)
          :end-line (.getLineIndex last-span)
          :end-column (+ (.getColumnIndex last-span) (.getLength last-span))}))))
 
-#_(node->source-pos n)
-
 ;; multi stuff
 (defmulti open-node (fn [_ctx node] (type node)))
 
-#_(bean x)
-
 (defmulti close-node (fn [_ctx node] (type node)))
 
 (defmethod close-node :default [ctx _node] (u/update-current-loc ctx z/up))
@@ -104,8 +102,6 @@
   (u/update-current-loc ctx (fn [loc] (u/zopen-node loc (merge {:type (paragraph-type)}
                                                                (node->loc node))))))
 
-#_(parse "Dude")
-
 (defmethod open-node BlockQuote [ctx node]
   (u/update-current-loc ctx (fn [loc] (u/zopen-node loc (merge {:type :blockquote}
                                                                (node->loc node))))))