diff options
| author | Charles Cabergs <charles.cabergs@colruytgroup.com> | 2022-09-06 09:13:24 +0200 |
|---|---|---|
| committer | Charles Cabergs <charles.cabergs@colruytgroup.com> | 2022-09-06 09:13:24 +0200 |
| commit | 92bbb2fb27c2726bc1c72c4e50adc88144dee4b1 (patch) | |
| tree | 66e9d25e7aa33e211c7aa48071a258cf1704f540 /config/xmonad | |
| parent | 6525757c2aff704550ca46991ca1d11e09f11f01 (diff) | |
| parent | d54e8f15d776e59b2f8b70bb94c5041509b391f0 (diff) | |
| download | dotfiles-92bbb2fb27c2726bc1c72c4e50adc88144dee4b1.tar.gz dotfiles-92bbb2fb27c2726bc1c72c4e50adc88144dee4b1.tar.bz2 dotfiles-92bbb2fb27c2726bc1c72c4e50adc88144dee4b1.zip | |
Merge branch 'master' of https://github.com/cacharle/dotfiles
Diffstat (limited to 'config/xmonad')
| -rw-r--r-- | config/xmonad/xmonad.hs | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/config/xmonad/xmonad.hs b/config/xmonad/xmonad.hs index a94df43..ea547f1 100644 --- a/config/xmonad/xmonad.hs +++ b/config/xmonad/xmonad.hs @@ -5,6 +5,7 @@ import System.Exit import XMonad import XMonad.Config.Desktop (desktopConfig) +import XMonad.ManageHook (composeAll, doFloat, className, (-->), (=?), (<+>)) -- Utilities import XMonad.Util.Dmenu (menuArgs) @@ -36,7 +37,7 @@ main = xmonad $ desktopConfig , borderWidth = 2 , focusFollowsMouse = False -- don't change window based on mouse position (need to click) , workspaces = ["code", "web"] ++ map show [3..9] - , startupHook = startupHook' + -- , startupHook = startupHook' } `additionalKeysP` keys' @@ -49,7 +50,12 @@ layoutHook' = spacing' 4 $ reflectHoriz tiledVerticalBigMaster -- main monitor tiledHorizontalEven = Tall 1 (3 / 100) (1 / 2) spacing' x = spacingRaw True (Border x x x x) False (Border x x x x) True -manageHook' = insertPosition End Newer -- insert new window at the end of the current layout +manageHook' = composeAll + [ className =? "Anki" --> doFloat + , className =? "Steam" --> doFloat + , className =? "Gimp" --> doFloat + ] + <+> insertPosition End Newer -- insert new window at the end of the current layout keys' = [ ("<XF86AudioLowerVolume>", spawn "pulseaudio-ctl down") , ("<XF86AudioRaiseVolume>", spawn "pulseaudio-ctl up") @@ -73,10 +79,10 @@ keys' = [ ("<XF86AudioLowerVolume>", spawn "pulseaudio-ctl down") , ("M-S-q", confirm "Are you sure you want to shutdown?" $ io (exitWith ExitSuccess)) ] -startupHook' :: X () -startupHook' = do - spawnOnOnce "code" myTerminal - spawnOnOnce "web" "qutebrowser" +-- startupHook' :: X () +-- startupHook' = do + -- spawnOnOnce "code" myTerminal + -- spawnOnOnce "web" "qutebrowser" confirm :: String -> X () -> X () confirm prompt f = do |