basicDesktopSetupCommands :: X ()
basicDesktopSetupCommands = composeAll $ map spawn [ "wmname LG3D"
                                                   , "xsetroot -cursor_name left_ptr"
                                                   , "setxkbmap -layoubt gb"
                                                   , "xmodmap ~/.Xmodmap"
                                                   ]
basicDesktopSetupCommands :: X ()
basicDesktopSetupCommands = composeAll $ map spawn [ "wmname LG3D"
                                                   , "xsetroot -cursor_name left_ptr"
                                                   , "setxkbmap -layoubt gb"
                                                   , "xmodmap ~/.Xmodmap"
                                                   ]
basicDesktopSetupCommands = composeAll $ map spawn [ "wmname LG3D"
                                                   , "xsetroot -cursor_name left_ptr"
                                                   , "setxkbmap -layoubt gb"
                                                   , "xmodmap ~/.Xmodmap"
                                                   ]