diff options
| -rw-r--r-- | xmonad.hs | 33 |
1 files changed, 14 insertions, 19 deletions
@@ -6,8 +6,7 @@ import qualified XMonad.StackSet as W import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen) import XMonad.Actions.CopyWindow import XMonad.Actions.CycleWS --- import XMonad.Actions.Navigation2D -import XMonad.Actions.CycleSelectedLayouts +--import XMonad.Actions.CycleSelectedLayouts import XMonad.Actions.GridSelect import XMonad.Actions.SwapWorkspaces import XMonad.Actions.WindowBringer @@ -16,27 +15,22 @@ import XMonad.Actions.MouseResize -- layouts modifiers import XMonad.Layout.Spacing import XMonad.Layout.LayoutModifier --- import XMonad.Layout.LayoutCombinators ((|||)) --- import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle)) --- import XMonad.Layout.Gaps --- import XMonad.Layout.ShowWName import XMonad.Layout.WindowNavigation as WN -import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..)) -- Layouts +import XMonad.Layout.AvoidFloats import XMonad.Layout.BinarySpacePartition as BSP +import XMonad.Layout.CenteredMaster import XMonad.Layout.Grid import XMonad.Layout.ThreeColumns --- import XMonad.Layout.SimplestFloat +import XMonad.Layout.TwoPane import XMonad.Layout.Spiral import XMonad.Layout.ResizableTile import XMonad.Layout.Tabbed - -- hooks import XMonad.Hooks.SetWMName import XMonad.Hooks.ManageDocks --- import XMonad.Hooks.WallpaperSetter -- utilities import XMonad.Util.SpawnOnce @@ -52,7 +46,7 @@ myStartupHook = do spawnOnce "deadd-notification-center &" -- spawnOnce "firefox &" spawnOnce "sxhkd &" - setWMName "XMonad" + setWMName "AnimeTitsWM" setDefaultCursor xC_left_ptr @@ -95,6 +89,7 @@ myKeys = [ ((mod4Mask, xK_Return), spawn myTerminal) , ((mod1Mask, xK_w), kill1) , ((mod1Mask .|. shiftMask, xK_k), kill1) + , ((mod1Mask, xK_o), withFocused $ windows . W.sink) -- unfloat windows -- view prev/next workspaces , ((mod1Mask, xK_h), prevWS) @@ -142,7 +137,7 @@ myKeys = [ , ((0, xK_Insert), pasteSelection) -- toggle layouts - , ((mod4Mask, xK_t ), cycleThroughLayouts ["Grid", "Mirror Tall"]) +-- , ((mod4Mask, xK_t ), cycleThroughLayouts ["Grid", "Mirror Tall"]) -- toggle bars , ((mod1Mask, xK_backslash), sendMessage ToggleStruts) -- toggle both bars @@ -164,7 +159,9 @@ myKeys = [ , ((mod1Mask, xK_s ), sendMessage BSP.Swap) -- , ((mod4Mask .|. shiftMask .|. controlMask , xK_j ), sendMessage $ SplitShift Prev) -- , ((mod4Mask .|. shiftMask .|. controlMask , xK_k ), sendMessage $ SplitShift Next) - + + + ] ++ [ -- for extra workspace(s) ((myModMask, key), (windows $ W.greedyView ws)) | (key,ws) <- myExtraWorkspaces @@ -184,7 +181,7 @@ wGap = 2 myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True -myLayouts = avoidStruts $ mouseResize $ windowArrange $ windowNavigation $ myGap $ Grid ||| emptyBSP -- $ myGaps +myLayouts = avoidStruts $ mouseResize $ windowNavigation $ myGap $ emptyBSP ||| ThreeColMid 1 (3/100) (1/2) ||| Grid ||| topRightMaster emptyBSP ||| TwoPane (3/100) (1/2) ||| ThreeCol 1 (3/100) (1/2) ||| ThreeCol 2 (3/100) (1/2) myLayoutHook = myLayouts @@ -202,12 +199,10 @@ main = do normalBorderColor = nBorder, focusedBorderColor = fBorder, -- mouseBindings = myMouseBindings, - - -- hooks, layouts layoutHook = myLayoutHook, - --manageHook = myManageHook, - --handleEventHook = myEventHook, --- logHook = wallpaperSetterHook, + -- manageHook = myManageHook, + -- handleEventHook = myEventHook, + -- logHook = wallpaperSetterHook, startupHook = myStartupHook } `additionalKeys` myKeys |