> display the last used workspace screen.

I have this problem on new installations, until I remember I forgot to install `feh`. What

Also, I share the same shame :) 


On Sun, Oct 3, 2021, 14:33 Platon Pronko <platon7pronko@gmail.com> 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
_______________________________________________
xmonad mailing list
xmonad@haskell.org
http://mail.haskell.org/cgi-bin/mailman/listinfo/xmonad