- xmonad - Haskell.org

Darcs repo
by Norbert Zeh 03 Feb '11

03 Feb '11

Hi folks, did the darcs repo move to a new location or does code.haskell.org have problems. I cannot clone xmonad or XMonadContrib. N. -- () ascii ribbon campaign - against html e-mail /\ www.asciiribbon.org - against proprietary attachments

3 3

Toggle Window (Always Below <-> Always Above)
by Jan-David Quesel 01 Feb '11

01 Feb '11

Hi, using AvoidStruts I have implemented some way to show my status bar only while holding my modkey. Unfortunatly this method is quite slow and ineffective as all windows on the current screen resize and redraw when pressing the modkey. Instead I'm searching for a way to reorder the stackset such that my dzen window appears either above all other windows (while the modkey is pressed) or below all other. Some implementation like that would although solve another issue I'm experiencing: When I restart xmonad my dzen bar is suddenly on top of all other windows until I create a new one, that then enables all other windows to again cover the status bar. Someone got an idea how to implement such an behavior based on what is already done with those eventhooks in my current configuration? (see line 130-152) Best regards, Jan P.S. I have attached my xmonad configuration for reference. -- Jan-David Quesel Carl von Ossietzky Universität Oldenburg Department of Computing Science Correct System Design D-26111 Oldenburg, Germany Phone: +49 (0)441 798-2376 Fax: +49 (0)441 798-2965

6 14

Re: [xmonad] Toggle Window (Always Below <-> Always Above)
by Jan-David Quesel 01 Feb '11

01 Feb '11

On Mon, Jan 31, 2011 at 05:21:28PM +0100, Audun Skaugen wrote: > On Mon, Jan 31, 2011 at 3:35 PM, Jan-David Quesel <quesel(a)gmail.com> wrote: > > ah nice. That seems to work. Now on to the next issue. > > Floating the docks seems to kinda work. However it has lots of > > ugly side effects, such as being able to move the windows around etc. > > > > When I call doIgnore on the window and later try to call reveal > > on it, it does stay in the background... same for doHideIgnore > > and reveal. > > > > Is there a function I can call on a window to get on top of other > > windows? > > Try: > d <- asks display > io $ raiseWindow d win > > You might have to import Graphics.X11.Xlib first. thats it. I finally was able to implement the behavior I wanted. Thank you everyone for your help. Best regards, Jan P.S. For documentation purposes I attach the relevant code parts: My handleEventHook is defined as follows: data WindowDump = WindowDump ([Window]) deriving (Read, Show, Typeable) instance ExtensionClass WindowDump where initialValue = WindowDump [] extensionType = PersistentExtension myEventHook :: Event -> X All myEventHook e = handle e >> return (All True) handle :: Event -> X () handle KeyEvent { ev_event_type = ty, ev_keycode = k, ev_time = t, ev_state = mod } | (ty == keyPress && k == 133) = do d <- asks display WindowDump windows <- XS.get :: X WindowDump mapM (io . (raiseWindow d)) windows return () handle KeyEvent { ev_event_type = ty, ev_keycode = k, ev_time = t, ev_state = mod } | (ty == keyRelease && k == 133) = do d <- asks display WindowDump windows <- XS.get :: X WindowDump mapM (io . (lowerWindow d)) windows return () handle _ = return () And the manageHook looks like this: unique = map head . group . sort composeAll [ checkDock <&&> ((fmap ("dzen slave" `isInfixOf`) title) =? False) --> do win <- ask WindowDump windows <- liftX XS.get :: Query WindowDump liftX $ XS.put $ WindowDump (unique (win:windows)) doIgnore , (fmap ("dzen slave" `isInfixOf`) title) --> do doIgnore ] -- Jan-David Quesel Carl von Ossietzky Universität Oldenburg Department of Computing Science Correct System Design D-26111 Oldenburg, Germany Phone: +49 (0)441 798-2376 Fax: +49 (0)441 798-2965

1 0

Screen-like Layout
by Samir Unni 31 Jan '11

31 Jan '11

Hi, Does anyone know of a layout that replicates the behavior of GNU Screen? I'd to be able to manually split/resize windows, Screen-style. Thanks!

3 3

Re: [xmonad] XMonad.Actions.CycleWS export screenBy suggestion
by Joachim Breitner 28 Jan '11

28 Jan '11

