- xmonad - Haskell.org

dual monitor
by Lajos Bodnar 04 Feb '17

04 Feb '17

Hi all. I'm new in the mail list, and sorry for my english ... I tried to set up my wm for dual monitor with these keyboard settings: -- mod-[1..9], Switch to workspace N -- mod-shift-[1..9], Move client to workspace N -- [((m .|. mod4Mask, k), windows $ f i) | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9] , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] ++ -- -- 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 .|. mod4Mask, key), screenWorkspace sc >>= flip whenJust (windows . f)) | (key, sc) <- zip [xK_w, xK_e] [0..] , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] I exprerienced that when I switch workspace the opened windows moved the new workspace from the inactive screen. If the inactive screen is empty in the workspace where I have just moved then a window will fill it. I hope it is understandable for you. Any idea ? What is wrong ? What causes it ? Regards, Lajos

3 6

Starting Audacity under Xmonad triggers end of user session
by Josiah Schwab 17 Jan '17

17 Jan '17

Hello, I am using xmonad on Arch Linux on a ThinkPad X1 Carbon (Gen 4). Over the past few months, I have occasionally had issues where my X session suddenly ends and I am dumped back into my display manager. There is no relevant information in /var/log/Xorg.0.log.old, simply the line [ 4566.334] (II) Server terminated successfully (0). Closing log file The only relevant lines I see in the journal are: Jan 17 08:26:55 monolith lightdm[31036]: pam_unix(lightdm:session): session closed for user jschwab Jan 17 08:26:55 monolith org.a11y.atspi.Registry[31192]: XIO: fatal IO error 11 (Resource temporarily unavailable) on X server ":0" Jan 17 08:26:55 monolith org.a11y.atspi.Registry[31192]: after 885 requests (885 known processed) with 0 events remaining. I finally found a 100% reproducible case, which is to launch the program audacity. I confirmed that this issue occurs using the example xmonad configuration shipped with the Arch Linux package (/usr/share/x86_64-linux-ghc-8.0.1/xmonad-0.12/man/xmonad.hs). I suspect that xmonad is at least a contributing factor, because I installed another window manager (openbox) and confirmed that the problem does not occur there. I also confirmed that the issue occurs with the xmonad-git and xmonad-contrib-git packages, which track master on GitHub, so this hasn't been fixed since 0.12. Does anyone have any suggestions on how to track down the source of this problem? Josiah P.S. This was cross-posted on the Arch Linux forums. https://bbs.archlinux.org/viewtopic.php?pid=1684595

2 2

Issue with screenlocker obscured in background after display change
by Ethan Schoonover 16 Jan '17

16 Jan '17

A consistently reproducible problem involving titlebar decorations & screenlockers. I would have submitted an issue on github, but I'm not even sure if this is an XMonad core issue, an X.L.NoFrillsDecoration issue, a general decoration issue, or what, exactly. Summary: ------------------------------------------------------- Screenlocker (tested with various) is obscured by windows after display change when using a minimal layout with titlebar decorations. Video demonstrating issue: ------------------------------------------------------- https://www.youtube.com/watch?v=O3P_VJIZBE0 Environment: ------------------------------------------------------- Dual monitor (laptop/external), normally used one at a time. I have a udev rule that triggers a shell script that switches display when hotplugging/unplugging. Scenario (as demonstrated in video): ------------------------------------------------------- 1. External monitor active, internal inactive (or vice versa, point being only one display active) 2. Screen lock using any of several common screen lockers (tested this issue with: xscreensaver, i3lock, sxlock) is activated while connected to external display. Hot-unplug of external display triggers udev xrandr script, internal laptop display is successfully activated. 3. If using layout without titlebar decorations, there is no problem 4 If using X.L.NoFrillsDecoration to make title bar decorations on the windows, the layout windows are drawn on TOP of the screen locker on the new display. The screenlocker retains input focus, so it can be unlocked, but it is obscured by the windows on top of it. (I can see the screenlocker through the terminals since I'm using transparency, but if a non transparent window, the screenlocker is completely obscured). Dotfiles: ------------------------------------------------------- Gist of very basic XMonad config I put together to test this. https://gist.github.com/altercation/1e5150369b4eb6f7caf013550de0bd43 Any ideas on work arounds for this? -Ethan Ethan Schoonover es(a)ethanschoonover.com @ethanschoonover http://ethanschoonover.com Freenode/Github: altercation

