December 2013 - xmonad

Issue 560 in xmonad: Popup (code completion) window disappears
by codesite-noreply＠google.com 14 Mar '14

14 Mar '14

Status: New Owner: ---- New issue 560 by j...(a)jupiter.dk: Popup (code completion) window disappears http://code.google.com/p/xmonad/issues/detail?id=560 What steps will reproduce the problem? 1. Start IntelliJ IDE (I tried phpstorm) 2. Do word completion ("IntelliSense") and find a long method signature/description in the popup 3. Completion popup window mostly disappears (see attached photo). What is the expected output? What do you see instead? That the window stays visible What version of the product are you using? On what operating system? $ xmonad --version xmonad 0.11 $ lsb_release -a No LSB modules are available. Distributor ID: Ubuntu Description: Ubuntu 13.04 Release: 13.04 Codename: raring Are you using an xmonad.hs? import XMonad import XMonad.Hooks.SetWMName import XMonad.Hooks.DynamicLog import XMonad.Hooks.ICCCMFocus import XMonad.Hooks.ManageHelpers import XMonad.Hooks.EwmhDesktops main = xmonad $ defaultConfig { modMask = mod4Mask, startupHook = setWMName "LG3D" >> takeTopFocus, manageHook = composeOne [ transience, isFullscreen -?> doFullFloat ], logHook = setWMName "LG3D" >> takeTopFocus } Log of xmonad --recompile is empty. Attachments: phpstorm-xmonad.png 16.8 KB -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings

3 20

Issue 413 in xmonad: Windows don't disappear
by codesite-noreply＠google.com 07 Mar '14

07 Mar '14

Status: New Owner: ---- New issue 413 by srburnet: Windows don't disappear http://code.google.com/p/xmonad/issues/detail?id=413 What steps will reproduce the problem? 1. Open a window (e.g., a terminal, although it happens to all types of windows) 2. Do a bunch of other work with other windows. (This doesn't happen if you open and close a window immediately). 3. Close the original window. What is the expected output? What do you see instead? The window should disappear and the wallpaper should be shown. Instead, an artifact image of the window remains, although the window itself has definitely closed. I can't interact with the window and if open a new window xmonad behaves as if there is no additional window (the screen isn't split between the two windows). I can even drag a small window around in tiling mode over the image of the window and "erase" the closed window (i.e., the wallpaper is redrawn in areas touched by the window). I've attached a screenshot that hopefully makes sense. Note that the problem is very rare. There doesn't seem to be a pattern for which windows have the problem. What version of the product are you using? On what operating system? xmonad darcs, on Arch Linux. I am using the NVIDIA proprietary drivers with dual monitors (Twinview). I am not using compositing. The problem has occured with multiple versions of xmonad, the kernel versions, and the NVIDIA driver. Are you using an xmonad.hs? Please attach it and the output of "xmonad --recompile". xmonad --recompile yields no output. Attachments: xmonad.hs 5.2 KB bug.png 741 KB

1 9

Re: Issue 200 in xmonad: xmonad spins in a tight loop changing focus back and forth
by codesite-noreply＠google.com 05 Mar '14

05 Mar '14

Comment #11 on issue 200 by wapcaplet88: xmonad spins in a tight loop changing focus back and forth http://code.google.com/p/xmonad/issues/detail?id=200 Same issue here, on Gentoo with xmonad-0.9 and openoffice-bin-3.2.0. Adding 'export SAL_USE_VCLPLUGIN=gen' to ~/.xsession worked a treat!

1 15

Getting xmonad working with GNOME 3.8?
by William Ting 23 Feb '14

23 Feb '14

Hi, I've been using xmonad in GNOME 3.2 / 3.4 / 3.6 in fallback mode just fine, but the latest upgrade to GNOME 3.8 on Arch has rendered xmonad unusable. Does anybody know how to get xmonad working on GNOME again? Thanks, William

6 6

Bad link on download page
by Thomas Løcke 31 Jan '14

31 Jan '14

Hey all, On the download page at xmonad.org, the link to FreeBSD is wrong. The correct one is this: https://www.freshports.org/x11-wm/hs-xmonad/ :o) Thomas

3 2

Issue 557 in xmonad: xmonad grabs keyboard and mouse on focus follows mouse, reproducibly
by codesite-noreply＠google.com 18 Jan '14

18 Jan '14

