iframe test (#110)

Author: rob-sokolowski

.cloudbuild/deploy-to-cloud-run.yaml

@@ -26,4 +26,4 @@ steps:
 
 options:
   pool:
-    name: 'projects/fir-sandbox-326008/locations/us-east4/workerPools/pool-1'
+    name: 'projects/fir-sandbox-326008/locations/us-east4/workerPools/fir'

.cloudbuild/pr-build.yaml

@@ -19,4 +19,4 @@ steps:
 
 options:
   pool:
-    name: 'projects/fir-sandbox-326008/locations/us-east4/workerPools/pool-1'
+    name: 'projects/fir-sandbox-326008/locations/us-east4/workerPools/fir'

.elm-spa/generated/Gen/Model.elm

@@ -10,6 +10,7 @@ import Gen.Params.ScriptaDemo
 import Gen.Params.SpeedReadDemo
 import Gen.Params.WordleClone
 import Gen.Params.Stories.AccelerometerTest
+import Gen.Params.Stories.IframeTest
 import Gen.Params.Stories.ParableOfPolygonsQa
 import Gen.Params.NotFound
 import Pages.BouncingBall
@@ -22,6 +23,7 @@ import Pages.ScriptaDemo
 import Pages.SpeedReadDemo
 import Pages.WordleClone
 import Pages.Stories.AccelerometerTest
+import Pages.Stories.IframeTest
 import Pages.Stories.ParableOfPolygonsQa
 import Pages.NotFound
 
@@ -38,6 +40,7 @@ type Model
     | SpeedReadDemo Gen.Params.SpeedReadDemo.Params Pages.SpeedReadDemo.Model
     | WordleClone Gen.Params.WordleClone.Params Pages.WordleClone.Model
     | Stories__AccelerometerTest Gen.Params.Stories.AccelerometerTest.Params Pages.Stories.AccelerometerTest.Model
+    | Stories__IframeTest Gen.Params.Stories.IframeTest.Params Pages.Stories.IframeTest.Model
     | Stories__ParableOfPolygonsQa Gen.Params.Stories.ParableOfPolygonsQa.Params Pages.Stories.ParableOfPolygonsQa.Model
     | NotFound Gen.Params.NotFound.Params
 

.elm-spa/generated/Gen/Msg.elm

@@ -10,6 +10,7 @@ import Gen.Params.ScriptaDemo
 import Gen.Params.SpeedReadDemo
 import Gen.Params.WordleClone
 import Gen.Params.Stories.AccelerometerTest
+import Gen.Params.Stories.IframeTest
 import Gen.Params.Stories.ParableOfPolygonsQa
 import Gen.Params.NotFound
 import Pages.BouncingBall
@@ -22,6 +23,7 @@ import Pages.ScriptaDemo
 import Pages.SpeedReadDemo
 import Pages.WordleClone
 import Pages.Stories.AccelerometerTest
+import Pages.Stories.IframeTest
 import Pages.Stories.ParableOfPolygonsQa
 import Pages.NotFound
 
@@ -36,5 +38,6 @@ type Msg
     | SpeedReadDemo Pages.SpeedReadDemo.Msg
     | WordleClone Pages.WordleClone.Msg
     | Stories__AccelerometerTest Pages.Stories.AccelerometerTest.Msg
+    | Stories__IframeTest Pages.Stories.IframeTest.Msg
     | Stories__ParableOfPolygonsQa Pages.Stories.ParableOfPolygonsQa.Msg
 

.elm-spa/generated/Gen/Pages.elm

@@ -13,6 +13,7 @@ import Gen.Params.ScriptaDemo
 import Gen.Params.SpeedReadDemo
 import Gen.Params.WordleClone
 import Gen.Params.Stories.AccelerometerTest
+import Gen.Params.Stories.IframeTest
 import Gen.Params.Stories.ParableOfPolygonsQa
 import Gen.Params.NotFound
 import Gen.Model as Model
@@ -29,6 +30,7 @@ import Pages.ScriptaDemo
 import Pages.SpeedReadDemo
 import Pages.WordleClone
 import Pages.Stories.AccelerometerTest
+import Pages.Stories.IframeTest
 import Pages.Stories.ParableOfPolygonsQa
 import Pages.NotFound
 import Request exposing (Request)
@@ -79,6 +81,9 @@ init route =
         Route.Stories__AccelerometerTest ->
             pages.stories__accelerometerTest.init ()
 
+        Route.Stories__IframeTest ->
+            pages.stories__iframeTest.init ()
+    
         Route.Stories__ParableOfPolygonsQa ->
             pages.stories__parableOfPolygonsQa.init ()
 
@@ -116,6 +121,9 @@ update msg_ model_ =
         ( Msg.Stories__AccelerometerTest msg, Model.Stories__AccelerometerTest params model ) ->
             pages.stories__accelerometerTest.update params msg model
 
+        ( Msg.Stories__IframeTest msg, Model.Stories__IframeTest params model ) ->
+            pages.stories__iframeTest.update params msg model
+    
         ( Msg.Stories__ParableOfPolygonsQa msg, Model.Stories__ParableOfPolygonsQa params model ) ->
             pages.stories__parableOfPolygonsQa.update params msg model
 
@@ -159,6 +167,9 @@ view model_ =
         Model.Stories__AccelerometerTest params model ->
             pages.stories__accelerometerTest.view params model
 
+        Model.Stories__IframeTest params model ->
+            pages.stories__iframeTest.view params model
+    
         Model.Stories__ParableOfPolygonsQa params model ->
             pages.stories__parableOfPolygonsQa.view params model
 
@@ -202,6 +213,9 @@ subscriptions model_ =
         Model.Stories__AccelerometerTest params model ->
             pages.stories__accelerometerTest.subscriptions params model
 
+        Model.Stories__IframeTest params model ->
+            pages.stories__iframeTest.subscriptions params model
+    
         Model.Stories__ParableOfPolygonsQa params model ->
             pages.stories__parableOfPolygonsQa.subscriptions params model
 
@@ -224,6 +238,7 @@ pages :
     , speedReadDemo : Bundle Gen.Params.SpeedReadDemo.Params Pages.SpeedReadDemo.Model Pages.SpeedReadDemo.Msg
     , wordleClone : Bundle Gen.Params.WordleClone.Params Pages.WordleClone.Model Pages.WordleClone.Msg
     , stories__accelerometerTest : Bundle Gen.Params.Stories.AccelerometerTest.Params Pages.Stories.AccelerometerTest.Model Pages.Stories.AccelerometerTest.Msg
+    , stories__iframeTest : Bundle Gen.Params.Stories.IframeTest.Params Pages.Stories.IframeTest.Model Pages.Stories.IframeTest.Msg
     , stories__parableOfPolygonsQa : Bundle Gen.Params.Stories.ParableOfPolygonsQa.Params Pages.Stories.ParableOfPolygonsQa.Model Pages.Stories.ParableOfPolygonsQa.Msg
     , notFound : Static Gen.Params.NotFound.Params
     }
