final configuration of xmonad
This commit is contained in:
parent
c090461b65
commit
4da1d98e61
@ -17,8 +17,6 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
import XMonad
|
import XMonad
|
||||||
import XMonad.Layout.NoBorders
|
|
||||||
import XMonad.Hooks.ManageDocks
|
|
||||||
import Graphics.X11.ExtraTypes.XF86
|
import Graphics.X11.ExtraTypes.XF86
|
||||||
import Data.Monoid
|
import Data.Monoid
|
||||||
import System.Exit
|
import System.Exit
|
||||||
@ -166,7 +164,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
|
|||||||
-- Use this binding with avoidStruts from Hooks.ManageDocks.
|
-- Use this binding with avoidStruts from Hooks.ManageDocks.
|
||||||
-- See also the statusBar function from Hooks.DynamicLog.
|
-- See also the statusBar function from Hooks.DynamicLog.
|
||||||
--
|
--
|
||||||
, ((modm , xK_b ), sendMessage ToggleStruts)
|
-- , ((modm , xK_b ), sendMessage ToggleStruts)
|
||||||
|
|
||||||
-- Quit xmonad
|
-- Quit xmonad
|
||||||
, ((modm .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
|
, ((modm .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
|
||||||
@ -248,11 +246,11 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
|
|||||||
-- The available layouts. Note that each layout is separated by |||,
|
-- The available layouts. Note that each layout is separated by |||,
|
||||||
-- which denotes layout choice.
|
-- which denotes layout choice.
|
||||||
--
|
--
|
||||||
myLayoutHook = smartBorders $ avoidStruts $ Full ||| tiled
|
myLayoutHook = Full ||| tiled
|
||||||
where
|
where
|
||||||
-- default tiling algorithm partitions the screen into two panes
|
-- default tiling algorithm partitions the screen into two panes
|
||||||
tiled = Tall nmaster delta ratio
|
tiled = Tall nmaster delta ratio
|
||||||
|
|
||||||
-- The default number of windows in the master pane
|
-- The default number of windows in the master pane
|
||||||
nmaster = 1
|
nmaster = 1
|
||||||
|
|
||||||
@ -364,8 +362,8 @@ defaults = def {
|
|||||||
|
|
||||||
-- hooks, layouts
|
-- hooks, layouts
|
||||||
layoutHook = myLayoutHook,
|
layoutHook = myLayoutHook,
|
||||||
manageHook = myManageHook <+> manageDocks,
|
manageHook = myManageHook,
|
||||||
handleEventHook = myEventHook <+> docksEventHook,
|
handleEventHook = myEventHook,
|
||||||
logHook = myLogHook,
|
logHook = myLogHook,
|
||||||
startupHook = myStartupHook
|
startupHook = myStartupHook
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user