From 29252cd3f73a9a5c0e233a71ab4e53a8f46e4576 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Fri, 17 Feb 2023 09:15:58 -0300
Subject: etc/xmonad/xmonad.hs: Add missing utility keybindings

M-S-<Space> in xmonad was set to mimic i3's floating toggle behaviour,
but only the part of switching back from floating to tiling.  The tiling
to floating change still remains as "mod-<mouse-click>".

This had to be done because the default keybinding for that action for
xmonad is mod-t, which is being overriden and set to "wms date".
---
 etc/xmonad/xmonad.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/etc/xmonad/xmonad.hs b/etc/xmonad/xmonad.hs
index c80e006..d7e45ac 100644
--- a/etc/xmonad/xmonad.hs
+++ b/etc/xmonad/xmonad.hs
@@ -8,6 +8,7 @@ import XMonad.Hooks.ManageHelpers
 import XMonad.Util.Run(spawnPipe)
 import XMonad.Layout.ResizableTile
 import XMonad.Layout.ResizableTile(MirrorResize(MirrorShrink, MirrorExpand))
+import XMonad.StackSet
 
 main :: IO ()
 main = do
@@ -47,6 +48,10 @@ myKeyPBindings =
     , ("<F7>",      spawn "brightness -1")
     , ("<F8>",      spawn "brightness +1")
 
+    , ("M-c",       spawn "mate-calc")
+    , ("M-u",       spawn "wms uuid")
+    , ("M-t",       spawn "wms date")
+    , ("M-m",       spawn "wms clear-notification")
     , ("M-p",       spawn "menu bin")
     , ("M-o",       spawn "menu emoji")
     , ("M-v",       spawn "menu clipboard")
@@ -57,6 +62,9 @@ myKeyPBindings =
     , ("<Print>",   spawn "shot")
     , ("M-<Print>", spawn "shot -m")
 
+      -- Stop floating
+    , ("M-S-<Space>", withFocused $ windows . XMonad.StackSet.sink)
+
       -- Lock screen
     , ("C-M-l", spawn "dm-tool switch-to-greeter")
 
-- 
cgit v1.2.3