git.iko.soy/elk
on master help sign in
Update reactor code for new elm/browser API
commit3d86d3caf38a6a434541f34a4b47cbcb74b44b05 authorEvan Czaplicki <evancz@users.noreply.github.com> dateWed 30 May 2018, 13:29 (8 years ago) parent7739e51
4 files changed+13−12
compare with master
unifiedsplit
ui/browser/src/Errors.elm+3−4 ui/browser/src/Index.elm+7−5 ui/browser/src/NotFound.elm+2−2 ui/terminal/src/Develop/Generate/Help.hs+1−1
ui/browser/src/Errors.elm+3−4
@@ -15,12 +15,11 @@ import Elm.Error as Error
1515
1616
1717main =
18− Browser.fullscreen
19− { init = \env -> (D.decodeValue Error.decoder env.flags, Cmd.none)
18+ Browser.document
19+ { init = \flags -> (D.decodeValue Error.decoder flags, Cmd.none)
2020 , update = \_ exit -> (exit, Cmd.none)
2121 , view = view
2222 , subscriptions = \_ -> Sub.none
23− , onNavigation = Nothing
2423 }
2524
2625
@@ -28,7 +27,7 @@ main =
2827-- VIEW
2928
3029
31−view : Result D.Error Error.Error -> Browser.Page msg
30+view : Result D.Error Error.Error -> Browser.Document msg
3231view result =
3332 { title = "Problem!"
3433 , body =
ui/browser/src/Index.elm+7−5
@@ -23,12 +23,11 @@ import Index.Skeleton as Skeleton
2323
2424main : Program D.Value Model Never
2525main =
26− Browser.fullscreen
27− { init = \env -> (D.decodeValue decoder env.flags, Cmd.none)
26+ Browser.document
27+ { init = \flags -> (D.decodeValue decoder flags, Cmd.none)
2828 , update = \_ model -> (model, Cmd.none)
2929 , subscriptions = \_ -> Sub.none
3030 , view = view
31− , onNavigation = Nothing
3231 }
3332
3433
@@ -88,7 +87,7 @@ type alias Model =
8887-- VIEW
8988
9089
91−view : Model -> Browser.Page msg
90+view : Model -> Browser.Document msg
9291view model =
9392 case model of
9493 Err error ->
@@ -141,7 +140,10 @@ viewFiles : List String -> List File -> Html msg
141140viewFiles dirs files =
142141 Skeleton.box
143142 { title = "File Navigation"
144− , items = List.filterMap viewDir dirs ++ List.filterMap viewFile files
143+ , items =
144+ List.filterMap viewDir (List.sort dirs)
145+ ++
146+ List.filterMap viewFile (List.sortBy .name files)
145147 , footer = Nothing
146148 }
147149
ui/browser/src/NotFound.elm+2−2
@@ -9,15 +9,15 @@ import Html.Attributes exposing (..)
99
1010main : Program () () ()
1111main =
12− Browser.fullscreen
12+ Browser.document
1313 { init = \_ -> ((), Cmd.none)
1414 , update = \_ _ -> ((), Cmd.none)
1515 , subscriptions = \_ -> Sub.none
16− , onNavigation = Nothing
1716 , view = \_ -> page
1817 }
1918
2019
20+page : Browser.Document ()
2121page =
2222 { title = "Page not found"
2323 , body =
ui/terminal/src/Develop/Generate/Help.hs+1−1
@@ -29,7 +29,7 @@ makePageHtml moduleName flags =
2929</head>
3030<body>
3131<script>
32−Elm.|] <> N.toBuilder moduleName <> [r|.fullscreen(|] <> flags <> [r|);
32+Elm.|] <> N.toBuilder moduleName <> [r|.init({ flags: |] <> flags <> [r| });
3333</script>
3434</body>
3535</html>