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

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

@@ -0,0 +1,171 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+import * as Projection$Reventless from "@reventlessdev/reventless-spec/src/types/Projection.res.mjs";
+import * as CategoryActivity$CatalogPlugin from "./CategoryActivity.res.mjs";
+
+let M = Projection$Reventless.Mappings.Make({
+  Id: Id$Reventless.$$String,
+  name: CategoryActivity$CatalogPlugin.name,
+  stateSchema: CategoryActivity$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+});
+
+let name = "CatalogDcbEventLog";
+
+let eventSchema = 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 CategoryEvents = {
+  Id: undefined,
+  name: name,
+  eventSchema: eventSchema
+};
+
+let name$1 = "CatalogDcbEventLog";
+
+let eventSchema$1 = S.union([
+  S.schema(s => ({
+    TAG: "ProductAdded",
+    productId: s.m(DcbTag$Reventless.string),
+    name: s.m(S.string),
+    description: s.m(S.string),
+    price: s.m(S.float)
+  })),
+  S.schema(s => ({
+    TAG: "ProductNameChanged",
+    productId: s.m(DcbTag$Reventless.string),
+    name: s.m(S.string)
+  }))
+]);
+
+let ProductEvents = {
+  Id: undefined,
+  name: name$1,
+  eventSchema: eventSchema$1
+};
+
+function project(param) {
+  let event = param.event;
+  switch (event.TAG) {
+    case "CategoryAdded" :
+      return {
+        TAG: "Set",
+        _0: event.categoryId,
+        _1: {
+          name: event.name,
+          kind: "Category",
+          lastChange: "Added"
+        }
+      };
+    case "CategoryRenamed" :
+      let name = event.name;
+      return {
+        TAG: "Update",
+        _0: event.categoryId,
+        _1: state => ({
+          name: name,
+          kind: state.kind,
+          lastChange: "Renamed"
+        })
+      };
+    case "CategoryArchived" :
+      return {
+        TAG: "Update",
+        _0: event.categoryId,
+        _1: state => ({
+          name: state.name,
+          kind: state.kind,
+          lastChange: "Archived"
+        })
+      };
+  }
+}
+
+let CategoryActivityMapping = Projection$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: name,
+  eventSchema: eventSchema
+})({
+  Id: Id$Reventless.$$String,
+  name: CategoryActivity$CatalogPlugin.name,
+  stateSchema: CategoryActivity$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+})({
+  project: project
+});
+
+function project$1(param) {
+  let event = param.event;
+  if (event.TAG === "ProductAdded") {
+    return {
+      TAG: "Set",
+      _0: event.productId,
+      _1: {
+        name: event.name,
+        kind: "Product",
+        lastChange: "Added"
+      }
+    };
+  }
+  let name = event.name;
+  return {
+    TAG: "Update",
+    _0: event.productId,
+    _1: state => ({
+      name: name,
+      kind: state.kind,
+      lastChange: "Renamed"
+    })
+  };
+}
+
+let ProductActivityMapping = Projection$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: name$1,
+  eventSchema: eventSchema$1
+})({
+  Id: Id$Reventless.$$String,
+  name: CategoryActivity$CatalogPlugin.name,
+  stateSchema: CategoryActivity$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+})({
+  project: project$1
+});
+
+let mappings = [
+  CategoryActivityMapping,
+  ProductActivityMapping
+];
+
+let Target;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/CategoryActivity/ReadModel/CategoryActivity_Projections.res.mjs";
+
+export {
+  Target,
+  M,
+  CategoryEvents,
+  ProductEvents,
+  CategoryActivityMapping,
+  ProductActivityMapping,
+  mappings,
+  moduleUrl,
+}
+/* M Not a pure module */

package/src/Extension/Orders_Extension.res

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

package/src/Extension/Orders_Extension.res.mjs

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

package/src/ExtensionPoint/Products_ExtensionPointMapping.res

@@ -0,0 +1,33 @@
+// Maps internal Catalog events to the stable Products_ExtensionPoint public API.
+@@reventless.spec
+
+module ExtensionPoint = CatalogSpec.Products_ExtensionPoint
+
+// DCB adapter: defines the event type used for outgoing event mapping.
+// Only the events relevant to the extension point are included.
+// `name` MUST equal `<pluginName>DcbEventLog` so the dispatch in
+// `Plugin_Callback` resolves it to the topic key `Plugin_Builder` registers
+// under (`name ++ "DcbEventLog"`).
+module Delegate = {
+  let name = "CatalogDcbEventLog"
+  @schema
+  type event =
+    | ProductAdded({productId: string, name: string, description: string, price: float})
+    | ProductPriceChanged({productId: string, price: float})
+}
+
+let mapIncomingCommand = (_id, _command, _meta) => []
+
+let mapOutgoingEvent = Some((_id, event, _meta, _queryEngine) =>
+  switch event {
+  | Delegate.ProductAdded({productId, name, price}) => [
+      PublishEvent(
+        productId,
+        CatalogSpec.Products_ExtensionPoint.ProductBecameAvailable({productId, name, price}),
+      ),
+    ]
+  | Delegate.ProductPriceChanged({productId, price}) => [
+      PublishEvent(productId, CatalogSpec.Products_ExtensionPoint.ProductPriceChanged({productId, price})),
+    ]
+  }
+)

