diff --git a/.config/xmonad/xmonad.hs b/.config/xmonad/xmonad.hs
index bcdfe7b..0b4660c 100644
--- a/.config/xmonad/xmonad.hs
+++ b/.config/xmonad/xmonad.hs
@@ -35,11 +35,11 @@ myGapSize            = 13
 
 myStartupHook :: X ()
 myStartupHook = do
-  spawn $ "/usr/bin/xmobar " ++ themeBarConfig myTheme
-  spawn $ "feh --bg-scale " ++ themeWallpaper myTheme
-  spawn   "xscreensaver -no-splash"
-  spawn   "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --tint 0x5f5f5f --height 31"
-  spawn   "emacs --daemon"
+  spawn $     "/usr/bin/xmobar " ++ themeBarConfig myTheme
+  spawn $     "feh --bg-scale " ++ themeWallpaper myTheme
+  spawn       "xscreensaver -no-splash"
+  spawnOnce   "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --tint 0x5f5f5f --height 31"
+  spawn       "emacs --daemon"
 
 myKeybindings :: [(String, X())]
 myKeybindings = [  ("M-e", spawn myEmacs)