iframe gives noframe?!

module Main exposing (..)

import Html exposing (..)
import Html.App exposing (beginnerProgram)
import Html.Events exposing (..)
import Html.Attributes exposing (..)
import Html.Lazy exposing (..)


view model =
    let
        html =
            case model of
                True ->
                    lazyVideoHtml model

                False ->
                    div [] [ text "no iframes" ]
    in
        div []
            [ button [ onClick Toggle ] [ text "Toggle view" ]
            , html
            ]


type Msg
    = Toggle


update msg model =
    case msg of
        Toggle ->
            not model


main =
    beginnerProgram { model = False, view = view, update = update }



-- Helpers


lazyVideoHtml =
    lazy videoHtml


videoHtml model =
    div []
        [ text "should show tons of videos"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        , videoContainer "https://www.youtube.com/embed/pmWtTUjRxig"
        ]


videoContainer : String -> Html msg
videoContainer videoSrc =
    div [ class "video-container" ]
        [ iframe
            [ type' "text/html"
            , src <| videoSrc ++ "?showinfo=0&autohide=1&?wmode=opaque"
            , attribute "frameborder" "0"
            , attribute "allowfullscreen" "True"
            ]
            []
        ]


(=>) =
    (,)