anchor.diff:  
   open Elmish.React
   
  +let resizeSubscription _ =
  +    let sub dispatch =
  +        let mutable lastTick = DateTime.Now
  +
  +        window.addEventListener_resize(Func<_,_>(fun _ ->
  +            let now = DateTime.Now
  +            if lastTick - now > TimeSpan.FromSeconds 1.5 then
  +                dispatch WindowResize
  +                lastTick <- now
  +            null
  +        ))
  +
  +    Cmd.ofSub sub
  +
   Program.mkProgram init update view
   #if DEBUG
   // |> Program.withConsoleTrace
  
positive.code:             | HtmlOnly -> FSharpOnly
  
          { model with EditorCollapse = newState }, Cmd.attemptFunc updateLayouts () FailEditorsLayout
  
      | FailEditorsLayout error ->
          console.log error.Message
  
negative.code:     | ToggleFsharpCollapse
      | ToggleHtmlCollapse
      | FailEditorsLayout of exn
      | WindowResize
  
  open Elmish
  open Fable.Import.JS
  