-
Notifications
You must be signed in to change notification settings - Fork 5
/
xmonad.hs
198 lines (172 loc) · 6.72 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
--
-- Imports
-- =======================================
import System.IO
import Data.Char
import XMonad
import qualified XMonad.StackSet as W
-- Used for isFullscreen
import XMonad.Layout.NoBorders
import XMonad.Layout.Spacing
import XMonad.Layout.ResizableTile
import XMonad.Layout.ToggleLayouts
import XMonad.Layout.Tabbed
import XMonad.Hooks.ManageHelpers (isFullscreen, isDialog, doFullFloat, doCenterFloat)
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.UrgencyHook
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.SetWMName
import XMonad.Hooks.ScreenCorners
import XMonad.Util.Run
import XMonad.Util.EZConfig
import XMonad.Util.NamedWindows
import XMonad.Util.NamedScratchpad
import XMonad.Actions.CycleWS
import XMonad.Actions.GridSelect
import XMonad.Prompt
import XMonad.Prompt.Window
-- crude sticky pane
import XMonad.Layout.LayoutScreens
import XMonad.Layout.TwoPane
import System.Environment (lookupEnv)
import Data.Maybe (fromMaybe)
--
-- Tomorrow Night Colors
-- ===
colorBackground = "#1d1f21"
colorCurrent = "#282a2e"
colorSelection = "#373b41"
colorForeground = "#c5c8c6"
colorComment = "#969896"
colorRed = "#cc6666"
colorOrange = "#de935f"
colorYellow = "#f0c674"
colorGreen = "#b5bd68"
colorAqua = "#8abeb7"
colorBlue = "#81a2be"
colorPurple = "#b294bb"
--
-- Window WM_URGENT
-- ==================
data LibNotifyUrgencyHook = LibNotifyUrgencyHook deriving (Read, Show)
instance UrgencyHook LibNotifyUrgencyHook where
urgencyHook LibNotifyUrgencyHook w = do
name <- getName w
Just idx <- fmap (W.findTag w) $ gets windowset
safeSpawn "notify-send" [show name, "workspace " ++ idx]
--
-- Window Rules
-- =======================================
myManageHook = composeAll
[ className =? "dmenu" --> doFloat
, className =? "Gimp" --> doFloat
, className =? "Vncviewer" --> doFloat
, className =? "Svkbd" --> doFloat
, className =? "Google-chrome" --> doShift "web"
, className =? "Firefox" --> doShift "web"
, className =? "Chromium" <&&> appName =? "calendar.google.com__b_1_r" --> doFullFloat
, isFullscreen --> doFullFloat
, namedScratchpadManageHook scratchpads
]
-- scratchChromeApp name url = NS name cli q defaultFloating
-- where cli = "google-chrome-stable --app=https://" <> url
-- q = windowQuery "Chromium" url
--
-- windowQuery class_ resource_ = className =? class_ <&&> resource =? resource_
scratchpads = [NS "scratch" "urxvt -name scratch"
(appName =? "scratch")
(customFloating $ W.RationalRect 0.55 0.55 0.45 0.45)
, NS "capture" "emacsclient -n -e '(make-capture-frame)'"
(appName =? "capture")
(customFloating $ W.RationalRect 0.55 0.55 0.45 0.45)
-- , scratchChromeApp "cal" "calendar.google.com/b/1/r"
, NS "cal" "chrome --app='https://calendar.google.com/b/1/r'"
(className =? "Chromium" <&&> appName =? "calendar.google.com__b_1_r")
(customFloating $ W.RationalRect 0.9 0.9 0.9 0.9)
]
myWorkspaces = ["web","term"] ++ map show [3..9]
myTabConfig = defaultTheme { inactiveBorderColor = colorBackground
, activeBorderColor = colorGreen
, activeColor = colorCurrent
, inactiveColor = colorBackground
, inactiveTextColor = colorComment
, activeTextColor = colorForeground
}
myLayout = avoidStruts
$ toggleLayouts tiledSpace
$ smartBorders $ basicRotate
where
basicRotate = Full ||| tabbed shrinkText myTabConfig ||| fullTiled ||| Mirror fullTiled
-- tiled = spacing 5 $ ResizableTall nmaster delta ratio []
tiledSpace = spacing 60 $ ResizableTall nmaster delta ratio []
fullTiled = ResizableTall nmaster delta ratio []
-- The default number of windows in the master pane
nmaster = 1
-- Default proportion of screen occupied by master pane
ratio = toRational (2/(1 + sqrt 5 :: Double))
-- Percent of screen to increment by when resizing panes
delta = 5/100
myStartupHook = do
setWMName "LG3D"
addScreenCorner SCUpperRight $ goToSelected defaultGSConfig
addScreenCorner SCLowerRight $ sendMessage ToggleLayout
myEventHook = fullscreenEventHook
<+> screenCornerEventHook
<+> docksEventHook
myTerminal = "urxvt"
--
-- Main Layout
-- =======================================
main = do
xmproc <- spawnPipe "xmobar ~/.xmobarrc"
yeganesh_cmd <- lookupEnv "YEGANESH_CMD"
let yeganesh = fromMaybe "yeganesh -x -- -i -fn '-xos4-*-medium-r-*-*-16-*'" yeganesh_cmd
xmonad $ withUrgencyHook LibNotifyUrgencyHook $ defaultConfig
{ modMask = mod4Mask
, normalBorderColor = colorBackground
, focusedBorderColor = colorSelection
, terminal = myTerminal
, manageHook = manageDocks
<+> myManageHook
<+> manageHook defaultConfig
, handleEventHook = myEventHook
, layoutHook = myLayout
, workspaces = myWorkspaces
, startupHook = myStartupHook
-- Gets piped to xmobar
, logHook = dynamicLogWithPP xmobarPP
{ ppOutput = hPutStrLn xmproc
, ppCurrent = xmobarColor colorGreen colorBackground . pad
, ppVisible = pad
, ppOrder = \(ws:_:_:_) -> [ws]
}
}
`additionalKeysP`
[ ("M-p", spawn $ "x=$(" ++ yeganesh ++ ") && exec $x")
, ("M-S-p", namedScratchpadAction scratchpads "scratch")
-- http://www.solasistim.net/posts/org_mode_with_capture_and_xmonad/
, ("M-S-o", namedScratchpadAction scratchpads "capture" )
, ("M-S-s", namedScratchpadAction scratchpads "cal" )
, ("M-v", spawn "urxvt -e alsamixer -c 1")
, ("M-S-v", spawn "xdotool click 2")
, ("M-l", spawn "lock")
, ("M-b", sendMessage ToggleStruts)
, ("M1-<Tab>", prevScreen)
, ("M1-S-<Tab>", nextScreen)
, ("M-/", windowPromptGoto defaultXPConfig)
, ("M-q", spawn "xmonad --recompile && xmonad --restart")
, ("M-i", spawn "toggleupsidedown && notify-send 'Welcome' 'to the ǝpısdn uʍop' -t 750")
, ("M-<F11>", nextWS)
, ("M-<F12>", prevWS)
-- , ("M-S-<Space>", layoutScreens 2 (TwoPane 0.33 0.66))
-- , ("M-S-C-<Space>", rescreen)
, ("M-c", spawn "find-cursor")
, ("<XF86KbdBrightnessUp>", spawn "keyboard-bl up")
, ("<XF86KbdBrightnessDown>", spawn "keyboard-bl down")
, ("<XF86BrightnessUp>", spawn "brightness up")
, ("<XF86BrightnessDown>", spawn "brightness down")
, ("<XF86AudioRaiseVolume>", spawn "volume up")
, ("<XF86AudioLowerVolume>", spawn "volume down")
, ("<XF86AudioMute>", spawn "volume mute")
]