Status: New Owner: ---- New issue 557 by joeyhe...(a)gmail.com: xmonad grabs keyboard and mouse on focus follows mouse, reproducibly http://code.google.com/p/xmonad/issues/detail?id=557 What steps will reproduce the problem? 1. start xmonad on my new lenovo yoga 11s laptop with provided xmonad.hs 2. use laptop for a few hours (I was seeing this at least twice a day) What is the expected output? What do you see instead? This seems to occur when moving the mouse with focus follows mouse, and switching focus from one terminal to another (I have seen it using both xfce4-terminal and the sakura terminal). Xmonad seems to grab all keyboard and mouse events, and not release them, which results in no mouse movements, clicks, or keyboard activity doing anything in either xmonad or the applications on screen. However, ctrl-alt-FN works, and if I use the console to kill all my terminals, this seems to convince xmonad to stop grabbing inputs. I also tried using the console to start xev, and confirmed that it generally saw no X events at all. I think that one time xev reported a stream of X events, as if it were getting all the traffic I had generated while trying to use my locked desktop. Also, at least twice, after a several minute delay xmonad has woken up on its own and dropped the grab. It then seemed to process all the keys I had pressed, which was disconcerting. What version of the product are you using? On what operating system? 0.11 on Debian unstable with XFCE panel 4.10.1 Are you using an xmonad.hs? Please attach it and the output of "xmonad --recompile". It's attached. Note that I have used xmonad for years without seeing this problem. I switched laptops, made some minor changes to my xmonad.hs and now it happens frequently enough to be a real productivity problem. On the other hand, if someone is looking to debug this somehow, I can probably reproduce it reliably enough to try whatever steps make sense to debug it. Attachments: xmonad.hs 7.1 KB -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings

1 9

better combineTwoP and Property
by proxym 18 Jan '14

18 Jan '14

