           (when (and (not= remote client) auto-on?)
             (cond
               (keyword-identical? tag :info)
-              (println "USER-ACTION type" type "TAG" tag
+              (println "USER-ACTION type" action-type "TAG" tag
                 "NODE" node "EDGE" edge "INFO" info)
               (keyword-identical? tag :url)
-              (println "USER-ACTION type" type "TAG" tag
+              (println "USER-ACTION type" action-type "TAG" tag
                 "URL" url "TAB" tab)
               (#{:htn-focus :htn-blur} tag)
               (let [focus? (keyword-identical? tag :htn-focus)
                     node-id (composite-key plid node)]
-                (println "USER-ACTION type" type "TAG" tag "NODE" node)
+                (println "USER-ACTION type" action-type "TAG" tag "NODE" node)
                 (if (keyword-identical? plid showing)
                   (focus-menu-fn (st/plans-get-node node-id) nil {:tag tag} nil)
                   (st/app-set-plan-value plid :focus (if focus? node-id)))

                  (partial max
                    (get-in edge-states [state policy]))))
              (if-not network-updates?
                (st/plans-merge-edge (assoc
                                       (dissoc edge
                                         :plans/ui-opts
                                         :edge/from :edge/to)
                                       :edge/hidden hidden)))
              (when (activity? type)
                (node-key-fn to)))))))
    (get (if (keyword-identical? policy :parallel)

      ;; hide parents and siblings (or show all)
      (visit-nodes begin visited
        (fn [node]
          (st/plans-merge-node
            (assoc
              (dissoc node :plans/ui-opts :node/tpn-selection)
              :node/hidden focus?
              :node/aggregated? false))
          (map-outgoing node
            (fn [edge]
              (let [{:keys [edge/type edge/to edge/hidden]} edge]
                (when (#{:parallel-edge :choice-edge} type)
                  (if (not= focus? hidden)
                    (st/plans-merge-edge
                      (assoc
                        (dissoc edge :plans/ui-opts :edge/from :edge/to)
                        :edge/hidden focus?)))
                  (node-key-fn to)))))))
      ;; signal my action (before pan/zoom)
      (if e (my-user-action {:type :menu :tag tag :plid plid :node id}))
