XMonad/Config/Dons.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

--------------------------------------------------------------------
-- |
-- Module    : XMonad.Config.Dons
-- Copyright : (c) Galois, Inc. 2007
-- License   : BSD3
--
-- Maintainer: Don Stewart <dons@galois.com>
--
-- An example, simple configuration file.
--
--------------------------------------------------------------------

module XMonad.Config.Dons where

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Layout.NoBorders

donsMain :: IO ()
donsMain = dzen $ \x -> xmonad $ x
        { terminal           = "term"
        , normalBorderColor  = "#333333"
        , focusedBorderColor = "red"
        , layoutHook         = smartBorders (layoutHook x)
        , manageHook         =
                manageHook x <+>
                    (className =? "Toplevel" --> doFloat)
        }