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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
{-# LANGUAGE UnicodeSyntax #-}
module XMonad.Local.ManageHook (
manageHook
) where
import Data.List
import XMonad hiding (manageHook)
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import qualified XMonad.StackSet as W
import XMonad.Util.NamedScratchpad as NS
-- local modules **************************************************************
import XMonad.Local.Config
import XMonad.Local.NamedScratchpad
import XMonad.Local.Workspaces
{- note: earlier hooks have higher priority -}
manageHook ∷ ManageHook
manageHook = composeAll
[ composeOne [NS.query c -?> hook c | c <- namedScratchpads]
, composeOne (concat
[ [checkDock -?> doIgnore]
, [(matchChrome <&&> appName =? tabsOutlinerAppName) -?> doTOFloat]
, [className =? c -?> doIgnore | c <- myCIgnores]
, [className =? "Wine" -?> doFloat ]
, [isFullscreen -?> doMaster <+> doFullFloat]
, [transience]
, [isDialog -?> doMaster <+> doCenterFloat]
, [fmap ("Preferences" `isInfixOf`) title -?> doMaster <+> doCenterFloat]
, [(className =? "Gimp" <&&> c) -?> h | (c, h) <- gimpManage]
, [( className =? "Qjackctl"
<&&> fmap ("JACK Audio Connection Kit" `isPrefixOf`) title)
-?> doMaster <+> doFloat]
, [(className =? "Dia" <&&> windowRole =? "toolbox_window")
-?> doMaster <+> doFloat]
, [ className =? c <&&> title =? t -?> doMaster <+> doFloat
| (c, t) <- myCTFloats ]
, [className =? c -?> doMaster <+> doCenterFloat | c <- myCCenterFloats]
, [className =? "Virt-manager" <&&> title =? "New VM"
-?> doMaster <+> doCenterFloat]
, [className =? c -?> doMaster <+> doFloat | c <- myCFloats ]
, [title =? t -?> doMaster <+> doFloat | t <- myTFloats ]
, [className =? "BaldursGate" -?> doMyShift "BG" <+> doMaster]
, [className =? "witcher.exe" -?> doMyShift "witcher" <+> doMaster]
])
, composeOne (concat
[ [className =? "Dia" -?> doMyShift "dia"]
, [className =? c -?> doMyShift "chat" | c <- myChatClients ]
, [(matchChrome <&&> title =? "Hangouts") -?> doMyShift "chat"]
, [className =? c -?> doMyShift "web" | c <- myWebBrowsers ]
, [title =? "ncmpcpp" -?> doMyShift "music" ]
, [className =? c -?> doMyShift "music" | c <- myMusicPlayers ]
, [className =? c -?> doMyShift "video" | c <- myVideoPlayers ]
, [className =? "Evince" -?> doMyShift "pdf"]
, [className =? "Atril" -?> doMyShift "pdf"]
, [className =? "Thunderbird" -?> doMyShift "mail"]
, [className =? "California" -?> doMyShift "calendar"]
, [className =? "Gimp" -?> doMyShift "gimp"]
, [className =? "Virt-manager" -?> doMyShift "virt"]
, [className =? "VirtualBox" -?> doMyShift "vbox"]
, [className =? "Deluge" -?> doMyShift "p2p"]
, [className =? "Calibre" -?> doMyShift "ebook"]
, [className =? "Squeak" -?> doMyShift "squeak"]
, [className =? "Civ5XP" -?> doMyShift "ciV"]
, [className =? "Googleearth-bin" -?> doMyShift "earth"]
-- see http://xmonad.org/xmonad-docs/xmonad-contrib/src/XMonad-Hooks-XPropManage.html#xPropManageHook
])
]
where
doMaster = doF W.shiftMaster
doMyShift ∷ WorkspaceId → ManageHook
doMyShift wsp = do
liftX (newWorkspace wsp)
doF $ W.greedyView wsp . W.shift wsp
doTOFloat ∷ ManageHook
doTOFloat = doRectFloat tabsOutlinerFloatRect
myTFloats = [ "VLC (XVideo output)"
, "DownThemAll! - Make Your Selection"
, "Add Downloads"
, "Add URL(s)"
, "Run Application"
]
myCIgnores = [ "Xfce4-notifyd"
]
myCFloats = [ "Close session"
, "MPlayer"
, "Wine"
, "Galculator"
]
myCTFloats = [ ("Skype", "Information")
, ("Firefox", "Certificate Manager")
, ("processing-app-Base", "Preferences")
, ("Thunar", "File Operation Progress")
]
myCCenterFloats = [ "Xfce4-notes"
, "Gcolor2"
, "Gcr-prompter"
, "Xfce4-appfinder"
, "Xmessage"
, "Pavucontrol"
, "Xfrun4"
, "Xfce4-settings-manager"
, "Xfce4-panel"
, "Alarm-clock-applet"
]
myChatClients = ["Pidgin", "Xchat", "Skype", "Empathy", "Hexchat"]
myWebBrowsers = []
myMusicPlayers = ["ncmpcpp", "Sonata", "Rhythmbox", "Gmpc"]
myVideoPlayers = ["MPlayer", "Vlc", "Smplayer"]
gimpManage = [ ( windowRole =? "gimp-toolbox" <||> windowRole =? "gimp-image-window"
, ask >>= doF . W.sink)
, (windowRole =? "gimp-image-merge-layers", doCenterFloat)
, (title =? "Scale Image", doCenterFloat)
, (title =? "Export File", doCenterFloat)
, (fmap ("Save as" `isPrefixOf`) title, doCenterFloat)
]
matchChrome ∷ Query Bool
matchChrome = className =? "google-chrome" <||> className =? "Google-chrome"
windowRole ∷ Query String
windowRole = stringProperty "WM_WINDOW_ROLE"
|
