# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1629835736 14400
# Node ID 0f6c567726d4e205816bd30f929560fc3cd89716
# Parent  1720a1e79e8b14a40d24fea12a523b307e6e124f
Sigh

diff -r 1720a1e79e8b -r 0f6c567726d4 stumpwmrc
--- a/stumpwmrc	Mon Aug 23 19:33:39 2021 -0400
+++ b/stumpwmrc	Tue Aug 24 16:08:56 2021 -0400
@@ -407,7 +407,11 @@
 
 (defcommand toggle-zoom-mute () ()
   (when-let-window (win "^Zoom Meeting.*")
-    (focus-window win t) ; Zoom stupidly won't accept the shortcut unless it's in focus
+    ;; Zoom stupidly won't accept the shortcut unless it's in focus
+    (unless (eql (window-group win) (current-group))
+      ;;        jesus            christ        stump just export switch-to-group come on
+      (gselect (princ-to-string (group-number (window-group win)))))
+    (focus-window win t)
     (meta (kbd "M-a"))))
 
 (defcommand end-zoom () ()