Mercurial > dotfiles

annotate .xmonad/xmonad.hs @ 307:e37b00236907

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
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
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 ]