diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-11-07 18:46:15 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-11-07 18:46:15 +0100 |
| commit | 6a1cb5c64fe05ac4f15408acf4cd21eac92c8103 (patch) | |
| tree | 1164ebe79dcea14772e555394769e128b044c5b5 /XMonad | |
| parent | 90045d7d04b0b0529f25929ff32136741244dd98 (diff) | |
| download | XMonadContrib-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 'XMonad')
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 8 |
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)) |