refactor reprint selection

epiccastle · Jun 23, 2020 · 0173ae8 · 0173ae8
1 parent 4db550a
commit 0173ae8
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/src/clj/spire/output/default.clj b/src/clj/spire/output/default.clj
@@ -263,14 +263,12 @@
                                      (drop-while #(<= (:first-row %) first-row))
                                      (map
                                       (fn [{:keys [form file meta line] :as data}]
-                                        (first
-                                         (filter identity
-                                                 (for [l new-log]
-                                                   (when (and (= form (:form l))
-                                                              (= file (:file l))
-                                                              (= meta (:meta l))
-                                                              (= line (:line l)))
-                                                     l)))))))]
+                                        ;; find new-log that matches and return that
+                                        (->> new-log
+                                             (filter
+                                              #(= (select-keys % [:form :file :meta :line])
+                                                  (select-keys data [:form :file :meta :line])))
+                                             first))))]
                       (doseq [a after]
                         (print-state a))))