- xmonad - Haskell.org

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

darcs patch: Commands: added recent layout commands
by Andrea Rossato 30 Sep '07

30 Sep '07

Sun Sep 30 23:32:25 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * Commands: added recent layout commands

1 0

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

30 Sep '07

Issue 49: XMonad sometimes stops responding to alt key http://code.google.com/p/xmonad/issues/detail?id=49 Comment #1 by david.maciver: Update: When this happens, the last selected window remains bordered in red. When I close windows this doesn't trigger laying out of the new one. Similarly, I can open new windows but they're just opened on top of the existing layout. I'm not sure, but it's possible that I might have accidentally pressed alt-q (I haven't got around to rebinding the keys yet as I couldn't think of a non-annoying alternative). Because of its proximity to the window swapping keybinding it's possible that I've accidentally pressed it before, so I'll try rebinding that at least. -- 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

darcs patch: make Tabbed use XUtils (and 4 more)
by Andrea Rossato 30 Sep '07

30 Sep '07

Sat Sep 29 19:28:23 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * make Tabbed use XUtils Sat Sep 29 19:28:49 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * make DraPane use XUtils Sun Sep 30 11:54:41 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * Tabbed: moved string positioning to XUtils Sun Sep 30 15:19:36 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * Tabbed: reintroduced shrinker configuration option and removed the unneeded Read instance Sun Sep 30 20:19:12 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * Removed fromIMaybe from Tabbed ad added it to Invisible

1 0

darcs patch: Added XUtils: a library for drawing (and 5 more)
by Andrea Rossato 30 Sep '07

30 Sep '07

ops, this is something I owed to David: the reintroduction of the shrinker configuration option, hidden inside an invisible Maybe. With a HUGE but: on restart we must fall back to shrinkText. So I ask: is this useful? Is there another way? Andrea Sat Sep 29 19:27:54 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * Added XUtils: a library for drawing Sat Sep 29 19:28:23 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * make Tabbed use XUtils Sat Sep 29 19:28:49 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * make DraPane use XUtils Sun Sep 30 11:52:15 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * refactor paintAndWrite to take the alignment and hide string positioning Sun Sep 30 11:54:41 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * Tabbed: moved string positioning to XUtils Sun Sep 30 15:19:36 CEST 2007 Andrea Rossato <andrea.rossato(a)unibz.it> * Tabbed: reintroduced shrinker configuration option and removed the unneeded Read instance

2 1

darcs patch: enable color setting in WindowNavigation.
by David Roundy 30 Sep '07

30 Sep '07

You can't yet customize the color. I'll add that when it's clear that this is seen as an improvement. David Sat Sep 29 07:45:31 EDT 2007 David Roundy <droundy(a)darcs.net> * enable color setting in WindowNavigation. This is still somewhat experimental, comments welcome.

3 2