Hi! Congratulations! I don't use spiral layout, but something like this should probably work: -- add to imports import XMonad.Layout.Spiral -- replace layoutHook in main layoutHook = avoidStruts $ spiral (6/7) Best regards, Platon Pronko On 2021-10-04 09:36, Alain Bertrand wrote:

Hi thanks for you answer,

Xmonad does compile and run. Moreover, I have understood that the cross shaped cursor is displayed when I am on an empty workspace or on xfce4-panel window (I can bear it).

I have fixed the empty workspace problem with spawnOn "bg" "feh --bg-tile /usr/share/WindowMaker/Backgrounds/BlueImage.jpeg". Thanks Gauthier.

the only thing that I still need is how to use the spiral layout.

Thanks in advance, and have a good day,

Alain On 03/10/2021 14:33, Platon Pronko wrote:

...

Hi!

Does it still compile sucessfully? (check with `xmonad --recompile`) Does it start at all? (check with `ps -ef | grep xmonad`)

Your description sounds like window manager failed to start completely.

Best regards, Platon Pronko

On 2021-10-02 11:15, Alain Bertrand wrote:

...

Hi,

On Debian 11, the following xmonad.hs seems not to work anymore.

Cursor is changed to a cross and empty workspaces display the last used workspace screen.

Moreover, I would like to add the spiral layout which seems to be so great. I feel a little bit ashamed that after all these years using Xmonad, I still can't configure it by myself but in fact it breaks so rarely that there is no point in tinkering with it.

Thanks in advance.

Alain

import XMonad   import XMonad.Hooks.SetWMName   import XMonad.Hooks.ManageDocks   import qualified Data.Map as M   import Graphics.X11.Xlib   import XMonad.Config.Azerty   import XMonad.Prompt   import XMonad.Prompt.Shell   import XMonad.Prompt.XMonad   import XMonad.Actions.SpawnOn

  myStartUpHook :: X ()   myStartUpHook = do          spawnOn "panel" "xfce4-panel"          spawnOn "clavier" "/home/alain/bin/clavier_conf"          spawnOn "1" "/usr/bin/firefox"          spawnOn "1" "/usr/bin/thunderbird"          setWMName "LG3D"

  main=do     xmonad  $ docks def       {       layoutHook=avoidStruts $ layoutHook defaultConfig       , manageHook=manageHook defaultConfig <+> manageDocks       , modMask = mod4Mask       , keys = myKeys <+> keys azertyConfig       , startupHook = myStartUpHook       }

-- main=do -- xmonad { keys = myKeys <+> keys azertyConfig } --     { --     layoutHook=avoidStruts $ layoutHook defaultConfig --     , manageHook=manageHook defaultConfig <+> manageDocks --     , startupHook = setWMName "LG3D" --     } -- --   myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList               [ ((modm, xK_F12), xmonadPrompt defaultXPConfig)               , ((modm, xK_F3 ), shellPrompt  defaultXPConfig)               ]

_______________________________________________ xmonad mailing list xmonad@haskell.org http://mail.haskell.org/cgi-bin/mailman/listinfo/xmonad