elm-ssr 0.91.0 → 0.91.2

package/README.md

@@ -26,21 +26,59 @@ bunx elm-ssr build
 
 ## CLI commands
 
-- **`elm-ssr build`** — scans each configured app's `src/<Namespace>/Routes/`
-  and `Islands/`, generates `.elm-ssr/Main.elm` (the router with file-based
-  routes + dynamic segments) and the islands manifest, syncs the Elm authoring
-  modules into the app's `.elm-ssr/src/ElmSsr/`, and compiles via `elm make`
-  (one combined island bundle exposing `Elm.<App>.Islands.<Name>`).
-- **`elm-ssr new <name>`** — scaffold a new app and register it in
-  `elm-ssr.config.json`.
-- **`elm-ssr dev`** — `build` then `wrangler dev` for Cloudflare-like local
-  development. For other hosts, build with `elm-ssr build` and adapt
-  `worker.fetch` in your own server/entrypoint.
-- **`elm-ssr compress`** — pre-compress generated bundles with gzip.
-- **`elm-ssr migrate <up|down|status>`** — apply / revert / inspect SQL-file
-  migrations. `--db postgres://…`, `sqlite://path`, or a plain SQLite file path;
-  `--dir <path>` (default `./migrations`); `--count N` (for `down`, default 1).
-  Reads `DATABASE_URL` if `--db` is omitted.
+Run the CLI using `bunx elm-ssr <command>`.
+
+### `build`
+Generates `.elm-ssr/Main.elm` (router) and the islands manifest for all configured apps, syncs the Elm authoring modules into `.elm-ssr/src/ElmSsr/`, and compiles pages and island bundles.
+
+### `compress`
+Runs the `build` pipeline and additionally pre-compresses generated JS/CSS assets with Gzip for faster delivery on edge networks.
+
+### `dev`
+Starts the local development loop. Compiles the Elm code and runs `wrangler dev` (monitoring `.elm` and `.css` files for hot-reloads).
+
+### `init <name> [--db] [--auth betterAuth|auth0]`
+Initialises a self-contained, single-app project in the current directory.
+- `--db`: Configures local SQLite database support (generates initial migration and configures `inMemoryEffects`).
+- `--auth <betterAuth|auth0>`: Scaffolds basic route modules (`Login.elm`, `Profile.elm`), signed cookie/CSRF middleware, and callback intercepts. (Automatically implies `--db`).
+
+### `new <name> [--in <subdir>] [--db] [--auth betterAuth|auth0]`
+Creates a new app under `<workspace>/<name>/` (or `<workspace>/<subdir>/<name>/` if `--in <subdir>` is provided) and registers it in `elm-ssr.config.json`.
+- `--in <subdir>`: Target subdirectory group (e.g. `--in apps` places it under `apps/<name>/`).
+- `--db`: Configures SQLite database support and an initial migration.
+- `--auth <betterAuth|auth0>`: Scaffolds authentication views, cookies, and callback handlers.
+
+### `route <path> [--app <name>] [--api] [--ws] [--sse]`
+Scaffolds a new route or endpoint:
+- `--app <app-name>`: Required if multiple apps are configured in the workspace.
+- `--api`: Scaffolds a JSON API page/action route instead of an HTML page.
+- `--ws` or `--websocket`: Scaffolds a TypeScript WebSocket handler in `src/Endpoints/<route>.ts`.
+- `--sse`: Scaffolds a TypeScript Server-Sent Events (SSE) stream handler in `src/Endpoints/<route>.ts`.
+
+### `query [--app <name>] [--dir <path>] [--output <path>]`
+Generates type-safe Elm database schema and query helpers directly from raw SQL files in the migrations directory.
+- `--app <app-name>`: Required if multiple apps exist.
+- `--dir <path>`: Directory containing migrations (default: `<app_root>/migrations`).
+- `--output <path>`: Directory where Elm Db modules will be generated (default: `<app_root>/src/<Module>/Db`).
+
+### `migrate <up|down|status> [--db <conn>] [--dir <path>] [--count <n>] [--table <name>]`
+SQL migration runner.
+- `up`: Applies all pending migrations.
+- `down`: Reverts the last migration (or `n` migrations via `--count`).
+- `status`: Lists all applied and pending migrations.
+- `--db <conn>`: Database connection string (Postgres URL, SQLite URL, or plain file path). Reads `DATABASE_URL` if omitted.
+- `--dir <path>`: Path to the SQL migrations directory (default: `./migrations`).
+- `--count <n>`: The number of migrations to revert when running `down` (default: 1).
+- `--table <name>`: Tracking database table name (default: `__elm_ssr_migrations`).
+
+### `routes`
+Prints a list of all configured apps, their root directories, and their route source directories.
+
+### `info`
+Prints the workspace name and registered app names.
+
+## Global options
+- `--root <path>`: Overrides where the CLI looks for `elm-ssr.config.json` (defaults to current directory).
 
 Configuration lives in `elm-ssr.config.json` at the repo root:
 

