elm-ssr 0.5.2 → 0.6.1

package/bin/elm-ssr.mjs

@@ -1,7 +1,8 @@
 #!/usr/bin/env bun
 
-import { readFile } from "node:fs/promises";
-import { resolve } from "node:path";
+import { readFile, stat } from "node:fs/promises";
+import { watch } from "node:fs";
+import { dirname, resolve } from "node:path";
 import { createAppScaffold } from "../lib/scaffold.mjs";
 import { readWorkspaceConfig } from "../lib/workspace.mjs";
 import { build } from "../lib/build.mjs";
@@ -16,7 +17,26 @@ const findFlagValue = (flagName) => {
   return index >= 0 ? args[index + 1] : undefined;
 };
 
-const rootPath = resolve(findFlagValue("--root") ?? defaultRootPath);
+const findWorkspaceRoot = async (startPath) => {
+  let current = startPath;
+  while (true) {
+    try {
+      const configPath = resolve(current, "elm-ssr.config.json");
+      await stat(configPath);
+      return current;
+    } catch {
+      const parent = dirname(current);
+      if (parent === current) {
+        break;
+      }
+      current = parent;
+    }
+  }
+  return startPath;
+};
+
+const userRoot = findFlagValue("--root");
+const rootPath = resolve(userRoot ?? await findWorkspaceRoot(defaultRootPath));
 const packageJsonPath = resolve(rootPath, "package.json");
 
 let packageJson = { name: "unknown" };
@@ -48,6 +68,7 @@ const printHelp = () => {
   build         Generate wrapper modules and compile configured Elm SSR apps
   compress      Pre-compress island and app bundles using Gzip for faster edge delivery
   dev           Build and start wrangler dev using the current workspace config
+  init <name>   Initialize a self-contained single-app project in the current directory
   new <name>    Create a new app at <workspace>/<name>/ (or <workspace>/<subdir>/<name>/
                 with --in <subdir>) and register it in elm-ssr.config.json
   routes        Print configured apps and their public modules
@@ -88,6 +109,42 @@ switch (command) {
       await build({ rootPath, config });
     }
 
+    let buildTimeout = null;
+    const triggerBuild = () => {
+      if (buildTimeout) clearTimeout(buildTimeout);
+      buildTimeout = setTimeout(async () => {
+        console.log("\n[elm-ssr] File change detected. Rebuilding...");
+        try {
+          await build({ rootPath, config });
+          console.log("[elm-ssr] Rebuild successful.");
+        } catch (err) {
+          console.error("[elm-ssr] Rebuild failed:", err);
+        }
+      }, 100);
+    };
+
+    const watchers = [];
+    for (const app of config.apps) {
+      const srcDir = resolve(rootPath, app.root, "src");
+      try {
+        const watcher = watch(srcDir, { recursive: true }, (eventType, filename) => {
+          if (filename && filename.endsWith(".elm")) {
+            triggerBuild();
+          }
+        });
+        watchers.push(watcher);
+      } catch (err) {
+        console.warn(`[elm-ssr] Could not watch directory ${srcDir}:`, err);
+      }
+    }
+
+    const cleanup = () => {
+      for (const w of watchers) w.close();
+    };
+
+    process.on("SIGINT", cleanup);
+    process.on("exit", cleanup);
+
     let wranglerCmd = "./node_modules/.bin/wrangler";
     let wranglerArgs = ["dev"];
     try {
@@ -116,7 +173,24 @@ switch (command) {
       }
     }
 
-    await run(wranglerCmd, wranglerArgs, rootPath);
+    try {
+      await run(wranglerCmd, wranglerArgs, rootPath);
+    } finally {
+      cleanup();
+    }
+    break;
+  }
+
+  case "init": {
+    const name = args[1];
+
+    if (!name) {
+      console.error("Usage: elm-ssr init <name>");
+      process.exit(1);
+    }
+
+    const created = await createAppScaffold(rootPath, name, { root: "." });
+    console.log(`Initialized ${created.name} in current directory`);
     break;
   }
 

package/lib/scaffold.mjs

@@ -1,4 +1,4 @@
-import { mkdir, writeFile } from "node:fs/promises";
+import { mkdir, readFile, writeFile } from "node:fs/promises";
 import { dirname, resolve } from "node:path";
 import { readWorkspaceConfig, writeWorkspaceConfig } from "./workspace.mjs";
 
@@ -15,13 +15,13 @@ const toPascalCase = (value) =>
 
 const ensureValidName = (name) => {
   if (!/^[a-z0-9-]+$/.test(name)) {
-    throw new Error("Example name must use lowercase letters, numbers, and dashes only.");
+    throw new Error("App name must use lowercase letters, numbers, and dashes only.");
   }
 };
 
 const ensureAppMissing = (config, name) => {
   if (config.apps.some((app) => app.name === name)) {
-    throw new Error(`Example "${name}" already exists in elm-ssr.config.json.`);
+    throw new Error(`App "${name}" already exists in elm-ssr.config.json. If you want to recreate it, remove its entry from elm-ssr.config.json first.`);
   }
 };
 
@@ -276,8 +276,8 @@ const runtimeTemplate = (appRoot) => {
   // appRoot is a slash-separated path like "my-app" or "apps/my-app".
   // The generated bundles live at <workspaceRoot>/generated/<appRoot>/. From
   // <workspaceRoot>/<appRoot>/runtime.ts, we climb out by one ".." per segment.
-  const upToRoot = appRoot.split("/").map(() => "..").join("/");
-  const generatedPrefix = `${upToRoot}/generated/${appRoot}`;
+  const upToRoot = appRoot === "." ? "." : appRoot.split("/").map(() => "..").join("/");
+  const generatedPrefix = `${upToRoot}/generated/${appRoot === "." ? "" : appRoot}`.replace(/\/+$/, "");
   return `import { createWorkerApp } from "elm-ssr";
 import { renderApp, type CompiledElmModule } from "elm-ssr/render";
 import type { RouteCatalog } from "elm-ssr/http";
@@ -467,6 +467,38 @@ const normalizeAppRoot = (rawRoot, name) => {
   return candidate;
 };
 
+const ensurePackageJson = async (rootPath, appName) => {
+  const packageJsonPath = resolve(rootPath, "package.json");
+  let packageJson = {};
+  try {
+    packageJson = JSON.parse(await readFile(packageJsonPath, "utf8"));
+  } catch {
+    packageJson = {
+      name: appName,
+      version: "0.1.0",
+      type: "module",
+      scripts: {},
+      devDependencies: {}
+    };
+  }
+
+  packageJson.scripts = {
+    build: "elm-ssr build",
+    dev: "elm-ssr dev",
+    routes: "elm-ssr routes",
+    migrate: "elm-ssr migrate",
+    ...packageJson.scripts
+  };
+
+  packageJson.devDependencies = {
+    "elm-ssr": "latest",
+    wrangler: "^4.0.0",
+    ...packageJson.devDependencies
+  };
+
+  await writeFile(packageJsonPath, JSON.stringify(packageJson, null, 2) + "\n", "utf8");
+};
+
 /**
  * Scaffold a new elm-ssr app under `<rootPath>/<appRoot>/` and register it in
  * elm-ssr.config.json. `appRoot` defaults to the app's `name`; pass an
@@ -502,6 +534,8 @@ export const createAppScaffold = async (rootPath, name, options = {}) => {
     apps: [...config.apps, configEntry]
   });
 
+  await ensurePackageJson(rootPath, name);
+
   return configEntry;
 };
 

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "elm-ssr",
-  "version": "0.5.2",
+  "version": "0.6.1",
   "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>",