Mercurial > dotfiles
annotate .xmonad/xmonad.hs @ 307:e37b00236907
zshrc: work around my shell function that turns on utf8 in screen
The zsh built in which was getting confused by the function, and
always claimed screen was installed. I'm finally running into machines
with tmux but not screen, so I noticed.
author | Augie Fackler <raf@durin42.com> |
---|---|
date | Sat, 19 Jan 2013 19:29:58 -0600 |
parents | 93a8f55a4e30 |
children | 64e73453e43f |
rev | line source |
---|---|
176
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
1 import XMonad |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
2 |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
3 import XMonad |
249
fed8445581bb
xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents:
196
diff
changeset
|
4 import XMonad.Config.Gnome |
196
4481fb6c3dfe
xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents:
181
diff
changeset
|
5 import XMonad.Hooks.ManageDocks |
266
93a8f55a4e30
xmonad: add takeTopFocus logHook
Augie Fackler <durin42@gmail.com>
parents:
249
diff
changeset
|
6 import XMonad.Hooks.ICCCMFocus |
176
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
7 import XMonad.Layout |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
8 import XMonad.Layout.Column |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
9 import XMonad.Layout.LayoutBuilder |
181
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
10 import XMonad.Util.EZConfig |
196
4481fb6c3dfe
xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents:
181
diff
changeset
|
11 import XMonad.Util.Run(spawnPipe) |
176
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
12 |
181
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
13 myLayout = augie2 ||| augie1 ||| Full |
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
14 where augie2 = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75)) |
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
15 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) |
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
16 augie1 = ((layoutN 1 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75)) |
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
17 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) |
176
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
18 |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
19 |
249
fed8445581bb
xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents:
196
diff
changeset
|
20 myDmenuTitleBar = |
fed8445581bb
xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents:
196
diff
changeset
|
21 "exec `dmenu_path | dmenu\ |
fed8445581bb
xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents:
196
diff
changeset
|
22 \ -p 'Run:'`" |
fed8445581bb
xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents:
196
diff
changeset
|
23 |
176
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
24 main :: IO () |
196
4481fb6c3dfe
xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents:
181
diff
changeset
|
25 main = do |
249
fed8445581bb
xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents:
196
diff
changeset
|
26 xmonad $ gnomeConfig |
181
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
27 { terminal = "urxvt -sr -bg Black -fg White" |
176
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
28 , modMask = mod4Mask |
196
4481fb6c3dfe
xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents:
181
diff
changeset
|
29 , layoutHook = avoidStruts myLayout |
266
93a8f55a4e30
xmonad: add takeTopFocus logHook
Augie Fackler <durin42@gmail.com>
parents:
249
diff
changeset
|
30 , logHook = takeTopFocus |
181
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
31 } `additionalKeys` [ |
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
32 ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock") |
249
fed8445581bb
xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents:
196
diff
changeset
|
33 , ((mod4Mask, xK_p), spawn myDmenuTitleBar) |
181
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
34 ] |