Unify config files, add capability to remember window position

src/Dodge/Event.hs

@@ -42,6 +42,7 @@ handleEvent e = case eventPayload e of
     MouseButtonEvent mbev       -> handleMouseButtonEvent mbev
     MouseWheelEvent mwev        -> handleMouseWheelEvent mwev
     WindowSizeChangedEvent sev  -> handleResizeEvent sev
+    WindowMovedEvent mev        -> handleWindowMoveEvent mev
     _                           -> Just
 
 handleMouseMotionEvent :: MouseMotionEventData -> World -> Maybe World
@@ -58,6 +59,14 @@ handleMouseButtonEvent mbev w = case mouseButtonEventMotion mbev of
   where 
     but = mouseButtonEventButton mbev
 
+{- | Sets window position in config.  -}
+handleWindowMoveEvent :: WindowMovedEventData -> World -> Maybe World
+handleWindowMoveEvent mev w = Just $ w 
+    & config . windowPosX .~ fromIntegral x
+    & config . windowPosY .~ fromIntegral y
+  where
+    P (V2 x y) = windowMovedEventPosition mev
+
 {- | Resets the world window size, and resizes the fbo that gets the light map drawn into it.  -}
 handleResizeEvent :: WindowSizeChangedEventData -> World -> Maybe World
 handleResizeEvent sev w = Just