I modified combineTwoP and Property. http://hpaste.org/45435/combinetwoqb New name is combineTwoQB Now windows use full screen space always! (It was bug in combineTwoP, when all windows are in one pane only) Now you can use IsDialog property to detect dialog windows. Version with simplified config: http://hpaste.org/45439/combinetwoqb data Property = Title String | ClassName String | Resource String | Role String -- ^ WM_WINDOW_ROLE property | Machine String -- ^ WM_CLIENT_MACHINE property | And Property Property | Or Property Property | Not Property | IsDialog -- ^^^^^ _NET_WM_WINDOW_TYPE _NET_WM_WINDOW_TYPE_DIALOG | AtomProperty String String | Const Bool deriving (Read, Show) infixr 9 `And` infixr 8 `Or` -- | Does given window have this property? hasProperty :: Property -> Window -> X Bool hasProperty (Title s) w = withDisplay $ \d -> fmap (Just s ==) $ io $ fetchName d w hasProperty (Resource s) w = withDisplay $ \d -> fmap ((==) s . resName ) $ io $ getClassHint d w hasProperty (ClassName s) w = withDisplay $ \d -> fmap ((==) s . resClass) $ io $ getClassHint d w hasProperty (Role s) w = withDisplay $ \d -> fmap ((==) (Just s)) $ getStringProperty d w "WM_WINDOW_ROLE" hasProperty (Machine s) w = withDisplay $ \d -> fmap ((==) (Just s)) $ getStringProperty d w "WM_CLIENT_MACHINE" hasProperty (IsDialog) w = hasProperty (AtomProperty "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_DIALOG") w hasProperty (AtomProperty sKey sValue) w = withDisplay $ \d -> checkAtomProperty d w sKey sValue hasProperty (And p1 p2) w = do { r1 <- hasProperty p1 w; r2 <- hasProperty p2 w; return $ r1 && r2 } hasProperty (Or p1 p2) w = do { r1 <- hasProperty p1 w; r2 <- hasProperty p2 w; return $ r1 || r2 } hasProperty (Not p1) w = do { r1 <- hasProperty p1 w; return $ not r1 } hasProperty (Const b) _ = return b -- | Does the focused window have this property? focusedHasProperty :: Property -> X Bool focusedHasProperty p = do ws <- gets windowset let ms = W.stack $ W.workspace $ W.current ws case ms of Just s -> hasProperty p $ W.focus s Nothing -> return False -- | Find all existing windows with specified property allWithProperty :: Property -> X [Window] allWithProperty prop = withDisplay $ \dpy -> do rootw <- asks theRoot (_,_,wins) <- io $ queryTree dpy rootw hasProperty prop `filterM` wins -- | Convert property to 'Query' 'Bool' (see "XMonad.ManageHook") propertyToQuery :: Property -> Query Bool propertyToQuery (Title s) = title =? s propertyToQuery (Resource s) = resource =? s propertyToQuery (ClassName s) = className =? s propertyToQuery (Role s) = stringProperty "WM_WINDOW_ROLE" =? s propertyToQuery (Machine s) = stringProperty "WM_CLIENT_MACHINE" =? s propertyToQuery (IsDialog) = propertyToQuery (AtomProperty "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_DIALOG") propertyToQuery (AtomProperty k v) = (ask >>= (\w -> liftX $ withDisplay $ \d -> checkAtomProperty d w k v)) =? True propertyToQuery (And p1 p2) = propertyToQuery p1 <&&> propertyToQuery p2 propertyToQuery (Or p1 p2) = propertyToQuery p1 <||> propertyToQuery p2 propertyToQuery (Not p) = not `fmap` propertyToQuery p propertyToQuery (Const b) = return b -- $helpers -- | Get a window property from atom getProp32 :: Atom -> Window -> X (Maybe [CLong]) getProp32 a w = withDisplay $ \dpy -> io $ getWindowProperty32 dpy a w -- | Get a window property from string getProp32s :: String -> Window -> X (Maybe [CLong]) getProp32s str w = do { a <- getAtom str; getProp32 a w } checkAtomProperty d w sKey sValue = do sk <- getAtom sKey sv <- getAtom sValue md <- io $ getWindowProperty32 d sk w case md of Just mm -> if (fromIntegral sv `elem` mm) then return True else return False _ ->return False data SwapWindow = SwapWindow -- ^ Swap window between panes | SwapWindowN Int -- ^ Swap window between panes in the N-th nested ComboP. @SwapWindowN 0@ equals to SwapWindow deriving (Read, Show, Typeable) instance Message SwapWindow data CombineTwoQB l l1 l2 a = C2P [a] [a] [a] l (l1 a) (l2 a) Property deriving (Read, Show) combineTwoQB :: (LayoutClass super(), LayoutClass l1 Window, LayoutClass l2 Window) => super () -> l1 Window -> l2 Window -> Property -> CombineTwoQB (super ()) l1 l2 Window combineTwoQB = C2P [] [] [] instance (LayoutClass l (), LayoutClass l1 Window, LayoutClass l2 Window) => LayoutClass (CombineTwoQB (l ()) l1 l2) Window where doLayout (C2P f w1 w2 super l1 l2 prop) rinput s = let origws = W.integrate s -- passed in windows w1c = origws `intersect` w1 -- current windows in the first pane w2c = origws `intersect` w2 -- current windows in the second pane new = origws \\ (w1c ++ w2c) -- new windows superstack = Just Stack { W.focus=(), up=[], down=[()] } f' = W.focus s:delete (W.focus s) f -- list of focused windows, contains 2 elements at most in do matching <- (hasProperty prop) `filterM` new -- new windows matching predecate let w1' = w1c ++ (new \\ matching) -- updated first pane windows w2' = w2c ++ matching -- updated second pane windows s1 = differentiate f' w1' -- first pane stack s2 = differentiate f' w2' -- second pane stack if not (null w1' || null w2') then do ([((),r1),((),r2)], msuper') <- runLayout (Workspace "" super superstack) rinput (wrs1, ml1') <- runLayout (Workspace "" l1 s1) r1 (wrs2, ml2') <- runLayout (Workspace "" l2 s2) r2 (return (wrs1++wrs2, Just $ C2P f' w1' w2' (maybe super id msuper') (maybe l1 id ml1') (maybe l2 id ml2') prop)) else case (w1' ++ w2') of [] -> do l1' <- maybe l1 id `fmap` handleMessage l1 (SomeMessage ReleaseResources) l2' <- maybe l2 id `fmap` handleMessage l2 (SomeMessage ReleaseResources) super' <- maybe super id `fmap` handleMessage super (SomeMessage ReleaseResources) (return ([], Just $ C2P [] [] [] super' l1' l2' prop)) [w] -> do l1' <- maybe l1 id `fmap` handleMessage l1 (SomeMessage ReleaseResources) l2' <- maybe l2 id `fmap` handleMessage l2 (SomeMessage ReleaseResources) super' <- maybe super id `fmap` handleMessage super (SomeMessage ReleaseResources) (return ([(w,rinput)], Just $ C2P [w] [w] [] super' l1' l2' prop)) ww -> do ([((),r1),((),r2)], msuper') <- runLayout (Workspace "" super superstack) rinput (wrs1, ml1') <- runLayout (Workspace "" l1 s1) rinput (wrs2, ml2') <- runLayout (Workspace "" l2 s2) rinput (return (wrs1++wrs2, Just $ C2P f' w1' w2' (maybe super id msuper') (maybe l1 id ml1') (maybe l2 id ml2') prop)) handleMessage us@(C2P f ws1 ws2 super l1 l2 prop) m | Just SwapWindow <- fromMessage m = swap us | Just (SwapWindowN 0) <- fromMessage m = swap us | Just (SwapWindowN n) <- fromMessage m = forwardToFocused us $ SomeMessage $ SwapWindowN $ n-1 | Just (MoveWindowToWindow w1 w2) <- fromMessage m, w1 `elem` ws1, w2 `elem` ws2 = return $ Just $ C2P f (delete w1 ws1) (w1:ws2) super l1 l2 prop | Just (MoveWindowToWindow w1 w2) <- fromMessage m, w1 `elem` ws2, w2 `elem` ws1 = return $ Just $ C2P f (w1:ws1) (delete w1 ws2) super l1 l2 prop | otherwise = do ml1' <- handleMessage l1 m ml2' <- handleMessage l2 m msuper' <- handleMessage super m if isJust msuper' || isJust ml1' || isJust ml2' then return $ Just $ C2P f ws1 ws2 (maybe super id msuper') (maybe l1 id ml1') (maybe l2 id ml2') prop else return Nothing description (C2P _ _ _ super l1 l2 prop) = "CC0" --"combining " ++ description l1 ++ " and " ++ description l2 ++ " with " ++ description super ++ " using "++ (show prop) -- send focused window to the other pane. Does nothing if we don't -- own the focused window swap :: (LayoutClass s a, LayoutClass l1 Window, LayoutClass l2 Window) => CombineTwoQB (s a) l1 l2 Window -> X (Maybe (CombineTwoQB (s a) l1 l2 Window)) swap (C2P f ws1 ws2 super l1 l2 prop) = do mst <- gets (W.stack . W.workspace . W.current . windowset) let (ws1', ws2') = case mst of Nothing -> (ws1, ws2) Just st -> if foc `elem` ws1 then (foc `delete` ws1, foc:ws2) else if foc `elem` ws2 then (foc:ws1, foc `delete` ws2) else (ws1, ws2) where foc = W.focus st if (ws1,ws2) == (ws1',ws2') then return Nothing else return $ Just $ C2P f ws1' ws2' super l1 l2 prop -- forwards the message to the sublayout which contains the focused window forwardToFocused :: (LayoutClass l1 Window, LayoutClass l2 Window, LayoutClass s a) => CombineTwoQB (s a) l1 l2 Window -> SomeMessage -> X (Maybe (CombineTwoQB (s a) l1 l2 Window)) forwardToFocused (C2P f ws1 ws2 super l1 l2 prop) m = do ml1 <- forwardIfFocused l1 ws1 m ml2 <- forwardIfFocused l2 ws2 m ms <- if isJust ml1 || isJust ml2 then return Nothing else handleMessage super m if isJust ml1 || isJust ml2 || isJust ms then return $ Just $ C2P f ws1 ws2 (maybe super id ms) (maybe l1 id ml1) (maybe l2 id ml2) prop else return Nothing -- forwards message m to layout l if focused window is among w forwardIfFocused :: (LayoutClass l Window) => l Window -> [Window] -> SomeMessage -> X (Maybe (l Window)) forwardIfFocused l w m = do mst <- gets (W.stack . W.workspace . W.current . windowset) maybe (return Nothing) send mst where send st = if (W.focus st) `elem` w then handleMessage l m else return Nothing -- code from CombineTwo -- given two sets of zs and xs takes the first z from zs that also belongs to xs -- and turns xs into a stack with z being current element. Acts as -- StackSet.differentiate if zs and xs don't intersect differentiate :: Eq q => [q] -> [q] -> Maybe (Stack q) differentiate (z:zs) xs | z `elem` xs = Just $ Stack { W.focus=z , up = reverse $ takeWhile (/=z) xs , down = tail $ dropWhile (/=z) xs } | otherwise = differentiate zs xs differentiate [] xs = W.differentiate xs myManageHook0 = composeAll -- help1: run: xprop | grep WM_CLASS -- help2: run: xprop | egrep "CLASS|NAME" [ -- manage hooks appName =? "gimp" --> doFloat , isFullscreen --> doFullFloat -------for flash in ff -------, isDialog --> doCenterFloat ------------, isDialog --> doSink --------------------------------------------------------------- -----, propertyToQuery (IsDialog) --> doSink , propertyToQuery (myDialogs) --> doSink ] --where moveTo = doF . W.shift --where moveTo = doShift where moveTo = doF . liftM2 (.) W.greedyView W.shift --myManageHook = myManageHook0 <+> manageDocks <+> manageHook gnomeConfig myManageHook = myManageHook0 <+> manageDocks <+> manageHook defaultConfig doSink :: ManageHook doSink = ask >>= \w -> liftX (reveal w) >> doF (W.sink w) myTabbed0 = tabbed shrinkText defaultTheme myTabbed = combineTwoQB (Mirror (Tall 1 (3/100) (3/5))) (myTabbed0) (myTabbed0) (myDialogs) myDialogs = (IsDialog) `Or` (ClassName "Dialog") `Or` (ClassName "dialog") `Or` (ClassName "Toplevel") `Or` (ClassName "Chat") `Or` (ClassName "Message") --myTabber is resulted layout. you must not import standard Property -- to use my combineTwoQB -- (i use xmonad 0.9) -- Best regards, Michael