package/lib/scaffold.mjs

@@ -341,9 +341,10 @@ userDecoder =
         (Decode.maybe (Decode.field "name" Decode.string))
 
 page : Request -> Loader (Document Never)
-page request =
-    Loader.requireUser userDecoder "/login" request
-        |> Loader.map view
+page _ =
+    Loader.requireUser userDecoder "/login" (\\user ->
+        Loader.succeed (view user)
+    )
 
 action : Request -> Action (Document Never)
 action _ =
@@ -415,8 +416,7 @@ const runtimeTemplate = (appRoot, db = false, auth = undefined) => {
   ];
 
   if (db) {
-    imports.push(`import { Database } from "bun:sqlite";`);
-    imports.push(`import { inMemoryEffects } from "elm-ssr/effects";`);
+    imports.push(`import { inMemoryEffects, cloudflareEffects } from "elm-ssr/effects";`);
   }
   if (auth) {
     imports.push(`import { handleAuth } from "./src/Endpoints/Auth";`);
@@ -424,7 +424,29 @@ const runtimeTemplate = (appRoot, db = false, auth = undefined) => {
 
   let dbInit = '';
   if (db) {
-    dbInit = `\nconst db = new Database("app.db");\n`;
+    dbInit = `
+let sqlHandler: any = undefined;
+if (typeof Bun !== "undefined") {
+  try {
+    const sqliteModule = "bun" + ":sqlite";
+    const { Database } = require(sqliteModule);
+    const db = new Database("app.db");
+    sqlHandler = (query: any) => {
+      const statement = db.query(query.sql);
+      if (query.mode === "all") {
+        return statement.all(...query.params);
+      }
+      if (query.mode === "first") {
+        return statement.get(...query.params) ?? null;
+      }
+      const info = statement.run(...query.params);
+      return { rowsAffected: info.changes };
+    };
+  } catch (err) {
+    console.error("Failed to initialize bun:sqlite:", err);
+  }
+}
+`;
   }
 
   let routeAuthAdditions = '';
@@ -445,13 +467,15 @@ const runtimeTemplate = (appRoot, db = false, auth = undefined) => {
   let effectsConfig = '';
   if (db) {
     effectsConfig = `,
-  effects: inMemoryEffects({
-    env: process.env as any,
-    sql: (sql, params) => {
-      const query = db.prepare(sql);
-      return query.all(...params);
+  effects: (effect, context) => {
+    if (context.env && context.env.DB) {
+      return cloudflareEffects({ dbBinding: "DB" })(effect, context);
     }
-  })`;
+    return inMemoryEffects({
+      env: process.env as any,
+      sql: sqlHandler
+    })(effect, context);
+  }`;
   }
 
   let sessionsConfig = '';

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "elm-ssr",
-  "version": "0.91.0",
+  "version": "0.91.2",
   "description": "Elm-first SSR library and framework for Cloudflare Workers (and Bun): file-based routes/islands, backend-neutral effect adapters (KV/D1/Redis/Postgres), background tasks (waitUntil/Queues), SQL-file migrations, CLI scaffold + build.",
   "license": "MIT",
   "author": "Michał Majchrzak <michmajchrzak@gmail.com>",