- xmonad - Haskell.org

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

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 New issue report by david.maciver: I'm using XMonad 0.3 on Ubuntu 7.04. I unfortunately don't have a reproducable test case for this - it happens seemingly at random. Under some circumstances, xmonad stops responding to the alt key (which I have set up as default mod). I've had this happen three times today. The last two times it's happened it seems to have been when I used a keyboard shortcut which was already bound by the application I was using at the time - the application responded to the shortcut instead and xmonad subsequently didn't. However, it seems to be the case that all other applications are still able to listen to the alt key afterwards (even for shortcuts which xmonad normally takes), so it's possible that this was just the first noticable symptom. I'm going to change the default mod binding to a different key and see if that helps. Issue attributes: Status: New Owner: ---- Labels: Type-Defect Priority-Medium -- 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

ideas on tabbed
by Andrea Rossato 30 Sep '07

30 Sep '07

Hi, there was a discussion tonight (it was 5 AM here ;), about some issues with Tabbed: I'm answering here, since the story is a bit long. Some applications do not comply with the window's size xmonad gave them and do not display correctly. Here's an example provided by sorear: http://members.cox.net/stefanor/1191121852.png As you see there is an urxvt over firefox, which causes not only that visible problem, but focus problems too, since when the pointer enters the unhidden window that window would receives the focus. Now, there are two problem: - should tabbed hide unfocused windows? - should xmonad implement in Main that mouse focus stuff? I think the answer is no to both questions. >From XMonad.hs: -- 'doLayout': given a Rectangle and a Stack, layout the stack elements -- inside the given Rectangle. If an element is not given a Rectangle -- by 'doLayout', then it is not shown on screen. Windows are restacked -- according to the order they are returned by 'doLayout'. Tabbed returns a list with just the focused window and the relative rectangle. I think this is the correct behavior for a layout. But tabbed has enough information to unmap those windows and map the back when a Hide message is send to tabbed. So, please let me know if you think this second behavior is better. The mouse focus stuff: I tried (and still trying) to implement a layout modifier that will take care of the problem, so that we can remove the CrossingEvent handler (actually I get rid of it in my working xmonad instance) from Main and make it a configuration option. Still the problem is a bit tricky and did find a solution that works with every possible layout. Andrea

3 4

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

30 Sep '07

Hi, this should be it for the week. I'm going to breath for a second...;) I think I will slow down a bit now. I have a book chapter on digital self-help due in a week, and, at the present time, its type is an Invisible Nothing. 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

1 0

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

29 Sep '07

Hi, after the big class party it's time to clean up the huge mess I left behind. I think this is a good start. Sure there's room for a lot of improvements and I'm always open to suggestions and comments. 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

1 0