@@ -238,6 +253,7 @@ pages =
     , speedReadDemo = bundle Pages.SpeedReadDemo.page Model.SpeedReadDemo Msg.SpeedReadDemo
     , wordleClone = bundle Pages.WordleClone.page Model.WordleClone Msg.WordleClone
     , stories__accelerometerTest = bundle Pages.Stories.AccelerometerTest.page Model.Stories__AccelerometerTest Msg.Stories__AccelerometerTest
+    , stories__iframeTest = bundle Pages.Stories.IframeTest.page Model.Stories__IframeTest Msg.Stories__IframeTest
     , stories__parableOfPolygonsQa = bundle Pages.Stories.ParableOfPolygonsQa.page Model.Stories__ParableOfPolygonsQa Msg.Stories__ParableOfPolygonsQa
     , notFound = static Pages.NotFound.view Model.NotFound
     }

.elm-spa/generated/Gen/Params/Stories/IframeTest.elm

@@ -0,0 +1,12 @@
+module Gen.Params.Stories.IframeTest exposing (Params, parser)
+
+import Url.Parser as Parser exposing ((</>), Parser)
+
+
+type alias Params =
+    ()
+
+
+parser =
+    (Parser.s "stories" </> Parser.s "iframe-test")
+

.elm-spa/generated/Gen/Params/Stories/IframeTets.elm

@@ -0,0 +1,12 @@
+module Gen.Params.Stories.IframeTets exposing (Params, parser)
+
+import Url.Parser as Parser exposing ((</>), Parser)
+
+
+type alias Params =
+    ()
+
+
+parser =
+    (Parser.s "stories" </> Parser.s "iframe-tets")
+

