@reventlessdev/online-shop-aggregates-catalog 3.0.0-alpha.101

package/lib/ocaml/Products_Projections.res

@@ -0,0 +1,22 @@
+// Product projection mappings.
+// Maps Product aggregate events to Products read model state changes.
+@@reventless.mappings
+
+module ProductMapping = Mapping.Make(
+  Product,
+  Products,
+  {
+    open Product
+    let project = ({event, id, _}) =>
+      switch event {
+      | Added({name, description, price}) =>
+        Set(id, {Products.name: name, description, price})
+      | NameUpdated({name}) => Update(id, state => {...state, name})
+      | DescriptionUpdated({description}) =>
+        Update(id, state => {...state, description})
+      | PriceUpdated({price}) => Update(id, state => {...state, price})
+      }
+  },
+)
+
+let mappings: array<module(Mapping)> = [module(ProductMapping)]

package/package.json

@@ -0,0 +1,52 @@
+{
+  "name": "@reventlessdev/online-shop-aggregates-catalog",
+  "version": "3.0.0-alpha.101",
+  "description": "Online Shop example — Catalog plugin (Product & Category aggregates)",
+  "license": "Apache-2.0",
+  "jest": {
+    "testMatch": [
+      "<rootDir>/tests/**/*Test.res.mjs",
+      "<rootDir>/tests/**/*_GWT.res.mjs"
+    ],
+    "moduleFileExtensions": [
+      "js",
+      "mjs"
+    ],
+    "moduleNameMapper": {
+      "^@npmcli/arborist$": "<rootDir>/__mocks__/emptyModule.js",
+      "^spdx-license-ids$": "<rootDir>/../../../node_modules/spdx-license-ids/index.json",
+      "^spdx-license-ids/deprecated$": "<rootDir>/../../../node_modules/spdx-license-ids/deprecated.json",
+      "^spdx-exceptions$": "<rootDir>/../../../node_modules/spdx-exceptions/index.json"
+    }
+  },
+  "dependencies": {
+    "sury": "^11.0.0-alpha.4",
+    "@reventlessdev/online-shop-aggregates-catalog-spec": "3.0.0-alpha.57",
+    "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.14",
+    "@reventlessdev/online-shop-aggregates-ordering-spec": "3.0.0-alpha.57",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.74",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.81",
+    "@reventlessdev/reventless-local": "3.0.0-alpha.113",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.61"
+  },
+  "devDependencies": {
+    "rescript": "^12.3.0",
+    "sury-ppx": "11.0.0-alpha.2",
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.47"
+  },
+  "peerDependencies": {
+    "rescript": "^12.3.0"
+  },
+  "publishConfig": {
+    "registry": "https://registry.npmjs.org"
+  },
+  "scripts": {
+    "generate": "generate-plugin src/",
+    "prebuild": "pnpm run generate",
+    "build": "rescript build",
+    "start": "rescript watch",
+    "clean": "rescript clean",
+    "rebuild": "pnpm run clean && pnpm run build -- -with-deps",
+    "test": "NODE_OPTIONS='--experimental-vm-modules' npx jest"
+  }
+}

package/rescript.json

@@ -0,0 +1,39 @@
+{
+  "name": "@reventlessdev/online-shop-aggregates-catalog",
+  "package-specs": {
+    "module": "esmodule",
+    "in-source": true
+  },
+  "namespace": "CatalogPlugin",
+  "ppx-flags": [
+    "@reventlessdev/reventless-ppx/bin",
+    "sury-ppx/bin"
+  ],
+  "warnings": {
+    "error": "-44+101"
+  },
+  "sources": [
+    {
+      "dir": "src",
+      "subdirs": true
+    },
+    {
+      "dir": "tests",
+      "subdirs": true
+    }
+  ],
+  "dependencies": [
+    "sury",
+    "@reventlessdev/rescript-pulumi-pulumi",
+    "@reventlessdev/reventless-spec",
+    "@reventlessdev/reventless-infra",
+    "@reventlessdev/reventless-local",
+    "@reventlessdev/reventless-gwt",
+    "@reventlessdev/online-shop-aggregates-catalog-spec",
+    "@reventlessdev/online-shop-aggregates-ordering-spec"
+  ],
+  "dev-dependencies": [
+  ],
+  "compiler-flags": [],
+  "suffix": ".res.mjs"
+}

