- xmonad - Haskell.org

Re: [xmonad] xmobar dynamic spacing
by Eyal Erez 24 Mar '23

24 Mar '23

Spam detection software, running on the system "mail.haskell.org", has identified this incoming email as possible spam. The original message has been attached to this so you can view it (if it isn't spam) or label similar future email. If you have any questions, see @@CONTACT_ADDRESS@@ for details. Content preview: Any advice would be greatly appreciated. Also, are there any recommended alternatives to xmobar? On Mon, Mar 13, 2023 at 7:40â¯PM Eyal Erez wrote: > Hi, > > I hope that this is the right place to ask. If not, please let me know. > > I use xmonad with xmobar and trayer. Trayer is set in the upper right > corner, and xmobar fills the remainder of the top of the screen. I have > several right-aligned widgets, including date/time, CPU, memory, network, > etc., and two left-aligned widgets, which are the active workspace name and > the name of the active window. Currently, I set the name of the active > window to "shorten 200" in my xmonad.hs file. However, I use several > monitors with varying screen sizes, so it is challenging to set an > absolute value. When the screen is narrow, and the window title is long, it > pushes some widgets out of the right side of xmobar. I would like the > window title to take up as much space as possible but leave the other > right-aligned widgets where they are. Is there any way to do that? > > Short window title > [image: image.png] > > Long window title > [image: image.png] > > -- > There are 10 types of people, those who know binary and those who don't. > > [...] Content analysis details: (5.1 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.0 FREEMAIL_FROM Sender email is commonly abused enduser mail provider (oneself[at]gmail.com) -0.0 SPF_PASS SPF: sender matches SPF record 1.4 HTML_IMAGE_ONLY_28 BODY: HTML: images with 2400-2800 bytes of words 0.0 HTML_MESSAGE BODY: HTML included in message 1.0 HTML_FONT_FACE_BAD BODY: HTML font face is not a word 0.8 BAYES_50 BODY: Bayes spam probability is 40 to 60% [score: 0.5000] 0.0 T_DKIM_INVALID DKIM-Signature header exists but is not valid 1.9 FREEMAIL_REPLY From and body contain different freemails The original message was not completely plain text, and may be unsafe to open with some email clients; in particular, it may contain a virus, or confirm that your address can receive spam. If you wish to view it, it may be safer to save it to a file and open it with an editor.

3 2

Resize NamedScratchpad with respect to screen size
by Alexander Iliev 14 Mar '23

14 Mar '23

Hi all, I have several NamedScratchpads defined in my XMonad configuration, and so far I've been using a manage hook like: customFloating $ W.RationalRect (1/2) (1/8) (1/2) (3/4) This made sense while I had monitors with similar resolution. I recently got a new monitor and now my two monitors have vastly different resolutions - one is 1920x1080, the other one is 3840x1600. So here's my issue - the RationalRect above doesn't make sense for both monitors. It still works fine on the smaller one, on the larger however it results in ridiculously a wide window. My question is - can I resize the scratchpad window I'm pulling into the current workspace with respect to the size of the screen that this workspace is displayed on? Thank you! Kind regards, -- alexander iliev

3 4

xmobar dynamic spacing
by Eyal Erez 13 Mar '23

13 Mar '23

Hi, I hope that this is the right place to ask. If not, please let me know. I use xmonad with xmobar and trayer. Trayer is set in the upper right corner, and xmobar fills the remainder of the top of the screen. I have several right-aligned widgets, including date/time, CPU, memory, network, etc., and two left-aligned widgets, which are the active workspace name and the name of the active window. Currently, I set the name of the active window to "shorten 200" in my xmonad.hs file. However, I use several monitors with varying screen sizes, so it is challenging to set an absolute value. When the screen is narrow, and the window title is long, it pushes some widgets out of the right side of xmobar. I would like the window title to take up as much space as possible but leave the other right-aligned widgets where they are. Is there any way to do that? Short window title [image: image.png] Long window title [image: image.png] -- There are 10 types of people, those who know binary and those who don't.

1 0

Disappearing windows
by Adam Cooper 24 Jan '23

24 Jan '23

>From time to time, windows disappear from my xmonad. The usual circumstance is that I'm working in fullscreen layout for a time, and when I try to switch layouts or switch windows, I am unable to. But the layouts or window titles I'm going for are visible in the xmobar. I've looked for solutions but with no luck. Here's a link to a short video of the issue manifesting: https://imgur.com/a/1weOoGa Anyone have any ideas about this? Thank you, Adam Cooper

2 2

Compile error
by Alain Bertrand 21 Nov '22

21 Nov '22

Hi all, I am on a Debian sid system. when I installed it, xmonad packages were not installable so I compiled it myself. At a time, it became available, I installed the package. A few days ago, I noticed that xmonad would not recompile anymore. I removed all the stuff I had compiled by myself, but still, it doesn't compile. ----------- xmonad --recompile XMonad will use ghc to recompile, because neither "/home/alain/.config/xmonad/build" nor "/home/alain/.config/xmonad/stack.yaml" exis ts. XMonad recompiling (forced). Errors detected while compiling xmonad config: /home/alain/.config/xmonad/xmonad.hs $ ghc --make xmonad.hs -i -ilib -fforce-recomp -main-is main -v0 -outputdir /home/alain/.cache/xmonad/build-x86_64-linux -o /home/ala in/.cache/xmonad/xmonad-x86_64-linux ghc: can't find a package database at /home/alain/.cabal/store/ghc-9.0.2/package.db Please check the file for errors. --------- Thanks for your help. Alain

3 3

Scratchpads broken after upgrade.
by Eric.a 24 Oct '22

24 Oct '22

Thank you so much! I appreciate the explanation. Everything is working well now. I should go ahead and clean up my code a bit while I'm there. It looks like there is new stuff to explore as well. And apparently some email tweaks are in order. Thanks, Eric

1 0

scratchpads broken after upgrade.
by Eric.a 22 Oct '22

22 Oct '22

I am on Arch Linux, so there's that. I had avoided upgrading for a couple of months. Until yesterday morning. I'm on ghc 9.02 and xmonad 17.1. I had to wade through numerous problems and errors, Arch as well as xmonad deprecations. Nothing to do with scratchpads. I am passing my scratchpads to all scratchpad Actions, I have a scratchToggle function to do that, which according to the doc, should continue to work even with the breaking changes to namedScratchpads. I do have multiple ways to invoke them. I have a submap keymap, grid select, and few direct keys in the main keymap. None of them work. None of the named scratchpads work, nor does the old unnamed scratchpad terminal. I've ripped out my code and replaced it with the example with no success. I've tested examples with xterm, uxrvt and termite. I am now mostly back to my original scratchpad code. Which silently does nothing, Named or otherwise. I must be missing something very simple. Any clues would be appreciated, my haskell is a bit rusty but coming back a little at a time. Here's my relevant code chunks. Also available on my github. Itś a rather large config. https://github.com/EricGebhart/xmonad-setup/blob/master/.xmonad/xmonad.hs I suspect my manage hooks, but it just doesn´t make sense to me. Everything is a bit simpler with the new docks and ewmh stuff, I realize I could simplify it some more. But I hate to mess with it too much, when it all looks good and it's been this way for years now. Any help is much appreciated. Thank you, Eric ```haskell ---------------------------------------------------------------------------- -- Scratch Pads ------------------------------------------------------------ -- location and dimension. scratchpadSize = W.RationalRect (1/4) (1/4) (1/3) (3/7) mySPFloat = customFloating scratchpadSize -- with a flexible location. -- Big BSP, Small SSP, Super small, -- so size is width and height. - change the fractions to get your sizes right. flexScratchpadSize dx dy = W.RationalRect (dx) (dy) (1/2) (5/7) flexSScratchpadSize dx dy = W.RationalRect (dx) (dy) (3/5) (5/8) flexSSScratchpadSize dx dy = W.RationalRect (dx) (dy) (1/2) (1/2) -- pass in a fraction to determine your x,y location. size is derived from that -- all based on screen size. flexFloatSSP dx dy = customFloating (flexSScratchpadSize dx dy) flexFloatSSSP dx dy = customFloating (flexSSScratchpadSize dx dy) flexFloatBSP dx dy = customFloating (flexScratchpadSize dx dy) scratchpads = [ NS "conky" spawnConky findConky manageConky , NS "htop" "xterm -e htop" (title =? "htop") defaultFloating -- from the example in the doc , NS "pavuControl" spawnPavu findPavu managePavu , NS "term" (myTerminal2 ++ " -t term") (title =? "term") (flexFloatBSP (1/20) (1/20)) , NS "term1" (myTerminal2 ++ " -t term1") (title =? "term1") (flexFloatBSP (2/20) (2/20)) , NS "term2" (myTerminal2 ++ " -t term2") (title =? "term2") (flexFloatBSP (3/20) (3/20)) , NS "term3" (myTerminal2 ++ " -t term3") (title =? "term3") (flexFloatBSP (4/20) (4/20)) , NS "term4" (myTerminal2 ++ " -t term4") (title =? "term4") (flexFloatBSP (6/20) (4/20)) , NS "ghci" (myTerminal2 ++ " -e ghci") (title =? "ghci") (flexFloatBSP (6/20) (1/10)) --, NS "sync" (myTerminal ++ " -e sy") (title =? "sy") (flexFloatSP (1/10) (2/3)) , NS "top" (myTerminal2 ++ " -e htop") (title =? "htop") (flexFloatSSP (1/4) (1/4)) , NS "calc" (myTerminal2 ++ " -e bcl -t bc") (title =? "bc") (flexFloatSSSP (1/4) (1/4)) , NS "alsaMixer" (myTerminal2 ++ " -e alsamixer -t alsamixer") (title =? "alsamixer") (flexFloatSSSP (1/4) (1/4)) ] where spawnConky = "conky -c ~/.config/conky/Erics.conkyrc" -- launch Conky findConky = title =? "system_conky" -- its window, has a own_window_title of "system_conky" manageConky = (flexFloatSSP (1/4) (1/4)) spawnPavu = "pavucontrol" findPavu = title =? "pavucontrol" managePavu = (flexFloatSSP (1/4) (1/4)) -- Scratchpad invocation / Dismissal -- Warp bringMouse = warpToWindow (9/10) (9/10) scratchToggle a = namedScratchpadAction scratchpads a >> bringMouse manageScratchPad :: ManageHook manageScratchPad = scratchpadManageHook (W.RationalRect l t w h) where h = 0.6 w = 0.5 t = 1 - h l = 1 - w myScratchpadManageHook = manageScratchPad <+> namedScratchpadManageHook scratchpads myManageHelpers = composeAll . concat $ [ [ className =? c --> doFloat | c <- classFloats] , [ title =? t --> doFloat | t <- titleFloats] , [ resource =? r --> doFloat | r <- resourceFloats] , [ title =? c --> doIgnore | c <- titleIgnores] , [(className =? "Firefox" <&&> resource =? "Dialog") --> doFloat] ] where classFloats = ["Galculator", "Steam", "Media_Center_30", "YACReaderLibrary", "MPlayer", "Gimp", "Gajim.py", "Xmessage"] titleFloats = ["Volume Control", "alsamixer", "Onboard"] resourceFloats = ["desktop_window", "Dialog", "gpicview"] titleIgnores = ["stalonetray", "xfce4-notifyd"] myManageHook = myManageHelpers <+> myScratchpadManageHook --- keymaps ... -- Scratchpads , ("M4-e", toSubmap c "namedScratchpadsKeymap" namedScratchpadsKeymap) -- Scratchpad , ("M4-n", scratchpadSpawnActionTerminal "urxvt") -- Urxvt Scratchpad , ("M4-S-n", namedScratchpadAction scratchpads "term1") -- Term1 Scratchpad , ("M4-S-e", namedScratchpadAction scratchpads "htop") -- htop example Scratchpad -- manage hooks / def myConfig = do dbus <- D.connectSession getWellKnownName dbus return $ defaults { logHook = do -- dynamicLogWithPP $ (prettyPrinter dbus) dynamicLogWithPP $ (myPPPolybar dbus) fadeinactive , manageHook = myManageHook , layoutHook = layoutHook defaults , startupHook = do myStartupHook -- >> setWMName "LG3D" } -- docks :: XConfig myConfig -> XConfig myConfig ------------------------------------------------------------------------ -- Combine it all together -- A structure containing your confiuration settings, overriding -- fields in the default config. Any you don't override, will -- use the defaults defined in xmonad/XMonad/Config.hs -- -- No need to modify this. -- -- defaultConfig defaults = def { -- simple stuff terminal = myTerminal, focusFollowsMouse = myFocusFollowsMouse, borderWidth = myBorderWidth, modMask = myModMask, workspaces = myTopicNames, -- MyWorkspaces normalBorderColor = myNormalBorderColor, focusedBorderColor = myFocusedBorderColor, -- key bindings keys = mainKeymap, mouseBindings = myMouseBindings, -- hooks, layouts layoutHook = myLayout, -- smartBorders $ myLayout, manageHook = myManageHook, startupHook = myStartupHook } -- `additionalKeysP` myadditionalKeys main :: IO () main = xmonad . ewmh . docks =<< myConfig ```

4 3

workspaces conditional on host name
by Ramon Diaz-Uriarte 21 Sep '22

21 Sep '22

Dear All, I use XMonad on different machines. The configuration is identical, except for the default workspaces, so I'd like to have the config file set the default workspaces automagically. Haskell ignorant here, but googling around I think I am almost there. These are, I think, the relevant pieces myWorkspaces = map show[1..7] myWorkspacesPhelsuma = map show[1..3] ++ ["top", "sync", "zot", "whats"] myWorkspacesTriturus = map show[1..2] ++ ["top", "sync"] main :: IO () main = do hostname <- io (getEnv "HOSTNAME") let myWorkspaces = case hostname of "Phelsuma" -> myWorkspacesPhelsuma "Triturus" -> myWorkspacesTriturus _ -> myWorkspaces xmonad $ ewmh $ dynamicProjects myProjects $ withNavigation2DConfig def $ docks $ withEasySB (statusBarProp "xmobar ~/.xmonad/.xmobarrc" (pure myXmobarPP)) defToggleStrutsKey $ myConfig myConfig = def { --- blablabla workspaces = myWorkspaces } However, I keep getting an error: • Couldn't match expected type ‘Maybe String’ with actual type ‘[Char]’ • In the pattern: "Phelsuma" In a case alternative: "Phelsuma" -> myWorkspacesPhelsuma In the expression: case hostname of "Phelsuma" -> myWorkspacesPhelsuma "Triturus" -> myWorkspacesTriturus _ -> myWorkspaces | 882 | "Phelsuma" -> myWorkspacesPhelsuma | ^^^^^^^^^^ (and the same error for the second entry, "Triturus") This I think should be fairly easy to fix, but I can't find how. I tried writing the case section as let myWorkspaces = case hostname of Just "Phelsuma" -> myWorkspacesPhelsuma Just "Triturus" -> myWorkspacesTriturus _ -> myWorkspaces and that does not give me an error, but it seems to ignore the actual hostname and uses the "default" one (the one with workspaces 1 to 7). So I think I am using "Just" incorrectly and possibly also misunderstanding how "let" works in main. Any suggestions? Thanks, -- Ramon Diaz-Uriarte Department of Biochemistry, Lab B-31 Facultad de Medicina Universidad Autónoma de Madrid Arzobispo Morcillo, 4 28029 Madrid Spain Phone: +34-91-497-2412 Email: rdiaz02(a)gmail.com r.diaz(a)uam.es https://ligarto.org/rdiaz

3 11

xmonad and xmonad-contrib 0.17.1 are available
by Tony Zorman 03 Sep '22

03 Sep '22

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ XMONAD AND XMONAD-CONTRIB 0.17.1 ARE AVAILABLE ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ New versions of xmonad and xmonad-contrib have been released. Check out our [download page] for instructions on where to get them. About 10 months after the big release of 0.17.0, we—as promised—picked up the pace a bit and are back with a new minor version; don't let that fool you though, this one still packs a punch! Plus, we now sport a brand-new [logo], courtesy of [Hans Heintze]. As this is a minor release, we tried to keep the breaking changes to a minimum (xmonad core does not have a single one!) However, some were unavoidable for `xmonad-contrib', so be sure to at least glance at the [release notes]! For help getting started—or more info—see [our website] and [talk to us]! If you like what we do, you can support us on [Open Collective] or via [GitHub Sponsors]. Thanks! [GitHub Sponsors] <https://github.com/sponsors/xmonad> [Hans Heintze] <https://github.com/literallyunplayable> [Open Collective] <https://opencollective.com/xmonad> [download page] <https://xmonad.org/download.html> [logo] <https://xmonad.org/images/logo.svg> [our website] <https://xmonad.org/> [release notes] See section 2 [talk to us] <https://xmonad.org/community.html> 1 xmonad 0.17.1 ═══════════════ This release includes 32 non-merge commits by 6 contributors! For a full summary of all the changes, see [xmonad's CHANGES.md] file. [xmonad's CHANGES.md] <https://github.com/xmonad/xmonad/blob/v0.17.1/CHANGES.md> 1.1 Enhancements ──────────────── • Added custom cursor shapes for resizing and moving windows. 1.2 Bug Fixes ───────────── • Change the main loop to try to avoid [GHC bug 21708] on systems running GHC 9.2 up to version 9.2.3. The issue has been fixed in [GHC 9.2.4] and all later releases. • Fixed border color of windows with alpha channel. Now all windows have the same opaque border color. [GHC bug 21708] <https://gitlab.haskell.org/ghc/ghc/-/issues/21708> [GHC 9.2.4] <https://discourse.haskell.org/t/ghc-9-2-4-released/4851> 2 xmonad-contrib 0.17.1 ═══════════════════════ This release includes 212 non-merge commits by 32 contributors! For a full summary of all the changes, see [xmonad-contrib's CHANGES.md] file. [xmonad-contrib's CHANGES.md] <https://github.com/xmonad/xmonad-contrib/blob/v0.17.1/CHANGES.md> 2.1 Breaking Changes ──────────────────── • `XMonad.Config.{Arossato,Dmwit,Droundy,Monad,Prime,Saegesser,Sjanssen}': deprecated all of these modules. The user-specific configuration modules may still be found [on the website]. • `XMonad.Util.NamedScratchpad': scratchpads are now only based on the argument given to `namedScratchpadManageHook'; all other scratchpad arguments are, while still present, ignored. Users passing all of their scratchpads to functions like `namedScratchpadAction' (as is shown in the module's documentation) should /not/ notice any difference in behaviour. • `XMonad.Util.DynamicScratchpads': deprecated the module; use the new dynamic scratchpad functionality of `XMonad.Util.NamedScratchpad' instead. • `XMonad.Hooks.UrgencyHook': deprecated `urgencyConfig'; use `def' from the new `Default' instance of `UrgencyConfig' instead. [on the website] <https://xmonad.org/configurations.html> 2.2 New Modules ─────────────── • `XMonad.Hooks.Modal': a module implementing modal keybindings for XMonad. • `XMonad.Layout.SideBorderDecoration': this module allows for having a configurable border position around windows; i.e., it can move the border to either cardinal direction. • `XMonad.Actions.PerLayoutKeys': a new module for customising keybindings on a per-layout basis. • `XMonad.Actions.RepeatAction': a module for adding a keybinding to repeat the last action, similar to Vim's `.' or Emacs's `dot-mode'. 2.3 Bug Fixes and Minor Changes ─────────────────────────────── • `XMonad.Prompt' and `XMonad.Actions.TreeSelect': added xft-based font fallback support. This may be used by appending other fonts to the given string: `xft:iosevka-11,FontAwesome-9'. Note that this requires `xmonad-contrib' to be compiled with `X11-xft' version 0.3.4 or higher. • `XMonad.Util.Run': added an EDSL—particularly geared towards programs like terminals or Emacs—to spawn processes from XMonad in a compositional way. • `XMonad.Util.Hacks': added `trayerPaddingXmobarEventHook' (plus generic variants for other trays/panels) to communicate trayer resize events to xmobar so that padding space may be reserved on xmobar for the tray. Requires `xmobar' version 0.40 or higher. • `XMonad.Prompt.OrgMode': added the ability to specify alphabetic (`#A', `#B', and `#C') [priorities] at the end of the input note. • `XMonad.Actions.Submap': added `visualSubmap' to visualise the available keys and their actions when inside a submap. • `XMonad.Util.NamedScratchpad': added support for dynamic scratchpads in the form of `dynamicNSPAction' and `toggleDynamicNSP'. • `XMonad.Hooks.WindowSwallowing': fixed windows getting lost when used in conjunction with `smartBorders' and a single window. [priorities] <https://orgmode.org/manual/Priorities.html> -- Tony Zorman | https://tony-zorman.com/

1 0

Workspace selector font size
by Jacek Generowicz 25 Aug '22

25 Aug '22

Hi, [ My xmonad config is *extremely* idiosyncratic, and I haven't touched it for literally years. So I'm struggling to track down the documentation which might be relevant to my problem: I don't remember the XMonad ecosystem terminology, and my configuration looks nothing like the standard ones. All this to say that the way I choose to state my question might sound a bit odd. I hope it makes sense. ] My workspase switching key opens a grey bar at the bottom of the screen. Since switching to 0.17, the fonts on this have become enormous and the virtual screen names (of which I have many) don't fit in the bar any more. Can you give me any pointers on where this font (or the appearance of this bar in general) might be configured?

4 8