- xmonad - Haskell.org

Irssi, ssh and urgency
by Tom Davis 16 Aug '11

16 Aug '11

I use irssi over ssh/screen as I imagine many of you do. I needed to be aware of new messages so I setup a script that spits a message to a remote forwarded port any time I get a pm, etc. When I used xmonad and Gnome, the listener spawned a notification. When I stopped using Gnome layout, I switched it to blinking a light on my laptop. When the laptop is docked, no light! Long story long, I want to use basic urgency hook support now. I've confirmed xterm is all setup to send bell and that my urgency hook works. Unfortunately, it doesn't work over ssh. So I'd like to use the listener to somehow tell xmonad "Hey, 'irssi' window is urgent!" Is there an easy way to do that? Do I need to go as far as spawning an xterm in the window that just bells and quits? Would love to get the final piece of this puzzle in place. Thanks!

2 1

Issue 325 in xmonad: Layout.Spacing breaks Layout.WindowNavigation
by codesite-noreply＠google.com 15 Aug '11

15 Aug '11

Status: New Owner: ---- New issue 325 by OrbisVicis: Layout.Spacing breaks Layout.WindowNavigation http://code.google.com/p/xmonad/issues/detail?id=325 Removing the spacing modifier in the layoutHook or setting "spacing 0" fixes the problem. Symptoms: While Go or Swap *might* initially work, they very quickly lock up and do nothing. -- 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 9

Window(s) overlaps status bar after xmonad is restarted
by Dunric 14 Aug '11

14 Aug '11

Hi, any advice how to prevent windows to overlap statusbar after xmonad is (re)started ? -- status bar is launched by the following code main = xmonad =<< statusBar "xmobar" myBarPP toggleStrutsKey myConfig -- base configuration structure passed to xmonad myConfig = defaultConfig { ... , layoutHook = myLayoutHook ... } -- layout hook contains avoidStructs modifier myLayoutHook = layoutHintsToCenter $ avoidStruts $ lessBorders OnlyFloat $ onWorkspace "9" simplestFloat $ named "Stacked" wmii ||| (lessBorders NoStatusBar Full) -- struts key definition for a completeness toggleStrutsKey _ = (myModMask, xK_b) An window like xterm overlaps xmobar at xmonad's restart only, 9 of 10 times. If I toggle xmobar visibility then, windows are properly placed in the free screen space (bellow xmobar or fill whole area if xmobar is hidden). Take care. David

4 7

X () with side effects
by Jochen Keil 14 Aug '11

14 Aug '11

Hello, I am trying to write a function which has side-effects, e.g. call spawn. foo :: X () foo = do io $ spawn "myprogram" doSomethingElseOrReturn foo -- recursion However, if I call foo from a keybinding ((modMask, xK_x), foo) the spawned program will run but not mapped. This means that I can see the console output in xmonad stdout/stderr but the window will not pop up. I think this is because of the internal handling of keyevents in xmonads main. Is there a way I could bypass this and have my windows mapped as soon as I call the program with spawn? I hope this is clear enough.. if not, I'll come back with the actual code I have written. It's some kind of of vi-mode behaviour for xmonad. Pure X actions (like focusing up/down) work without problems but spawning doesn't. Many thanks and best regards, Jochen

2 3

How to extend layout modifier by visibility of status bar ?
by Dunric 14 Aug '11

14 Aug '11

