@reventlessdev/online-shop-dcb-catalog 1.0.0-alpha.104

package/src/Category/StateChangeSlice/ArchiveCategory_Behavior.res.mjs

@@ -0,0 +1,58 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function evolve(state, event) {
+  if (event === "CategoryAdded") {
+    return {
+      exists: true,
+      archived: false
+    };
+  } else {
+    return {
+      exists: state.exists,
+      archived: true
+    };
+  }
+}
+
+function decide(state, command) {
+  if (state.exists) {
+    if (state.archived) {
+      return {
+        TAG: "Ok",
+        _0: []
+      };
+    } else {
+      return {
+        TAG: "Ok",
+        _0: [{
+            TAG: "CategoryArchived",
+            categoryId: command.categoryId
+          }]
+      };
+    }
+  } else {
+    return {
+      TAG: "Error",
+      _0: "CategoryNotFound"
+    };
+  }
+}
+
+let Spec;
+
+let initialState = {
+  exists: false,
+  archived: false
+};
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Category/StateChangeSlice/ArchiveCategory_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/src/Category/StateChangeSlice/RenameCategory.res

@@ -0,0 +1,23 @@
+// RenameCategory StateChangeSlice.
+// Requires category to exist and not be archived. Renaming to the current
+// name is a no-op — commands may be retried under at-least-once delivery.
+@@reventless.spec
+
+// `CategoryAdded` / `CategoryRenamed` carry `name` so the decision model knows
+// the current name and can short-circuit a rename to the same value.
+@schema
+type consumedEvent =
+  | CategoryAdded({name: string})
+  | CategoryRenamed({name: string})
+  | CategoryArchived
+
+@schema
+type command = RenameCategory({categoryId: string, name: string})
+
+@schema
+type error =
+  | CategoryNotFound
+  | CategoryAlreadyArchived
+
+@schema
+type event = CategoryRenamed({categoryId: string, name: string})

package/src/Category/StateChangeSlice/RenameCategory.res.mjs

@@ -0,0 +1,58 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+
+let consumedEventSchema = S.union([
+  S.schema(s => ({
+    TAG: "CategoryAdded",
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "CategoryRenamed",
+    name: s.m(S.string)
+  })),
+  S.literal("CategoryArchived")
+]);
+
+let commandSchema = S.schema(s => ({
+  TAG: "RenameCategory",
+  categoryId: s.m(DcbTag$Reventless.string),
+  name: s.m(S.string)
+}));
+
+let errorSchema = S.union([
+  S.literal("CategoryNotFound"),
+  S.literal("CategoryAlreadyArchived")
+]);
+
+let eventSchema = S.schema(s => ({
+  TAG: "CategoryRenamed",
+  categoryId: s.m(DcbTag$Reventless.string),
+  name: s.m(S.string)
+}));
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "RenameCategory";
+
+let Id;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Category/StateChangeSlice/RenameCategory.res.mjs";
+
+let readConsistency = "EscalateOnRetry";
+
+export {
+  name,
+  Id,
+  consumedEventSchema,
+  commandSchema,
+  errorSchema,
+  eventSchema,
+  moduleUrl,
+  commandAuthorization,
+  readConsistency,
+}
+/* consumedEventSchema Not a pure module */

package/src/Category/StateChangeSlice/RenameCategory_Behavior.res

@@ -0,0 +1,26 @@
+@@reventless.behavior
+
+type state = {exists: bool, archived: bool, name: string}
+
+let initialState = {exists: false, archived: false, name: ""}
+
+let evolve = (state, event: consumedEvent) =>
+  switch event {
+  | CategoryAdded({name}) => {exists: true, archived: false, name}
+  | CategoryRenamed({name}) => {...state, name}
+  | CategoryArchived => {...state, archived: true}
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | RenameCategory({categoryId, name}) =>
+    if !state.exists {
+      Error(CategoryNotFound)
+    } else if state.archived {
+      Error(CategoryAlreadyArchived)
+    } else if name == state.name {
+      Ok([])
+    } else {
+      Ok([CategoryRenamed({categoryId, name})])
+    }
+  }

package/src/Category/StateChangeSlice/RenameCategory_Behavior.res.mjs

