gustavo-hms/cavoca - Change RFICEA7RBQHP5Y47NBRFAVAMYVETEORRMSSBUS3NA7CYLLLKIRIAC

Implement zoom-out

Created by Gustavo on April 10, 2021

RFICEA7RBQHP5Y47NBRFAVAMYVETEORRMSSBUS3NA7CYLLLKIRIAC

Dependencies

In channels

main

Change contents

Replacement in cavoca.janet at line 16 [3.15]

B:BD[3.287] → [3.287:384]

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

[3.287]

[3.384]

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

Insertion in cavoca.janet at line 33 [3.15]
[3.733]
[3.733]

Insertion in cavoca.janet at line 35 [3.15]

[3.734]

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

Insertion in cavoca.janet at line 39 [3.15]

[3.735]

    {"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)))))

Replacement in cavoca.janet at line 69 [3.15]

B:BD[2.527] → [2.527:578]

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

[2.527]

[4.220]

        focused-id (desktop "focusedNodeId")]

Replacement in cavoca.janet at line 78 [3.15]

B:BD[4.224] → [2.742:894]

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

[4.224]

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

Replacement in cavoca.janet at line 83 [3.15]

B:BD[4.227] → [2.895:946]

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

[4.227]

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