ElmでWindow.dimensionsを使用してモデルを初期化するには？

Question

スライドパズルゲームでは、画面の不動産を最大限にするために、最初のウィンドウのサイズに基づいて初期のタイルサイズを設定したいと思います。言い換えれば

、私はWindow.dimensionsの初期値に基づいてinitialModelを設定したいと思います。

私はこれを行う方法を見つけて、初期ウィンドウのサイズを取得するためにポートを使用して終了できませんでした：

index.htmlを

Elm.fullscreen(Elm.App, { 
    windowSize: [ 
    document.documentElement.clientWidth, 
    document.documentElement.clientHeight 
    ] 
}); 

App.elm

port windowSize : (Int, Int) 

initialModel = 
    -- some function of windowSize 

model = 
    Signal.foldp update initialModel input 

type Action 
    = WindowResize (Int, Int) 
    | ... 

windowResize = 
    Signal.map WindowResize Window.dimensions 

update action model = 
    case action of 
    WindowResize dimensions -> 
     { model | some change based on dimensions } 
    ... 

ポートを使用せずに同じ結果を達成する方法はありますか？

Answer 1

Apanatshka/elm-signal-extraパッケージのSignal.Extra.foldp'を使用して、入力信号の初期値のモデルの初期値を検査することができます。

完全公開：私はそのパッケージの著者です。