diff options
| -rw-r--r-- | tag-xmonad/xmonad/xmonad.hs | 44 |
1 files changed, 24 insertions, 20 deletions
diff --git a/tag-xmonad/xmonad/xmonad.hs b/tag-xmonad/xmonad/xmonad.hs index 4b67cb48..9e1fa77f 100644 --- a/tag-xmonad/xmonad/xmonad.hs +++ b/tag-xmonad/xmonad/xmonad.hs @@ -4,31 +4,35 @@ import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageHelpers import XMonad.Layout.NoBorders +import XMonad.Util.EZConfig import XMonad.Util.Run(spawnPipe) import System.IO import Data.List(isPrefixOf) +myManageHook :: ManageHook +myManageHook = composeOne + [ className =? "Firefox" -?> doShift "2" + , className =? "Pidgin" -?> doShift "3" + , className =? "nuvolaplayer" -?> doShift "8" + , className =? "Transmission-gtk" -?> doShift "9" + , isFullscreen -?> doFullFloat + , fmap ("mpv" `isPrefixOf`) title -?> doFullFloat + ] + main :: IO () main = do xmproc <-spawnPipe "/usr/bin/xmobar /home/alan/.xmobarrc" - xmonad $ defaultConfig { - manageHook = composeOne [ - className =? "Firefox" -?> doShift "2", - className =? "Pidgin" -?> doShift "3", - className =? "nuvolaplayer" -?> doShift "8", - className =? "Transmission-gtk" -?> doShift "9", - isFullscreen -?> doFullFloat, - fmap ("mpv" `isPrefixOf`) title -?> doFullFloat - ] <+> manageDocks <+> manageHook defaultConfig, - layoutHook = smartBorders . avoidStruts $ layoutHook defaultConfig, - logHook = dynamicLogWithPP xmobarPP { - ppOutput = hPutStrLn xmproc, - ppTitle = xmobarColor "#859900" "" . shorten 200, - ppCurrent = xmobarColor "#b58900" "". wrap "[" "]", - ppHiddenNoWindows = xmobarColor "#93a1a1" "", - ppUrgent = xmobarColor "#dc322f" "#b58900" - }, - terminal = "urxvt", - modMask = mod4Mask, - handleEventHook = fullscreenEventHook + xmonad $ defaultConfig + { manageHook = myManageHook <+> manageDocks <+> manageHook defaultConfig + , layoutHook = smartBorders . avoidStruts $ layoutHook defaultConfig + , logHook = dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "#859900" "" . shorten 200 + , ppCurrent = xmobarColor "#b58900" "". wrap "[" "]" + , ppHiddenNoWindows = xmobarColor "#93a1a1" "" + , ppUrgent = xmobarColor "#dc322f" "#b58900" + } + , terminal = "urxvt" + , modMask = mod4Mask + , handleEventHook = fullscreenEventHook } |