Dear Linus, it might have been that I started the CycleWS module (I don’t even remember :-)) but since then, it was mostly developed and extended by other members of the community. I’m therefore replying to the xmonad mailing list with full quote, hoping someone there can pick up your suggestions. You can also file a bug report so that this is not forgotten. Greetings, Joachim Am Donnerstag, den 27.01.2011, 14:05 -0800 schrieb Linus Arver: > Hello, I have been heavily tinkering with my xmonad.hs with your > excellent XMonad.Actions.CycleWS module. One thing I noticed is that you > wrote a very nice function `screenBy`, which returns the previous/next > Xinerama screen. However, CycleWS does not export it! > > It would be great if CycleWS could export `screenBy` too, because with > it, you can modify keybindings of the default template xmonad.hs from > > -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3 > -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3 > -- > [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f)) > | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..] > , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] > > to the more flexible > > -- mod-{w,e}, Switch to previous/next Xinerama screen > -- mod-shift-{w,e}, Move client to previous/next Xinerama screen > -- > [((m .|. modm, key), (screenWorkspace =<< sc) >>= flip whenJust (windows . f)) > | (key, sc) <- zip [xK_w, xK_e] [(screenBy (-1)),(screenBy 1)] > , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] > > . This is a lot simpler than using the individual functions nextScreen, > prevScreen, etc. that you already export. I also get the feeling that > somehow this is the way XMonad's default keybindings should behave out > of the box, for those people who have more than 3 monitors. > > Please export `screenBy` in your next version of CycleWS. If you do > decide to export it, I suggest that you mention the above usage in the > docs to let all the Xinerama users know about it. > > -Linus > -- Joachim "nomeata" Breitner mail: mail(a)joachim-breitner.de | ICQ# 74513189 | GPG-Key: 4743206C JID: nomeata(a)joachim-breitner.de | http://www.joachim-breitner.de/ Debian Developer: nomeata(a)debian.org

1 0

Sublayouts navigation
by Victor Gaydov 28 Jan '11

28 Jan '11

Hello, Is there a way to use windowNavigation for inner subLayout? For example, I have Tall as inner layout and Simplest as outer, and I want two different key-bindings groups: - one to navigate inside focused Tall - other to switch to next tiled windows group inside Simplest Thanks a lot. -- Victor

2 2

Re: [xmonad] ManageHook and doF
by Владимир Байраковский 26 Jan '11

26 Jan '11

Ooops! I loose mailing list in recipients. Just forward. 2011/1/26 Jan-David Quesel <Quesel(a)informatik.uni-oldenburg.de>: > Maybe split the function and rewrite such that you get > doF (\y -> createMissing "web" >> (W.shift "web" y)) > > Regards, > Jan > > On Wed, Jan 26, 2011 at 10:03:07PM +1000, Владимир Байраковский wrote: >> Ok, it works. The next one error is: >> >> xmonad.hs:79:3: >> Couldn't match expected type `X a' >> against inferred type `W.StackSet String l a1 s sd >> -> W.StackSet String l a1 s sd' >> In the expression: W.shift x >> In the expression: >> do { when (x `notElem` (map show $ map W.tag $ W.workspaces w)) >> $ addHiddenWorkspace x; >> W.shift x } >> In the second argument of `($)', namely >> `\ w -> do { when >> (x `notElem` (map show $ map W.tag $ W.workspaces w)) >> $ addHiddenWorkspace x; >> W.shift x }' >> >> 2011/1/26 Jan-David Quesel <quesel(a)gmail.com>: >> > There is some w missing... >> > >> > On Wed, Jan 26, 2011 at 09:08:16PM +1000, Владимир Байраковский wrote: >> >> So, some imports needed: >> >> >> >> import Control.Monad (when) >> >> import Data.List >> >> >> >> But this error occured: >> >> >> >> xmonad.hs:78:45: >> >> Couldn't match expected type `[W.Workspace i l a]' >> >> against inferred type `W.StackSet i1 l1 a1 s sd >> >> -> [W.Workspace i1 l1 a1]' >> >> In the second argument of `($)', namely `W.workspaces' >> >> In the second argument of `($)', namely `map W.tag $ W.workspaces' >> >> In the second argument of `notElem', namely >> >> `(map show $ map W.tag $ W.workspaces)' >> >> >> >> where line 78 is: >> >> when(x `notElem` (map show $ map W.tag $ W.workspaces)) $ addHiddenWorkspace x >> > >> > It should read: >> > >> > when(x `notElem` (map show $ map W.tag $ W.workspaces w)) $ addHiddenWorkspace x >> > >> > Regards, >> > Jan >> > >> > >> > -- >> > Jan-David Quesel >> > Carl von Ossietzky Universität Oldenburg >> > Department of Computing Science >> > Correct System Design >> > D-26111 Oldenburg, Germany >> > >> > Phone: +49 (0)441 798-2376 >> > Fax: +49 (0)441 798-2965 >> > >> > -----BEGIN PGP SIGNATURE----- >> > Version: GnuPG v1.4.10 (GNU/Linux) >> > >> > iEYEARECAAYFAk1ABmgACgkQzWWUYNynIPEu8ACdHEva1W/tf28zJSoLGQ4i9So5 >> > nrcAoLpBMrjOa8EbbSXXBx+X4SqKkWWl >> > =2b4n >> > -----END PGP SIGNATURE----- >> > >> > >> > > -- > Jan-David Quesel > Carl von Ossietzky Universität Oldenburg > Department of Computing Science > Correct System Design > D-26111 Oldenburg, Germany > > Phone: +49 (0)441 798-2376 > Fax: +49 (0)441 798-2965 > > -----BEGIN PGP SIGNATURE----- > Version: GnuPG v1.4.10 (GNU/Linux) > > iEYEARECAAYFAk1AD3YACgkQzWWUYNynIPGvFgCeLiPPLe9ujZs6dcBtDqjuPMgn > aaMAn2M+DP5SzQAPtMvR+FG7zsqZCfXl > =s0QI > -----END PGP SIGNATURE----- > >

1 0

Re: [xmonad] ManageHook and doF
by Jan-David Quesel 26 Jan '11

26 Jan '11

There is some w missing... On Wed, Jan 26, 2011 at 09:08:16PM +1000, Владимир Байраковский wrote: > So, some imports needed: > > import Control.Monad (when) > import Data.List > > But this error occured: > > xmonad.hs:78:45: > Couldn't match expected type `[W.Workspace i l a]' > against inferred type `W.StackSet i1 l1 a1 s sd > -> [W.Workspace i1 l1 a1]' > In the second argument of `($)', namely `W.workspaces' > In the second argument of `($)', namely `map W.tag $ W.workspaces' > In the second argument of `notElem', namely > `(map show $ map W.tag $ W.workspaces)' > > where line 78 is: > when(x `notElem` (map show $ map W.tag $ W.workspaces)) $ addHiddenWorkspace x It should read: when(x `notElem` (map show $ map W.tag $ W.workspaces w)) $ addHiddenWorkspace x Regards, Jan -- Jan-David Quesel Carl von Ossietzky Universität Oldenburg Department of Computing Science Correct System Design D-26111 Oldenburg, Germany Phone: +49 (0)441 798-2376 Fax: +49 (0)441 798-2965