3 3

Controlling Window Location with XMonad.Layout.ThreeColumns
by Eyal Erez 12 Jan '17

12 Jan '17

Hi, I have an ultrawide monitor and so I use ThreeColumns most of the time. I create it like so: ThreeColMid 1 (3/100) (1/3) This works fine, however, I'm getting some strange behavior when creating an closing windows. I hope I can explain this with a small diagram which shows window location as I create and close apps: CREATE 1 [ a ] 2 [b][ a ] 3 [a][c][b] CLOSE 1 [a][c][b] 2 [b][ a ] 3 [ a ] So, when going from 2 to 3 open windows, window "a" and "b" switch location for some reason. in step #2 "b" is on the left and "a" is on the right, but when a third window is added (or removed) they swap locations. This is very confusing. Is there anyway I can cause this to stop happening? It would also be nice if window "b" was created into the active location, but that's more of a nitpick. Thank you -- There are 10 types of people, those who know binary and those who don't.

3 4

Ready for v0.13?
by Peter Jones 12 Jan '17

12 Jan '17

It's been almost a year since we released v0.12 (which had an unfortunate struts bug). We should have done this a long time ago but better late than never. With my favorite holiday behind us, I have some spare time I could use to drive another release. But I'm going to need everyone's help. I'd like to close as many issues and pull requests as we can before making a release. And of course, getting master tested before the release would be a good idea too ;) Want to help? Pick one or more of the following: 1. Look through the list of pull requests and find one that sounds interesting to you. Merge it into your local xmonad and try it out: https://github.com/xmonad/xmonad/pulls https://github.com/xmonad/xmonad-contrib/pulls 2. Look through the list of issues and: a) Add a comment with more details if the bug is also affecting you b) If you think you can fix it, add a comment and then get working! 3. If you are interested in testing master before the release please let us know so we can start a dialog. What if you want to help but don't know how to build xmonad from source, or don't know how to use git? No problem! Reach out to me, I'd be more than happy to help you out. Either post a message to this mailing list, send me a direct email, or reach out to me on IRC, I'm pmade on #xmonad (on freenode). (We probably need a CONTRIBUTING.md file in the repo. I can work on that too.) I love xmonad and I know a lot of you do too. Let's make v0.13 a good release and make future releases easier. Thanks! -- Peter Jones, Founder, Devalot.com Defending the honor of good code

1 1

Get width and height of current screen ?
by e.a.gebhart＠gmail.com 07 Dec '16

07 Dec '16