@@ -0,0 +1,74 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function evolve(state, event) {
+  if (typeof event !== "object") {
+    return {
+      exists: state.exists,
+      archived: true,
+      name: state.name
+    };
+  } else if (event.TAG === "CategoryAdded") {
+    return {
+      exists: true,
+      archived: false,
+      name: event.name
+    };
+  } else {
+    return {
+      exists: state.exists,
+      archived: state.archived,
+      name: event.name
+    };
+  }
+}
+
+function decide(state, command) {
+  if (!state.exists) {
+    return {
+      TAG: "Error",
+      _0: "CategoryNotFound"
+    };
+  }
+  if (state.archived) {
+    return {
+      TAG: "Error",
+      _0: "CategoryAlreadyArchived"
+    };
+  }
+  let name = command.name;
+  if (name === state.name) {
+    return {
+      TAG: "Ok",
+      _0: []
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "CategoryRenamed",
+          categoryId: command.categoryId,
+          name: name
+        }]
+    };
+  }
+}
+
+let Spec;
+
+let initialState = {
+  exists: false,
+  archived: false,
+  name: ""
+};
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Category/StateChangeSlice/RenameCategory_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/src/Category/StateViewSlice/Categories.res

@@ -0,0 +1,12 @@
+// Categories StateViewSlice.
+// Projects category events from the shared catalog event log into a Categories read model.
+@@reventless.spec
+
+@schema
+type state = {categoryId: string, name: string, archived: bool}
+
+@schema
+type consumedEvent =
+  | CategoryAdded({categoryId: string, name: string})
+  | CategoryRenamed({categoryId: string, name: string})
+  | CategoryArchived({categoryId: string})

package/src/Category/StateViewSlice/Categories.res.mjs

