new product name and trashy-patch for the player due to elm/url#10

dat.json

@@ -1,4 +1,4 @@
 {
-  "title": "Elmsfeuer",
+  "title": "Elmsfeuer, Radiant",
   "description": "Generative Art from JetBrains"
-}
+}

index.js

@@ -98,6 +98,7 @@ const exportZip_ = (app, exportedState) => {
     JSZipUtils.getBinaryContent(
         './player.bundle.js', (err, playerBundle) => {
         if (err) { throw err; }
+        console.log(playerBundle);
 
         JSZipUtils.getBinaryContent(
             './index.player.html',

player.webpack.config.js

@@ -1,5 +1,7 @@
 const path = require('path');
 
+const ReplaceInFileWebpackPlugin = require('replace-in-file-webpack-plugin');
+
 const config = {
 
     // mode: 'development',
@@ -19,7 +21,8 @@ const config = {
           test:    /\.elm$/,
           exclude: [ /elm-stuff/, /node_modules/, /build/ ],
           use: {
-            loader: "elm-webpack-loader?verbose=true,optimize=true"
+            // loader: "elm-webpack-loader?optimize=true"
+            loader: "elm-webpack-loader"
           }
         },
         {
@@ -31,7 +34,23 @@ const config = {
 
     resolve: {
         extensions: ['.js']
-    }
+    },
+
+    plugins: [
+      new ReplaceInFileWebpackPlugin([{
+          files: ['player.bundle.js'],
+          rules: [
+            {
+              search: /var e=n\.fragment/,
+              replace: 'var e=n?n.fragment:{}'
+            },
+            {
+              search: 'case 1:throw new Error("Browser.application programs cannot handle URLs like this:\\n\\n    "+document.location.href+"\\n\\nWhat is the root? The root of your file system? Try looking at this program with `elm reactor` or some other server.");case 2:',
+              replace: 'case 2:'
+            }
+          ]
+      }])
+  ]
 
 };
 

src/Main.elm

@@ -77,22 +77,22 @@ init flags url _ =
 
 initialLayers : UiMode -> List ( LayerKind, String, LayerModel )
 initialLayers mode =
-    -- [ ( Fss, "Lower Layer", FssModel FSS.init )
-    -- , ( Fss, "Mid Layer", FssModel FSS.init )
-    -- , ( Fss, "Top layer"
-    --   , let
-    --         fssModel = FSS.init
-    --     in
-    --         { fssModel
-    --         | renderMode = FSS.PartialLines
-    --         , shareMesh = True
-    --         } |> FssModel
-    --   )
-    -- , ( Cover, "Cover", NoModel )
-    -- , ( Vignette, Vignette.init )
-    [ ( Metaballs, "Metaballs", MetaballsModel Metaballs.init )
-    -- , ( Fluid, "Fluid", FluidModel Fluid.init )
+    [ ( Fss, "Lower Layer", FssModel FSS.init )
+    , ( Fss, "Mid Layer", FssModel FSS.init )
+    , ( Fss, "Top layer"
+      , let
+            fssModel = FSS.init
+        in
+            { fssModel
+            | renderMode = FSS.PartialLines
+            , shareMesh = True
+            } |> FssModel
+      )
+    , ( Cover, "Cover", NoModel )
     ]
+    -- [ ( Metaballs, "Metaballs", MetaballsModel Metaballs.init )
+    -- [ ( Fluid, "Fluid", FluidModel Fluid.init )
+    -- ]
     |> List.filter (\(kind, _, _) ->
         case ( kind, mode ) of
             ( Cover, Ads ) -> False
@@ -225,10 +225,10 @@ update msg model =
             )
 
         BackToNow ->
-            ( { model 
+            ( { model
               | timeShift = 0.0
               , now = model.now + model.timeShift
-              , paused = True 
+              , paused = True
               }
             , Cmd.none
             )
@@ -1077,10 +1077,10 @@ view model =
         ( w, h ) =
                 getRuleSize model.size |> Maybe.withDefault ( -1, -1 )
         visible = w > 0 && h > 0
-        wrapHtml = 
-            div 
+        wrapHtml =
+            div
                 [ H.class "html-layers layers"
-                , Events.onClick TriggerPause 
+                , Events.onClick TriggerPause
                 ]
         wrapEntities =
             WebGL.toHtmlWith
@@ -1139,7 +1139,7 @@ view model =
 
 document : Model -> Browser.Document Msg
 document model =
-    { title = "Elmsfeuer"
+    { title = "Elmsfeuer, Radiant"
     , body = [ view model ]
     }
 

src/Navigation.elm

@@ -49,7 +49,7 @@ applyFragment fragment model =
 
 fragmentToMessage : Fragment -> Msg
 fragmentToMessage fragment =
-    case decodeFragment fragment of
+    Debug.log "fragmentToMessage" <| case decodeFragment fragment of
         ModeAndSizeRule mode rule -> ChangeModeAndResize mode rule
         SizeRule rule -> Resize rule
         Mode mode -> ChangeMode mode