Mercurial > dotfiles
annotate .xmonad/xmonad.hs @ 194:cf3ba8f57434
emacs: let ipython know we have a dark background
author | Augie Fackler <durin42@gmail.com> |
---|---|
date | Tue, 06 Apr 2010 15:02:29 -0500 |
parents | 2d8105525973 |
children | 4481fb6c3dfe |
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 |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
4 import XMonad.Layout |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
5 import XMonad.Layout.Column |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
6 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
|
7 import XMonad.Util.EZConfig |
176
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
8 |
181
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
9 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
|
10 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
|
11 $ (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
|
12 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
|
13 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) |
176
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
14 |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
15 |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
16 main :: IO () |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
17 main = xmonad $ defaultConfig |
181
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
18 { terminal = "urxvt -sr -bg Black -fg White" |
176
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
19 , modMask = mod4Mask |
842607bbc090
Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
20 , layoutHook = myLayout |
181
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
21 } `additionalKeys` [ |
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
22 ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock") |
2d8105525973
xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents:
176
diff
changeset
|
23 ] |