(defn not-focused [focused-id node-a node-b]
  (if (contains? focused-id node-a) node-b node-a))

(defn partition-on-focused [focused-id node-a node-b]
  (if (contains? focused-id node-a)
    [node-a node-b]
    [node-b node-a]))

(defn innermost-hidden [focused-id node]
  (match node
    :null nil

    {"hidden" true} node
    
    {"firstChild" a "secondChild" b}
      (let [[focused not-focused] (partition-on-focused focused-id a b)]
        (or (innermost-hidden focused-id focused)
            (innermost-hidden focused-id not-focused)))))

        focused-node-id (desktop "focusedNodeId")]

        focused-id (desktop "focusedNodeId")]

      {"firstChild" first-child "secondChild" second-child}
        (toggle-hidden
          (not-focused focused-node-id first-child second-child)))))

      {"firstChild" node-a "secondChild" node-b}
        (let [[_ not-focused] (partition-on-focused focused-id node-a node-b)]
          (toggle-hidden not-focused)))))

(defn zoom-out [] (print "Ainda não tá pronto"))

(defn zoom-out []
  (let [desktop (current-desktop)
        node (innermost-hidden (desktop "focusedNodeId") (desktop "root"))]
    (when node (toggle-hidden node))))