@@ -0,0 +1,55 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+
+let stateSchema = S.schema(s => ({
+  categoryId: s.m(S.string),
+  name: s.m(S.string),
+  archived: s.m(S.bool)
+}));
+
+let consumedEventSchema = S.union([
+  S.schema(s => ({
+    TAG: "CategoryAdded",
+    categoryId: s.m(DcbTag$Reventless.string),
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "CategoryRenamed",
+    categoryId: s.m(DcbTag$Reventless.string),
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "CategoryArchived",
+    categoryId: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let name = "Categories";
+
+let Id;
+
+let subIdConfig;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Category/StateViewSlice/Categories.res.mjs";
+
+let authorization = "AllowAuthenticated";
+
+let visibility = "Public";
+
+export {
+  name,
+  Id,
+  stateSchema,
+  consumedEventSchema,
+  config,
+  subIdConfig,
+  moduleUrl,
+  authorization,
+  visibility,
+}
+/* stateSchema Not a pure module */

package/src/Category/StateViewSlice/Categories_Projection.res

@@ -0,0 +1,10 @@
+@@reventless.projection
+
+let project = event =>
+  switch event {
+  | CategoryAdded({categoryId, name}) => [
+      Set(categoryId, {categoryId, name, archived: false}),
+    ]
+  | CategoryRenamed({categoryId, name}) => [Update(categoryId, state => {...state, name})]
+  | CategoryArchived({categoryId}) => [Update(categoryId, state => {...state, archived: true})]
+  }

package/src/Category/StateViewSlice/Categories_Projection.res.mjs

@@ -0,0 +1,50 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function project(event) {
+  switch (event.TAG) {
+    case "CategoryAdded" :
+      let categoryId = event.categoryId;
+      return [{
+          TAG: "Set",
+          _0: categoryId,
+          _1: {
+            categoryId: categoryId,
+            name: event.name,
+            archived: false
+          }
+        }];
+    case "CategoryRenamed" :
+      let name = event.name;
+      return [{
+          TAG: "Update",
+          _0: event.categoryId,
+          _1: state => ({
+            categoryId: state.categoryId,
+            name: name,
+            archived: state.archived
+          })
+        }];
+    case "CategoryArchived" :
+      return [{
+          TAG: "Update",
+          _0: event.categoryId,
+          _1: state => ({
+            categoryId: state.categoryId,
+            name: state.name,
+            archived: true
+          })
+        }];
+  }
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Category/StateViewSlice/Categories_Projection.res.mjs";
+
+export {
+  Spec,
+  project,
+  moduleUrl,
+}
+/* No side effect */

package/src/CategoryActivity/ReadModel/CategoryActivity.res

@@ -0,0 +1,25 @@
+// Catalog activity read model — a denormalised audit row per entity (category
+// or product) that has changed in the catalog. Populated from TWO views of the
+// shared catalog DCB EventLog: Category-side events and Product-side events.
+// See `CategoryActivity_Projections.res` for the multi-source mapping. The
+// example stays DCB-pure: both sources resolve to the same DCB EventLog name.
+
+@@reventless.spec
+
+@schema
+type kind =
+  | Category
+  | Product
+
+@schema
+type change =
+  | Added
+  | Renamed
+  | Archived
+
+@schema
+type state = {
+  name: string,
+  kind: kind,
+  lastChange: change,
+}

package/src/CategoryActivity/ReadModel/CategoryActivity.res.mjs

@@ -0,0 +1,49 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+
+let kindSchema = S.union([
+  S.literal("Category"),
+  S.literal("Product")
+]);
+
+let changeSchema = S.union([
+  S.literal("Added"),
+  S.literal("Renamed"),
+  S.literal("Archived")
+]);
+
+let stateSchema = S.schema(s => ({
+  name: s.m(S.string),
+  kind: s.m(kindSchema),
+  lastChange: s.m(changeSchema)
+}));
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let name = "CategoryActivity";
+
+let Id;
+
+let subIdConfig;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/CategoryActivity/ReadModel/CategoryActivity.res.mjs";
+
+let authorization = "AllowAuthenticated";
+
+let visibility = "Public";
+
+export {
+  name,
+  Id,
+  kindSchema,
+  changeSchema,
+  stateSchema,
+  config,
+  subIdConfig,
+  moduleUrl,
+  authorization,
+  visibility,
+}
+/* kindSchema Not a pure module */

package/src/CategoryActivity/ReadModel/CategoryActivity_Projections.res

@@ -0,0 +1,92 @@
+// CategoryActivity mappings: a single ReadModel fed by TWO DCB source views of
+// the catalog plugin's shared DCB EventLog.
+//
+// `Mapping.sourceName` MUST equal `<pluginName>DcbEventLog` for both sources
+// (this is the key under which `Plugin_Builder` registers the catalog plugin's
+// DCB EventTopic AND the `meta.service` value DcbEventLog stamps on every
+// published event). Multiple Mappings with the same `sourceName` is the
+// canonical DCB-pure multi-source pattern: each Mapping carves a typed subset
+// of the full DCB event union and projects into a different shape of the
+// shared ReadModel state.
+
+@@reventless.mappings
+
+// ─────────────────────────────────────────────────────────────
+// DCB source view 1 — Category-side events
+// ─────────────────────────────────────────────────────────────
+
+module CategoryEvents = {
+  let name = "CatalogDcbEventLog"
+
+  @schema
+  type event =
+    | CategoryAdded({categoryId: string, name: string})
+    | CategoryRenamed({categoryId: string, name: string})
+    | CategoryArchived({categoryId: string})
+}
+
+// ─────────────────────────────────────────────────────────────
+// DCB source view 2 — Product-side events
+// ─────────────────────────────────────────────────────────────
+
+module ProductEvents = {
+  let name = "CatalogDcbEventLog"
+
+  @schema
+  type event =
+    | ProductAdded({productId: string, name: string, description: string, price: float})
+    | ProductNameChanged({productId: string, name: string})
+}
+
+// ─────────────────────────────────────────────────────────────
+// Mapping 1 — Category source view
+// ─────────────────────────────────────────────────────────────
+
+module CategoryActivityMapping = Mapping.Make(
+  CategoryEvents,
+  CategoryActivity,
+  {
+    open CategoryEvents
+    let project = ({event, _}) =>
+      switch event {
+      | CategoryAdded({categoryId, name}) =>
+        Set(
+          categoryId,
+          {
+            CategoryActivity.name: name,
+            kind: Category,
+            lastChange: (Added: CategoryActivity.change),
+          },
+        )
+      | CategoryRenamed({categoryId, name}) =>
+        Update(categoryId, state => {
+          ...state,
+          name,
+          lastChange: (Renamed: CategoryActivity.change),
+        })
+      | CategoryArchived({categoryId}) =>
+        Update(categoryId, state => {...state, lastChange: (Archived: CategoryActivity.change)})
+      }
+  },
+)
+
+// ─────────────────────────────────────────────────────────────
+// Mapping 2 — Product source view
+// ─────────────────────────────────────────────────────────────
+
+module ProductActivityMapping = Mapping.Make(
+  ProductEvents,
+  CategoryActivity,
+  {
+    open ProductEvents
+    let project = ({event, _}) =>
+      switch event {
+      | ProductAdded({productId, name}) =>
+        Set(productId, {CategoryActivity.name: name, kind: Product, lastChange: Added})
+      | ProductNameChanged({productId, name}) =>
+        Update(productId, state => {...state, name, lastChange: Renamed})
+      }
+  },
+)
+
+let mappings: array<module(Mapping)> = [module(CategoryActivityMapping), module(ProductActivityMapping)]