aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Config/Sjanssen.hs
diff options
context:
space:
mode:
authorSpencer Janssen <spencerjanssen@gmail.com>2009-11-07 18:46:15 +0100
committerSpencer Janssen <spencerjanssen@gmail.com>2009-11-07 18:46:15 +0100
commit6a1cb5c64fe05ac4f15408acf4cd21eac92c8103 (patch)
tree1164ebe79dcea14772e555394769e128b044c5b5 /XMonad/Config/Sjanssen.hs
parent90045d7d04b0b0529f25929ff32136741244dd98 (diff)
downloadXMonadContrib-6a1cb5c64fe05ac4f15408acf4cd21eac92c8103.tar.gz
XMonadContrib-6a1cb5c64fe05ac4f15408acf4cd21eac92c8103.tar.xz
XMonadContrib-6a1cb5c64fe05ac4f15408acf4cd21eac92c8103.zip
Use X.U.SpawnOnce in my config
Ignore-this: fe8f5f75136128280942771ec429f09a darcs-hash:20091107174615-25a6b-0ea685cd1a30d483098bb0293938681f7a3bf541.gz
Diffstat (limited to '')
-rw-r--r--XMonad/Config/Sjanssen.hs8
1 files changed, 8 insertions, 0 deletions
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))