On Fri, Jan 25, 2008 at 11:04:34AM -0500, David Roundy wrote:
On Fri, Jan 25, 2008 at 04:46:41PM +0100, Andrea Rossato wrote:
I already have something in mind (a mouse interface), but I'm not going to write a single line of code as long as a decision on the code I've already produced have been taken.
I'd like to mention that I've enjoyed skimming over the patches you've been sending recently. But I've no time for xmonad either, currently, and am unlikely to be much help. But your work looks pretty cool! And I'm glad you've taken up working on almost precisely the features of xmonad that I wish I had time to work on! :)
Well, thank you for your kind words. I must confess that you show me the way with that LayoutModifier class... a sort of an epiphany of what type classes can be useful for...;) I would like to suggest another minimal ~/.xmonad/xmonad.hs import XMonad import XMonad.Layout.Tabbed import XMonad.Layout.DwmStyle import XMonad.Layout.SimpleDecoration import XMonad.Layout.WindowArranger import qualified Data.Map as M myL = tabDeco shrinkText defaultTabbedConfig ||| simpleDeco shrinkText defaultSimpleConfig (windowArranger $ layoutHook defaultConfig) ||| dwmStyle shrinkText defaultDwmStyleConfig (windowArranger $ layoutHook defaultConfig) myKeys x = [ ((modMask x .|. controlMask , xK_s ), sendMessage Arrange ) , ((modMask x .|. controlMask .|. shiftMask, xK_s ), sendMessage DeArrange ) , ((modMask x .|. controlMask .|. shiftMask, xK_Left ), sendMessage (DecreaseLeft 10)) , ((modMask x .|. controlMask .|. shiftMask, xK_Right), sendMessage (DecreaseRight 10)) , ((modMask x .|. controlMask .|. shiftMask, xK_Down ), sendMessage (DecreaseDown 10)) , ((modMask x .|. controlMask .|. shiftMask, xK_Up ), sendMessage (DecreaseUp 10)) , ((modMask x .|. controlMask , xK_Left ), sendMessage (IncreaseLeft 10)) , ((modMask x .|. controlMask , xK_Right), sendMessage (IncreaseRight 10)) , ((modMask x .|. controlMask , xK_Down ), sendMessage (IncreaseDown 10)) , ((modMask x .|. controlMask , xK_Up ), sendMessage (IncreaseUp 10)) , ((modMask x .|. shiftMask , xK_Left ), sendMessage (MoveLeft 10)) , ((modMask x .|. shiftMask , xK_Right), sendMessage (MoveRight 10)) , ((modMask x .|. shiftMask , xK_Down ), sendMessage (MoveDown 10)) , ((modMask x .|. shiftMask , xK_Up ), sendMessage (MoveUp 10)) ] newKeys x = M.union (keys defaultConfig x) (M.fromList (myKeys x)) main = xmonad defaultConfig { layoutHook = myL } and then start moving and resizing windows around. purely... ;) andrea