reo/dotfiles
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add startup hook for xmonad.

Browse source
This commit is contained in:
ramazanemreosmanoglu 2022-10-25 18:59:31 +03:00
parent 1cadb5ebee
commit 03e6c03b70
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
.config/xmonad/xmonad.hs
View file

@ -4,6 +4,7 @@ import XMonad.Hooks.DynamicLog
import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.SpawnOnce (spawnOnce)
main = do
xmonad . ewmhFullscreen . ewmh . xmobarProp $ def
@ -12,6 +13,7 @@ main = do
, borderWidth = myBorderWidth
, focusedBorderColor = myFocusedBorderColor
, normalBorderColor = myNormalBorderColor
, startupHook = myStartupHook
}
`additionalKeysP`
[ ("M-e", spawn myEmacs)
@ -30,3 +32,7 @@ myEmacs = "emacsclient -c -a 'emacs' "
myBrowser = "firefox"
myFocusedBorderColor = "#749F82"
myNormalBorderColor = "#425F57"
myStartupHook :: X ()
myStartupHook = do
spawnOnce "xmobar"