I know the information is there but I don't have sufficient Haskell skills to figure it out yet. I've only been using Xmonad for about 6 months. I've seen the information in the StackSet doc, and I can also see it in prelude with this: Graphics.X11.openDisplay [] >>= Graphics.X11.Xinerama.getScreenInfo [Rectangle {rect_x = 0, rect_y = 0, rect_width = 3440, rect_height = 1440}] I have yet to successfully look inside the stackSet. I can tell that I'm not getting something that is very fundamental. I have this submap that I use mostly to move my scratchpads around. It works great but I would like to set the width and height according to the height and width of the current screen. floatKeymap = [ ("g", withFocused (keysMoveWindowTo (0,40) (0,0))) -- Top Left , ("c", withFocused (keysMoveWindowTo (halfWidth, 40) (1%2, 0))) -- Top Center , ("r", withFocused (keysMoveWindowTo (screenWidth, 40) (1,0))) -- Top Right , ("h", withFocused (keysMoveWindowTo (0, halfHeight) (0, 1%2))) -- Left Center , ("t", withFocused (keysMoveWindowTo (halfWidth, halfHeight) (1%2, 1%2))) -- Center , ("n", withFocused (keysMoveWindowTo (screenWidth, halfHeight) (1, 1%2))) -- Right Center , ("m", withFocused (keysMoveWindowTo (0, screenHeight) (0,1))) -- Bottom Left , ("w", withFocused (keysMoveWindowTo (halfWidth, screenHeight) (1%2, 1))) -- Bottom Center , ("v", withFocused (keysMoveWindowTo (screenWidth, screenHeight) (1,1))) -- BottomRight ] where screenWidth = 3440 screenHeight = 1440 halfWidth = div screenWidth 2 halfHeight = div screenHeight 2 I would appreciate any pointers that would help me understand and figure this out.

2 3

Announcing xmonad-testing: Help us test xmonad for v0.13
by Peter Jones 01 Dec '16

01 Dec '16

We're working on the v0.13 release but we need your help. We'd like to process as many pull requests/patches as possible before the release. And of course, we'd like it to be as rock solid as possible. We now have a new repo that should help you participate: https://github.com/xmonad/xmonad-testing Even if you don't know how to use `git` you can help. The `README.md` file for the `xmonad-testing` repository contains instructions on testing someone else's pull request. Just follow the steps! If you have some spare cycles here's how you can help: * Test someone's pull request using xmonad-testing * Review open issues and see if you can fix something :) Thanks everyone! -- Peter Jones, Founder, Devalot.com Defending the honor of good code

1 0

contrib: fixing raiseNext stuck between 2 workspaces
by Loïc 13 Nov '16

13 Nov '16

