Mercurial > dotfiles

annotate .xmonad/xmonad.hs @ 249:fed8445581bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
xmonad: gnome-friendly configuration
author Augie Fackler <durin42@gmail.com>
date Mon, 16 Aug 2010 11:16:37 -0500
parents 4481fb6c3dfe
children 93a8f55a4e30
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
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
176
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
6 import XMonad.Layout
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
7 import XMonad.Layout.Column
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
8 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
9 import XMonad.Util.EZConfig
196
4481fb6c3dfe xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents: 181
diff changeset
10 import XMonad.Util.Run(spawnPipe)
176
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
11
181
2d8105525973 xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents: 176
diff changeset
12 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
13 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
14 $ (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
15 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
16 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
176
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
249
fed8445581bb xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents: 196
diff changeset
19 myDmenuTitleBar =
fed8445581bb xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents: 196
diff changeset
20 "exec `dmenu_path | dmenu\
fed8445581bb xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents: 196
diff changeset
21 \ -p 'Run:'`"
fed8445581bb xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents: 196
diff changeset
22
176
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
23 main :: IO ()
196
4481fb6c3dfe xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents: 181
diff changeset
24 main = do
249
fed8445581bb xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents: 196
diff changeset
25 xmonad $ gnomeConfig
181
2d8105525973 xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents: 176
diff changeset
26 { terminal = "urxvt -sr -bg Black -fg White"
176
842607bbc090 Add xmonad configuration file.
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
27 , modMask = mod4Mask
196
4481fb6c3dfe xmonad: tweak layout to include xmobar
Augie Fackler <durin42@gmail.com>
parents: 181
diff changeset
28 , 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
29 } `additionalKeys` [
2d8105525973 xmonad: add another layout, fix terminal colors, add screensaver lock binding
Augie Fackler <durin42@gmail.com>
parents: 176
diff changeset
30 ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock")
249
fed8445581bb xmonad: gnome-friendly configuration
Augie Fackler <durin42@gmail.com>
parents: 196
diff changeset
31 , ((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
32 ]