[xmonad] xmonad.hs to update

[Platon Pronko]

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 at haskell.org
>>> http://mail.haskell.org/cgi-bin/mailman/listinfo/xmonad
> 
>