Mercurial > dotfiles
view .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 |
line wrap: on
line source
import XMonad import XMonad import XMonad.Config.Gnome import XMonad.Hooks.ManageDocks import XMonad.Hooks.ICCCMFocus import XMonad.Layout import XMonad.Layout.Column import XMonad.Layout.LayoutBuilder import XMonad.Util.EZConfig import XMonad.Util.Run(spawnPipe) myLayout = augie2 ||| augie1 ||| Full where augie2 = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75)) $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) augie1 = ((layoutN 1 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75)) $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) myDmenuTitleBar = "exec `dmenu_path | dmenu\ \ -p 'Run:'`" main :: IO () main = do xmonad $ gnomeConfig { terminal = "urxvt -sr -bg Black -fg White" , modMask = mod4Mask , layoutHook = avoidStruts myLayout , logHook = takeTopFocus } `additionalKeys` [ ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock") , ((mod4Mask, xK_p), spawn myDmenuTitleBar) ]