gustavo-hms/cavoca - Change ZVLFS7DOBMSEN6Z6TSZHO5RAGEI2ECMAUQVXHGB4EFJA4TYWZUFAC

Handle command line arguments

Created by Gustavo on April 10, 2021

ZVLFS7DOBMSEN6Z6TSZHO5RAGEI2ECMAUQVXHGB4EFJA4TYWZUFAC

Dependencies

In channels

main

Change contents

Insertion in cavoca.janet at line 34 [3.15]

[3.762]

[2.52]

  (print "bspc node " (node "id") " --flag hidden")

Replacement in cavoca.janet at line 38 [3.15]

B:BD[3.826] → [3.826:836]

B:BD[3.836] → [2.127:220]

(def data
  (with [pipe (os/spawn ["bspc" "wm" "-d"] :p {:out :pipe})]
     (:read (pipe :out) :all)))

[3.826]

[2.220]

(defn current-desktop []
  (let [data
          (with [pipe (os/spawn ["bspc" "wm" "-d"] :p {:out :pipe})]
            (:read (pipe :out) :all))
        
        state
          (json/decode data)
        
        monitor
          (item-with-id (state "focusedMonitorId") (state "monitors"))]
    
    (item-with-id (monitor "focusedDesktopId") (monitor "desktops"))))
(defn zoom-in []
  (let [desktop (current-desktop)
        unhidden (fully-unhidden (desktop "root"))
        focused-node-id (desktop "focusedNodeId")]

Insertion in cavoca.janet at line 57 [3.15]

[2.221]

    (match unhidden
      nil
        (print "Não há mais nós para esconder")

Replacement in cavoca.janet at line 61 [3.15]

∅:D[2.222] → [3.904:935]

B:BD[3.904] → [3.904:935]

(def state (json/decode data))

[2.222]

[2.223]

      {"firstChild" :null "secondChild" :null}
        (toggle-hidden unhidden)

Insertion in cavoca.janet at line 64 [3.15]

[2.224]

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

Deletion in cavoca.janet at line 68 [3.15]
∅:D[2.225] → [3.935:1012]
B:BD[3.935] → [3.935:1012]
```
(def monitor
  (item-with-id (state "focusedMonitorId") (state "monitors")))
```
Insertion in cavoca.janet at line 69 [3.15]
[2.227]
[2.227]
```
(defn zoom-out [] (print "Ainda não tá pronto"))
```
Deletion in cavoca.janet at line 71 [3.15]
∅:D[2.228] → [3.1012:1093]
B:BD[3.1012] → [3.1012:1093]
```
(def desktop
  (item-with-id (monitor "focusedDesktopId") (monitor "desktops")))
```

Insertion in cavoca.janet at line 72 [3.15]

[2.230]

(defn main [& args]
  (if (= 1 (length args))
    (print "Que comando você quer executar? `in` ou `out`?")

Replacement in cavoca.janet at line 76 [3.15]

B:BD[2.231] → [2.231:560]

(let [unhidden (fully-unhidden (desktop "root"))]
  (when unhidden
    (match unhidden
      {"firstChild" :null "secondChild" :null} (toggle-hidden unhidden)
      {"firstChild" first "secondChild" second} (toggle-hidden
                                                  (not-focused (desktop "focusedNodeId") first second)))))

[2.231]

    (match (args 1)
      "in" (zoom-in)
      "out" (zoom-out)
      command (print "Comando não reconhecido: " command))))