Dear all, I'm a big fan of raiseNext(Maybe) action from xmonad-contrib. However, there is a quite annoying bug, reported some years ago still active: raiseNext cycles only between 2 workspaces, making impossible to cycle through the entire list of windows (for a full description, not by me, see https://code.google.com/archive/p/xmonad/issues/284 ) The reason is that raiseNext calls allWindows from xmonad StackSet, which relies on a list of workspaces built as follows: the current workspace is put first, followed by visible then hidden workspaces. Thus the ordering of workspaces is not absolute, which is why raiseNext will cycle only between the current and another workspace. I found the following fix: - create a allWindowsSorted function in Xmonad.StackSet which relies on a list of workspaces sorted by their tags - call W.allWindowsSorted instead of W.allWindows in raiseNext. The patch is given below for 0.12. Let me know if it is an appropriate way to fix the bug. If so, I can create the pull requests for xmonad and xmonad-contrib that apply on current master. Otherwise, let me know what solution you would prefer. It would be nice that 0.13 contains a fix. Thanks for your feedback, Loïc diff -ur xmonad-0.12/src/XMonad/StackSet.hs xmonad-0.12.new/src/XMonad/ StackSet.hs --- xmonad-0.12/src/XMonad/StackSet.hs 2015-12-21 20:12:39.000000000 +0100 +++ xmonad-0.12.new/src/XMonad/StackSet.hs 2016-11-10 00:00:06.277840982 +0100 @@ -31,7 +31,7 @@ -- * Xinerama operations -- $xinerama lookupWorkspace, - screens, workspaces, allWindows, currentTag, + screens, workspaces, allWindows, allWindowsSorted, currentTag, -- * Operations on the current stack -- $stackOperations peek, index, integrate, integrate', differentiate, @@ -53,7 +53,7 @@ import Prelude hiding (filter) import Data.Maybe (listToMaybe,isJust,fromMaybe) -import qualified Data.List as L (deleteBy,find,splitAt,filter,nub) +import qualified Data.List as L (deleteBy,find,splitAt,filter,nub,sortBy) import Data.List ( (\\) ) import qualified Data.Map as M (Map,insert,delete,empty) @@ -385,6 +385,15 @@ allWindows :: Eq a => StackSet i l a s sd -> [a] allWindows = L.nub . concatMap (integrate' . stack) . workspaces + +workspacesSorted :: Ord i => StackSet i l a s sd -> [Workspace i l a] +workspacesSorted s = L.sortBy (\u t -> tag u `compare` tag t) $ + workspaces s + +-- | Get a list of all windows in the 'StackSet' with an absolute ordering of workspaces +allWindowsSorted :: Ord i => Eq a => StackSet i l a s sd -> [a] +allWindowsSorted = L.nub . concatMap (integrate' . stack) . workspacesSorted + -- | Get the tag of the currently focused workspace. currentTag :: StackSet i l a s sd -> i currentTag = tag . workspace . current diff -ur xmonad-contrib-0.12/XMonad/Actions/WindowGo.hs xmonad- contrib-0.12.new/XMonad/Actions/WindowGo.hs --- xmonad-contrib-0.12/XMonad/Actions/WindowGo.hs 2015-12-21 20:15:08.000000000 +0100 +++ xmonad-contrib-0.12.new/XMonad/Actions/WindowGo.hs 2016-11-10 00:05:33.422854352 +0100 @@ -43,7 +43,7 @@ import XMonad.ManageHook import XMonad.Operations (windows) import XMonad.Prompt.Shell (getBrowser, getEditor) -import qualified XMonad.StackSet as W (allWindows, peek, swapMaster, focusWindow) +import qualified XMonad.StackSet as W (allWindowsSorted, peek, swapMaster, focusWindow) import XMonad.Util.Run (safeSpawnProg) {- $usage @@ -70,7 +70,7 @@ -- second parameter. ifWindows :: Query Bool -> ([Window] -> X ()) -> X () -> X () ifWindows qry f el = withWindowSet $ \wins -> do - matches <- filterM (runQuery qry) $ W.allWindows wins + matches <- filterM (runQuery qry) $ W.allWindowsSorted wins case matches of [] -> el ws -> f ws

1 0

Can avoidStruts stop working?
by Jan Christoph Uhde 06 Nov '16

06 Nov '16

Hi, I experience the same issues as in: https://mail.haskell.org/pipermail/xmonad/2016-March/015047.html avoidStruts works for me in 0.11.1 (not compatible with the newest ghc 8.x.y in debian sid). In version 0.12 (cabal-default) it does not work on the first workspace, but starts working after pressing (mod-shift-space). In current git version xmonad (8b055621e92e7ade127043e968f50713c15a00a0) / xmonad-contrib (ec5f9a9e59ed5fa6bbd4c3850e4025526155f86e) my xmobar is never visible as soon as there is any other window. I have tried to work with sanboxes and different ghc versions but it is all very painful as I have to cd into the correct sandbox and even then xmonad must use a certain ghc version on startup when it compiles it's configuration. Please let me know how I can help debugging the problem. I know a bit programming and a few haskell basics. So please give me enough details to be helpful. You will find me as obiwahn in #xmonad(a)freenode.net. Regards Jan Christoph Uhde

2 1

[ANN] X.H.Focus: combinators extending MH for managing focus
by Dmitriy Matrosov 07 Oct '16

07 Oct '16

Hi. I want to announce a new module for xmonad: XMonad.Hooks.Focus . This module provides monad on top of Query monad providing additional information about new window: - workspace, where new window will appear; - focused window on workspace, where new window will appear; - current workspace (this can be retrieved without any additional modules, that's just for completeness); And two properties in extensible state: - is focus lock enabled? Focus lock instructs all library's FocusHook functions to not move focus. - is new window _NET_ACTIVE_WINDOW activated? It is not really new in that case, but i may work with it in the same way. Lifting operations for standard `ManageHook` EDSL combinators into `FocusQuery` monad allowing to run these combinators on focused window and common actions for keeping focus and/or workspace, switching focus and/or workspace are also provided. As far as i know, no one from xmonad-contrib modules provide this functionality at the moment. Here is a few examples: activateFocusHook :: FocusHook activateFocusHook = composeAll -- If `gmrun` is focused on workspace, on which -- activated window is, keep focus unchanged. But i -- may still switch workspace. [ focused (className =? "Gmrun") --> keepFocus -- Default behavior for activated windows: switch -- workspace and focus. , return True --> switchWorkspace <+> switchFocus ] newFocusHook :: FocusHook newFocusHook = composeOne -- Always switch focus to `gmrun`. [ new (className =? "Gmrun") -?> switchFocus -- And always keep focus on `gmrun`. Note, that -- another `gmrun` will steal focus from already -- running one. , focused (className =? "Gmrun") -?> keepFocus -- If firefox dialog prompt (e.g. master password -- prompt) is focused on current workspace and new -- window appears here too, keep focus unchanged -- (note, used predicates: `newOnCur <&&> focused` is -- the same as `newOnCur <&&> focusedCur`, but is -- *not* the same as just `focusedCur` ) , newOnCur <&&> focused ((className =? "Iceweasel" <||> className =? "Firefox") <&&> isDialog) -?> keepFocus -- Default behavior for new windows: switch focus. , return True -?> switchFocus ] And here is an example of moving all activated windows to current workspace by default, but keeping focus on current window (note, i need more generic `composeOne` and `(-?>)`, than defind in X.H.ManageHelpers): import Data.Monoid import Control.Applicative import Control.Monad import XMonad import qualified XMonad.StackSet as W import XMonad.Hooks.Focus import XMonad.Hooks.ManageHelpers hiding (composeOne, (-?>)) main :: IO () main = do let xcf = handleFocusQuery (Just (0, xK_v)) (composeOne [ activated -?> (newOnCur --> keepFocus) , Just <$> newFocusHook ]) $ defaultConfig { modMask = mod4Mask , manageHook = manageFocus activateOnCurrentWs } xmonad xcf activateOnCurrentWs :: FocusHook activateOnCurrentWs = activated --> asks currentWorkspace >>= new . unlessFocusLock . doShift composeOne :: (Monoid a, Monad m) => [m (Maybe a)] -> m a composeOne [] = return mempty composeOne (mx : xs) = do x <- mx case x of Just y -> return y Nothing -> composeOne xs infixr 0 -?> (-?>) :: Monad m => m Bool -> m a -> m (Maybe a) (-?>) mb mx = do b <- mb if b then liftM Just mx else return Nothing The code is here [gist][1] . It is the version suitable for putting into '.xmonad/lib/XMonad/Hooks/Focus.hs'. I've tried it with Haskell Platform '2013.2.0.0' (ghc 7.6.3), xmonad 0.12 on Debian 8 (Jessie). Developing of this module i'm doing in [github/sgf-xmonad-modules][2]. And my xmonad config, which includes this module and is compiled by `stack` (and installed by `make install`, assuming all dependencies are present) can be found here [github/sgf-xmonad-config][3]. Unfortunately, there is no tests and comments are written not in haddock format at the moment (because i don't know either (yet); though, there are many comments and examples in the code!), thus, i can't make a PR to 'xmonad-contrib' for now. It takes me almost three months to write this module, and since i don't know how long it takes to complete these two missed parts, i announce module now as is (well, it seems working fine and i'm using it). Please, read the long comment section near the top of the module source before using, there are incompatibilities and, well.. specialities. [1]: https://gist.github.com/sgf-dma/99712cbfedf278d2a6e871ac70749b48 [2]: https://github.com/sgf-dma/sgf-xmonad-modules [3]: https://github.com/sgf-dma/sgf-xmonad-config

1 0