summaryrefslogtreecommitdiffhomepage
path: root/src/Window.hs
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-08-30 01:37:44 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-08-30 01:37:44 +0200
commit30c6cf7152ac88c49527a84f6e95f0731b64f03a (patch)
treefbac4f1ea30d8f5552b7c0a4020f3495f36a7b89 /src/Window.hs
parentf7076307b7e896e6d776e319fddff860b63f735f (diff)
downloadxmobar-30c6cf7152ac88c49527a84f6e95f0731b64f03a.tar.gz
xmobar-30c6cf7152ac88c49527a84f6e95f0731b64f03a.tar.bz2
Revert "Add '-d' for dockapp mode"
This reverts commit cae6f2bc049d4b7ed57a7a18a828bc4ea35df4aa, until we find a reason why it's causing high CPU consumption in the X server.
Diffstat (limited to 'src/Window.hs')
-rw-r--r--src/Window.hs2
1 files changed, 0 insertions, 2 deletions
diff --git a/src/Window.hs b/src/Window.hs
index d08e445..9b0c506 100644
--- a/src/Window.hs
+++ b/src/Window.hs
@@ -66,7 +66,6 @@ setPosition p rs ht =
BottomSize a i ch -> (Rectangle (ax a i) (ny' ch) (nw i) (mh ch), True)
Static cx cy cw ch -> (Rectangle (fi cx) (fi cy) (fi cw) (fi ch), True)
OnScreen _ p'' -> setPosition p'' [scr] ht
- Docked -> (Rectangle rx ry rw h, False)
where
(scr@(Rectangle rx ry rw rh), p') =
case p of OnScreen i x -> (fromMaybe (head rs) $ safeIndex i rs, x)
@@ -119,7 +118,6 @@ getStrutValues r@(Rectangle x y w h) p rwh =
BottomW _ _ -> [0, 0, 0, sb, 0, 0, 0, 0, 0, 0, nx, nw]
BottomSize {} -> [0, 0, 0, sb, 0, 0, 0, 0, 0, 0, nx, nw]
Static {} -> getStaticStrutValues p rwh
- Docked -> getStaticStrutValues p rwh
where st = fi y + fi h
sb = rwh - fi y
nx = fi x