From 6a1cb5c64fe05ac4f15408acf4cd21eac92c8103 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Sat, 7 Nov 2009 18:46:15 +0100
Subject: Use X.U.SpawnOnce in my config

Ignore-this: fe8f5f75136128280942771ec429f09a

darcs-hash:20091107174615-25a6b-0ea685cd1a30d483098bb0293938681f7a3bf541.gz
---
 XMonad/Config/Sjanssen.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index a2676e2..539a4c0 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -14,6 +14,7 @@ import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Prompt
 import XMonad.Actions.SpawnOn
+import XMonad.Util.SpawnOnce
 
 import XMonad.Layout.LayoutScreens
 import XMonad.Layout.TwoPane
@@ -37,12 +38,19 @@ sjanssenConfig =
                                                 , ("Amarokapp", "7")]]
                         <+> manageHook defaultConfig <+> manageDocks <+> manageSpawn
                         <+> (isFullscreen --> doFullFloat)
+        , startupHook = mapM_ spawnOnce spawns
         }
  where
     tiled     = HintedTile 1 0.03 0.5 TopLeft
     layouts   = (tiled Tall ||| (tiled Wide ||| Full)) ||| tabbed shrinkText myTheme
     modifiers = avoidStruts . smartBorders
 
+    spawns = [ "xmobar"
+             , "xset -b", "xset s off", "xset dpms 0 600 1200"
+             , "nitrogen --set-tiled wallpaper/wallpaper.jpg"
+             , "trayer --transparent true --expand true --align right "
+               ++ "--edge bottom --widthtype request" ]
+
     mykeys (XConfig {modMask = modm}) = M.fromList $
         [((modm,               xK_p     ), shellPromptHere myPromptConfig)
         ,((modm .|. shiftMask, xK_Return), spawnHere =<< asks (terminal . config))
-- 
cgit v1.2.3