Exclusion event command

Author: Lan2u

src/commands/exclusion-events/exclude-event-form.ts

@@ -0,0 +1,63 @@
+import {flow, pipe} from 'fp-ts/lib/function';
+import * as E from 'fp-ts/Either';
+import {html, safe, toLoggedInContent} from '../../types/html';
+import {Form} from '../../types/form';
+import { DomainEvent } from '../../types';
+import { renderEvent } from '../../queries/shared-render/render-domain-event';
+import * as t from 'io-ts';
+import * as tt from 'io-ts-types';
+import { formatValidationErrors } from 'io-ts-reporters';
+import { failureWithStatus } from '../../types/failure-with-status';
+import { StatusCodes } from 'http-status-codes';
+import * as O from 'fp-ts/Option';
+
+type ViewModel = {
+  event: O.Option<DomainEvent>,
+  event_id: tt.UUID,
+};
+
+const renderForm = (viewModel: ViewModel) =>
+  O.isSome(viewModel.event) ?
+  pipe(
+    html`
+      <h1>Exclude an event</h1>
+      <p>Are you sure you want to exclude (delete) this event? This form should only be used
+      </p>
+      ${renderEvent(viewModel.event.value)}
+      <form action="/events/exclude-event" method="post">
+        <input type="hidden" name="event_id" value="${viewModel.event_id}"/>
+        <button type="submit">Confirm</button>
+      </form>
+    `,
+    toLoggedInContent(safe('Exclude event'))
+  ) : pipe(
+    html`
+      <h1>Unknown event: ${viewModel.event_id}</h1>
+    `,
+    toLoggedInContent(safe('Exclude event'))
+  );
+
+const paramsCodec = t.strict({
+  event_id: tt.UUID
+});
+
+const constructForm: Form<ViewModel>['constructForm'] = input => ({events}) => pipe(
+  input,
+  paramsCodec.decode,
+  E.mapLeft(
+    flow(
+      formatValidationErrors,
+      failureWithStatus(
+        'Parameters submitted to the form were invalid',
+        StatusCodes.BAD_REQUEST
+      )
+    )
+  ),
+  E.map(params => params.event_id),
+  E.map(event_id => ({event_id, event: O.fromNullable(events.findLast((event) => event.event_id === event_id))}))
+);
+
+export const excludeEventForm: Form<ViewModel> = {
+  renderForm,
+  constructForm,
+};

src/commands/exclusion-events/exclude-event.ts

@@ -0,0 +1,26 @@
+import * as t from 'io-ts';
+import * as tt from 'io-ts-types';
+import {Command} from '../command';
+import {isAdminOrSuperUser} from '../is-admin-or-super-user';
+
+const codec = t.strict({
+  event_id: tt.UUID
+});
+
+export type ExcludeEvent = t.TypeOf<typeof codec>;
+
+const process: Command<ExcludeEvent>['process'] = async input => {
+  
+};
+
+const resource = () => ({
+  type: 'ExcludeEvent',
+  id: 'ExcludeEvent',
+});
+
+export const excludeEvent: Command<ExcludeEvent> = {
+  process,
+  resource,
+  decode: codec.decode,
+  isAuthorized: isAdminOrSuperUser,
+};

src/commands/exclusion-events/index.ts

@@ -0,0 +1,9 @@
+import { excludeEvent } from "./exclude-event";
+import { excludeEventForm } from "./exclude-event-form";
+
+export const events = {
+  excludeEvent: {
+    ...excludeEvent,
+    ...excludeEventForm,
+  },
+};

src/commands/index.ts

@@ -5,6 +5,7 @@ import {members} from './members';
 import {memberNumbers} from './member-numbers';
 import {superUser} from './super-user';
 import {ownerAgreementInvite} from './owner-agreement-invite';