1 0

ManageHook and doF
by Владимир Байраковский 26 Jan '11

26 Jan '11

Hi! I have manageHook like this: myManageHook = composeAll [ className =? "Firefox" --> doF(W.shift "web"), className =? "Gajim.py" --> doF(W.shift "chat"), className =? "Deadbeef" --> doF(W.shift "music"), title =? "Gajim" --> doFloat, className =? "MPlayer" --> doCenterFloat, ] so, if some workspace does not exist by some reason, the new window will appear on current workspace. How to chek if workspace exists and create it before "W.shift" action? I think addWorkspace from XMonad.Actions.DynamicWorkspaces can do this, but I don't know haskell well to write some function that can be used with doF.

2 1

one minor annoyance - default layout for screen
by Sean Allen 26 Jan '11

26 Jan '11

I've now been using xmonad inside of gnome for about a week... slowly removing the gnome aspects of everything... in the meantime I have one annoyance. I have a dual monitor setup where I wanted to have sep. workspaces for each monitor. That wasn't a problem to get setup... but the 2nd monitor, I want to split the layout horizontally rather than vertically... I can accomplish this with: layoutHook = reflectHoriz $ Tall 1 (3/100) (1/2) But... I don't know enough Haskell to combine that together with my existing gnome friendly layout hook. A this is the code you want plus, go look at this bit of haskell to learn why it works would be greatly appreciated. Current hook is: layoutHook = smartBorders (layoutHook gnomeConfig) Entire current xmonad.hs is: import XMonad import XMonad.Actions.UpdatePointer import XMonad.Config.Gnome import XMonad.Hooks.DynamicLog import XMonad.Layout.IndependentScreens import XMonad.Layout.NoBorders import qualified XMonad.StackSet as W import XMonad.Util.EZConfig (additionalKeys) conf = gnomeConfig { workspaces = myWorkspaces , modMask = mod4Mask , terminal = "gnome-terminal" , layoutHook = smartBorders (layoutHook gnomeConfig) , logHook = dynamicLog >> updatePointer (Relative 0.5 0.5) } `additionalKeys` myKeys myWorkspaces = withScreens 2 ["1", "2", "3", "4", "5", "6", "7", "8", "9"] ` myKeys = [ -- workspaces are distinct by screen ((m .|. mod4Mask, k), windows $ onCurrentScreen f i) | (i, k) <- zip (workspaces' conf) [xK_1 .. xK_9] , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] ] ++ [ -- swap screen order ((m .|. mod4Mask, key), screenWorkspace sc >>= flip whenJust (windows . f)) | (key, sc) <- zip [xK_w, xK_e, xK_r] [1,0,2] , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] ++ [ -- rebind meta-p to dmenu ((mod4Mask, xK_p), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"") ] main = xmonad conf

2 1