-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathxmonad.hs
executable file
·364 lines (295 loc) · 16.1 KB
/
xmonad.hs
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
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE FlexibleContexts #-}
-- import XMonad.Layout.StackTile -- master window and fixed stack << spiral (4/5)
-- import XMonad.Layout.Spiral -- show window to spirale direction << StackTile 1 (3/100) (1/2)
-- import XMonad.Layout.SimpleFloat -- float window
-- import XMonad.Layout.Accordion
-- import XMonad.Layout.Circle
-- import XMonad.Layout.ThreeColumns -- Mirror (multiCol [1] 2 0.01 (-0.25))
-- import XMonad.Layout.MultiColumns -- ThreeCol 1 (3/100) (1/2)
-- Imports {{{
import XMonad
import XMonad.Operations
import Control.Monad (mapM_)
import System.IO
import System.Exit
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.Dmenu
import XMonad.Util.Cursor
import XMonad.Actions.CycleWS -- move focus, workspace, screens
import XMonad.Actions.CopyWindow -- copy window to few workspace
import XMonad.Actions.GridSelect
import XMonad.Hooks.ManageDocks -- avoidStruct - manage dock type programs
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.DynamicLog -- log for dzen2
import XMonad.Hooks.UrgencyHook -- work with urgency window
import XMonad.Hooks.FadeInactive -- fadeInactiveLogHook work with xcompmgr
import XMonad.Hooks.EwmhDesktops
import XMonad.Layout.NoBorders (smartBorders, noBorders) -- smartborders give some issue with multiple screen
import XMonad.Layout.PerWorkspace (onWorkspace, onWorkspaces) -- can set loyaut for wrokspace
import XMonad.Layout.Spacing -- can set free space between window
import XMonad.Layout.ResizableTile -- MirrorShrink, MirrorExpand
import XMonad.Layout.Grid
import XMonad.Layout.Named -- set name layout
import XMonad.Layout.SubLayouts
import XMonad.Layout.WindowNavigation -- needed for subLayout
import XMonad.Layout.Simplest -- simple window
import XMonad.Layout.Magnifier
import XMonad.Layout.Tabbed
import XMonad.Layout.Gaps
import XMonad.Config.Desktop
import Data.Ratio ((%))
import qualified XMonad.StackSet as W
import qualified Data.Map as M
--}}}
-- Config {{{
myTerminal = "urxvtc"
myBitmapsDir = "/home/xim/.xmonad/panels/icon/"
dmenuBar = "dmenu_run -nb '#000000' -nf '#7b7b7b' -sb '#005800' -sf '#aaaaaa' -fn 'Droid Sans Mono for Powerline':size=8"
logBarScreen1 = "dzen2 -xs 1 -dock -x '0' -y '0' -h '13' -w '1290' -ta 'l' -fg '#ffffff' -bg '#000000' -fn 'Droid Sans Mono':bold:size=8 -title-name logBarScreen1"
logBarScreen2 = "" -- "dzen2 -xs 2 -x '0' -y '0' -h '13' -w '1320' -ta 'l' -fg '#ffffff' -bg '#000000' -fn 'Droid Sans Mono':bold:size=8"
infoBarScreen1 = "conky -c ~/.xmonad/panels/conkyrc | dzen2 -xs 1 -x '0' -y '900' -h 13 -w '1540' -ta 'l' -fg '#444444' -bg '#000000' -fn 'Droid Sans Mono for Powerline':size=8 -title-name infoBarScreen1"
infoBarScreen2 = "" -- "conky -c ~/.xmonad/panels/conkyrc | dzen2 -xs 2 -y 900 -h 13 -w 1440 -ta 'l' -fg '#444444' -bg '#000000' -fn 'Droid Sans Mono for Powerline':size=8"
-- infoBarScreen1 = "xmobar -x 0 ~/.xmonad/panels/xmobarrc"
-- infoBarScreen2 = "" -- "xmobar -x 1 ~/.xmonad/panels/xmobarrc"
ws1 = ">_"
ws2 = "νim"
ws3 = "ìnet"
ws4 = "skype"
ws5 = "^i(" ++ myBitmapsDir ++ "phones.xbm)"
ws6 = "6"
ws7 = "7"
ws8 = "8"
ws9 = "9"
-- }}}
-- Main {{{
main = do
logBarScreen1 <- spawnPipe logBarScreen1
logBarScreen2 <- spawnPipe logBarScreen2
xmonad $ ewmh desktopConfig
{ terminal = myTerminal
, workspaces = [ws1, ws2, ws3, ws4, ws5, ws6, ws7, ws8, ws9]
, keys = keys'
, modMask = mod4Mask
, layoutHook = layoutHook'
, manageHook = manageHook' <+> manageDocks
, startupHook = startupHook'
, logHook = logHook' [logBarScreen1, logBarScreen2] >> fadeInactiveLogHook 0xdddddddd
, handleEventHook = docksEventHook
, normalBorderColor = colorNormalBorder
, focusedBorderColor = colorFocusedBorder
, borderWidth = 2
}
-- }}}
-- Startup Hook {{{
startupHook' :: X()
startupHook' = do
setDefaultCursor xC_pirate
spawn infoBarScreen1
spawn infoBarScreen2
restartHook :: X()
restartHook = do
spawn "pkill xmobar"
spawn "pkill conky"
-- }}}
-- Log Hook {{{
logHook' :: [Handle] -> X ()
logHook' handlers = do
copies <- wsContainingCopies
let check ws | ws `elem` copies = dzenColor color_ppCopy color_bgInactive . pad $ ws
| otherwise = pad ws
let icon = "^i(" ++ myBitmapsDir ++ "corner-lt1.xbm)"
let wrap_style fg bg title = "^bg(" ++ bg ++ ")^fg(#000)" ++ icon
++ dzenColor fg bg title
++ "^bg(#000)^fg(" ++ bg ++ ")" ++ icon
dynamicLogWithPP $ defaultPP
{ ppCurrent = wrap_style color_ppCurrent color_bgCurrent . wrap " " " "
, ppVisible = wrap_style color_ppVisible color_bgVisible . pad
, ppHidden = wrap_style color_ppHidden color_bgInactive . check
, ppHiddenNoWindows = wrap_style color_ppHiddenNoWindows color_bgInactive . pad
, ppUrgent = wrap_style color_ppUrgent color_bgInactive . pad
, ppTitle = wrap_style color_ppTitle color_BG . pad . dzenEscape
, ppLayout = wrap_style color_ppLayout color_BG .
(\x -> case x of
"Tabbed ResizableTall" -> "^i(" ++ myBitmapsDir ++ "tall.xbm)"
"Tabbed Mirror ResizableTall" -> "^i(" ++ myBitmapsDir ++ "mtall.xbm)"
"Tabbed Full" -> "^i(" ++ myBitmapsDir ++ "full.xbm)"
"Tabbed Simple Float" -> "~"
_ -> x
)
, ppWsSep = ""
, ppSep = dzenEscape " "
, ppOutput = (\str -> mapM_ (\handler -> hPutStrLn handler str) handlers)
}
-- }}}
-- Manage Hook {{{
manageHook' :: ManageHook
manageHook' = (composeAll . concat $
[ [resource =? r --> doIgnore | r <- myIgnores]
, [className =? c --> doShift ws1 | c <- myConsole]
, [className =? c --> doShift ws2 | c <- myVim ]
, [className =? c --> doShift ws3 | c <- myInet ]
, [className =? c --> doShift ws4 | c <- myChat ]
, [className =? c --> doShift ws5 | c <- myMusic ]
, [className =? c --> doShift ws6 | c <- myGimp ]
, [className =? c --> doShift ws9 | c <- myExtra ]
, [className =? c --> doCenterFloat | c <- myFloats ]
, [name =? n --> doCenterFloat | n <- myNames ]
, [isFullscreen --> myDoFullFloat ]
])
where
role = stringProperty "WM_WINDOW_ROLE"
name = stringProperty "WM_NAME"
myNames = []
-- classNames
myFloats = ["SMPlayer","MPlayer","VirtualBox","Xmessage","XFontSel","Downloads","Nm-connection-editor", "Vlc", "Kodi"]
myInet = ["firefox","Google-chrome","Chromium", "Chromium-browser"]
myMusic = ["Clementine"]
myChat = ["discord", "Skype", "telegram-desktop", "TelegramDesktop"]
myExtra = ["Pidgin", "Buddy List", "HipChat", "Slack"]
myGimp = ["Gimp"]
myConsole = []
myVim = ["GVim"]
myIgnores = ["desktop", "desktop_window", "notify-osd", "stalonetray", "trayer", "XXkb", "panel", "Conky"]
-- a trick for fullscreen but stil allow focusing of other WSs
myDoFullFloat :: ManageHook
myDoFullFloat = doF W.focusDown <+> doFullFloat
-- }}}
-- Layout Hook {{{
layoutHook' = onWorkspaces [ws3, ws2] fullscreenLayout $
onWorkspaces [ws4, ws9] imLayout $
customLayout
-- avoidStruts
fullscreenLayout = gaps [(U,13), (D,13)] $ noBorders Full ||| ResizableTall 1 (2/100) (1/2) []
customLayout = gaps [(U,13), (D,13)]
$ configurableNavigation noNavigateBorders
$ addTabs shrinkText tabTheme
$ subLayout [0,1] (Simplest)
$ tiled
||| Mirror tiled
||| noBorders Full
||| magnifier (Tall 1 (3/100) (1/2))
where
tiled = ResizableTall 1 (2/100) (1/2) []
imLayout = gaps [(U,13), (D,13)] $ ResizableTall 1 (5/100) (5/6) []
-- }}}
-- Colors {{{
tabTheme = defaultTheme { decoHeight = 14
, activeColor = "#303030"
, activeBorderColor = "#404040"
, activeTextColor = "#00af00"
, inactiveTextColor = "#8f8f8f"
, inactiveColor = "#252525"
, inactiveBorderColor = "#404040"
}
color_BG = "#000000"
color_bgCurrent = "#00af00"
color_bgInactive = "#1b1d1e"
color_ppCurrent = "#000"
color_ppVisible = "#000"
color_bgVisible = "#0000aa"
color_ppHidden = "#0fa000"
color_ppCopy = "red"
color_ppHiddenNoWindows = "#7b7b7b"
color_ppUrgent = "#ff0000"
color_ppLayout = "#870000"
color_ppTitle = "#7b7b7b"
colorNormalBorder = "#000000"
colorFocusedBorder = "#007400"
-- }}}
-- Key mapping {{{
keys' conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
[ ((modMask, xK_p ), spawn dmenuBar)
, ((modMask .|. shiftMask, xK_Return ), spawn $ XMonad.terminal conf)
, ((modMask .|. shiftMask, xK_c ), kill) -- close window with all copy
, ((modMask, xK_c ), kill1) -- close copy to the window
, ((0, xK_Print ), spawn "scrot -e 'mv $f ~/screenshots/'")
, ((modMask, xK_o ), spawn "firefox")
, ((modMask, xK_m ), spawn "thunar")
, ((modMask .|. controlMask, xK_Return ), spawn "terminator")
, ((modMask .|. shiftMask, xK_l ), spawn "slock")
-- layouts
, ((modMask, xK_space ), sendMessage NextLayout)
, ((modMask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf) -- reset layout on current desktop to default
-- toggle both, Structs and Gaps
, ((modMask, xK_b ), do { sendMessage $ ToggleGaps; sendMessage ToggleStruts })
, ((modMask, xK_n ), refresh)
, ((modMask, xK_Tab ), windows W.focusDown) -- move focus to next window
, ((modMask .|. shiftMask, xK_Tab ), windows W.focusUp ) -- move focus to the previous window
, ((modMask, xK_j ), windows W.focusDown)
, ((modMask, xK_k ), windows W.focusUp )
, ((modMask, xK_m ), windows W.focusMaster) -- move focus to the master window
, ((modMask .|. shiftMask, xK_j ), windows W.swapDown) -- swap the focused window with the next window
, ((modMask .|. shiftMask, xK_k ), windows W.swapUp) -- swap the focused window with the previous window
, ((modMask, xK_Return ), windows W.swapMaster)
, ((modMask, xK_t ), withFocused $ windows . W.sink) -- push window back into tiling
, ((modMask, xK_h ), sendMessage Shrink) -- shrink a master area
, ((modMask, xK_l ), sendMessage Expand) -- expand a master area
, ((modMask, xK_comma ), sendMessage (IncMasterN 1))
, ((modMask, xK_period ), sendMessage (IncMasterN (-1)))
, ((modMask, xK_BackSpace), focusUrgent)
, ((modMask, xK_a ), sendMessage MirrorShrink)
, ((modMask, xK_z ), sendMessage MirrorExpand)
, ((modMask .|. shiftMask, xK_minus ), sendMessage MagnifyMore)
, ((modMask .|. controlMask, xK_minus ), sendMessage MagnifyLess)
, ((modMask .|. controlMask, xK_m ), sendMessage Toggle)
-- toggle visible window on all workspace
, ((modMask, xK_v ), windows copyToAll)
, ((modMask .|. shiftMask, xK_v ), killAllOtherCopies)
-- workspaces
, ((modMask .|. controlMask, xK_Right ), nextWS)
, ((modMask .|. shiftMask, xK_Right ), shiftToNext)
, ((modMask .|. controlMask, xK_Left ), prevWS)
, ((modMask .|. shiftMask, xK_Left ), shiftToPrev)
, ((modMask, xK_r ), swapPrevScreen)
, ((modMask, xK_n ), toggleWS)
, ((modMask, xK_u ), prevScreen)
-- quit, or restart
, ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
, ((modMask, xK_q ), restartHook >> restart "xmonad" True)
, ((modMask, xK_g ), goToSelected $ myGSConfig defaultColorizer)
, ((modMask .|. controlMask, xK_h ), sendMessage $ pullGroup L)
, ((modMask .|. controlMask, xK_l ), sendMessage $ pullGroup R)
, ((modMask .|. controlMask, xK_k ), sendMessage $ pullGroup U)
, ((modMask .|. controlMask, xK_j ), sendMessage $ pullGroup D)
, ((modMask .|. controlMask, xK_m ), withFocused (sendMessage . MergeAll))
, ((modMask .|. controlMask, xK_u ), withFocused (sendMessage . UnMerge))
, ((modMask .|. controlMask, xK_period ), onGroup W.focusUp')
, ((modMask .|. controlMask, xK_comma ), onGroup W.focusDown')
, ((modMask, xK_Right ), sendMessage $ Go R)
, ((modMask, xK_Left ), sendMessage $ Go L)
, ((modMask, xK_Up ), sendMessage $ Go U)
, ((modMask, xK_Down ), sendMessage $ Go D)
-- SCREEN
, ((mod1Mask, xK_Up ), spawn "light -A 10")
, ((mod1Mask, xK_Down ), spawn "light -U 10")
-- FUNCTIONL KEYS
, ((mod1Mask, xK_F1 ), spawn "suspend")
, ((mod1Mask, xK_F4 ), spawn "sleep 1 && xset dpms force standby")
-- Pulse audio
, ((mod1Mask, xK_F8 ), spawn "pactl set-source-mute 1 toggle")
, ((mod1Mask, xK_Left ), spawn "amixer -D pulse set Master 5%-")
, ((mod1Mask, xK_Right ), spawn "amixer -D pulse set Master 5%+")
-- ALSA
-- , ((mod1Mask, xK_F8 ), spawn "amixer set Master 0%")
-- , ((mod1Mask, xK_Left ), spawn "amixer set Master 5-")
-- , ((mod1Mask, xK_Right ), spawn "amixer set Master 5+")
, ((mod1Mask, xK_F10 ), spawn "ruby ~/.scripts/mpd.rb prev")
, ((mod1Mask, xK_F11 ), spawn "ruby ~/.scripts/mpd.rb toggle")
, ((mod1Mask, xK_F12 ), spawn "ruby ~/.scripts/mpd.rb next")
]
++
-- mod-[1..9] %! Switch to workspace N
-- mod-shift-[1..9] %! Move client to workspace N
-- mod-control-shift-[1..9] %! Copy client to workspace N
[((m .|. modMask, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
, (f, m) <- [(W.view, 0), (W.shift, shiftMask), (copy, shiftMask .|. controlMask)]]
++
-- mod-{w,e}, Switch to physical/Xinerama screens 1, 2, or 3
-- mod-shift-{w,e}, Move client to screen 1, 2, or 3
[((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
| (key, sc) <- zip [ xK_w, xK_e ] [0..]
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
-- }}}
myGSConfig colorizer = (buildDefaultGSConfig colorizer) { gs_cellheight = 30, gs_cellwidth = 100 }