package/src/Category/Aggregate/Category.res

@@ -0,0 +1,22 @@
+// Category aggregate specification.
+// A named grouping of products (e.g. "Books", "Electronics").
+
+@@reventless.spec
+
+@schema
+type command =
+  | Add({name: string})
+  | Rename({name: string})
+  | @authorize(AllowGroups(["Admin"])) Archive
+
+@schema
+type event =
+  | Added({name: string})
+  | Renamed({name: string})
+  | Archived
+
+@schema
+type error =
+  | CategoryAlreadyExists
+  | CategoryNotFound
+  | CategoryAlreadyArchived

package/src/Category/Aggregate/Category.res.mjs

@@ -0,0 +1,61 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+
+let commandSchema = S.union([
+  S.schema(s => ({
+    TAG: "Add",
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "Rename",
+    name: s.m(S.string)
+  })),
+  S.literal("Archive")
+]);
+
+let eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "Added",
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "Renamed",
+    name: s.m(S.string)
+  })),
+  S.literal("Archived")
+]);
+
+let errorSchema = S.union([
+  S.literal("CategoryAlreadyExists"),
+  S.literal("CategoryNotFound"),
+  S.literal("CategoryAlreadyArchived")
+]);
+
+function commandAuthorization(command) {
+  if (typeof command !== "object") {
+    return {
+      TAG: "AllowGroups",
+      _0: ["Admin"]
+    };
+  } else {
+    return "AllowAuthenticated";
+  }
+}
+
+let name = "Category";
+
+let Id;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/Category/Aggregate/Category.res.mjs";
+
+export {
+  name,
+  Id,
+  commandSchema,
+  eventSchema,
+  errorSchema,
+  moduleUrl,
+  commandAuthorization,
+}
+/* commandSchema Not a pure module */

package/src/Category/Aggregate/Category_Behavior.res

@@ -0,0 +1,36 @@
+// Category aggregate behavior.
+// Implements the state machine for adding, renaming, and archiving categories.
+
+@@reventless.behavior
+
+@schema
+type state =
+  | NotCreated
+  | Active({name: string})
+  | Archived
+
+let initialState = NotCreated
+
+let evolve = (state, event) =>
+  switch (state, event) {
+  | (NotCreated, Added({name})) => Active({name: name})
+  | (Active(_), Added({name})) => Active({name: name})
+  | (Active(_), Renamed({name})) => Active({name: name})
+  | (Active(_), Category.Archived) => Archived
+  | (Archived, _) => state
+  | (NotCreated, _) => state
+  }
+
+let decide = (state, command) =>
+  switch (state, command) {
+  | (NotCreated, Add({name})) => Ok([Added({name: name})])
+  | (NotCreated, Rename(_)) => Error(CategoryNotFound)
+  | (NotCreated, Archive) => Error(CategoryNotFound)
+  | (Active(_), Add(_)) => Error(CategoryAlreadyExists)
+  | (Active(s), Rename({name})) if name == s.name => Ok([])
+  | (Active(_), Rename({name})) => Ok([Renamed({name: name})])
+  | (Active(_), Archive) => Ok([Category.Archived])
+  | (Archived, Add(_)) => Error(CategoryAlreadyArchived)
+  | (Archived, Rename(_)) => Error(CategoryAlreadyArchived)
+  | (Archived, Archive) => Ok([]) // idempotent
+  }

package/src/Category/Aggregate/Category_Behavior.res.mjs

