feat: init

frontend/src/View.elm

@@ -0,0 +1,89 @@
+module View exposing
+    ( View, map
+    , none, fromString
+    , toBrowserDocument
+    )
+
+{-|
+
+@docs View, map
+@docs none, fromString
+@docs toBrowserDocument
+
+-}
+
+import Browser
+import Element exposing (Attribute, Element, layout, mapAttribute, text)
+import Route exposing (Route)
+import Shared.Model
+
+
+type alias View msg =
+    { title : String
+    , attributes : List (Attribute msg)
+    , element : Element msg
+    }
+
+
+{-| Used internally by Elm Land to create your application
+so it works with Elm's expected `Browser.Document msg` type.
+-}
+toBrowserDocument :
+    { shared : Shared.Model.Model
+    , route : Route ()
+    , view : View msg
+    }
+    -> Browser.Document msg
+toBrowserDocument { view } =
+    { title = view.title
+    , body = [ layout view.attributes view.element ]
+    }
+
+
+
+-- toBrowserDocument :
+--     { shared : Shared.Model.Model
+--     , route : Route ()
+--     , view : View msg
+--     }
+--     -> Browser.Document msg
+-- toBrowserDocument { view } =
+--     { title = view.title
+--     , body = view.body
+--     }
+
+
+{-| Used internally by Elm Land to connect your pages together.
+-}
+map : (msg1 -> msg2) -> View msg1 -> View msg2
+map fn view =
+    { title = view.title
+    , attributes = List.map (mapAttribute fn) view.attributes
+    , element = Element.map fn view.element
+    }
+
+
+{-| Used internally by Elm Land whenever transitioning between
+authenticated pages.
+-}
+none : View msg
+none =
+    { title = ""
+    , attributes = []
+    , element = Element.none
+    }
+
+
+{-| If you customize the `View` module, anytime you run `elm-land add page`,
+the generated page will use this when adding your `view` function.
+
+That way your app will compile after adding new pages, and you can see
+the new page working in the web browser!
+
+-}
+fromString : String -> View msg
+fromString moduleName =
+    { title = moduleName
+    , attributes = []
+    , element = text moduleName
+    }