From 42d36656cc17a26649d7feddd4ff10980cd4389b Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 10 Jun 2007 18:37:29 +0200
Subject: display names of windows on tabs.
darcs-hash:20070610163729-72aca-1f53da6ef8f2d4254544bfa679121aac564b3ea9.gz
---
Tabbed.hs | 20 ++++++++++++++++++--
1 file changed, 18 insertions(+), 2 deletions(-)
diff --git a/Tabbed.hs b/Tabbed.hs
index 5710bf8..2cca048 100644
--- a/Tabbed.hs
+++ b/Tabbed.hs
@@ -17,6 +17,8 @@ import XMonad
import XMonadContrib.Decoration
import Operations ( focus )
+import XMonadContrib.NamedWindows
+
tabbed :: Layout
tabbed = Layout { doLayout = dolay, modifyLayout = const (return Nothing) }
@@ -25,7 +27,21 @@ dolay sc [w] = return [(w,sc)]
dolay sc@(Rectangle x _ wid _) ws =
do let ts = gentabs x wid (length ws)
tws = zip ts ws
- forM tws $ \(t,w) -> newDecoration t 1 0xFF0000 0x00FFFF (trace "draw") (focus w)
+ maketab (t,w) = newDecoration t 1 0xFF0000 0x00FFFF (drawtab t w) (focus w)
+ drawtab r w d w' gc =
+ do nw <- getName w
+ centerText d w' gc r (show nw)
+ centerText d w' gc (Rectangle _ _ wt ht) name =
+ do font <- io (fontFromGC d gc >>= queryFont d)
+ -- let (_,namew,nameh,_) = textExtents font name -- textExtents causes a crash!
+ -- let nameh = ht `div` 2
+ -- namew = textWidth font name -- textWidth also causes a crash!
+ let nameh = ht - 6
+ namew = wt - 20
+ io $ drawString d w' gc
+ (fromIntegral (wt `div` 2) - fromIntegral (namew `div` 2))
+ (fromIntegral (ht `div` 2) + fromIntegral (nameh `div` 2)) name
+ forM tws maketab
return [ (w,shrink sc) | w <- ws ]
shrink :: Rectangle -> Rectangle
@@ -38,4 +54,4 @@ gentabs x1 w num = Rectangle x1 0 (wid - 2) (tabsize - 2)
where wid = w `div` (fromIntegral num)
tabsize :: Integral a => a
-tabsize = 30
+tabsize = 20
--
cgit v1.2.3