June 2016 - xmonad - Haskell.org

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

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

How to run xmonad from development repository
by asjo＠koldfront.dk 12 Jun '16

12 Jun '16

I am trying to get back into fixing the border colormap stuff¹ that I got half way through last year². I am wondering - still being new to this - how to efficiently do development of xmonad. What I did previous was to rebuild Debian packages with my changes, installing them, and then "xmonad --recompile" and restarting xmonad. That is quite cumbersome, as Debian has dependencies between the X11 code, X11 xft and xmonad, so there is a lot of rebuilding just to realize that I made a(nother) mistake. How do you run xmonad from a cloned git repository and do a change-compile-run cycle efficiently? Is there a way to point "xmonad --recompile" at my local repository, or? Best regards, Adam ¹ https://github.com/asjo/xmonad/commit/e7d0e004d0a1acfd1ff149eaabf274fe2519c… ² https://github.com/xmonad/X11/pull/35 -- "Close the door to it all Adam Sjøgren A crash and a fireball asjo(a)koldfront.dk If that feels good This is the end"

2 2

Xmonad: Get NSP Workspace
by Dave Macias 08 Jun '16

08 Jun '16

Hello xmonad! Recently i change myWorkspaces from strings to numbers to be able to use the dice font in ppCurrent/Visible. (it's pretty cool) Formerly myWorkspace was defined as so: *--myWorkspaces = ["1","2","3","4","5","6","7","8","9"] ++ ["NSP"]* Now: *myWorkspaces = map show $ [1..9] ++ [0] -- 0 is the NSP ws* Everything has been working fine. The only issue is in my keybindings. specifically in CycleWS. So i have some keybindings as so: ... ... * , ((mod, xK_Up), windows . W.greedyView =<< findWorkspace getSortByIndexNoNSP Next HiddenNonEmptyWS 1) -- move to next WS non NSP* *...* *...* *where* * getSortByIndexNoNSP = fmap (.namedScratchpadFilterOutWorkspace) getSortByIndex* So, if i understand this correctly, "namedScratchpadFilterOutWorkspace" doesnt work because the "name" of the workspace is now the number "0" when it formerly was the string "NSP". How can i get the keybinding to work when i've changed the NSP workpace name to an actual number? Please let me know if more info is needed. Thank you in advance. -Dave

2 6

Xmonad and multiple screens
by Yuriy Halytskyy 06 Jun '16

06 Jun '16

I am trying to use xmonad on a laptop connected to two monitors, via VGA and HDMI outputs. Laptop screen is disabled and both external monitors configured using xrandr: xrandr --output LVDS1 --off xrandr --output HDMI-0 --right-of VGA1 xrandr --output VGA1 --right-of LVDS1 But mod+{w,e,r} does not work and the only way to have windows on one of my screens is to move floating window. Xinerama shows only right monitor: ghc -e "Graphics.X11.openDisplay [] >>= Graphics.X11.Xinerama.getScreenInfo" [Rectangle {rect_x = 1920, rect_y = 0, rect_width = 1920, rect_height = 1200}] Is it possible to somehow overwrite getScreenInfo for xmonad or configure Xinerama propertly? nvidia-setting can only see one screen and one display. xrandr output shows one huge 3840 x 1200 display and all screens: Screen 0: minimum 8 x 8, current 3840 x 1200, maximum 16384 x 16384 LVDS-0 disconnected primary (normal left inverted right x axis y axis) DP-0 disconnected (normal left inverted right x axis y axis) DP-1 disconnected (normal left inverted right x axis y axis) HDMI-0 connected 1920x1200+1920+0 (normal left inverted right x axis y axis) 518mm x 324mm 1920x1200 60.0*+ 1920x1080 60.0 1680x1050 60.0 1600x1200 60.0 1280x1024 60.0 1280x960 60.0 1024x768 60.0 800x600 60.3 640x480 59.9 DP-2 disconnected (normal left inverted right x axis y axis) DP-3 disconnected (normal left inverted right x axis y axis) LVDS1 connected 1600x900 60.0 + 40.0 1440x900 59.9 1360x768 59.8 60.0 1152x864 60.0 1024x768 60.0 800x600 60.3 56.2 640x480 59.9 VGA1 connected 1920x1200+0+0 518mm x 324mm 1920x1200 60.0*+ 1920x1080 60.0 1680x1050 60.0 1600x900 60.0 1280x1024 60.0 1440x900 59.9 1280x800 59.8 1280x720 60.0 1024x768 60.0 800x600 60.3 56.2 640x480 60.0 VIRTUAL1 disconnected 1024x768 (0x2ce) 65.0MHz h: width 1024 start 1048 end 1184 total 1344 skew 0 clock 48.4KHz v: height 768 start 771 end 777 total 806 clock 60.0Hz 800x600 (0x2cf) 40.0MHz h: width 800 start 840 end 968 total 1056 skew 0 clock 37.9KHz v: height 600 start 601 end 605 total 628 clock 60.3Hz 640x480 (0x2d0) 25.2MHz h: width 640 start 656 end 752 total 800 skew 0 clock 31.5KHz v: height 480 start 490 end 492 total 525 clock 59.9Hz 1920x1200 (0x2c8) 154.0MHz h: width 1920 start 1968 end 2000 total 2080 skew 0 clock 74.0KHz v: height 1200 start 1203 end 1209 total 1235 clock 60.0Hz 1680x1050 (0x2ca) 146.2MHz h: width 1680 start 1784 end 1960 total 2240 skew 0 clock 65.3KHz v: height 1050 start 1053 end 1059 total 1089 clock 60.0Hz 1280x1024 (0x2cc) 108.0MHz h: width 1280 start 1328 end 1440 total 1688 skew 0 clock 64.0KHz v: height 1024 start 1025 end 1028 total 1066 clock 60.0Hz Cheers, Yuriy

3 9