blob: f93ca244201df1a4f6e721c3ad5b3b1fc8f7c787 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
-----------------------------------------------------------------------------
-- |
-- Module : XMonad.Util.SpawnOnWorkspace
-- Copyright : (c) 2009 Daniel Schoepe
-- License : BSD3-style (see LICENSE)
--
-- Maintainer : Daniel Schoepe <asgaroth_@gmx.de>
-- Stability : unstable
-- Portability : unportable
--
-- Provides a way to spawn an application on a specific workspace by using
-- the _NET_WM_PID property that most windows set on creation. Hence this module
-- won't work on applications that don't set this property.
--
-----------------------------------------------------------------------------
module XMonad.Util.SpawnOnWorkspace (
-- * Usage
-- $usage
-- * Documentation
-- $documentation
spawnOnWorkspace,
spawnOnWorkspaceHook,
mkSpawnHelper,
SpawnHelper
) where
import XMonad
import XMonad.Hooks.ManageHelpers
import Data.IORef
import Data.Maybe
import qualified Data.Map as M
import System.Posix.Types
-- $usage
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
--
-- > import XMonad
-- > import XMonad.Util.SpawnOnWorkspace
--
-- > main = do
-- > sh <- mkSpawnHelper
-- > ..
--
-- Then you need to add 'spawnOnWorkspaceHook' to your manage hook:
--
-- > manageHook = spawnOnWorkspaceHook sh <+> manageHook defaultConfig
--
-- To spawn an application on a specific workspace, add a keybinding:
--
-- > ((mod1Mask,xK_o), spawnOnWorkspace sh "urxvt" "3")
--
-- For detailed instructions on editing your key bindings, see
-- "XMonad.Doc.Extending#Editing_key_bindings".
--
-------------------------------------------------------------------
-- $documentation
-- | This structure holds the process ids and corresponding
-- workspaces for processes created with 'spawnOnWorkspace'
type SpawnHelper = IORef (M.Map ProcessID WorkspaceId)
-- | Creates a new spawn helper.
mkSpawnHelper :: IO SpawnHelper
mkSpawnHelper = newIORef M.empty
-- | Provides a manage hook to react on process spawned with
-- 'spawnOnWorkspace'.
spawnOnWorkspaceHook :: SpawnHelper -> ManageHook
spawnOnWorkspaceHook sh = do
pd <- fromMaybe (-1) `fmap` pid
table <- io $ readIORef sh
case M.lookup pd table of
Just ws -> io (modifyIORef sh (M.delete pd)) >> doShift ws
Nothing -> doF id
-- | Spawns a process on the specified workspace.
spawnOnWorkspace :: SpawnHelper -> String -> WorkspaceId -> X ()
spawnOnWorkspace sh cmd ws = spawnPID cmd >>= io . modifyIORef sh . flip M.insert ws
|
