Mercurial > dotfiles

annotate .xmonad/xmonad.hs @ 219:bb74667967e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
emacs bootstrap: record setup command for sanity
author Augie Fackler <durin42@gmail.com>
date Tue, 07 Sep 2010 19:32:07 -0500
parents 4481fb6c3dfe
children fed8445581bb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
196
4481fb6c3dfe xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents: 181
diff changeset
4 import XMonad.Hooks.ManageDocks
176
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
5 import XMonad.Layout
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
6 import XMonad.Layout.Column
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
7 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
8 import XMonad.Util.EZConfig
196
4481fb6c3dfe xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents: 181
diff changeset
9 import XMonad.Util.Run(spawnPipe)
176
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
10
181
2d8105525973 xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents: 176
diff changeset
11 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
12 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
13 $ (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
14 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
15 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
176
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
16
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
17
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
18 main :: IO ()
196
4481fb6c3dfe xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents: 181
diff changeset
19 main = do
4481fb6c3dfe xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents: 181
diff changeset
20 xmobar <- spawnPipe "xmobar"
4481fb6c3dfe xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents: 181
diff changeset
21 xmonad $ defaultConfig
181
2d8105525973 xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents: 176
diff changeset
22 { terminal = "urxvt -sr -bg Black -fg White"
176
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
23 , modMask = mod4Mask
196
4481fb6c3dfe xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents: 181
diff changeset
24 , layoutHook = avoidStruts myLayout
181
2d8105525973 xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents: 176
diff changeset
25 } `additionalKeys` [
2d8105525973 xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents: 176
diff changeset
26 ((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
27 ]