@@ -0,0 +1,106 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+
+let stateSchema = S.union([
+  S.literal("NotCreated"),
+  S.schema(s => ({
+    TAG: "Active",
+    name: s.m(S.string)
+  })),
+  S.literal("Archived")
+]);
+
+function evolve(state, event) {
+  if (typeof state !== "object") {
+    if (state === "NotCreated" && typeof event === "object" && event.TAG === "Added") {
+      return {
+        TAG: "Active",
+        name: event.name
+      };
+    } else {
+      return state;
+    }
+  } else if (typeof event !== "object") {
+    return "Archived";
+  } else {
+    return {
+      TAG: "Active",
+      name: event.name
+    };
+  }
+}
+
+function decide(state, command) {
+  if (typeof state !== "object") {
+    if (state === "NotCreated") {
+      if (typeof command !== "object" || command.TAG !== "Add") {
+        return {
+          TAG: "Error",
+          _0: "CategoryNotFound"
+        };
+      } else {
+        return {
+          TAG: "Ok",
+          _0: [{
+              TAG: "Added",
+              name: command.name
+            }]
+        };
+      }
+    } else if (typeof command !== "object") {
+      return {
+        TAG: "Ok",
+        _0: []
+      };
+    } else {
+      return {
+        TAG: "Error",
+        _0: "CategoryAlreadyArchived"
+      };
+    }
+  }
+  if (typeof command !== "object") {
+    return {
+      TAG: "Ok",
+      _0: ["Archived"]
+    };
+  }
+  if (command.TAG === "Add") {
+    return {
+      TAG: "Error",
+      _0: "CategoryAlreadyExists"
+    };
+  }
+  let name = command.name;
+  if (name === state.name) {
+    return {
+      TAG: "Ok",
+      _0: []
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "Renamed",
+          name: name
+        }]
+    };
+  }
+}
+
+let Spec;
+
+let initialState = "NotCreated";
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/Category/Aggregate/Category_Behavior.res.mjs";
+
+export {
+  Spec,
+  stateSchema,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* stateSchema Not a pure module */

package/src/Category/ReadModel/Categories.res

@@ -0,0 +1,11 @@
+// Categories read model specification.
+// Query-side state for product categories.
+
+@@reventless.spec
+
+@schema
+type state = {
+  name: string,
+  archived: bool,
+}
+

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

@@ -0,0 +1,35 @@
+// 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 stateSchema = S.schema(s => ({
+  name: s.m(S.string),
+  archived: s.m(S.bool)
+}));
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let name = "Categories";
+
+let Id;
+
+let subIdConfig;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/Category/ReadModel/Categories.res.mjs";
+
+let authorization = "AllowAuthenticated";
+
+let visibility = "Public";
+
+export {
+  name,
+  Id,
+  stateSchema,
+  config,
+  subIdConfig,
+  moduleUrl,
+  authorization,
+  visibility,
+}
+/* stateSchema Not a pure module */

package/src/Category/ReadModel/Categories_Projections.res

@@ -0,0 +1,19 @@
+// Category projection mappings.
+// Maps Category aggregate events to Categories read model state changes.
+@@reventless.mappings
+
+module CategoryMapping = Mapping.Make(
+  Category,
+  Categories,
+  {
+    open Category
+    let project = ({event, id, _}) =>
+      switch event {
+      | Added({name}) => Set(id, {Categories.name, archived: false})
+      | Renamed({name}) => Update(id, state => {...state, name})
+      | Archived => Update(id, state => {...state, archived: true})
+      }
+  },
+)
+
+let mappings: array<module(Mapping)> = [module(CategoryMapping)]

package/src/Category/ReadModel/Categories_Projections.res.mjs

@@ -0,0 +1,75 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Projection$Reventless from "@reventlessdev/reventless-spec/src/types/Projection.res.mjs";
+import * as Category$CatalogPlugin from "../Aggregate/Category.res.mjs";
+import * as Categories$CatalogPlugin from "./Categories.res.mjs";
+
+let M = Projection$Reventless.Mappings.Make({
+  Id: Id$Reventless.$$String,
+  name: Categories$CatalogPlugin.name,
+  stateSchema: Categories$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+});
+
+function project(param) {
+  let event = param.event;
+  let id = param.id;
+  if (typeof event !== "object") {
+    return {
+      TAG: "Update",
+      _0: id,
+      _1: state => ({
+        name: state.name,
+        archived: true
+      })
+    };
+  }
+  if (event.TAG === "Added") {
+    return {
+      TAG: "Set",
+      _0: id,
+      _1: {
+        name: event.name,
+        archived: false
+      }
+    };
+  }
+  let name = event.name;
+  return {
+    TAG: "Update",
+    _0: id,
+    _1: state => ({
+      name: name,
+      archived: state.archived
+    })
+  };
+}
+
+let CategoryMapping = Projection$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: Category$CatalogPlugin.name,
+  eventSchema: Category$CatalogPlugin.eventSchema
+})({
+  Id: Id$Reventless.$$String,
+  name: Categories$CatalogPlugin.name,
+  stateSchema: Categories$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+})({
+  project: project
+});
+
+let mappings = [CategoryMapping];
+
+let Target;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/Category/ReadModel/Categories_Projections.res.mjs";
+
+export {
+  Target,
+  M,
+  CategoryMapping,
+  mappings,
+  moduleUrl,
+}
+/* M Not a pure module */

