@reventlessdev/reventless-core 3.0.0-alpha.134

package/src/admin/Platform_ComponentDefinitionsApi.res

@@ -0,0 +1,160 @@
+// SDL types and JSON encoder for the Platform_ComponentDefinitions GraphQL query.
+// Shared between the in-memory adapter (which resolves from an in-process store)
+// and the AWS adapter (which resolves from the Plugin read model). Keeping both
+// adapters byte-identical guarantees a single client query string works against
+// both.
+
+open Reventless.Plugin
+
+let sdlTypes: array<string> = [
+  `type Platform_FieldReference {\n  fieldName: String!\n  entity: String!\n  plugin: String\n}`,
+  `type Platform_CommandDef {\n  name: String!\n  schema: String!\n  level: String!\n  aggregateIdField: String\n  mutationField: String!\n  references: [Platform_FieldReference!]!\n  allowedStates: [String!]\n  apiExposed: Boolean\n}`,
+  `type Platform_EventDef {\n  name: String!\n  schema: String!\n  references: [Platform_FieldReference!]!\n}`,
+  `type Platform_WriteSideDef {\n  name: String!\n  commands: [Platform_CommandDef!]!\n  linkedViews: [String!]!\n  consistencyRead: String\n  producedEventTypes: [String!]!\n  consumedEventTypes: [String!]!\n  events: [Platform_EventDef!]!\n}`,
+  `type Platform_ReadSideDef {\n  name: String!\n  queryField: String!\n  schema: String!\n  consumedEventTypes: [String!]!\n  linkedWriteSide: [String!]!\n  labelField: String!\n  searchableFields: [String!]!\n  statusField: String\n}`,
+  `type Platform_AutomationSliceDef {\n  name: String!\n  consumedEventTypes: [String!]!\n  producedCommandTypes: [String!]!\n}`,
+  `type Platform_OutboundTranslationSliceDef {\n  name: String!\n  consumedEventTypes: [String!]!\n  inboundCommandTypes: [String!]!\n}`,
+  `type Platform_InboundTranslationSliceDef {\n  name: String!\n  commandTypes: [String!]!\n}`,
+  `type Platform_ExtensionDef {\n  name: String!\n  delegateNames: [String!]!\n  eventTypes: [String!]!\n  commandTypes: [String!]!\n}`,
+  `type Platform_ComponentDefinitionEntry {\n  pluginId: String!\n  readModels: [Platform_ReadSideDef!]!\n  stateViewSlices: [Platform_ReadSideDef!]!\n  stateChangeSlices: [Platform_WriteSideDef!]!\n  aggregates: [Platform_WriteSideDef!]!\n  automationSlices: [Platform_AutomationSliceDef!]!\n  outboundTranslationSlices: [Platform_OutboundTranslationSliceDef!]!\n  inboundTranslationSlices: [Platform_InboundTranslationSliceDef!]!\n  extensions: [Platform_ExtensionDef!]!\n}`,
+]
+
+let sdlQueryField: string = `  Platform_ComponentDefinitions: [Platform_ComponentDefinitionEntry!]!`
+
+let encodeStrings = (ss: array<string>): JSON.t =>
+  ss->Array.map(JSON.Encode.string)->JSON.Encode.array
+
+let encodeFieldReference = (r: fieldReference): JSON.t =>
+  Dict.fromArray([
+    ("fieldName", JSON.Encode.string(r.fieldName)),
+    ("entity", JSON.Encode.string(r.entity)),
+    ("plugin", r.plugin->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
+  ])->JSON.Encode.object
+
+let encodeCommandDef = (c: commandDef): JSON.t =>
+  Dict.fromArray([
+    ("name", JSON.Encode.string(c.name)),
+    ("schema", JSON.Encode.string(c.schema)),
+    (
+      "level",
+      JSON.Encode.string(
+        switch c.level {
+        | Collection => "Collection"
+        | Instance => "Instance"
+        },
+      ),
+    ),
+    (
+      "aggregateIdField",
+      c.aggregateIdField->Option.mapOr(JSON.Encode.null, JSON.Encode.string),
+    ),
+    ("mutationField", JSON.Encode.string(c.mutationField)),
+    ("references", c.references->Array.map(encodeFieldReference)->JSON.Encode.array),
+    (
+      "allowedStates",
+      c.allowedStates->Option.mapOr(JSON.Encode.null, encodeStrings),
+    ),
+    ("apiExposed", c.apiExposed->Option.mapOr(JSON.Encode.null, JSON.Encode.bool)),
+  ])->JSON.Encode.object
+
+// Internal ReadModels / StateViewSlices are carried in pluginStructure for developer
+// tooling but must stay out of the deployed AutoUI — the menu, drill-down pages and
+// queryable defs are all derived from this response, so filter them here.
+let isPublicQueryable = (q: queryableDef): bool => q.visibility != Some("Internal")
+
+let encodeQueryableDef = (r: queryableDef): JSON.t =>
+  Dict.fromArray([
+    ("name", JSON.Encode.string(r.name)),
+    ("queryField", JSON.Encode.string(r.queryField)),
+    ("schema", JSON.Encode.string(r.schema)),
+    ("consumedEventTypes", encodeStrings(r.consumedEventTypes)),
+    ("linkedWriteSide", encodeStrings(r.linkedWriteSide)),
+    ("labelField", JSON.Encode.string(r.labelField)),
+    ("searchableFields", encodeStrings(r.searchableFields)),
+    ("statusField", r.statusField->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
+  ])->JSON.Encode.object
+
+let encodeEventDef = (e: eventDef): JSON.t =>
+  Dict.fromArray([
+    ("name", JSON.Encode.string(e.name)),
+    ("schema", JSON.Encode.string(e.schema)),
+    ("references", e.references->Array.map(encodeFieldReference)->JSON.Encode.array),
+  ])->JSON.Encode.object
+
+let encodeWritableDef = (w: writableDef): JSON.t =>
+  Dict.fromArray([
+    ("name", JSON.Encode.string(w.name)),
+    ("commands", w.commands->Array.map(encodeCommandDef)->JSON.Encode.array),
+    ("linkedViews", encodeStrings(w.linkedViews)),
+    (
+      "consistencyRead",
+      w.consistencyRead->Option.mapOr(JSON.Encode.null, JSON.Encode.string),
+    ),
+    ("producedEventTypes", encodeStrings(w.producedEventTypes)),
+    ("consumedEventTypes", encodeStrings(w.consumedEventTypes)),
+    // Phase 6.3: emitted-event field schemas (None → [] on the wire).
+    ("events", w.events->Array.map(encodeEventDef)->JSON.Encode.array),
+  ])->JSON.Encode.object
+
+let encodeAutomationSliceDef = (a: automationSliceDef): JSON.t =>
+  Dict.fromArray([
+    ("name", JSON.Encode.string(a.name)),
+    ("consumedEventTypes", encodeStrings(a.consumedEventTypes)),
+    ("producedCommandTypes", encodeStrings(a.producedCommandTypes)),
+  ])->JSON.Encode.object
+
+let encodeOutboundTranslationSliceDef = (o: outboundTranslationSliceDef): JSON.t =>
+  Dict.fromArray([
+    ("name", JSON.Encode.string(o.name)),
+    ("consumedEventTypes", encodeStrings(o.consumedEventTypes)),
+    ("inboundCommandTypes", encodeStrings(o.inboundCommandTypes)),
+  ])->JSON.Encode.object
+
+let encodeInboundTranslationSliceDef = (i: inboundTranslationSliceDef): JSON.t =>
+  Dict.fromArray([
+    ("name", JSON.Encode.string(i.name)),
+    ("commandTypes", encodeStrings(i.commandTypes)),
+  ])->JSON.Encode.object
+
+let encodeExtensionDef = (e: extensionDef): JSON.t =>
+  Dict.fromArray([
+    ("name", JSON.Encode.string(e.name)),
+    ("delegateNames", encodeStrings(e.delegateNames)),
+    ("eventTypes", encodeStrings(e.eventTypes)),
+    ("commandTypes", encodeStrings(e.commandTypes)),
+  ])->JSON.Encode.object
+
+let encodePluginStructureEntry = (~pluginId: string, def: pluginStructure): JSON.t =>
+  Dict.fromArray([
+    ("pluginId", JSON.Encode.string(Plugin.name(pluginId))),
+    (
+      "readModels",
+      def.readModels->Array.filter(isPublicQueryable)->Array.map(encodeQueryableDef)->JSON.Encode.array,
+    ),
+    (
+      "stateViewSlices",
+      def.stateViewSlices
+      ->Array.filter(isPublicQueryable)
+      ->Array.map(encodeQueryableDef)
+      ->JSON.Encode.array,
+    ),
+    ("stateChangeSlices", def.stateChangeSlices->Array.map(encodeWritableDef)->JSON.Encode.array),
+    ("aggregates", def.aggregates->Array.map(encodeWritableDef)->JSON.Encode.array),
+    (
+      "automationSlices",
+      def.automationSlices->Array.map(encodeAutomationSliceDef)->JSON.Encode.array,
+    ),
+    (
+      "outboundTranslationSlices",
+      def.outboundTranslationSlices
+      ->Array.map(encodeOutboundTranslationSliceDef)
+      ->JSON.Encode.array,
+    ),
+    (
+      "inboundTranslationSlices",
+      def.inboundTranslationSlices
+      ->Array.map(encodeInboundTranslationSliceDef)
+      ->JSON.Encode.array,
+    ),
+    ("extensions", def.extensions->Array.map(encodeExtensionDef)->JSON.Encode.array),
+  ])->JSON.Encode.object

package/src/admin/Platform_ComponentDefinitionsApi.res.mjs

@@ -0,0 +1,299 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
+import * as Plugin$ReventlessCore from "../plugin/component/Plugin.res.mjs";
+
+let sdlTypes = [
+  `type Platform_FieldReference {\n  fieldName: String!\n  entity: String!\n  plugin: String\n}`,
+  `type Platform_CommandDef {\n  name: String!\n  schema: String!\n  level: String!\n  aggregateIdField: String\n  mutationField: String!\n  references: [Platform_FieldReference!]!\n  allowedStates: [String!]\n  apiExposed: Boolean\n}`,
+  `type Platform_EventDef {\n  name: String!\n  schema: String!\n  references: [Platform_FieldReference!]!\n}`,
+  `type Platform_WriteSideDef {\n  name: String!\n  commands: [Platform_CommandDef!]!\n  linkedViews: [String!]!\n  consistencyRead: String\n  producedEventTypes: [String!]!\n  consumedEventTypes: [String!]!\n  events: [Platform_EventDef!]!\n}`,
+  `type Platform_ReadSideDef {\n  name: String!\n  queryField: String!\n  schema: String!\n  consumedEventTypes: [String!]!\n  linkedWriteSide: [String!]!\n  labelField: String!\n  searchableFields: [String!]!\n  statusField: String\n}`,
+  `type Platform_AutomationSliceDef {\n  name: String!\n  consumedEventTypes: [String!]!\n  producedCommandTypes: [String!]!\n}`,
+  `type Platform_OutboundTranslationSliceDef {\n  name: String!\n  consumedEventTypes: [String!]!\n  inboundCommandTypes: [String!]!\n}`,
+  `type Platform_InboundTranslationSliceDef {\n  name: String!\n  commandTypes: [String!]!\n}`,
+  `type Platform_ExtensionDef {\n  name: String!\n  delegateNames: [String!]!\n  eventTypes: [String!]!\n  commandTypes: [String!]!\n}`,
+  `type Platform_ComponentDefinitionEntry {\n  pluginId: String!\n  readModels: [Platform_ReadSideDef!]!\n  stateViewSlices: [Platform_ReadSideDef!]!\n  stateChangeSlices: [Platform_WriteSideDef!]!\n  aggregates: [Platform_WriteSideDef!]!\n  automationSlices: [Platform_AutomationSliceDef!]!\n  outboundTranslationSlices: [Platform_OutboundTranslationSliceDef!]!\n  inboundTranslationSlices: [Platform_InboundTranslationSliceDef!]!\n  extensions: [Platform_ExtensionDef!]!\n}`
+];
+
+function encodeStrings(ss) {
+  return ss.map(prim => prim);
+}
+
+function encodeFieldReference(r) {
+  return Object.fromEntries([
+    [
+      "fieldName",
+      r.fieldName
+    ],
+    [
+      "entity",
+      r.entity
+    ],
+    [
+      "plugin",
+      Stdlib_Option.mapOr(r.plugin, null, prim => prim)
+    ]
+  ]);
+}
+
+function encodeCommandDef(c) {
+  let match = c.level;
+  let tmp;
+  tmp = match === "Collection" ? "Collection" : "Instance";
+  return Object.fromEntries([
+    [
+      "name",
+      c.name
+    ],
+    [
+      "schema",
+      c.schema
+    ],
+    [
+      "level",
+      tmp
+    ],
+    [
+      "aggregateIdField",
+      Stdlib_Option.mapOr(c.aggregateIdField, null, prim => prim)
+    ],
+    [
+      "mutationField",
+      c.mutationField
+    ],
+    [
+      "references",
+      c.references.map(encodeFieldReference)
+    ],
+    [
+      "allowedStates",
+      Stdlib_Option.mapOr(c.allowedStates, null, encodeStrings)
+    ],
+    [
+      "apiExposed",
+      Stdlib_Option.mapOr(c.apiExposed, null, prim => prim)
+    ]
+  ]);
+}
+
+function isPublicQueryable(q) {
+  return Primitive_object.notequal(q.visibility, "Internal");
+}
+
+function encodeQueryableDef(r) {
+  return Object.fromEntries([
+    [
+      "name",
+      r.name
+    ],
+    [
+      "queryField",
+      r.queryField
+    ],
+    [
+      "schema",
+      r.schema
+    ],
+    [
+      "consumedEventTypes",
+      r.consumedEventTypes.map(prim => prim)
+    ],
+    [
+      "linkedWriteSide",
+      r.linkedWriteSide.map(prim => prim)
+    ],
+    [
+      "labelField",
+      r.labelField
+    ],
+    [
+      "searchableFields",
+      r.searchableFields.map(prim => prim)
+    ],
+    [
+      "statusField",
+      Stdlib_Option.mapOr(r.statusField, null, prim => prim)
+    ]
+  ]);
+}
+
+function encodeEventDef(e) {
+  return Object.fromEntries([
+    [
+      "name",
+      e.name
+    ],
+    [
+      "schema",
+      e.schema
+    ],
+    [
+      "references",
+      e.references.map(encodeFieldReference)
+    ]
+  ]);
+}
+
+function encodeWritableDef(w) {
+  return Object.fromEntries([
+    [
+      "name",
+      w.name
+    ],
+    [
+      "commands",
+      w.commands.map(encodeCommandDef)
+    ],
+    [
+      "linkedViews",
+      w.linkedViews.map(prim => prim)
+    ],
+    [
+      "consistencyRead",
+      Stdlib_Option.mapOr(w.consistencyRead, null, prim => prim)
+    ],
+    [
+      "producedEventTypes",
+      w.producedEventTypes.map(prim => prim)
+    ],
+    [
+      "consumedEventTypes",
+      w.consumedEventTypes.map(prim => prim)
+    ],
+    [
+      "events",
+      w.events.map(encodeEventDef)
+    ]
+  ]);
+}
+
+function encodeAutomationSliceDef(a) {
+  return Object.fromEntries([
+    [
+      "name",
+      a.name
+    ],
+    [
+      "consumedEventTypes",
+      a.consumedEventTypes.map(prim => prim)
+    ],
+    [
+      "producedCommandTypes",
+      a.producedCommandTypes.map(prim => prim)
+    ]
+  ]);
+}
+
+function encodeOutboundTranslationSliceDef(o) {
+  return Object.fromEntries([
+    [
+      "name",
+      o.name
+    ],
+    [
+      "consumedEventTypes",
+      o.consumedEventTypes.map(prim => prim)
+    ],
+    [
+      "inboundCommandTypes",
+      o.inboundCommandTypes.map(prim => prim)
+    ]
+  ]);
+}
+
+function encodeInboundTranslationSliceDef(i) {
+  return Object.fromEntries([
+    [
+      "name",
+      i.name
+    ],
+    [
+      "commandTypes",
+      i.commandTypes.map(prim => prim)
+    ]
+  ]);
+}
+
+function encodeExtensionDef(e) {
+  return Object.fromEntries([
+    [
+      "name",
+      e.name
+    ],
+    [
+      "delegateNames",
+      e.delegateNames.map(prim => prim)
+    ],
+    [
+      "eventTypes",
+      e.eventTypes.map(prim => prim)
+    ],
+    [
+      "commandTypes",
+      e.commandTypes.map(prim => prim)
+    ]
+  ]);
+}
+
+function encodePluginStructureEntry(pluginId, def) {
+  return Object.fromEntries([
+    [
+      "pluginId",
+      Plugin$ReventlessCore.name(pluginId)
+    ],
+    [
+      "readModels",
+      def.readModels.filter(isPublicQueryable).map(encodeQueryableDef)
+    ],
+    [
+      "stateViewSlices",
+      def.stateViewSlices.filter(isPublicQueryable).map(encodeQueryableDef)
+    ],
+    [
+      "stateChangeSlices",
+      def.stateChangeSlices.map(encodeWritableDef)
+    ],
+    [
+      "aggregates",
+      def.aggregates.map(encodeWritableDef)
+    ],
+    [
+      "automationSlices",
+      def.automationSlices.map(encodeAutomationSliceDef)
+    ],
+    [
+      "outboundTranslationSlices",
+      def.outboundTranslationSlices.map(encodeOutboundTranslationSliceDef)
+    ],
+    [
+      "inboundTranslationSlices",
+      def.inboundTranslationSlices.map(encodeInboundTranslationSliceDef)
+    ],
+    [
+      "extensions",
+      def.extensions.map(encodeExtensionDef)
+    ]
+  ]);
+}
+
+let sdlQueryField = `  Platform_ComponentDefinitions: [Platform_ComponentDefinitionEntry!]!`;
+
+export {
+  sdlTypes,
+  sdlQueryField,
+  encodeStrings,
+  encodeFieldReference,
+  encodeCommandDef,
+  isPublicQueryable,
+  encodeQueryableDef,
+  encodeEventDef,
+  encodeWritableDef,
+  encodeAutomationSliceDef,
+  encodeOutboundTranslationSliceDef,
+  encodeInboundTranslationSliceDef,
+  encodeExtensionDef,
+  encodePluginStructureEntry,
+}
+/* No side effect */

package/src/admin/Platform_UIFragmentsApi.res

@@ -0,0 +1,55 @@
+// SDL types and JSON encoder for the Platform_UIFragments GraphQL query.
+// Shared between the in-memory adapter (which resolves from the in-process
+// UIFragmentRegistry QueryDb) and the AWS adapter (which scans the
+// UIFragmentRegistry DynamoDB table). Both adapters use this encoder so the
+// wire shape is byte-identical and a single client query string works against
+// either.
+
+open Reventless.Plugin
+
+let sdlTypes: array<string> = [
+  `type Platform_UIPanel {\n  fragmentId: String!\n  title: String!\n  description: String!\n  positions: [String!]!\n  requiredAccess: String\n}`,
+  `type Platform_UIMenuEntry {\n  label: String!\n  icon: String\n  group: String\n  sortOrder: Int!\n}`,
+  `type Platform_UIPage {\n  fragmentId: String!\n  title: String!\n  menuEntry: Platform_UIMenuEntry!\n  requiredAccess: String\n}`,
+  `type Platform_UIFragmentEntry {\n  pluginId: String!\n  remoteEntryUrl: String!\n  panels: [Platform_UIPanel!]!\n  pages: [Platform_UIPage!]!\n  registeredAt: String!\n  updatedAt: String!\n}`,
+]
+
+let sdlQueryField: string = `  Platform_UIFragments: [Platform_UIFragmentEntry!]!`
+
+let encodeStrings = (ss: array<string>): JSON.t =>
+  ss->Array.map(JSON.Encode.string)->JSON.Encode.array
+
+let encodePanel = (p: panelManifestEntry): JSON.t =>
+  Dict.fromArray([
+    ("fragmentId", JSON.Encode.string(p.fragmentId)),
+    ("title", JSON.Encode.string(p.title)),
+    ("description", JSON.Encode.string(p.description)),
+    ("positions", encodeStrings(p.positions)),
+    ("requiredAccess", p.requiredAccess->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
+  ])->JSON.Encode.object
+
+let encodeMenuEntry = (m: menuEntry): JSON.t =>
+  Dict.fromArray([
+    ("label", JSON.Encode.string(m.label)),
+    ("icon", m.icon->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
+    ("group", m.group->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
+    ("sortOrder", JSON.Encode.int(m.sortOrder)),
+  ])->JSON.Encode.object
+
+let encodePage = (p: pageManifestEntry): JSON.t =>
+  Dict.fromArray([
+    ("fragmentId", JSON.Encode.string(p.fragmentId)),
+    ("title", JSON.Encode.string(p.title)),
+    ("menuEntry", encodeMenuEntry(p.menuEntry)),
+    ("requiredAccess", p.requiredAccess->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
+  ])->JSON.Encode.object
+
+let encodeUIFragmentEntry = (entry: UIFragmentRegistryReadModelSpec.state): JSON.t =>
+  Dict.fromArray([
+    ("pluginId", JSON.Encode.string(Plugin.name(entry.pluginId))),
+    ("remoteEntryUrl", JSON.Encode.string(entry.remoteEntryUrl)),
+    ("panels", entry.panels->Array.map(encodePanel)->JSON.Encode.array),
+    ("pages", entry.pages->Array.map(encodePage)->JSON.Encode.array),
+    ("registeredAt", JSON.Encode.string(entry.registeredAt)),
+    ("updatedAt", JSON.Encode.string(entry.updatedAt)),
+  ])->JSON.Encode.object

package/src/admin/Platform_UIFragmentsApi.res.mjs

@@ -0,0 +1,124 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Plugin$ReventlessCore from "../plugin/component/Plugin.res.mjs";
+
+let sdlTypes = [
+  `type Platform_UIPanel {\n  fragmentId: String!\n  title: String!\n  description: String!\n  positions: [String!]!\n  requiredAccess: String\n}`,
+  `type Platform_UIMenuEntry {\n  label: String!\n  icon: String\n  group: String\n  sortOrder: Int!\n}`,
+  `type Platform_UIPage {\n  fragmentId: String!\n  title: String!\n  menuEntry: Platform_UIMenuEntry!\n  requiredAccess: String\n}`,
+  `type Platform_UIFragmentEntry {\n  pluginId: String!\n  remoteEntryUrl: String!\n  panels: [Platform_UIPanel!]!\n  pages: [Platform_UIPage!]!\n  registeredAt: String!\n  updatedAt: String!\n}`
+];
+
+function encodeStrings(ss) {
+  return ss.map(prim => prim);
+}
+
+function encodePanel(p) {
+  return Object.fromEntries([
+    [
+      "fragmentId",
+      p.fragmentId
+    ],
+    [
+      "title",
+      p.title
+    ],
+    [
+      "description",
+      p.description
+    ],
+    [
+      "positions",
+      p.positions.map(prim => prim)
+    ],
+    [
+      "requiredAccess",
+      Stdlib_Option.mapOr(p.requiredAccess, null, prim => prim)
+    ]
+  ]);
+}
+
+function encodeMenuEntry(m) {
+  return Object.fromEntries([
+    [
+      "label",
+      m.label
+    ],
+    [
+      "icon",
+      Stdlib_Option.mapOr(m.icon, null, prim => prim)
+    ],
+    [
+      "group",
+      Stdlib_Option.mapOr(m.group, null, prim => prim)
+    ],
+    [
+      "sortOrder",
+      m.sortOrder
+    ]
+  ]);
+}
+
+function encodePage(p) {
+  return Object.fromEntries([
+    [
+      "fragmentId",
+      p.fragmentId
+    ],
+    [
+      "title",
+      p.title
+    ],
+    [
+      "menuEntry",
+      encodeMenuEntry(p.menuEntry)
+    ],
+    [
+      "requiredAccess",
+      Stdlib_Option.mapOr(p.requiredAccess, null, prim => prim)
+    ]
+  ]);
+}
+
+function encodeUIFragmentEntry(entry) {
+  return Object.fromEntries([
+    [
+      "pluginId",
+      Plugin$ReventlessCore.name(entry.pluginId)
+    ],
+    [
+      "remoteEntryUrl",
+      entry.remoteEntryUrl
+    ],
+    [
+      "panels",
+      entry.panels.map(encodePanel)
+    ],
+    [
+      "pages",
+      entry.pages.map(encodePage)
+    ],
+    [
+      "registeredAt",
+      entry.registeredAt
+    ],
+    [
+      "updatedAt",
+      entry.updatedAt
+    ]
+  ]);
+}
+
+let sdlQueryField = `  Platform_UIFragments: [Platform_UIFragmentEntry!]!`;
+
+export {
+  sdlTypes,
+  sdlQueryField,
+  encodeStrings,
+  encodePanel,
+  encodeMenuEntry,
+  encodePage,
+  encodeUIFragmentEntry,
+}
+/* No side effect */

package/src/admin/UIFragmentRegistryProjection.res

@@ -0,0 +1,43 @@
+open Reventless.Message
+open Reventless.Projection
+
+let moduleUrl: string = %raw(`import.meta.url`)
+
+module UIFragmentRegistryMapping = Reventless.Projection.Mapping.Make(
+  PluginSpec,
+  UIFragmentRegistryReadModelSpec,
+  {
+    let project = ({event, id, meta: {time}}) =>
+      switch event {
+      | PluginSpec.UIFragmentRegistered({manifest}) =>
+        Set(
+          id,
+          {
+            UIFragmentRegistryReadModelSpec.pluginId: id,
+            remoteEntryUrl: manifest.remoteEntryUrl,
+            panels: manifest.panels,
+            pages: manifest.pages,
+            registeredAt: time,
+            updatedAt: time,
+          },
+        )
+      | UIFragmentUpdated({newManifest}) =>
+        Update(
+          id,
+          state => {
+            ...state,
+            remoteEntryUrl: newManifest.remoteEntryUrl,
+            panels: newManifest.panels,
+            pages: newManifest.pages,
+            updatedAt: time,
+          },
+        )
+      | UIFragmentDeregistered(_) => Delete(id)
+      | _ => Ignore
+      }
+  },
+)
+
+module Mappings = Reventless.Projection.Mappings.Make(UIFragmentRegistryReadModelSpec)
+
+let mappings: array<module(Mappings.Mapping)> = [module(UIFragmentRegistryMapping)]