(defn rotate-clockwise []
  (os/execute ["bspc" "node" "@/" "--rotate" "90"] :p))
(defn rotate-counterclockwise []
  (os/execute ["bspc" "node" "@/" "--rotate" "-90"] :p))

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

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

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

  (let [data (get-state)
        state (json/decode data)
        monitor (item-with-id (state "focusedMonitorId") (state "monitors"))]

          (toggle-hidden not-focused)))))

          (toggle-hidden not-focused)
          (rotate-counterclockwise)))))

    (when node (toggle-hidden node))))

    (when node
      (rotate-clockwise)
      (toggle-hidden node))))