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

ADD button to float windows if I want

This commit is contained in:
Nathan Dwarshuis 2021-03-17 14:19:51 -04:00
parent e98153933f
commit debf4cd098
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/xmonad.hs
View File

@ -55,6 +55,7 @@ import XMonad.Layout.NoFrillsDecoration
import XMonad.Layout.PerWorkspace import XMonad.Layout.PerWorkspace
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import qualified XMonad.Operations as O
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Util.Cursor import XMonad.Util.Cursor
import qualified XMonad.Util.ExtensibleState as E import qualified XMonad.Util.ExtensibleState as E
@ -385,6 +386,7 @@ mkKeys ts c =
, ("M-<Return>", "next layout", sendMessage NextLayout) , ("M-<Return>", "next layout", sendMessage NextLayout)
, ("M-S-<Return>", "reset layout", setLayout $ layoutHook c) , ("M-S-<Return>", "reset layout", setLayout $ layoutHook c)
, ("M-t", "sink tiling", withFocused $ windows . W.sink) , ("M-t", "sink tiling", withFocused $ windows . W.sink)
, ("M-S-t", "float tiling", withFocused O.float)
, ("M--", "shrink", sendMessage Shrink) , ("M--", "shrink", sendMessage Shrink)
, ("M-=", "expand", sendMessage Expand) , ("M-=", "expand", sendMessage Expand)
, ("M-S--", "remove master window", sendMessage $ IncMasterN (-1)) , ("M-S--", "remove master window", sendMessage $ IncMasterN (-1))