+import {events} from './exclusion-events';
 
 export const commands = {
   area,
@@ -13,6 +14,7 @@ export const commands = {
   superUser,
   memberNumbers,
   members,
+  events,
 };
 
 export const sendEmailCommands = {

src/queries/log/render.ts

@@ -1,38 +1,14 @@
 import {pipe} from 'fp-ts/lib/function';
 import * as RA from 'fp-ts/ReadonlyArray';
-import {html, safe, joinHtml, sanitizeString} from '../../types/html';
+import {html, safe, joinHtml} from '../../types/html';
 import {ViewModel, LogSearch} from './view-model';
-import {DomainEvent} from '../../types';
-import {inspect} from 'node:util';
-import {displayDate} from '../../templates/display-date';
-import {DateTime} from 'luxon';
-import {renderActor} from '../../types/actor';
 import * as qs from 'qs';
-
-const renderPayload = (event: DomainEvent) =>
-  // eslint-disable-next-line unused-imports/no-unused-vars
-  pipe(event, ({type, actor, recordedAt, ...payload}) =>
-    pipe(
-      payload,
-      Object.entries,
-      RA.map(([key, value]) => `${key}: ${inspect(value)}`),
-      RA.map(sanitizeString),
-      joinHtml
-    )
-  );
-
-const renderEntry = (event: ViewModel['events'][number]) => html`
-  <li>
-    <b>${sanitizeString(event.type)}</b> by ${renderActor(event.actor)} at
-    ${displayDate(DateTime.fromJSDate(event.recordedAt))}<br />
-    ${renderPayload(event)}
-  </li>
-`;
+import { renderEvent } from '../shared-render/render-domain-event';
 
 const renderLog = (log: ViewModel['events']) =>
   pipe(
     log,
-    RA.map(renderEntry),
+    RA.map(renderEvent),
     joinHtml,
     items => html`
       <ul>

src/queries/shared-render/render-domain-event.ts

@@ -0,0 +1,28 @@
+import {pipe} from 'fp-ts/lib/function';
+import * as RA from 'fp-ts/ReadonlyArray';
+import {html, safe, joinHtml, sanitizeString} from '../../types/html';
+import {DomainEvent} from '../../types';
+import {inspect} from 'node:util';
+import {displayDate} from '../../templates/display-date';
+import {DateTime} from 'luxon';
+import {renderActor} from '../../types/actor';
+
+const renderPayload = (event: DomainEvent) =>
+  // eslint-disable-next-line unused-imports/no-unused-vars
+  pipe(event, ({type, actor, recordedAt, ...payload}) =>
+    pipe(
+      payload,
+      Object.entries,
+      RA.map(([key, value]) => `${key}: ${inspect(value)}`),
+      RA.map(sanitizeString),
+      joinHtml
+    )
+  );
+
+export const renderEvent = (event: DomainEvent) => html`
+  <li>
+    <b>${sanitizeString(event.type)}</b> by ${renderActor(event.actor)} at
+    ${displayDate(DateTime.fromJSDate(event.recordedAt))}<br />
+    ${renderPayload(event)}
+  </li>
+`;

src/routes.ts

@@ -99,6 +99,11 @@ export const initRoutes = (
       'rejoined-with-existing',
       commands.memberNumbers.markMemberRejoinedWithExistingNumber
     ),
+    ...command(
+      'events',
+      'exclude-event',
+      commands.events.excludeEvent
+    ),
     email('owner-agreement-invite', sendEmailCommands.ownerAgreementInvite),
     get('/ping', ping),
     query('/db', queries.db),

src/types/form.ts

@@ -1,4 +1,4 @@
-import {User} from '.';
+import {DomainEvent, User} from '.';
 import {FailureWithStatus} from './failure-with-status';
 import * as E from 'fp-ts/Either';
 import {HttpResponse} from './html';
@@ -9,7 +9,7 @@ export type Form<T> = {
   renderForm: (viewModel: T) => Member<HttpResponse, 'LoggedInContent'>;
   constructForm: (input: unknown) => (context: {
     user: User;
-    // events: ReadonlyArray<DomainEvent>;
+    events: ReadonlyArray<DomainEvent>;
     readModel: SharedReadModel;
   }) => E.Either<FailureWithStatus, T>;
 };