- xmonad - Haskell.org

New warnings
by Alain Bertrand 24 Jun '24

24 Jun '24

Hi all, I don't know why but suddenly, xmonad decided to recompile itself and I got warnings : Deprecations detected while compiling xmonad config: /home/alain/.xmonad/xmonad.hs $ ghc --make xmonad.hs -i -ilib -fforce-recomp -main-is main -v0 -outputdir /home/alain/.xmonad/build-x86_64-linux -o /home/alain/.xmonad/xmonad-x86_64-linux xmonad.hs:16:1: warning: [-Wtabs] Tab character found here, and in one further location. Suggested fix: Please use spaces instead. | 16 | spawnOn "bg" "feh --bg-tile /usr/share/WindowMaker/Backgrounds/BlueImage.jpeg" | ^^^^^^^^ xmonad.hs:35:30: warning: [-Wdeprecations] In the use of ‘defaultConfig’ (imported from XMonad, but defined in XMonad.Config): Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead." | 35 | , manageHook=manageHook defaultConfig <+> manageDocks | ^^^^^^^^^^^^^ I don't find the tab character, if I delete what appears to me as a space, then type a space, I have another error message. How should I replace "defaultConfig" ? Thanks for your help. Alain import XMonad 1 import XMonad.Hooks.SetWMName 2 import XMonad.Hooks.ManageDocks 3 import qualified Data.Map as M 4 import Graphics.X11.Xlib 5 import XMonad.Config.Azerty 6 import XMonad.Prompt 7 import XMonad.Prompt.Shell 8 import XMonad.Prompt.XMonad 9 import XMonad.Actions.SpawnOn 10 import XMonad.Layout.Spiral 11 import XMonad.Layout.SimplestFloat 12 myStartUpHook :: X () 13 myStartUpHook = do 14 spawnOn "panel" "xfce4-panel" 15 spawnOn "bg" "feh --bg-tile /usr/share/WindowMaker/Backgrounds/BlueImage.jpeg" 16 17 -- spawnOn "clavier" "/home/alain/bin/clavier_conf" 18 -- spawnOn "1" "/usr/bin/firefox" 19 spawnOn "1" "/usr/bin/thunderbird" 20 -- spawnOn "workspace7" "/usr/bin/transmission-gtk" 21 -- spawnOn "akonadi" "akonadictl start" 22 setWMName "LG3D" 23 24 25 --myLayoutHook = avoidStruts ( Full ||| spiral (6/7) ||| Tall 1 0.03 0.5 ||| simplestFloat) 26 27 -- sets default tile as: Tall nmaster (delta) (golden ratio) 28 -- 29 -- 30 main=do 31 xmonad $ docks def 32 { 33 layoutHook = avoidStruts $ (spiral (6/7) ||| layoutHook def ||| simplestFloat ) 34 , manageHook=manageHook defaultConfig <+> manageDocks 35 , modMask = mod4Mask 36 , keys = myKeys <+> keys azertyConfig 37 , startupHook = myStartUpHook 38 } 39 40 41 -- main=do 42 -- xmonad { keys = myKeys <+> keys azertyConfig } 43 -- { 44 -- layoutHook=avoidStruts $ layoutHook defaultConfig 45 -- , manageHook=manageHook defaultConfig <+> manageDocks 46 -- , startupHook = setWMName "LG3D" 47 -- } 48 -- 49 -- 50 myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList 51 [ ((modm, xK_F12), xmonadPrompt def) 52 , ((modm, xK_F3 ), shellPrompt def) 53 ] ~

2 2

Multi-Monitor issues with XMonad.Hooks.DynamicBars and xmobar
by Jan Detke 27 Apr '24

27 Apr '24

Hello all, I bought a new second monitor and got an issue with my dynamic xmobar setup. I use a laptop which is connected to both monitors via a docking station. This is the configuration I want to achieve with independent bars on monitor one and two. Note: when docked I do not want to turn the internal display off, this has to be done in order to save a configuration in autorandr. If anyone has a suggestion to avoid this problem, feel free to share. Configuration of xrandr(autorandr): 1. Undocked Internal display primary output 1. Docked Internal display off First monitor set as primary Second monitor right of first monitor Xmonad Configuration: main :: IO () main = xmonad . ewmh . withUrgencyHook NoUrgencyHook . dynamicEasySBs (pure . barSpawner) . usePrefixArgument "M-u" . rescreenHook def{ afterRescreenHook = onMonitorChange } . spawnExternalProcess def $ myConfig `additionalKeysP` myKeys where barSpawner :: ScreenId -> StatusBarConfig barSpawner = \case 0 -> statusBarPropTo "_XMONAD_LOG_0" "~/.local/bin/xmobar ~/.config/xmobar/xmobar-old/xmobarrc -x 0" (xmobarPP 0) 1 -> statusBarPropTo "_XMONAD_LOG_1" "~/.local/bin/xmobar ~/.config/xmobar/xmobar-old/xmobarrc1 -x 1" (xmobarPP 1) _ -> mempty onMonitorChange :: X () onMonitorChange = do spawn "autorandr --change" Issue: When I plug my laptop into the docking station my rescreenHook gets executed which invokes autorandr to load my specified profiles, which - when docked - applies the rules for my docked configuration shown above. Xmobar spawns on monitor with ID 1 and indicates, that there is also a second monitor displaying a different workspace but somehow there is no xmobar present on the other monitor (ID 0). When I run the command defined in my barSpawner for monitor ID 0, the xmobar is spawned and works perfectly fine. Thanks for your help Jan

