From 7173aba6cce4e99906a12b164399f42bee94fbd6 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Wed, 19 Feb 2020 10:17:44 -0500
Subject: [PATCH] ADD float rule for brave dialog

---
 xmonad.hs | 33 +++++++++++++++------------------
 1 file changed, 15 insertions(+), 18 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index fe7339d..e4c30a7 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -31,7 +31,7 @@ import XMonad.Layout.PerWorkspace
 -- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
 import XMonad.Prompt
 import XMonad.Prompt.ConfirmPrompt
-import XMonad.Prompt.XMonad
+-- import XMonad.Prompt.XMonad
 -- import XMonad.Prompt.Shell
 import XMonad.Util.EZConfig
 import XMonad.Util.NamedActions
@@ -111,10 +111,16 @@ myManageHook = composeOne
   -- as this makes a new window that confusingly must go over the
   -- actual VM window
   [ className =? "VirtualBoxVM" -?> doShift "VM"
+  -- the seafile applet
   , className =? "Seafile Client" -?> doFloat
+  -- all of GIMP
   , className =? "Gimp-2.10" -?> doFloat
+  -- plots and graphics created by R
   , className =? "R_x11" -?> doFloat
   , className =? "mpv"    -?> doFloat
+  -- the floating windows created by the brave browser
+  , stringProperty "WM_NAME" =? "Brave" -?> doFloat
+  -- the dialog windows created by the zotero addon in Google Docs
   , (className =? "Zotero" <&&> resource =? "Toplevel") -?> doFloat
   , isDialog              -?> doCenterFloat
   ]
@@ -243,31 +249,22 @@ mkNamedSubmap c sectionName bindings =
 -- NOTE: the following bindings are used by dunst:
 -- "M-~", "M-<esc>", "M-S-<esc>", "M-S-."
 myKeys c =
-  mkNamedSubmap c "Window Focus"
+  mkNamedSubmap c "Window Layouts"
   [ ("M-j", addName "focus down" $ windows W.focusDown)
   , ("M-k", addName "focus up" $ windows W.focusUp)
   , ("M-m", addName "focus master" $ windows W.focusMaster)
-  ] ++
-
-  mkNamedSubmap c "Window Layouts"
-  [ ("M-S-j", addName "swap down" $ windows W.swapDown)
+  , ("M-S-j", addName "swap down" $ windows W.swapDown)
   , ("M-S-k", addName "swap up" $ windows W.swapUp)
-  , ("M-<Return>", addName "swap master" $ windows W.swapMaster)
-  , ("M-<Space>", addName "next layout" $ sendMessage NextLayout)
-  , ("M-S-<Space>", addName "reset layout" $ setLayout $ XMonad.layoutHook c)
+  , ("M-S-m", addName "swap master" $ windows W.swapMaster)
+  , ("M-C-j", addName "remove master window" $ sendMessage (IncMasterN (-1)))
+  , ("M-C-k", addName "add master window" $ sendMessage (IncMasterN 1))
+  , ("M-<Return>", addName "next layout" $ sendMessage NextLayout)
+  , ("M-S-<Return>", addName "reset layout" $ setLayout $ XMonad.layoutHook c)
   , ("M-t", addName "sink tiling" $ withFocused $ windows . W.sink)
-  ] ++
-
-  mkNamedSubmap c "Window Sizing"
-  [ ("M--", addName "shrink" $ sendMessage Shrink)
+  , ("M--", addName "shrink" $ sendMessage Shrink)
   , ("M-=", addName "expand" $ sendMessage Expand)
   ] ++
 
-  -- mkNamedSubmap c "Master Windows"
-  -- [ ("M-=", addName "add master window" $ sendMessage (IncMasterN 1))
-  -- , ("M--", addName "remove master window" $ sendMessage (Ingesting (-1)))
-  -- ] ++
-
   mkNamedSubmap c "Workspaces"
   -- NOTE this assumes that there are workspaces bound to numbers
   ([ (mods ++ show i, addName (msg ++ " " ++ show i) $ windows $ f w)