- xmonad - Haskell.org

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

Catching exceptions from getWindowAttributes
by asjo＠koldfront.dk 13 Sep '16

13 Sep '16

I am trying to modify xmonad to handle exceptions thrown in getWindowAttributes. Since I am still copy/paste-coding, I need some help. Take a function like this, which I have seen crashes in (especially when using Gimp): floatLocation :: Window -> X (ScreenId, W.RationalRect) floatLocation w = withDisplay $ \d -> do ws <- gets windowset wa <- io $ getWindowAttributes d w let bw = (fromIntegral . wa_border_width) wa sc <- fromMaybe (W.current ws) <$> pointScreen (fi $ wa_x wa) (fi $ wa_y wa) let sr = screenRect . W.screenDetail $ sc rr = W.RationalRect ((fi (wa_x wa) - fi (rect_x sr)) % fi (rect_width sr)) ((fi (wa_y wa) - fi (rect_y sr)) % fi (rect_height sr)) (fi (wa_width wa + bw*2) % fi (rect_width sr)) (fi (wa_height wa + bw*2) % fi (rect_height sr)) return (W.screen sc, rr) where fi x = fromIntegral x I somehow need to wrap the code from getWindowAttributes and on, in something that "does the right thing" if gWA throws an exception. In other places, I have done something like this: sendConfigureEvent :: Display -> XEventPtr -> Window -> Event -> IO () sendConfigureEvent dpy ev w e = C.handle (\(C.SomeException _) -> putStrLn "sendConfigureEvent failed") $ do wa <- io $ getWindowAttributes dpy w setEventType ev configureNotify setConfigureEvent ev w w (wa_x wa) (wa_y wa) (wa_width wa) (wa_height wa) (ev_border_width e) none (wa_override_redirect wa) sendEvent dpy w False 0 ev which works, but in floatLocation the type is X and not IO, and ... well, what's a boy to do? Best regards, Adam -- "It's part of our policy not to be taken seriously" Adam Sjøgren asjo(a)koldfront.dk

3 6

kill -STOP/-CONT hack
by asjo＠koldfront.dk 03 Sep '16

03 Sep '16

Hi, Has anyone implemented this kill -STOP/-CONT hack: · https://blog.mister-muffin.de/2014/11/07/automatically-suspending-cpu-hungr… in XMonad? Best regards, Adam -- "Time is getting short; every midnight I feel 48 Adam Sjøgren hours older. And twice as useless." asjo(a)koldfront.dk

5 24

Prevent swapping workspaces on multi-monitor setup
by Eyal Erez 31 Aug '16

31 Aug '16

Hi, I use xmonad with two monitors. I love that I can switch workspaces in each monitor independently. I don't believe any other WM supports this feature. However, if a workspace is visible on one monitor and I hit its number on another monitor, xmonad will swap the two workspaces. For example: *focus mon A B SW [1] [2]* If I hit M-1, I get *focus mon A B ws [2] [1]* I was hoping that there's a way to change this behavior. I would like xmonad to either not do anything in this case or better yet, switch the focus on the other monitor without swapping workspaces. Thank you, -- There are 10 types of people, those who know binary and those who don't.

3 3

Website out of date
by Joachim Breitner 09 Jul '16

09 Jul '16

Hi, just in case someone wanted to fix this and forgot about it: http://xmonad.org/ still says “xmonad 0.11 is available from our download page.” Also, the note “Notes for Ubuntu users only:” on http://xmonad.org/download.html, as well as the (etch) link is obsolete. Greetings, Joachim -- Joachim “nomeata” Breitner mail(a)joachim-breitner.de • https://www.joachim-breitner.de/ XMPP: nomeata(a)joachim-breitner.de • OpenPGP-Key: 0xF0FBF51F Debian Developer: nomeata(a)debian.org

2 1

XMonad.Prompt font
by asjo＠koldfront.dk 22 Jun '16

22 Jun '16

I was experimenting with switching from dmenu to XMonad.Prompt.Shell. With dmenu I can get the font I want by passing the argument '-fn "DejaVu Sans Condensed-8:normal"' (a truetype font, using xft). I would like the same in XMonad.Prompt.Shell. xfontsel(1) of course does not list truetype fonts, and the documentation only says: "data XPConfig Constructors XPC font :: String Font" - http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Prompt.html So if anyone else runs into this: what you need to know/guess is to prefix the 'font' with "xft:" in your configuration; i.e.: myPromptConfig = defaultXPConfig { position = Top -- ... , font = "xft:DejaVu Sans Condensed-8" } Best regards, Adam -- "How are you this tiny and this strong? You are Adam Sjøgren like an ant!" asjo(a)koldfront.dk

2 1

XMonad.Promp.Shell matching function
by asjo＠koldfront.dk 12 Jun '16

12 Jun '16

I would like shellPrompt to match anywhere in the command, not only from the beginning. E.g. if I have a command called "run_icesocial", I would like that to appear if I type "icesoc", rather than having to type "run_" first. It looks like XMonad.Prompt.Shell.commandCompletionFunction is the function to modify: commandCompletionFunction :: [String] -> String -> [String] commandCompletionFunction cmds str | '/' `elem` str = [] | otherwise = filter (isPrefixOf str) cmds Changing isPrefixOf to isInfixOf I would guess - does that sound right? Is there an easy way to "override" that function from my xmonad.hs? If not, would it be reasonable to make it configurable, so e.g. you could put in a fuzzy matching function, or something even weirder? (I'll give that a go, if so.) Best regards, Adam -- "Sunday morning when the rain begins to fall Adam Sjøgren I've got the cure for it all" asjo(a)koldfront.dk

1 1