package/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs

@@ -0,0 +1,82 @@
+// 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 eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "ProductAdded",
+    productId: s.m(DcbTag$Reventless.string),
+    name: s.m(S.string),
+    description: s.m(S.string),
+    price: s.m(S.float)
+  })),
+  S.schema(s => ({
+    TAG: "ProductPriceChanged",
+    productId: s.m(DcbTag$Reventless.string),
+    price: s.m(S.float)
+  }))
+]);
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let Delegate = {
+  Id: undefined,
+  commandSchema: S.unit,
+  name: "CatalogDcbEventLog",
+  eventSchema: eventSchema,
+  errorSchema: S.unit,
+  moduleUrl: "@reventlessdev/online-shop-dcb-catalog/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs",
+  commandAuthorization: commandAuthorization
+};
+
+function mapIncomingCommand(_id, _command, _meta) {
+  return [];
+}
+
+let mapOutgoingEvent = (_id, event, _meta, _queryEngine) => {
+  if (event.TAG === "ProductAdded") {
+    let productId = event.productId;
+    return [{
+        TAG: "PublishEvent",
+        _0: productId,
+        _1: {
+          TAG: "ProductBecameAvailable",
+          productId: productId,
+          name: event.name,
+          price: event.price
+        }
+      }];
+  }
+  let productId$1 = event.productId;
+  return [{
+      TAG: "PublishEvent",
+      _0: productId$1,
+      _1: {
+        TAG: "ProductPriceChanged",
+        productId: productId$1,
+        price: event.price
+      }
+    }];
+};
+
+let name = "Products";
+
+let Id;
+
+let ExtensionPoint;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs";
+
+export {
+  name,
+  Id,
+  ExtensionPoint,
+  Delegate,
+  mapIncomingCommand,
+  mapOutgoingEvent,
+  moduleUrl,
+}
+/* eventSchema Not a pure module */

package/src/Plugin.res

@@ -0,0 +1,68 @@
+// 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) => {
+  // StateChangeSlices
+  module AddCategorySlice = Platform.StateChangeSlice.Make(AddCategory, AddCategory_Behavior)
+  module AddProductSlice = Platform.StateChangeSlice.Make(AddProduct, AddProduct_Behavior)
+  module ArchiveCategorySlice = Platform.StateChangeSlice.Make(ArchiveCategory, ArchiveCategory_Behavior)
+  module ChangeProductDescriptionSlice = Platform.StateChangeSlice.Make(ChangeProductDescription, ChangeProductDescription_Behavior)
+  module ChangeProductNameSlice = Platform.StateChangeSlice.Make(ChangeProductName, ChangeProductName_Behavior)
+  module ChangeProductPriceSlice = Platform.StateChangeSlice.Make(ChangeProductPrice, ChangeProductPrice_Behavior)
+  module RecordProductDemandSlice = Platform.StateChangeSlice.Make(RecordProductDemand, RecordProductDemand_Behavior)
+  module RenameCategorySlice = Platform.StateChangeSlice.Make(RenameCategory, RenameCategory_Behavior)
+
+  // StateViewSlices
+  module CategoriesSlice = Platform.StateViewSlice.Make(Categories, Categories_Projection)
+  module ProductDemandSlice = Platform.StateViewSlice.Make(ProductDemand, ProductDemand_Projection)
+  module ProductsSlice = Platform.StateViewSlice.Make(Products, Products_Projection)
+
+  // InboundTranslationSlices
+  module ImportProductSlice = Platform.InboundTranslationSlice.Make(ImportProduct, ImportProduct_Translation)
+
+  // ReadModels
+  module CategoryActivityReadModel = Platform.ReadModel.Make(CategoryActivity, CategoryActivity_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",
+    ~readModels=[module(CategoryActivityReadModel)],
+    ~stateViewSlices=[module(CategoriesSlice), module(ProductDemandSlice), module(ProductsSlice)],
+    ~stateChangeSlices=[module(AddCategorySlice), module(AddProductSlice), module(ArchiveCategorySlice), module(ChangeProductDescriptionSlice), module(ChangeProductNameSlice), module(ChangeProductPriceSlice), module(RecordProductDemandSlice), module(RenameCategorySlice)],
+    ~inboundTranslationSlices=[module(ImportProductSlice)],
+    ~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)],
+      ~readModels=[module(CategoryActivityReadModel)],
+      ~tasks=[module(ImportProductsTask)],
+      ~stateChangeSlices=[module(AddCategorySlice), module(AddProductSlice), module(ArchiveCategorySlice), module(ChangeProductDescriptionSlice), module(ChangeProductNameSlice), module(ChangeProductPriceSlice), module(RecordProductDemandSlice), module(RenameCategorySlice)],
+      ~stateViewSlices=[module(CategoriesSlice), module(ProductDemandSlice), module(ProductsSlice)],
+      ~inboundTranslationSlices=[module(ImportProductSlice)],
+      ~pluginStructure=pluginStructure,
+      ~uiFragments=?uiBundleUrl->Option.map(url =>
+        Platform.Plugin.makeAutoUIManifest(
+          ~remoteEntryUrl=url,
+          ~name="Catalog",
+          ~pluginStructure,
+          ~readModelPositions=["platform-summary"],
+          ~aggregatePositions=["resource-detail"],
+        )
+      ),
+    )
+}