2 1

Visual indication of minimized windows
by Eyal Erez 08 Feb '24

08 Feb '24

Hi, I've recently added XMonad.Actions.Minimize/XMonad.Layout.Minimize to my setup and I like it a lot. My only issue is that I would love it if there was some visual queue that the workspace contains minimized windows. Currently, they just disappear and I need to remember where they exist. Is there some way to show that? I'm also using polybar if that helps. Thank you, -- *Eyal Erez <**oneself(a)gmail.com* <oneself(a)gmail.com>*>* There are 10 types of people, those who know binary and those who don't.

3 3

Hide border when switching to full screen
by Eyal Erez 28 Jan '24

28 Jan '24

Hi, Currently, if a window goes into full screen mode (e.g., if I hit "f" while watching a youtube video in Chrome), I would like it to take up the entire screen and also remove the window border. I have tried doing this with the code snippets I've included below (full xmonad.hs <https://pastebin.com/uDqdETiF>). However this only works partially. The window resizes to take up the entire screen, including toggling struts. However, the border does not toggle off. Is there anything I can do differently? Thank you. -- Define a function which toggles borders and also does full float doFullFloatNoBorders :: ManageHook doFullFloatNoBorders = do liftX $ withFocused toggleBorder doFullFloat myManageHook :: [ManageHook] myManageHook = [ isFullscreen --> doFullFloatNoBorders -- more rules ] where role = stringProperty "WM_WINDOW_ROLE" unfloat = ask >>= doF . W.sink myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $ [ -- Toggle borders ((modMask .|. shiftMask, xK_b ), withFocused toggleBorder) -- more key definitions ] -- Main configuration myConfig = ewmhFullscreen $ ewmh def { modMask = mod1Mask , keys = myKeys , manageHook = manageDocks <+> composeAll myManageHook -- more configuration } -- Key binding to toggle the gap for the bar. toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask .|. controlMask, xK_b) main = xmonad =<< statusBar "xmonad" def toggleStrutsKey myConfig -- *Eyal Erez <**oneself(a)gmail.com* <oneself(a)gmail.com>*>* There are 10 types of people, those who know binary and those who don't.

3 4

Failing to start xmonad sometimes
by Eyal Erez 28 Jan '24

28 Jan '24

Hi, I've started encountering a weird problem: roughly one in three times, something will crash when I try to log in, and bounce me back to the login manager (slim in my case). When I look in .xsession-errors, I can see: XIO: fatal IO error 4 (Interrupted system call) on X server ":0.0" after 8690 requests (8690 known processed) with 0 events remaining. XIO: fatal IO error 11 (Resource temporarily unavailable) on X server ":0.0" after 2823 requests (6 known processed) with 0 events remaining. lxpolkit: Fatal IO error 11 (Resource temporarily unavailable) on X server :0.0. X connection to :0.0 broken (explicit kill or server shutdown). X connection to :0.0 broken (explicit kill or server shutdown). X connection to :0.0 broken (explicit kill or server shutdown). But I'm not sure what this means or how to debug further. Here's the full .xsession-errors https://pastebin.com/t3AcV7dC Any help would be appreciated. -- There are 10 types of people, those who know binary and those who don't.

2 2

Weird background appearing around Chrome popup menus.
by Eyal Erez 24 Dec '23

24 Dec '23

Hi, I've started noticing a weird background appearing around Chrome popup menus. Currently on Google Chrome version 120.0.6099.109 (Official Build) (64-bit) xmonad 0.17.1 -- *Eyal Erez <**oneself(a)gmail.com* <oneself(a)gmail.com>*>* There are 10 types of people, those who know binary and those who don't.

3 4

Filter out NSP ?
by Erica 20 Nov '23

