0f6c567726d4

Sigh
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 24 Aug 2021 16:08:56 -0400
parents 1720a1e79e8b
children 96b9cf7e7a90
branches/tags (none)
files stumpwmrc

Changes

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