           (let [sel (if (and (vector? csel) (pos? (count csel)))
                       (highlight-from-tpn show-plan corresponding csel)
                       [])]
-            (println "TPN CSEL" csel "SEL" sel)
+            ;; (println "TPN CSEL" csel "SEL" sel)
             (if remote
               (status-msg "Showing TPN correspondence from" remote)
               (status-msg "Showing TPN correspondence"))

    (if-not from-auto?
      (my-user-action {:type :pan-zoom
                       :pan [0.0 0.0] :zoom 1.0}))
    true)) ;; for deferreds

(defn visit-nodes [node-id prev-visited node-fn]
  (if (prev-visited node-id)

                                    {:xbounds (min-max-fn xbounds [x x])
                                     :ybounds (min-max-fn ybounds [y y])}))
                    (if hidden
                      (st/plans-merge-node
                        (assoc
                          (dissoc node :plans/ui-opts :node/tpn-selection)
                          :node/hidden false)))
                    (map-outgoing node
                      (fn [edge]
                        (let [{:keys [edge/type edge/to edge/hidden]} edge]
                          (when (activity? type)
                            (if hidden
                              (st/plans-merge-edge
                                (assoc
                                  (dissoc edge
                                    :plans/ui-opts :edge/from :edge/to)
                                  :edge/hidden false)))
                            (node-key-fn to)))))))))
            (let [edge (st/plans-get-edge
                         (composite-key tpn-id (:edge/id s)))
                  {:keys [edge/hidden edge/from edge/to]} edge
                  from-x (:node/x from)
                  from-y (:node/y from)
