Put overlay stuff into a single file.

Former-commit-id: 0a83201
bryanedds · Apr 5, 2015 · f769e9d · f769e9d
1 parent 9fa57ac
commit f769e9d
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 27 deletions.
diff --git a/Nu/Nu/Nu/Nu.fsproj b/Nu/Nu/Nu/Nu.fsproj
@@ -66,8 +66,7 @@
     <Compile Include="Constants.fs" />
     <Compile Include="Address.fs" />
     <Compile Include="Math.fs" />
-    <Compile Include="Overlayer.fs" />
-    <Compile Include="OverlayRouter.fs" />
+    <Compile Include="Overlay.fs" />
     <Compile Include="Reflection.fs" />
     <Compile Include="Camera.fs" />
     <Compile Include="Assets.fs" />

diff --git a/Nu/Nu/Nu/Overlayer.fs → Nu/Nu/Nu/Overlay.fs b/Nu/Nu/Nu/Overlayer.fs → Nu/Nu/Nu/Overlay.fs
@@ -198,4 +198,24 @@ module Overlayer =
             ignore <| overlays.DocumentElement.AppendChild imported
 
         // make overlay
-        { Overlays = overlays }
+        { Overlays = overlays }
+
+[<AutoOpen>]
+module OverlayRouterModule =
+
+    /// Maps from dispatcher names to opt overlay names.
+    type OverlayRouter = Map<string, string option>
+
+[<RequireQualifiedAccess>]
+module OverlayRouter =
+
+    /// Make an OverlayRouter.
+    let make dispatchers userRoutes =
+        let router = 
+            Map.fold
+                (fun overlayRouter _ dispatcher ->
+                    let dispatcherName = (dispatcher.GetType ()).Name
+                    Map.add dispatcherName (Some dispatcherName) overlayRouter)
+                Map.empty
+                dispatchers
+        Map.addMany userRoutes router
diff --git a/Nu/Nu/Nu/OverlayRouter.fs b/Nu/Nu/Nu/OverlayRouter.fs