Fix path indexes after max-number-body-items

Author: MawiraIke

src/lib/devtools/formatters/markup.cljs

@@ -179,7 +179,7 @@
   ;; a sequence or map as the second item when the path info is not nil.
   ;; are all just seq'd maps and that the first item in the vector is a key in the map.
   ;; The seq'd map is a result of `(seq value)` done in `body-lines` above
-  (devtools.formatters.state/push-object-to-current-history! value)
+  (devtools.formatters.state/push-object-to-current-history! (with-meta value {:index starting-index}))
   (let [has-continuation? (pos? starting-index)
         body-markup (<standard-body> (body-lines value starting-index) has-continuation?)]
     (if has-continuation?

src/lib/devtools/formatters/state.cljs

@@ -49,23 +49,28 @@
 (defn get-second-last-object-from-current-history []
   (second (get-current-history)))                                                                                              ; note the list is reversed
 
-(defn present-path-segment [v]
+(defn present-path-segment [v & [starting-index]]
   (cond
     (string? v) v
     ;; we'd like to preserve keywords for easy get
     (keyword? v) v
+    (and (number? v)
+         (number? starting-index)) (+ v starting-index)     ;; ensures indexing in very large objects
     (number? v) v
     :else "?"))
 
 (defn seek-path-segment [coll val & [seq'd-map?]]
-  (let [* (fn [[k v]]
-            (cond
-              ;; we need to know the paths for keywords, these are clickable
-              (and seq'd-map? (identical? k val))
-              (present-path-segment k)
-
-              (identical? v val)
-              (present-path-segment k)))]
+  (let [starting-index (-> (get-last-object-from-current-history)
+                           (meta)
+                           :index)
+        *              (fn [[k v]]
+                         (cond
+                           ;; we need to know the paths for keywords, these are clickable
+                           (and seq'd-map? (identical? k val))
+                           (present-path-segment k)
+
+                           (identical? v val)
+                           (present-path-segment k starting-index)))]
     (some * coll)))
 
 (defn build-path-segment [parent-object object]