 (defn adjust-clustering [state t]
   (let [updated-state* (atom (update-grid-cells state t))]
     (doseq [[pos-idx char-vec] (::grid-cells @updated-state*)]
-      (my-log pos-idx ::adjust-clustering char-vec)
+      (log-it pos-idx ::adjust-clustering char-vec)
       (when (= t (::last-time-label-changed char-vec))
         (do
-          (my-log pos-idx ::label-changed-this-iteration char-vec)
+          (log-it pos-idx ::label-changed-this-iteration char-vec)
           ;;4
           (when (= ::sparse (::label char-vec))
             (do
-              (my-log pos-idx ::sparse-label char-vec)
+              (log-it pos-idx ::sparse-label char-vec)
               (let [old-cluster (::cluster char-vec)]
                 (swap! updated-state* assoc-in [::grid-cells pos-idx]
                        (assoc char-vec ::cluster "NO_CLASS"))

                                           (remove nil?)
                                           not-empty)]
                  (when neighbors-clusters
                    (let [cluster-sizes          (map (fn [cluster]
                                                        hash-map
                                                        :cluster cluster
                                                        :cluster-size (cluster->size cluster @updated-state*))
                                                      neighbors-clusters)
                          biggest-cluster        (->> cluster-sizes
                                                      (sort-by :cluster-size)
                                                      first
                                                      :cluster)
                          grid-w-biggest-cluster (first
                                                   (keep
                                                     (fn [neigh-pos-id neigh-char-vec]
                                                       (= biggest-cluster
                                                          (:cluster neigh-char-vec)))
                                                     neighbors))]
                      (case (::label grid-w-biggest-cluster)
                        ;;9
                        ::dense ()

                        ;;15
                        ::transitional ()

  [& args]
  (println "Hello, World!"))

(defn log-it [context summary data]
  (info (hash context) summary data))

;;;TODO thought i needed to spec these "enums" for spec, but doesnt make it work
