X.A.Navigation2D: Add sideNavigation as to default tiled navigation

Add sideNavigation as a fallback if needed.  This should not have any
user-facing behaviour change when not using gaps or spacing, as line
navigation is preferred.  However, users who do use spacing or gaps
should now potentially not have to change the default strategy in order
to have a usable module.

CHANGES.md

@@ -84,6 +84,12 @@
   - Added `setupInsertPosition` as a combinator alternative to
     `insertPosition`.
 
+* `XMonad.Actions.Navigation2D`
+
+  - Added `sideNavigation` as a fallback to the default tiling strategy,
+    in case `lineNavigation` can't find a window.  This benefits
+    especially users who use `XMonad.Layout.Spacing`.
+
 ### Other changes
 
 ## 0.17.1 (September 3, 2022)

XMonad/Actions/Navigation2D.hs

@@ -98,8 +98,9 @@ import XMonad.Util.Types
 -- >               $ def
 --
 -- /NOTE/: the @def@ argument to 'navigation2D' contains the strategy
--- that decides which windows actually get selected.  If you use modules
+-- that decides which windows actually get selected.  While the default
--- that influence tiling in some way, like "XMonad.Layout.Spacing" or
+-- behaviour tries to keep them into account, if you use modules that
+-- influence tiling in some way, like "XMonad.Layout.Spacing" or
 -- "XMonad.Layout.Gaps", you should think about using a different
 -- strategy, if you find the default behaviour to be unnatural.  Check
 -- out the [finer points](#g:Finer_Points) below for more information.
@@ -463,7 +464,7 @@ withNavigation2DConfig conf2d xconf = xconf { startupHook  = startupHook xconf
                                             }
 
 instance Default Navigation2DConfig where
-    def                   = Navigation2DConfig { defaultTiledNavigation = lineNavigation
+    def                   = Navigation2DConfig { defaultTiledNavigation = hybridOf lineNavigation sideNavigation
                                                , floatNavigation        = centerNavigation
                                                , screenNavigation       = lineNavigation
                                                , layoutNavigation       = []