diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-10 08:19:32 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-10 08:19:32 +0200 |
commit | 1e612885fb98332feac64a33902ee2ebe12fdc5b (patch) | |
tree | 4a2d30607bb16d92a5b0f9586f8003bb06fc39de /Config.hs | |
parent | 4434c4a765ce9d33c215d24d240d236205afc003 (diff) | |
download | xmonad-1e612885fb98332feac64a33902ee2ebe12fdc5b.tar.gz xmonad-1e612885fb98332feac64a33902ee2ebe12fdc5b.tar.xz xmonad-1e612885fb98332feac64a33902ee2ebe12fdc5b.zip |
Move state logging into Config.hs, via logHook :: X ()
darcs-hash:20070610061932-9c5c1-9a08992ef555f086007474e64d5ae9d835e9677e.gz
Diffstat (limited to '')
-rw-r--r-- | Config.hs | 10 | ||||
-rw-r--r-- | Config.hs-boot | 3 |
2 files changed, 8 insertions, 5 deletions
@@ -100,11 +100,13 @@ defaultLayouts = [ tiled , mirror tiled , full ] delta = 3%100 -- --- Enable logging of state changes to stdout. --- The internal state of the window manager is 'shown' in Haskell data format +-- Perform an arbitrary action on each state change. +-- Examples include: +-- * do nothing +-- * log the state to stdout -- -logging :: Bool -logging = False +logHook :: X () +logHook = return () -- -- The key bindings list. diff --git a/Config.hs-boot b/Config.hs-boot index 85b4339..8a04d59 100644 --- a/Config.hs-boot +++ b/Config.hs-boot @@ -1,6 +1,7 @@ module Config where import Graphics.X11.Xlib.Types (Dimension) import Graphics.X11.Xlib (KeyMask) +import XMonad borderWidth :: Dimension -logging :: Bool +logHook :: X () numlockMask :: KeyMask |