Automatically close the menu when changing page.

src/App/Page/Navigation.purs

@@ -75,7 +75,10 @@ handleAction :: forall m. MonadAff m => Action -> H.HalogenM State Action () Out
 handleAction = case _ of
   ToggleMenu -> H.modify_ \state -> state { active = not state.active }
   -- | Page change.
-  Navigate page -> H.raise $ Routing page
+  Navigate page -> do
+    -- Automatically close the menu.
+    H.modify_ \state -> state { active = false }
+    H.raise $ Routing page
   UnLog         -> do
     H.raise $ Disconnection
     H.modify_ _ { logged = false }