October 2007 - xmonad

darcs patch: Fix infinite loop in ResizableTile serialization
by j＠jwebb.sygneca.com 02 Oct '07

02 Oct '07

Tue Oct 2 01:12:54 BST 2007 Jamie Webb * Fix infinite loop in ResizableTile serialization

2 1

darcs patch: XUtils: added releaseFont (and 1 more)
by Andrea Rossato 02 Oct '07

02 Oct '07

hi, some more code cleanup. andrea Tue Oct 2 08:26:40 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * XUtils: added releaseFont Tue Oct 2 08:27:09 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * Make Tabbed use XUtils.releaseFont

1 0

darcs patch: set border color more judiciously, so layouts can cust...
by David Roundy 01 Oct '07

01 Oct '07

This does much less resetting of border colors, but in my testing does enough. The result is that WindowNavigation can display which neighboring windows can be navigated to by giving them blue (or other) borders, which seems a bit handy. David Fri Sep 28 19:53:46 EDT 2007 David Roundy <droundy(a)darcs.net> * set border color more judiciously, so layouts can customize this.

2 1

darcs patch: Tabbed: updated usage information
by Andrea Rossato 01 Oct '07

01 Oct '07

I forgot to update usage information of Tabbed after reintroducing the Shrinker configuration option. Andrea Mon Oct 1 10:22:19 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * Tabbed: updated usage information

2 1

darcs patch: XMonadContrib.ResizableTile in darcs patch.
by matsuyama3＠ariel-networks.com 01 Oct '07

01 Oct '07

Mon Oct 1 18:14:11 JST 2007 matsuyama3(a)ariel-networks.com * XMonadContrib.ResizableTile in darcs patch. I have fixed error "" to return Nothing. Thanks Andrea.

3 2

Issue 49 in xmonad: XMonad sometimes stops responding to alt key
by codesite-noreply＠google.com 01 Oct '07

01 Oct '07

Issue 49: XMonad sometimes stops responding to alt key http://code.google.com/p/xmonad/issues/detail?id=49 Comment #2 by david.maciver: Yet more updates: It happens even with alt-q rebound elsewhere, so it's not restarting xmonad that causes the issue. -- You received this message because you are listed in the owner or CC fields of this issue, or because you starred this issue. You may adjust your issue notification preferences at: http://code.google.com/hosting/settings

1 0

New module, XMonadContrib.ResizableTile
by MATSUYAMA Tomohiro 01 Oct '07

01 Oct '07

Hi. I have hacked a default tile layout a little to be allow us to change a width/height of window. Although I am a newbie in haskell and xmonad, I want to contribute it as a new module of XMonadContrib so that many people could use it. Thanks. ----------------------------------------------------------------------------- -- | -- Module : XMonadContrib.ResizableTile -- Copyright : (c) MATSUYAMA Tomohiro <t.matsuyama.pub(a)gmail.com> -- License : BSD-style (see LICENSE) -- -- Maintainer : MATSUYAMA Tomohiro <t.matsuyama.pub(a)gmail.com> -- Stability : unstable -- Portability : unportable -- -- More useful tiled layout that allows you to change a width/height of window. -- ----------------------------------------------------------------------------- module XMonadContrib.ResizableTile (Tall(..), MirrorResize(..)) where import XMonad import Operations (Resize(..), IncMasterN(..)) import qualified StackSet as W import Graphics.X11.Xlib import Control.Monad.State import Control.Monad -- $usage -- -- To use, modify your Config.hs to: -- -- > import XMonadContrib.ResizableTile as T -- -- and add a keybinding: -- -- > , ((modMask, xK_a ), sendMessage MirrorShrink) -- > , ((modMask, xK_z ), sendMessage MirrorExpand) -- -- and redefine "tiled" as: -- -- > tiled = T.Tall nmaster delta ratio (repeat 1) data MirrorResize = MirrorShrink | MirrorExpand deriving Typeable instance Message MirrorResize data Tall a = Tall Int Rational Rational [Rational] deriving (Show, Read) instance Layout Tall a where doLayout (Tall nmaster _ frac mfrac) r = return . (\x->(x,Nothing)) . ap zip (tile frac mfrac r nmaster . length) . W.integrate handleMessage (Tall nmaster delta frac mfrac) m = do ms <- (W.stack . W.workspace . W.current) `fmap` gets windowset case ms of Nothing -> error "" Just s -> return $ msum [fmap resize (fromMessage m) ,fmap (\x -> mresize x s) (fromMessage m) ,fmap incmastern (fromMessage m)] where resize Shrink = Tall nmaster delta (max 0 $ frac-delta) mfrac resize Expand = Tall nmaster delta (min 1 $ frac+delta) mfrac mresize MirrorShrink s = mresize' s delta mresize MirrorExpand s = mresize' s (0-delta) mresize' s d = let n = length $ W.up s total = n + (length $ W.down s) + 1 in Tall nmaster delta frac (modifymfrac mfrac d (if n == (nmaster-1) || n == (total-1) then n-1 else n)) modifymfrac [] _ _ = [] modifymfrac (f:fx) d n | n == 0 = f+d : fx | otherwise = f : modifymfrac fx d (n-1) incmastern (IncMasterN d) = Tall (max 0 (nmaster+d)) delta frac mfrac description _ = "Tall" tile :: Rational -> [Rational] -> Rectangle -> Int -> Int -> [Rectangle] tile f mf r nmaster n = if n <= nmaster || nmaster == 0 then splitVertically mf n r else splitVertically mf nmaster r1 ++ splitVertically (drop nmaster mf) (n-nmaster) r2 -- two columns where (r1,r2) = splitHorizontallyBy f r splitVertically :: RealFrac r => [r] -> Int -> Rectangle -> [Rectangle] splitVertically [] _ r = [r] splitVertically _ n r | n < 2 = [r] splitVertically (f:fx) n (Rectangle sx sy sw sh) = Rectangle sx sy sw smallh : splitVertically fx (n-1) (Rectangle sx (sy+fromIntegral smallh) sw (sh-smallh)) where smallh = floor $ fromIntegral (sh `div` fromIntegral n) * f --hmm, this is a fold or map. splitHorizontallyBy :: RealFrac r => r -> Rectangle -> (Rectangle, Rectangle) splitHorizontallyBy f (Rectangle sx sy sw sh) = ( Rectangle sx sy leftw sh , Rectangle (sx + fromIntegral leftw) sy (sw-fromIntegral leftw) sh) where leftw = floor $ fromIntegral sw * f

4 4