ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ADD float rule for brave dialog

This commit is contained in:
Nathan Dwarshuis 2020-02-19 10:17:44 -05:00
parent 24c676933f
commit 7173aba6cc
1 changed files with 15 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
xmonad.hs
View File

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