Add instance Default StandardCommand.

xmonad · Dec 22, 2023 · 333acc9 · 333acc9
1 parent a1e21a6
commit 333acc9
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/XMonad/Layout/DecorationEx/Widgets.hs b/XMonad/Layout/DecorationEx/Widgets.hs
@@ -70,6 +70,9 @@ data StandardCommand =
     | GridWindowMenu   -- ^ Show window menu via "XMonad.Actions.GridSelect" (see "XMonad.Actions.WindowMenu")
   deriving (Eq, Show, Read)
 
+instance Default StandardCommand where
+  def = FocusWindow
+
 instance WindowCommand StandardCommand where
   executeWindowCommand FocusWindow w = do
     focus w