Mercurial > dotfiles

view .xmonad/xmonad.hs @ 178:da329720ff18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
zsh prompt: add urxvt to whitelisted terms, use a loop instead of many ifs
author Augie Fackler <durin42@gmail.com>
date Wed, 13 Jan 2010 10:28:44 -0600
parents 842607bbc090
children 2d8105525973
line wrap: on
line source

import XMonad

import XMonad
import XMonad.Layout
import XMonad.Layout.Column
import XMonad.Layout.LayoutBuilder

myLayout = augie ||| Full
  where augie = ((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))))


main :: IO ()
main = xmonad $ defaultConfig
       { terminal = "urxvt"
       , modMask = mod4Mask
       , layoutHook = myLayout
       }