Hi, I'm trying to extend XMonad.Layout.NoBorders.lessBorders modifier function. The goal is to don't draw border if there is only one window focused AND statusbar is hidden at the same time. -- status bar gets spawned by XMonad.Hooks.DynamicLog.statusBar main = xmonad =<< statusBar "xmobar" myBarPP toggleStrutsKey myConfig -- an attempt to add SetsAmbiguous instance to handle status bar visibility data MyAmbiguity = NoStatusBar deriving (Read, Show) instance SetsAmbiguous MyAmbiguity where hiddens amb wset mst wrs | NoStatusBar <- amb = wins where wins = filter (`elem` StackSet.integrate' mst) $ map fst (withoutSBar wrs) -- HERE I WOULD NEED TO CHECK IF STATUS BAR IS VISIBLE OR NOT withoutSBar = filter (\ (_, winrect) -> winrect == getScreenRect wset) getScreenRect = screenRect . StackSet.screenDetail . StackSet.current Any idea how to detect if status bar is visible or not ? Thx. David

1 0

Startup notification
by Willem Van Lint 11 Aug '11

11 Aug '11

I was looking at Issue 359 ( http://code.google.com/p/xmonad/issues/detail?id=359) and using start-up notification was proposed. This seems like a powerful possibility, for example OpenBox uses it for all kinds of stuff ( http://openbox.org/wiki/Help:Upgrading_to_3.4#Improved_startup_notification ). I've looked in their code and they use http://cgit.freedesktop.org/startup-notification/. Do you think Haskell bindings would be useful since I would be interested in implementing this as a project? Also, I am not sure if anyone is working on something similar. Best regards, Willem Van Lint

3 3

Policy on haskell version
by Willem Van Lint 11 Aug '11

11 Aug '11

Hi, I was wondering what haskell version we should keep in mind when programming? For example, the language pragma PatternGuards is still used in the code although pattern guards are included in the Haskell 2010 standard. Do I need to strive for backwards compatibility and in how far can we use recent language extensions? Best regards, Willem Van Lint

3 2

Issue 373 in xmonad: Hlintify XMonad & XMonadContrib
by codesite-noreply＠google.com 10 Aug '11

10 Aug '11

Status: Accepted Owner: gwern0 Labels: Type-Enhancement Priority-Low Component-Contrib Maintainability Component-Core New issue 373 by gwern0: Hlintify XMonad & XMonadContrib http://code.google.com/p/xmonad/issues/detail?id=373 Hlint (http://community.haskell.org/~ndm/hlint/) is a code-style tool that flags verbose, useless, or otherwise bad bits of code. It would be good if XMC had clean code. (Hlint strives for 'correctness'; none of the changes ought to affect the semantics of the code.) XMonad-core generates roughly 31 suggestions and XMC roughly 468. Even excluding debatable suggestions like eta-reduction, this is a lot of small bad things. Fortunately, they are all generally very easy to fix and understand why the code was flagged, making this a good beginner project. Attached are the 2 HTML reports hlint generates (obviously 31+468 messages is a bit much to paste in). Attachments: core.html 38.5 KB xmc.html 528 KB -- 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 2

Re: [xmonad] Issue 19 in xmonad: Investigate a way to allow contrib extensions to use compositing.
by codesite-noreply＠google.com 10 Aug '11

10 Aug '11

Comment #18 on issue 19 by pastorel...(a)gmail.com: Investigate a way to allow contrib extensions to use compositing. http://code.google.com/p/xmonad/issues/detail?id=19 I would like to continue the discussion in this thread because I think that composite in XMonad can be interesting. There is compiz branch without window manager at http://git.compiz.org/~tuxmarkv/zcomp/ that can be used with XMonad. That is a good idea but for some reason I can't see any kind of progress since 2010. The compiz project is completely modular except for the window manager part. Said that, I don't know if compiz or projects like that are the solution.

1 0

xmonad problem or application stealing keys?
by Hans Ekbrand 09 Aug '11

09 Aug '11

If I start the application with command line parameters that will make it try to get fullscreen mode, then: - the current layout of the workspace is ignored, and the xpdf window indeed fill the whole workspace. - the keys for cycling through windows in the current workspace are ignored. (keys for switching to another workspace still works). The first behaviour is not really a problem, but the second is ennoying. It makes fullscreen-mode usable only with one window per workspace. examples of problematic apps/parameters xpdf -fullscreen rdesktop -f Other applications, like mplayer and zathura, does the right thing, they honor the size of the window that the windowmanager gives them AND they are willing to be cycled into smaller windows. My version of xmonad is from debian squeeze: xmonad (0.9.1-2+b1) unstable; urgency=low * Binary-only non-maintainer upload for i386; no source changes. * Rebuild with ghc6-6.12.1-10 -- i386 Build Daemon <buildd_i386-biber(a)buildd.debian.org> Sat, 20 Feb 2010 13:00:47 +0000 Here is my .xmonad/xmonad.hs ----------------------------- import XMonad import XMonad.Hooks.ManageHelpers import XMonad.Actions.CycleWS import qualified XMonad.StackSet as W import qualified Data.Map as M import XMonad.Layout.NoBorders myKeys conf@(XConfig {modMask = modm}) = M.fromList $ -- Remap switching workspaces to M-[jklnm;uio] [((m .|. modm, k), windows $ f i) | (i, k) <- zip (XMonad.workspaces conf) [xK_j, xK_k, xK_l, xK_f, xK_d, xK_u, xK_i, xK_o] , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] ] ++ [ -- Restore some essential functions whose keybindings are now stolen ((modm .|. shiftMask, xK_s), windows W.swapMaster) ] ++ [ -- launch dmenu (shift-caps lock "p") ((modm .|. shiftMask, xK_p ), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"") -- launch a terminal, ssh and screen into -- F1 -> code.cjb.net , ((modm .|. shiftMask, xK_F1 ), spawn "x-terminal-emulator -e \"ssh -t code.cjb.net screen -D -R\"") -- F2 -> jobbet , ((modm .|. shiftMask, xK_F2 ), spawn "x-terminal-emulator -e \"ssh -t pc5.socio.gu.se screen -D -R\"") -- F3 -> esset (@ 192.168.0.252, or 192.168.0.3) , ((modm .|. shiftMask, xK_F3 ), spawn "x-terminal-emulator -e 'ssh -t -X -C 192.168.0.252 ~/bin/attach-or-create-a-screen-session'") -- F4 -> fekweb , ((modm .|. shiftMask, xK_F4 ), spawn "x-terminal-emulator -e \"ssh -t fek(a)fekweb.hgus.gu.se screen -D -R\"") -- F5 -> noels (@ 192.168.0.138, or code.cjb.net:19828) , ((modm .|. shiftMask, xK_F5 ), spawn "x-terminal-emulator -e 'ssh -t -X -C -p 19828 code.cjb.net ~/bin/attach-or-create-a-screen-session'") ] ++ [ -- -- -- a basic CycleWS setup ((modm, xK_Down), nextWS) , ((modm, xK_n ), windows W.focusDown) , ((modm, xK_p ), windows W.focusUp) , ((modm, xK_Up), prevWS) , ((modm .|. shiftMask, xK_Down), shiftToNext) , ((modm .|. shiftMask, xK_Up), shiftToPrev) , ((modm, xK_Right), nextScreen) , ((modm, xK_Left), prevScreen) , ((modm .|. shiftMask, xK_Right), shiftNextScreen) , ((modm .|. shiftMask, xK_Left), shiftPrevScreen) , ((modm, xK_z), toggleWS) ] -- myManageHook = composeAll [ resource =? "realplay.bin" --> doFloat -- , resource =? "win" --> doF (W.shift "doc") -- xpdf -- , resource =? "firefox-bin" --> doF (W.shift "web") -- ] -- newManageHook = myManageHook <+> manageHook defaultConfig main = do xmonad $ defaultConfig { layoutHook = smartBorders $ layoutHook defaultConfig , borderWidth = 1 , modMask = mod3Mask -- Rebind Mod to Caps lock , normalBorderColor = "#cccccc" , focusedBorderColor = "#cd8b00" , keys = \c -> myKeys c `M.union` keys defaultConfig c , manageHook = composeOne [ isKDETrayWindow -?> doIgnore, transience, isFullscreen -?> doFullFloat, resource =? "stalonetray" -?> doIgnore ] }

3 5