Add login page scaffolding

NitroDevs · Nov 18, 2022 · 02ddde0 · 02ddde0
1 parent de6bd27
commit 02ddde0
Show file tree

Hide file tree

Showing 4 changed files with 60 additions and 1 deletion.
diff --git a/src/Microsoft.eShopWeb.Web/Account/Login/Login.Page.fs b/src/Microsoft.eShopWeb.Web/Account/Login/Login.Page.fs
@@ -0,0 +1,56 @@
+namespace Microsoft.eShopWeb.Web.Account.Login
+
+open Microsoft.eShopWeb.Web
+open Microsoft.eShopWeb.Web.Domain
+open Microsoft.eShopWeb.Web.Persistence
+open Microsoft.EntityFrameworkCore
+open Microsoft.FSharp.Core.Option
+open EntityFrameworkCore.FSharp.DbContextHelpers
+open Falco
+open Falco.Markup
+open Falco.Markup.Elem
+open Falco.Markup.Attr
+open Falco.Markup.Text
+open System.Linq
+
+module LoginPage =
+
+  type Props = { Basket: Basket }
+
+  module private Template =
+
+    let metadata: PublicLayout.HeadMetadata = { Title = "Login"; Description = "" }
+
+    let head = PublicLayout.head metadata
+
+    let body props: XmlNode =
+      PublicLayout.body
+          [
+            div
+              [ class' "container account-login-container" ]
+              [ h2 [] [ raw "Log in"]
+                div [ class' "row" ] [
+                  div [ class' "col-md-12" ] [
+                    section [] [] ] ] ] ] // TODO: finish this HTML
+          props.Basket
+
+    /// <summary>
+    /// Generates the <see cref="XmlNode" /> rendering for the Login page
+    /// </summary>
+    let page props =
+      PublicLayout.layout head (body props)
+
+  let handler: HttpHandler =
+    Services.inject<ShopContext> (fun db ->
+      fun ctx ->
+        task {
+          let! existingBasket =
+            (db.Baskets.Include(fun b -> b.Items).OrderBy(fun b -> b.Id).Take(1))
+            |> tryFirstTaskAsync
+
+          let basket = existingBasket |> defaultValue (emptyBasket)
+
+          let props = { Basket = basket }
+
+          return Response.ofHtml (Template.page props) ctx
+        })
diff --git a/src/Microsoft.eShopWeb.Web/Basket/Basket.Page.fs b/src/Microsoft.eShopWeb.Web/Basket/Basket.Page.fs
@@ -11,7 +11,6 @@ open System.Linq
 open Microsoft.EntityFrameworkCore
 
 module BasketPage =
-  open System
 
   module private Template =
 

diff --git a/src/Microsoft.eShopWeb.Web/Microsoft.eShopWeb.Web.fsproj b/src/Microsoft.eShopWeb.Web/Microsoft.eShopWeb.Web.fsproj
@@ -7,6 +7,7 @@
     <Compile Include="Persistence.fs" />
     <Compile Include="Request.fs" />
     <Compile Include="Layout\Public.Layout.fs" />
+    <Compile Include="Account\Login\Login.Page.fs" />
     <Compile Include="Home\CatalogFilters.Component.fs" />
     <Compile Include="Home\CatalogGrid.Component.fs" />
     <Compile Include="Home\CatalogPager.Component.fs" />

diff --git a/src/Microsoft.eShopWeb.Web/Program.fs b/src/Microsoft.eShopWeb.Web/Program.fs
@@ -14,6 +14,7 @@ open Microsoft.EntityFrameworkCore
 open Persistence
 
 module Program =
+  open Microsoft.eShopWeb.Web.Account.Login
 
   // let getById =
   //   fun (repository) -> fun (id: Guid) -> repository |> List.tryFind (fun x -> x.Id = id)
@@ -69,6 +70,8 @@ module Program =
           get "/basket" BasketPage.get
           post "/basket" BasketPage.post
 
+          get "/identity/account/login" LoginPage.handler
+
           //get "/catalogItems/{id:guid}" (Request.mapRoute getCatalogItemByIdFromRoute responseHandler)
           ]
     }