.elm-spa/generated/Gen/Route.elm

@@ -14,6 +14,7 @@ import Gen.Params.ScriptaDemo
 import Gen.Params.SpeedReadDemo
 import Gen.Params.WordleClone
 import Gen.Params.Stories.AccelerometerTest
+import Gen.Params.Stories.IframeTest
 import Gen.Params.Stories.ParableOfPolygonsQa
 import Gen.Params.NotFound
 import Url exposing (Url)
@@ -31,6 +32,7 @@ type Route
     | SpeedReadDemo
     | WordleClone
     | Stories__AccelerometerTest
+    | Stories__IframeTest
     | Stories__ParableOfPolygonsQa
     | NotFound
 
@@ -53,6 +55,7 @@ routes =
     , Parser.map WordleClone Gen.Params.WordleClone.parser
     , Parser.map NotFound Gen.Params.NotFound.parser
     , Parser.map Stories__AccelerometerTest Gen.Params.Stories.AccelerometerTest.parser
+    , Parser.map Stories__IframeTest Gen.Params.Stories.IframeTest.parser
     , Parser.map Stories__ParableOfPolygonsQa Gen.Params.Stories.ParableOfPolygonsQa.parser
     ]
 
@@ -95,6 +98,9 @@ toHref route =
         Stories__AccelerometerTest ->
             joinAsHref [ "stories", "accelerometer-test" ]
 
+        Stories__IframeTest ->
+            joinAsHref [ "stories", "iframe-test" ]
+    
         Stories__ParableOfPolygonsQa ->
             joinAsHref [ "stories", "parable-of-polygons-qa" ]
 

elm.json

@@ -31,7 +31,7 @@
             "krisajenkins/remotedata": "6.0.1",
             "mdgriffith/elm-ui": "1.1.8",
             "norpan/elm-html5-drag-drop": "3.1.4",
-            "ryannhg/elm-spa": "6.0.0"
+            "ryan-haskell/elm-spa": "1.0.0"
         },
         "indirect": {
             "elm/bytes": "1.0.8",

src/Pages/Stories/IframeTest.elm

@@ -0,0 +1,102 @@
+module Pages.Stories.IframeTest exposing (Model, Msg, page)
+
+
+import Effect exposing (Effect)
+import Element as E exposing (..)
+import Element.Background as Background
+import Element.Border as Border
+import Element.Events as Events
+import Element.Font as Font
+import Html exposing (Html, node)
+import Html.Attributes
+import Element.Input as Input
+import Gen.Params.Stories.IframeTest exposing (Params)
+import Page
+import Request
+import Shared
+import View exposing (View)
+import Page
+
+
+page : Shared.Model -> Request.With Params -> Page.With Model Msg
+page shared req =
+    Page.advanced
+        { init = init shared
+        , update = update
+        , view = view
+        , subscriptions = subscriptions
+        }
+
+
+
+-- INIT
+
+
+type alias Model =
+    {
+    }
+
+
+init : Shared.Model -> ( Model, Effect Msg )
+init shared =
+    ( {}, Effect.none )
+
+
+
+-- UPDATE
+
+
+type Msg
+    = ReplaceMe
+
+
+update : Msg -> Model -> ( Model, Effect Msg )
+update msg model =
+    case msg of
+        ReplaceMe ->
+            ( model, Effect.none )
+
+
+
+-- SUBSCRIPTIONS
+
+
+subscriptions : Model -> Sub Msg
+subscriptions model =
+    Sub.none
+
+
+
+-- VIEW
+
+view : Model -> View Msg
+view model =
+    { title = "iframe test"
+    , body =
+        [ layout
+            [ E.width E.fill
+            , E.height E.fill
+            ]
+            (viewElements model)
+        ]
+    }
+
+
+
+
+
+viewElements : Model -> Element Msg
+viewElements _ =
+    el [  width fill, height fill ]
+        (html (iframeView))
+
+
+iframeView : Html Msg
+iframeView =
+    node "iframe"
+        [ Html.Attributes.src "http://hippo.lamdera.app"
+        , Html.Attributes.style "border" "none"
+        , Html.Attributes.style "width" "100%"
+        , Html.Attributes.style "height" "100%"
+        ]
+        []