create-fff-app 0.1.10 → 0.1.12

package/template/src/server/Endpoints/Pages/Templates.fs

@@ -1,44 +0,0 @@
-module App.Server.Endpoints.Pages.Templates
-
-open Fable.Core
-open Fable.Core.JsInterop
-
-// ── Compiled FJSX page template modules ──────────────────────────────────────
-// Paths are relative to THIS source file so Fable generates correct dist-relative
-// imports. FJSX output goes to dist/server/Pages/ (4 dirs up from here, then dist/).
-// Run: fjsx --dir src/server/Endpoints/Pages --out dist/server/Pages
-
-[<ImportAll("../../../../dist/server/Pages/Layout.js")>]
-let private layoutMod : obj = jsNative
-
-[<ImportAll("../../../../dist/server/Pages/EmployeeList.js")>]
-let private employeeListMod : obj = jsNative
-
-[<ImportAll("../../../../dist/server/Pages/EmployeeNew.js")>]
-let private employeeNewMod : obj = jsNative
-
-[<ImportAll("../../../../dist/server/Pages/About.js")>]
-let private aboutMod : obj = jsNative
-
-[<ImportAll("../../../../dist/server/Pages/EmployeeEdit.js")>]
-let private employeeEditMod : obj = jsNative
-// ── Render helpers ────────────────────────────────────────────────────────────
-
-let renderLayout       (data: obj) : string = layoutMod?renderToHtml $ data
-let renderEmployeeList (data: obj) : string = employeeListMod?renderToHtml $ data
-let renderEmployeeNew  (data: obj) : string = employeeNewMod?renderToHtml $ data
-let renderAbout        ()          : string = aboutMod?renderToHtml $ (createObj [])
-
-let renderEmployeeEdit (data: obj) : string = employeeEditMod?renderToHtml $ data
-
-/// Full-page HTML shell.
-/// title      — page title shown in <title> tag
-/// activePath — used to highlight the active nav link
-/// body       — raw HTML injected into <main>
-let shell (title: string) (activePath: string) (body: string) : string =
-    renderLayout (createObj [
-        "title"       ==> title
-        "homeActive"  ==> (activePath = "/")
-        "aboutActive" ==> (activePath = "/about")
-        "body"        ==> body
-    ])

package/template/src/server/Workflows/Employees/EmployeeWorkflows.fs

@@ -1,86 +0,0 @@
-module App.Server.Workflows.Employees
-
-open FffStack.Server
-open Fable.Core
-open Fable.Core.JsInterop
-open App.Server.Domain.Employees
-
-[<Emit("crypto.randomUUID()")>]
-let private newId () : string = jsNative
-
-let getAll (db: ID1Database) : JS.Promise<Employee list> =
-    queryAll<Employee> db
-        "SELECT id, name, email, department, role, status, joined_at as joinedAt \
-         FROM employees ORDER BY name ASC"
-        [||]
-
-let getById (db: ID1Database) (id: string) : JS.Promise<Employee option> =
-    queryOne<Employee> db
-        "SELECT id, name, email, department, role, status, joined_at as joinedAt \
-         FROM employees WHERE id = ?"
-        [| id |]
-
-let create
-    (db:         ID1Database)
-    (rawName:    string)
-    (rawEmail:   string)
-    (department: string)
-    (role:       string)
-    (status:     string)
-    : JS.Promise<Result<Employee, string>> =
-    promise {
-        match EmployeeName.create rawName, WorkEmail.create rawEmail with
-        | Error e, _         -> return Error e
-        | _, Error e         -> return Error e
-        | Ok name, Ok email  ->
-            let id  = newId ()
-            let n   = EmployeeName.value name
-            let em  = WorkEmail.value email
-            let dep = department.Trim()
-            let rol = role.Trim()
-            let st  = if status = "inactive" then "inactive" else "active"
-            do! execute db
-                    "INSERT INTO employees (id, name, email, department, role, status, joined_at) \
-                     VALUES (?, ?, ?, ?, ?, ?, date('now'))"
-                    [| id; n; em; dep; rol; st |]
-                |> Promise.map ignore
-            return Ok { id = id; name = n; email = em; department = dep
-                        role = rol; status = st; joinedAt = "" }
-    }
-
-let update
-    (db:         ID1Database)
-    (id:         string)
-    (rawName:    string)
-    (rawEmail:   string)
-    (department: string)
-    (role:       string)
-    (status:     string)
-    : JS.Promise<Result<Employee, string>> =
-    promise {
-        match EmployeeName.create rawName, WorkEmail.create rawEmail with
-        | Error e, _         -> return Error e
-        | _, Error e         -> return Error e
-        | Ok name, Ok email  ->
-            let n   = EmployeeName.value name
-            let em  = WorkEmail.value email
-            let dep = department.Trim()
-            let rol = role.Trim()
-            let st  = if status = "inactive" then "inactive" else "active"
-            do! execute db
-                    "UPDATE employees SET name = ?, email = ?, department = ?, role = ?, status = ? WHERE id = ?"
-                    [| n; em; dep; rol; st; id |]
-                |> Promise.map ignore
-            return Ok { id = id; name = n; email = em; department = dep
-                        role = rol; status = st; joinedAt = "" }
-    }
-
-let delete (db: ID1Database) (id: string) : JS.Promise<bool> =
-    promise {
-        match! getById db id with
-        | None -> return false
-        | Some _ ->
-            do! execute db "DELETE FROM employees WHERE id = ?" [| id |]
-                |> Promise.map ignore
-            return true
-    }