4 12

spawnOn does not launch the app in the specified workspace
by Marcelo de Moraes Serpa 27 Dec '13

27 Dec '13

Hi list, I'm trying to spawn a few apps at startup using XMonad.Actions.SpawnOn. I'm using this repo as a starting point: github.com/davidbrewer/xmonad-ubuntu-conf. I have modified the xmonad.hs as follows: ... > myWorkspaces = > [ > "7:Chat", "8:Dbg", "9:Pix", > "4:Docs", "5:Dev", "6:Web", > "1:Term", "2:Hub", "3:Mail", > "0:VM", "Extr1", "Extr2" > ] ... > main = do > xmproc <- spawnPipe "xmobar ~/.xmonad/xmobarrc" > xmonad $ withUrgencyHook NoUrgencyHook $ defaultConfig { > focusedBorderColor = myFocusedBorderColor > , normalBorderColor = myNormalBorderColor > , terminal = myTerminal > , borderWidth = myBorderWidth > , layoutHook = myLayouts > , workspaces = myWorkspaces > , modMask = myModMask > , handleEventHook = fullscreenEventHook > , startupHook = do > setWMName "LG3D" > windows $ W.greedyView startupWorkspace > spawn "~/.xmonad/startup-hook" > >> * spawnOn "7:Chat" "firefox"* > > , manageHook = manageHook defaultConfig > <+> composeAll myManagementHooks > <+> manageDocks > , logHook = dynamicLogWithPP $ xmobarPP { > ppOutput = hPutStrLn xmproc > , ppTitle = xmobarColor myTitleColor "" . shorten myTitleLength > , ppCurrent = xmobarColor myCurrentWSColor "" > . wrap myCurrentWSLeft myCurrentWSRight > , ppVisible = xmobarColor myVisibleWSColor "" > . wrap myVisibleWSLeft myVisibleWSRight > , ppUrgent = xmobarColor myUrgentWSColor "" > . wrap myUrgentWSLeft myUrgentWSRight > } > } > `additionalKeys` myKeys ... However, it will just always spawn the app in the *current* workspace, and never in the workspace passed in the 1st argument. I'm using: * Ubuntu 12.04 LTS * xmonad 0.10 (installed from Ubuntu's 12.04 deb packages) * And I'm using the git repo I mentioned above as a starting point. Am I doing anything wrong? Thanks in advance, -- Marcelo

2 1

Issue 552 in xmonad: Prompt.Workspace wrong completion
by codesite-noreply＠google.com 25 Dec '13

25 Dec '13

Status: New Owner: ---- New issue 552 by fistonbe...(a)gmail.com: Prompt.Workspace wrong completion http://code.google.com/p/xmonad/issues/detail?id=552 This happens with workspaces with names containing spaces and is related to the default implementation for nextCompletion and commandToComplete (class XPrompt) which shouldn't be used here. 1. type the name of a workspace which contains spaces on a workspace prompt; 2. hit tab; 3. workspaces whose name start with the last word on prompt are shown. The whole prompt should be used for completion. I made a patch long ago but didn't find a way to send it. It is attached. I don't think XMonad will ever prompt for a list of workspace names separated by spaces. Attachments: bundle 10.1 KB -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings

1 1

servermode patch for xmonad-contrib
by Peter Olson 23 Dec '13

23 Dec '13

Some stuff that I have been working on to generalize XMonad.Hooks.ServerMode so that it will be more useful. This is my first time contributing to an open-source project, so sorry if I made any obvious mistakes. Peter Olson

2 4