[xmonad] xmonad.hs to update

[Alain Bertrand]

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)
              ]