20 Nov '23

Hello everyone, I know this is an old overdone question. I've had it working in most spots over the years, But I have it on my workspace gridselect and I'm not sure when it reappeared. I've redone my workspaces and topics and NSP has become annoying. My haskell has gotten rusty and I just can't remember what I need. I have this, using my topic space names. The list is the topic workspaces which actually exist plus any extras. Which includes NSP. I'd like to eliminate the NSP workspace from my list. Here is my code. wsgrid = withWindowSet $ \w -> do let wss = W.workspaces w usednames = map W.tag $ wss newnames = filter (\used -> (show used `notElem` (map show myTopicNames))) usednames gridselect workspaceGsConfig (map (\x -> (x,x)) (myTopicNames ++ newnames)) I think I need to go do some haskell challenges and get my fu back. Thank you for any help. Erica

3 2

contemporary Gnome Flashback panel integration
by Ferenc Wágner 26 Oct '23

26 Oct '23

Hi, I'm using Xmonad in a Gnome Flashback session as distributed with Debian bookworm. There are several internet search hits for showing Xmonad log messages via specialized Gnome panel applets (see below), but they're all like ten years old and require the outdated libpanel-applet-4-dev dependency (or something even older), which isn't available for gnome-panel 3.46 or later. What's the current best practice for showing Xmonad log messages under Gnome? Thanks, Feri. https://www.reddit.com/r/xmonad/comments/ft5e4/making_xmonad_log_to_the_gno… https://github.com/alexkay/xmonad-log-applet/ https://web.archive.org/web/20180821093617/http://uhsure.com/xmonad-log-app… https://wiki.haskell.org/Xmonad/Using_xmonad_in_Gnome https://wiki.haskell.org/Installing_xmonad_log_applet

1 0

Broken Xmonad after updates
by Jan Detke 23 Oct '23

23 Oct '23

Hi, today I moved my xmonad.hs config from $HOME/.xmonad to $HOME/.config/xmonad. After that I was unable to recompile xmonad. I then moved it back into $HOME/.xmonad but the issue was still persistent. It was unable to load the libraries even though I had not changed them at all. After rebooting and updating the system I tried recompiling again with the following result: xmonad --recompile --verbose XMonad is recompiling and replacing itself with another XMonad process because the current process is called "xmonad" but the compiled configuration should be called "xmonad-x86_64-linux" XMonad will use ghc to recompile, because neither "/home/jan/.xmonad/build" nor "/home/jan/.xmonad/stack.yaml" exists. XMonad skipping recompile because it is not forced (e.g. via --recompile), and neither xmonad.hs nor any *.hs / *.lhs / *.hsc files in lib/ have been changed. /home/jan/.xmonad/xmonad-x86_64-linux: error while loading shared libraries: libHSxmonad-contrib-0.17.1-2BxpGTW6opKG3sVOzMilq0-ghc9.0.2.so: cannot open shared object file: No such file or directory So far I have read this issue https://github.com/xmonad/xmonad/issues/301. I am wondering if this is the only option for me here too. I installed Xmonad via pacman. Best regards Jan

2 8

Fwd: [geekosaur/xmonad-contrib] Run failed: Packdeps - master (0e2d3c1)
by Brandon Allbery 04 Oct '23

04 Oct '23

Anyone know what this is about? I get it weekly, presumably because I forked the xmonad-contrib repo. ---------- Forwarded message --------- From: brandon s allbery kf8nh <notifications(a)github.com> Date: Fri, Sep 15, 2023 at 11:14 PM Subject: [geekosaur/xmonad-contrib] Run failed: Packdeps - master (0e2d3c1) To: geekosaur/xmonad-contrib <xmonad-contrib(a)noreply.github.com> Cc: Ci activity <ci_activity(a)noreply.github.com> [image: GitHub] [geekosaur/xmonad-contrib] Packdeps workflow run Packdeps: Some jobs were not successful View workflow run <https://github.com/geekosaur/xmonad-contrib/actions/runs/6204953495> [image: workflow-keepalive] *Packdeps* / workflow-keepalive Succeeded in 2 seconds [image: Packdeps] *Packdeps* / Packdeps Failed in 3 minutes and 1 second [image: annotations for Packdeps / Packdeps] 2 <https://github.com/geekosaur/xmonad-contrib/actions/runs/6204953495> — You are receiving this because you are subscribed to this thread. Manage your GitHub Actions notifications <https://github.com/settings/notifications> GitHub, Inc. ・88 Colin P Kelly Jr Street ・San Francisco, CA 94107 -- brandon s allbery kf8nh allbery.b(a)gmail.com

4 10