Backend init doesn't need Html, reorganise with Lamdera.Init

Author: supermario

elm.cabal

@@ -251,6 +251,7 @@ Executable lamdera
         Lamdera.Extensions
         Lamdera.Graph
         Lamdera.Hints
+        Lamdera.Init
         Lamdera.Injection
         Lamdera.Live
         Lamdera.Make

extra/Lamdera/Checks.hs

@@ -28,6 +28,7 @@ import NeatInterpolation
 
 import Lamdera
 import Lamdera.Progress
+import qualified Lamdera.Init
 import qualified Ext.Common
 
 
@@ -67,7 +68,7 @@ runChecks_ root = do
 
       if initialiseLamderaFiles
         then do
-          liftIO $ writeDefaultImplementations
+          liftIO $ Lamdera.Init.writeDefaultImplementations
           -- @TODO future
           -- It would be nice if when coming from an existing elm project, we installed the missing
           -- deps as well, but the UI impact is a little bit weird as it's not transparent to the user
@@ -103,29 +104,14 @@ runChecks_ root = do
   envExists <- liftIO $ doesFileExist "src/Env.elm"
 
   onlyWhen (not envExists) $ do
-    liftIO $ writeUtf8 "src/Env.elm" emptyEnv
+    liftIO $ writeUtf8 "src/Env.elm" Lamdera.Init.emptyEnv
     progressPointer "Created empty Env.elm"
 
 
 progressPointer t =
     report $ D.fillSep [ D.fromChars "───>", D.dullgreen $ t <> "\n" ]
 
 
-writeDefaultImplementations :: IO ()
-writeDefaultImplementations = do
-  root <- getProjectRoot "writeDefaultImplementations"
-  defaultImplementations
-    & mapM (\(filename, implementation) -> do
-        exists <- doesFileExist (root </> filename)
-        if exists
-          then atomicPutStrLn $ "  Skipping " <> (root </> filename) <> ", already exists"
-          else writeUtf8 (root </> filename) implementation
-      )
-  writeLineIfMissing "elm-stuff" (root </> ".gitignore")
-  onlyWhen_ (fmap not $ Dir.doesDirectoryExist (root </> ".git")) $ do
-    Ext.Common.cq_ "git" ["init"] ""
-    pure ()
-
 
 checkMissingFiles :: FilePath -> [FilePath] -> IO [FilePath]
 checkMissingFiles root paths = do
@@ -158,183 +144,3 @@ checkMsgHasTypes typeNames = do
     results = fmap (\search -> T.isInfixOf ("type " <> search) source) typeNames
 
   pure $ Prelude.all ((==) True) results
-
-
-
-defaultImplementations :: [(FilePath, Text)]
-defaultImplementations =
-  [ ("src/Frontend.elm", [text|
-      module Frontend exposing (..)
-
-      import Browser exposing (UrlRequest(..))
-      import Browser.Navigation as Nav
-      import Html
-      import Html.Attributes as Attr
-      import Lamdera
-      import Types exposing (..)
-      import Url
-
-
-      type alias Model =
-          FrontendModel
-
-
-      app =
-          Lamdera.frontend
-              { init = init
-              , onUrlRequest = UrlClicked
-              , onUrlChange = UrlChanged
-              , update = update
-              , updateFromBackend = updateFromBackend
-              , subscriptions = \m -> Sub.none
-              , view = view
-              }
-
-
-      init : Url.Url -> Nav.Key -> ( Model, Cmd FrontendMsg )
-      init url key =
-          ( { key = key
-            , message = "Welcome to Lamdera! You're looking at the auto-generated base implementation. Check out src/Frontend.elm to start coding!"
-            }
-          , Cmd.none
-          )
-
-
-      update : FrontendMsg -> Model -> ( Model, Cmd FrontendMsg )
-      update msg model =
-          case msg of
-              UrlClicked urlRequest ->
-                  case urlRequest of
-                      Internal url ->
-                          ( model
-                          , Nav.pushUrl model.key (Url.toString url)
-                          )
-
-                      External url ->
-                          ( model
-                          , Nav.load url
-                          )
-
-              UrlChanged url ->
-                  ( model, Cmd.none )
-
-              NoOpFrontendMsg ->
-                  ( model, Cmd.none )
-
-
-      updateFromBackend : ToFrontend -> Model -> ( Model, Cmd FrontendMsg )
-      updateFromBackend msg model =
-          case msg of
-              NoOpToFrontend ->
-                  ( model, Cmd.none )
-
-
-      view : Model -> Browser.Document FrontendMsg
-      view model =
-          { title = ""
-          , body =
-              [ Html.div [ Attr.style "text-align" "center", Attr.style "padding-top" "40px" ]
-                  [ Html.img [ Attr.src "https://lamdera.app/lamdera-logo-black.png", Attr.width 150 ] []
-                  , Html.div
-                      [ Attr.style "font-family" "sans-serif"
-                      , Attr.style "padding-top" "40px"
-                      ]
-                      [ Html.text model.message ]
-                  ]
-              ]
-          }
-  |])
-  , ("src/Backend.elm", [text|
-      module Backend exposing (..)
-
-      import Html
-      import Lamdera exposing (ClientId, SessionId)
-      import Types exposing (..)
-
-
-      type alias Model =
-          BackendModel
-
-
-      app =
-          Lamdera.backend
-              { init = init
-              , update = update
-              , updateFromFrontend = updateFromFrontend
-              , subscriptions = \m -> Sub.none
-              }
-
-
-      init : ( Model, Cmd BackendMsg )
-      init =
-          ( { message = "Hello!" }
-          , Cmd.none
-          )
-
-
-      update : BackendMsg -> Model -> ( Model, Cmd BackendMsg )
-      update msg model =
-          case msg of
-              NoOpBackendMsg ->
-                  ( model, Cmd.none )
-
-
-      updateFromFrontend : SessionId -> ClientId -> ToBackend -> Model -> ( Model, Cmd BackendMsg )
-      updateFromFrontend sessionId clientId msg model =
-          case msg of
-              NoOpToBackend ->
-                  ( model, Cmd.none )
-
-  |])
-  , ("src/Types.elm", [text|
-      module Types exposing (..)
-
-      import Browser exposing (UrlRequest)
-      import Browser.Navigation exposing (Key)
-      import Url exposing (Url)
-
-
-      type alias FrontendModel =
-          { key : Key
-          , message : String
-          }
-
-
-      type alias BackendModel =
-          { message : String
-          }
-
-
-      type FrontendMsg
-          = UrlClicked UrlRequest
-          | UrlChanged Url
-          | NoOpFrontendMsg
-
-
-      type ToBackend
-          = NoOpToBackend
-
-
-      type BackendMsg
-          = NoOpBackendMsg
-
-
-      type ToFrontend
-          = NoOpToFrontend
-
-  |])
-  , ("src/Env.elm", emptyEnv)
-  ]
-
-
-emptyEnv =
-  [text|
-    module Env exposing (..)
-
-    -- The Env.elm file is for per-environment configuration.
-    -- See https://dashboard.lamdera.app/docs/environment for more info.
-
-
-    dummyConfigItem =
-      ""
-  |]