From b46a4a75b85b888db3e3a70445f9724460375e6f Mon Sep 17 00:00:00 2001 From: Charles Date: Sun, 26 Apr 2020 11:52:38 +0200 Subject: More logical order for xmonad new window --- xmonad.hs | 27 +++++++++++++++++---------- 1 file changed, 17 insertions(+), 10 deletions(-) (limited to 'xmonad.hs') diff --git a/xmonad.hs b/xmonad.hs index 5535420..5420664 100644 --- a/xmonad.hs +++ b/xmonad.hs @@ -8,6 +8,9 @@ import XMonad.Util.EZConfig(additionalKeysP) -- Layouts import XMonad.Layout.NoBorders +-- Hooks +import XMonad.Hooks.InsertPosition + main = do xmonad $ desktopConfig @@ -19,20 +22,24 @@ main = do , focusedBorderColor = "#bbc5ff" , layoutHook = myLayouts , startupHook = myStartupHook + , manageHook = myManageHook } `additionalKeysP` myKeys -myLayouts = tiledBigMaster ||| Mirror tiledEven ||| noBorders Full +myLayouts = tiledBigMaster -- bigger master for code and smaller slave for compiling + ||| Mirror tiledEven -- 50/50 horizontal split + ||| noBorders Full -- disable borders for fullscreen layout where tiledBigMaster = Tall 1 (3 / 100) (3 / 5) tiledEven = Tall 1 (3 / 100) (1 / 2) - myStartupHook = do - spawnOnce "redshift -c /home/charles/.config/redshift.conf &" - spawnOnce "xinput disable 'ETPS/2 Elantech Touchpad' &" - -myKeys = [ ("", spawn "pulseaudio-ctl up") - , ("", spawn "pulseaudio-ctl down") - , ("", spawn "pulseaudio-ctl mute") - , ("", spawn "xbacklight -inc 5") - , ("", spawn "xbacklight -dec 5") + spawnOnce "redshift -c /home/charles/.config/redshift.conf &" -- start redshift + spawnOnce "xinput disable 'ETPS/2 Elantech Touchpad' &" -- disable touchpad + +myManageHook = insertPosition End Newer -- insert new window at the end of the current layout + +myKeys = [ ("", spawn "pulseaudio-ctl up") -- volume up + , ("", spawn "pulseaudio-ctl down") -- volume down + , ("", spawn "pulseaudio-ctl mute") -- volume mute + , ("", spawn "xbacklight -inc 5") -- backlight up + , ("", spawn "xbacklight -dec 5") -- backlight down ] -- cgit