wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

Remove xmobar and stalonetray from xmonad.hs

Browse Source
This commit is contained in:
Ivan Malison 2016-09-14 16:56:37 -07:00
parent e535a0eb7b
commit 9d054443b2
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
dotfiles/xmonad/xmonad.hs
View File

@ -1,29 +1,24 @@
import System.IO
import XMonad import XMonad
import XMonad.Config() import XMonad.Config()
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Layout.NoBorders
import XMonad.Layout.Spacing
import XMonad.Layout.ThreeColumns
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
import XMonad.Util.Run(spawnPipe)
-- Use Super/Command/WinKey instead of Alt -- Use Super/Command/WinKey instead of Alt
myModMask :: KeyMask myModMask :: KeyMask
myModMask = mod4Mask myModMask = mod4Mask
main :: IO () main :: IO ()
main = do main = xmonad $ ewmh def
xmproc <- spawnPipe "xmobar"
xmonad $ ewmh def
{ modMask = myModMask { modMask = myModMask
, terminal = "urxvt" , terminal = "urxvt"
, manageHook = manageDocks <+> manageHook def , manageHook = manageDocks <+> manageHook def
, layoutHook = myLayoutHook , layoutHook = myLayoutHook
, logHook = dynamicLogWithPP xmobarPP
{ ppOutput = hPutStrLn xmproc
, ppTitle = xmobarColor "blue" "" . shorten 50
}
, handleEventHook = handleEventHook def <+> fullscreenEventHook , handleEventHook = handleEventHook def <+> fullscreenEventHook
, startupHook = myStartup , startupHook = myStartup
} `additionalKeys` } `additionalKeys`
@ -33,11 +28,10 @@ main = do
, ((myModMask, xK_b), spawn "rofi -show run") , ((myModMask, xK_b), spawn "rofi -show run")
] ]
myLayoutHook = avoidStruts $ layoutHook def myLayoutHook = avoidStruts $ smartSpacing 10 $ noBorders $ layoutHook def
myStartup :: X() myStartup :: X()
myStartup = do myStartup = do
spawn "stalonetray"
spawn "nm-applet --sm-disable" spawn "nm-applet --sm-disable"
spawn "xsetroot -solid black" spawn "xsetroot -solid black"
-- TODO: Figure out how to set different backgrounds for different x -- TODO: Figure out how to set different backgrounds for different x