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

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

(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")]

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

(def state (json/decode data))

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

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

(def monitor
  (item-with-id (state "focusedMonitorId") (state "monitors")))

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

(def desktop
  (item-with-id (monitor "focusedDesktopId") (monitor "desktops")))

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

(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)))))

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