Remove xmobar and stalonetray from xmonad.hs

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

View File

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