Fix error on change main tag

main.janet

@@ -352,7 +352,7 @@
   (map |(when (= ($ :tag-main) tag) (put $ :tag-main nil)) (wm :outputs))
   (put output :tag-main tag)
   (put output :tag-offload nil)
-  (put output :tags-other nil))
+  (put output :tags-other []))
 
 (defn output/toggle-other-tag [output tag]
   (if (has-value? (output :tags-other) tag)
@@ -491,7 +491,9 @@
                new-output (action/target-in current-output outputs dir)]
       (seat/focus-output seat new-output)
       (seat/focus seat (first (output/windows new-output)))
-      (:pointer-warp (seat :obj) (+ (new-output :x) (/ (new-output :w) 2)) (+ (new-output :y) (/ (new-output :h) 2))))))
+      (def [x y] (new-output :position))
+      (def [w h] (new-output :dimensions))
+      (:pointer-warp (seat :obj) (+ x (/ w 2)) (+ y (/ h 2))))))
 
 (defn action/goto-tag [tag]
   (def f (cond
@@ -615,6 +617,7 @@
                              [:o G (action/spawn "wl-present-ui")]
                              [:t G (action/pulldown "floating-terminal" "alacritty --class floating-terminal -e tmux new-session -ADX -s floating")]
                              [:r G (action/pulldown "floating-repl" "alacritty --class floating-repl -e censtablo-repl")]
+                             [:h G (action/pulldown "floating-htop" "alacritty --class floating-htop -e htop")]
                              [:XF86AudioLowerVolume {} (action/spawn "pamixer -d 5")]
                              [:XF86AudioRaiseVolume {} (action/spawn "pamixer -i 5")]
                              [:XF86AudioMute {} (action/spawn "pamixer -t")]
@@ -634,6 +637,7 @@
                            "io.github.alainm23.planify" (rule/tag :j)
                            "floating-terminal" (rule/pulldown)
                            "floating-repl" (rule/pulldown)
+                           "floating-htop" (rule/pulldown)
                            "steam" (rule/float false)})