package/src/Extension/Orders_Extension.res

@@ -0,0 +1,23 @@
+// Catalog's extension subscribing to Ordering's OrdersExtensionPoint.
+// Routes ItemOrdered / ItemOrderCancelled events to ProductDemand commands.
+
+@@reventless.extension
+
+module Mapping = {
+  module ExtensionPoint = OrderingSpec.Orders_ExtensionPoint
+  module Delegate = ProductDemand
+
+  open ExtensionPoint
+  open Delegate
+  let mapIncomingEvent = (_id, event, _meta, _pluginDef, _queryEngine) =>
+    switch event {
+    | ItemOrdered({productId, orderId}) => [
+        PublishAggregateCommand(productId, Record({orderId: orderId})),
+      ]
+    | ItemOrderCancelled({productId, orderId}) => [
+        PublishAggregateCommand(productId, Revoke({orderId: orderId})),
+      ]
+    }
+
+  let mapOutgoingEvent = None
+}

package/src/Extension/Orders_Extension.res.mjs

@@ -0,0 +1,42 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as ProductDemand$CatalogPlugin from "../ProductDemand/Aggregate/ProductDemand.res.mjs";
+
+function mapIncomingEvent(_id, event, _meta, _pluginDef, _queryEngine) {
+  if (event.TAG === "ItemOrdered") {
+    return [{
+        TAG: "PublishAggregateCommand",
+        _0: event.productId,
+        _1: {
+          TAG: "Record",
+          orderId: event.orderId
+        }
+      }];
+  } else {
+    return [{
+        TAG: "PublishAggregateCommand",
+        _0: event.productId,
+        _1: {
+          TAG: "Revoke",
+          orderId: event.orderId
+        }
+      }];
+  }
+}
+
+let Mapping = {
+  ExtensionPoint: undefined,
+  Delegate: undefined,
+  mapIncomingEvent: mapIncomingEvent,
+  mapOutgoingEvent: undefined,
+  delegateModuleUrl: ProductDemand$CatalogPlugin.moduleUrl,
+  moduleUrl: "@reventlessdev/online-shop-aggregates-catalog/src/Extension/Orders_Extension.res.mjs"
+};
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/Extension/Orders_Extension.res.mjs";
+
+export {
+  Mapping,
+  moduleUrl,
+}
+/* ProductDemand-CatalogPlugin Not a pure module */

package/src/ExtensionPoint/Products_ExtensionPointMapping.res

@@ -0,0 +1,19 @@
+// Maps internal Product aggregate events to the stable ProductsExtensionPoint public API.
+@@reventless.spec
+
+module ExtensionPoint = CatalogSpec.Products_ExtensionPoint
+module Delegate = Product
+
+let mapIncomingCommand = (_id, _command, _meta) => []
+
+let mapOutgoingEvent = Some((id, event, _meta, _queryEngine) =>
+  switch event {
+  | Product.Added({name, price}) => [
+      PublishEvent(id, CatalogSpec.Products_ExtensionPoint.ProductBecameAvailable({productId: id, name, price})),
+    ]
+  | Product.PriceUpdated({price}) => [
+      PublishEvent(id, CatalogSpec.Products_ExtensionPoint.ProductPriceChanged({productId: id, price})),
+    ]
+  | _ => []
+  }
+)

package/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs

@@ -0,0 +1,56 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function mapIncomingCommand(_id, _command, _meta) {
+  return [];
+}
+
+let mapOutgoingEvent = (id, event, _meta, _queryEngine) => {
+  switch (event.TAG) {
+    case "Added" :
+      return [{
+          TAG: "PublishEvent",
+          _0: id,
+          _1: {
+            TAG: "ProductBecameAvailable",
+            productId: id,
+            name: event.name,
+            price: event.price
+          }
+        }];
+    case "NameUpdated" :
+    case "DescriptionUpdated" :
+      return [];
+    case "PriceUpdated" :
+      return [{
+          TAG: "PublishEvent",
+          _0: id,
+          _1: {
+            TAG: "ProductPriceChanged",
+            productId: id,
+            price: event.price
+          }
+        }];
+  }
+};
+
+let name = "Products";
+
+let Id;
+
+let ExtensionPoint;
+
+let Delegate;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs";
+
+export {
+  name,
+  Id,
+  ExtensionPoint,
+  Delegate,
+  mapIncomingCommand,
+  mapOutgoingEvent,
+  moduleUrl,
+}
+/* No side effect */

package/src/Plugin.res

@@ -0,0 +1,65 @@
+// AUTO-GENERATED — do not edit. Run `npm run generate` to update.
+
+@val external uiBundleUrl: option<string> = "process.env.CATALOG_UI_BUNDLE_URL"
+
+module Make = (Platform: ReventlessInfra.Platform.T) => {
+  // Aggregates
+  module CategoryAggregate = Platform.Aggregate.Make(
+    Category,
+    Category_Behavior,
+    ReventlessInfra.NoEventMappings.Make(Category),
+  )
+  module ProductAggregate = Platform.Aggregate.Make(
+    Product,
+    Product_Behavior,
+    ReventlessInfra.NoEventMappings.Make(Product),
+  )
+  module ProductDemandAggregate = Platform.Aggregate.Make(
+    ProductDemand,
+    ProductDemand_Behavior,
+    ReventlessInfra.NoEventMappings.Make(ProductDemand),
+  )
+
+  // ReadModels
+  module CategoriesReadModel = Platform.ReadModel.Make(Categories, Categories_Projections)
+  module ProductDemandsReadModel = Platform.ReadModel.Make(ProductDemands, ProductDemands_Projections)
+  module ProductsReadModel = Platform.ReadModel.Make(Products, Products_Projections)
+
+  // Tasks
+  module ImportProductsTask = Platform.Task.Make(ImportProducts)
+
+  // ExtensionPoints
+  module Products_ExtensionPoint = Platform.ExtensionPoint.Make(Products_ExtensionPointMapping)
+
+  // Extensions
+  module Orders_Extension = Platform.Extension.Make(Orders_Extension.Mapping)
+
+  let pluginStructure = Platform.Plugin.makePluginDefinition(
+    ~name="Catalog",
+    ~aggregates=[module(CategoryAggregate), module(ProductAggregate), module(ProductDemandAggregate)],
+    ~readModels=[module(CategoriesReadModel), module(ProductDemandsReadModel), module(ProductsReadModel)],
+    ~extensions=[module(Orders_Extension)],
+    ~extensionPoints=[module(Products_ExtensionPointMapping)],
+  )
+
+  let make = () =>
+    Platform.Plugin.make(
+      ~name="Catalog",
+      ~heartbeatInterval=5,
+      ~extensionPoints=[module(Products_ExtensionPoint)],
+      ~extensions=[module(Orders_Extension)],
+      ~aggregates=[module(CategoryAggregate), module(ProductAggregate), module(ProductDemandAggregate)],
+      ~readModels=[module(CategoriesReadModel), module(ProductDemandsReadModel), module(ProductsReadModel)],
+      ~tasks=[module(ImportProductsTask)],
+      ~pluginStructure=pluginStructure,
+      ~uiFragments=?uiBundleUrl->Option.map(url =>
+        Platform.Plugin.makeAutoUIManifest(
+          ~remoteEntryUrl=url,
+          ~name="Catalog",
+          ~pluginStructure,
+          ~readModelPositions=["platform-summary"],
+          ~aggregatePositions=["resource-detail"],
+        )
+      ),
+    )
+}