Implement basic screen corners.

It would be really cool to integrate screen corners with the binding
DSL, but that requires extra thought.

1 files changed, 9 insertions, 1 deletions

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index dc6628b..f4efbb3 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -140,6 +140,7 @@ import XMonad.Actions.RotSlaves
     rotAllUp,
   )
 import XMonad.Hooks.ManageDocks (ToggleStruts (..))
+import XMonad.Hooks.ScreenCorners
 import XMonad.Layout.Spacing
   ( Border (..),
     SpacingModifier (..),
@@ -1294,6 +1295,10 @@ bindings = do
         "Kills xmonad. Always binds to the 'Q' key."
         (io exitSuccess :: X ())
 
+cornersConfig :: Map ScreenCorner (X ())
+cornersConfig =
+  Map.fromList [(SCUpperLeft, displayDzenSelection)]
+
 --   where
 --
 --   permuteMods = map (foldl' (.|.) 0) . filterM (const [True, False])
@@ -1326,7 +1331,10 @@ applyKeys c =
                 Map.insert
                   (modMask c .|. shiftMask, xK_q)
                   (spawnX "xmonad --recompile && xmonad --restart")
-                  . keys conf'
+                  . keys conf',
+              startupHook = do
+                startupHook c
+                forM_ (Map.toList cornersConfig) (uncurry addScreenCorner)
             }
 
 windowSpecificBindings ::