hook in remaining line-count values

epiccastle · Jun 27, 2020 · 35765ad · 35765ad
1 parent 0515808
commit 35765ad
Showing 1 changed file with 13 additions and 12 deletions.
diff --git a/src/clj/spire/output/default.clj b/src/clj/spire/output/default.clj
@@ -251,10 +251,8 @@
                 (prn 'up (- max-row first-row))
                 (up (- max-row first-row)))
 
-              (print-state acc)
-
               (let [old-size line-count
-                    new-size (inc (count copy-progress))]
+                    new-size (print-state acc)]
 
                 (cond
                   (not= new-size old-size)
@@ -293,15 +291,18 @@
             ;;(prn 'non-acc (count non-accessibles-found))
 
             ;; new lines to print
-            (doseq [n non-accessibles-found]
-              (print-state n))
-
-            ;; remember these lines as being accessible
-            (swap! accessible-lines into
-                   (for [l non-accessibles-found]
-                     (assoc (select-keys l [:form :file :meta :line])
-                            :line-count
-                            (inc (count (:copy-progress l)))))))))))
+            (let [line-counts
+                  (doall
+                   (for [n non-accessibles-found]
+                     [n (print-state n)]))]
+
+              ;; remember these lines as being accessible
+              (swap! accessible-lines into
+                     (for [[l line-count] line-counts]
+                       (do ;;(println "adding!" l)
+                         (assoc (select-keys l [:form :file :meta :line])
+                                :line-count line-count)))))
+   )))))
 
   (let [new-debug (:debug n)
         old-debug (:debug o)