diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-25 22:33:31 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-25 22:33:31 +0100 |
| commit | 9f40428e1dc974c0e797fe11123c73526351576c (patch) | |
| tree | 99346f6d6d236f4b7db9f2d12a0f8cc81884b0cf /XMonad/Actions/SpawnOn.hs | |
| parent | b839c6c4d91ddcba51edbe009970f8c42f11858a (diff) | |
| download | XMonadContrib-9f40428e1dc974c0e797fe11123c73526351576c.tar.gz XMonadContrib-9f40428e1dc974c0e797fe11123c73526351576c.tar.xz XMonadContrib-9f40428e1dc974c0e797fe11123c73526351576c.zip | |
Use currentTag, thanks asgaroth
Ignore-this: dd1a3d96038de6479eca3b9798d38437
darcs-hash:20090125213331-25a6b-52d5f9d6094eed0fdfc88129057ba5319d0bf5f9.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Actions/SpawnOn.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Actions/SpawnOn.hs b/XMonad/Actions/SpawnOn.hs index d452cdf..e0889b7 100644 --- a/XMonad/Actions/SpawnOn.hs +++ b/XMonad/Actions/SpawnOn.hs @@ -68,8 +68,7 @@ shellPromptOn :: Spawner -> WorkspaceId -> XPConfig -> X () shellPromptOn sp ws = mkPrompt (spawnOn sp ws) spawnHere :: Spawner -> String -> X () -spawnHere sp cmd = withWindowSet $ \ws -> spawnOn sp (currTag ws) cmd - where currTag = W.tag . W.workspace . W.current +spawnHere sp cmd = withWindowSet $ \ws -> spawnOn sp (W.currentTag ws) cmd spawnOn :: Spawner -> WorkspaceId -> String -> X () spawnOn sp ws cmd = do |