@volter/twin-stripe 2.0.38 → 3.0.1

package/src/semantics/accounts.ts

@@ -0,0 +1,44 @@
+// Stripe's accounts operations (docs/contributing/architecture.md, "What an author writes"): each handler over the
+// handler contract's context, computing with the engine (../engine/).
+import type { HandlerContext } from '@volter/world-core';
+import { externalList } from '../engine/common.ts';
+import { controllerOf, expressRequirements, keptKyc } from '../engine/connect.ts';
+import { ACCOUNT_TYPES, accountCapabilities, accountRequirements, accountSettings, nowUnix } from '../engine/stripe.ts';
+import { accountMissing, accountRow, at, connectReview, created, fail, list, newest } from './shared.ts';
+export async function GetAccountsAccountExternalAccounts(ctx: HandlerContext): Promise<Response> {
+  const account = at(ctx, 'account');
+  if (!accountRow(ctx, account)) return accountMissing(ctx, account);
+  return list(ctx, 'external_account', newest(ctx, 'external_account').filter((e) => e.account === account));
+}
+
+// the requested capabilities become Stripe's status map, and settings its canonical shape
+export async function PostAccounts(ctx: HandlerContext): Promise<Response> {
+  const params = ctx.params;
+  const type = typeof params.type === 'string' ? params.type : 'standard';
+  if (!ACCOUNT_TYPES.has(type)) return fail(ctx, 'Invalid account type: must be one of express, standard, or custom.', 400, 'parameter_invalid_string_enum');
+  const { capabilities: _caps, settings: _settings, ...accountParams } = keptKyc(params);
+  const id = ctx.mint('account');
+  const made = await created(ctx, 'account', { ...accountParams, id, type }, {
+    business_type: null, charges_enabled: false, payouts_enabled: false, details_submitted: false,
+    capabilities: accountCapabilities(params), requirements: type === 'express' ? expressRequirements(params) : accountRequirements(),
+    country: typeof params.country === 'string' ? params.country : 'US',
+    default_currency: 'usd', email: params.email ?? null, metadata: {}, livemode: false,
+    settings: accountSettings(params.settings), business_profile: {},
+    controller: controllerOf(type), external_accounts: externalList(id, []),
+    future_requirements: { alternatives: [], current_deadline: null, currently_due: [], disabled_reason: null, errors: [], eventually_due: [], past_due: [], pending_verification: [] },
+    tos_acceptance: { date: null, ip: null, user_agent: null },
+  });
+  await connectReview(ctx, String(made.id));
+  return ctx.reply(ctx.expand('account', ctx.get('account', String(made.id))!));
+}
+
+// a single-use Express dashboard link, not stored
+export async function PostAccountsAccountLoginLinks(ctx: HandlerContext): Promise<Response> {
+  const id = at(ctx, 'account');
+  if (!ctx.get('account', id)) return accountMissing(ctx, id);
+  return ctx.reply({ object: 'login_link', created: nowUnix(ctx.occurredAt), url: `https://connect.twin.local/express/${id}` });
+}
+
+
+// source: spec:PostAccountsAccount "left unchanged."
+// source: https://docs.stripe.com/connect/account-capabilities "If a connected account has both card_payments and transfers"

package/src/semantics/{apps-secrets.ts → apps.ts}

@@ -1,18 +1,18 @@
-// Apps secret-store semantics: a secret is named within a scope (the account, or one user); setting
-// the same name in the same scope overwrites it. The scope is kept as a bookkeeping key.
-import type { Semantics, SemanticsContext } from '@volter/world-core';
-import { created, fail, list, newest, type Row, kept } from './shared.ts';
-
-const SECRET = 'apps.secret';
-
-function scopeKeyOf(ctx: SemanticsContext): string {
-  const scope = ctx.params.scope && typeof ctx.params.scope === 'object' ? (ctx.params.scope as Row) : undefined;
-  const scopeType = scope && typeof scope.type === 'string' ? scope.type : 'account';
-  return scopeType === 'user' ? `user:${String(scope!.user)}` : 'account';
+// Stripe's apps operations (docs/contributing/architecture.md, "What an author writes"): each handler over the
+// handler contract's context, computing with the engine (../engine/).
+import type { HandlerContext } from '@volter/world-core';
+import { SECRET } from '../engine/apps-secrets.ts';
+import type { Row } from '../engine/common.ts';
+import { nowUnix } from '../engine/stripe.ts';
+import { created, fail, named, scopeKeyOf } from './shared.ts';
+export async function GetAppsSecretsFind(ctx: HandlerContext): Promise<Response> {
+  const name = typeof ctx.params.name === 'string' ? ctx.params.name : '';
+  if (!name) return fail(ctx, 'Missing required param: name.', 400, 'parameter_missing');
+  const s = named(ctx, name);
+  return s ? ctx.reply(s) : fail(ctx, `No such secret: '${name}'`, 404, 'resource_missing');
 }
-const named = (ctx: SemanticsContext, name: string): Row | undefined => ctx.rows(SECRET).find((s) => s.name === name && kept(ctx, SECRET, s, '_scope_key') === scopeKeyOf(ctx));
 
-const set: Semantics = async (ctx) => {
+export async function PostAppsSecrets(ctx: HandlerContext): Promise<Response> {
   const params = ctx.params;
   const name = typeof params.name === 'string' ? params.name : '';
   if (!name) return fail(ctx, 'Missing required param: name.', 400, 'parameter_missing');
@@ -23,7 +23,7 @@ const set: Semantics = async (ctx) => {
   if (params.payload === undefined) return fail(ctx, 'Missing required param: payload.', 400, 'parameter_missing');
   const expiresAt = params.expires_at !== undefined ? Math.trunc(Number(params.expires_at)) : null;
   const existing = named(ctx, name);
-  if (existing) return ctx.reply(await ctx.write(SECRET, String(existing.id), { payload: params.payload, expires_at: expiresAt, _updated: ctx.now() }, 'apps_secret.update'));
+  if (existing) return ctx.reply(await ctx.write(SECRET, String(existing.id), { payload: params.payload, expires_at: expiresAt, _updated: nowUnix(ctx.occurredAt) }, 'apps_secret.update'));
   return ctx.reply(
     await created(ctx, SECRET, { name }, {
       livemode: false, deleted: false, expires_at: expiresAt, payload: params.payload,
@@ -31,28 +31,12 @@ const set: Semantics = async (ctx) => {
       _scope_key: scopeKeyOf(ctx),
     }),
   );
-};
-
-const find: Semantics = async (ctx) => {
-  const name = typeof ctx.params.name === 'string' ? ctx.params.name : '';
-  if (!name) return fail(ctx, 'Missing required param: name.', 400, 'parameter_missing');
-  const s = named(ctx, name);
-  return s ? ctx.reply(s) : fail(ctx, `No such secret: '${name}'`, 404, 'resource_missing');
-};
+}
 
-const remove: Semantics = async (ctx) => {
+export async function PostAppsSecretsDelete(ctx: HandlerContext): Promise<Response> {
   const name = typeof ctx.params.name === 'string' ? ctx.params.name : '';
   if (!name) return fail(ctx, 'Missing required param: name.', 400, 'parameter_missing');
   const s = named(ctx, name);
   if (!s) return fail(ctx, `No such secret: '${name}'`, 404, 'resource_missing');
   return ctx.reply(await ctx.write(SECRET, String(s.id), { deleted: true }, 'apps_secret.delete'));
-};
-
-const listSecrets: Semantics = async (ctx) => list(ctx, SECRET, newest(ctx, SECRET).filter((s) => kept(ctx, SECRET, s, '_scope_key') === scopeKeyOf(ctx)));
-
-export const appsSecrets: Record<string, Semantics> = {
-  PostAppsSecrets: set,
-  GetAppsSecretsFind: find,
-  PostAppsSecretsDelete: remove,
-  GetAppsSecrets: listSecrets,
-};
+}

package/src/semantics/around.ts

@@ -0,0 +1,17 @@
+// What Stripe does around every API request (docs/contributing/architecture.md, "What an author writes": around): a
+// request's key is one Stripe issued (the platform's, or a connected account's OAuth key); an OAuth key acts as its
+// connected account; a publishable key is held to the client-side calls, a revoked account is
+// refused and the parameters are checked against the operation's; a metadata hash merges; and every answer is rendered
+// in the caller's API version (../engine/front.ts).
+import type { HandlerContext } from '@volter/world-core';
+import { platformKeyRefused, publishableKeyRefused, refuseParameters, rendered, withMetadata } from './shared.ts';
+export async function around(ctx: HandlerContext, next: (request?: Request) => Promise<Response>): Promise<Response> {
+  const arrived = ctx.call.request;
+  const unkeyed = platformKeyRefused(ctx, arrived);
+  if (unkeyed) return unkeyed;
+  if (ctx.call.operation.id !== 'unmatched') {
+    const refused = publishableKeyRefused(ctx) ?? refuseParameters(ctx);
+    if (refused) return refused;
+  }
+  return rendered(arrived, await next(withMetadata(ctx, arrived.clone())));
+}

package/src/semantics/balance.ts

@@ -1,209 +1,7 @@
-// Balance and payout semantics. The balance is computed from the balance-transaction ledger (./ledger.ts), never
-// stored: funds past their available_on are available, the rest pending, and Issuing funds their own section. The
-// balance, the payouts and the ledger are the acting account's: the platform's, or a connected account's under the
-// Stripe-Account header. A payout comes out of what that account has available and goes to its bank account, which a
-// connected account must have (docs.stripe.com/connect/payouts-connected-accounts). A pending payout can be canceled,
-// which returns its money; a connected account's paid payout can be reversed, which debits its bank account back
-// into its balance (docs.stripe.com/api/payouts/reverse). The machine in ../manifest.ts says how a payout's status
-// moves.
-//
-// Stripe also pays each account out on its own schedule (settings.payouts.schedule: daily by default, weekly or monthly
-// on an anchor, or manual): an automatic payout takes what has become available since the last one, and the ledger
-// lists the entries it paid (docs.stripe.com/payouts#payout-schedule, docs.stripe.com/connect/manage-payout-schedule).
-// A connected account is paid out once it can be (payouts_enabled, with a bank account).
-//
-// Where the documentation stops and the twin decides: a payout arrives two days after it is made (Stripe's standard
-// US schedule counts business days) and reads paid from then on; an automatic payout is made at midnight UTC on the
-// first scheduled day on or after its funds become available, only when what it would pay is positive.
-import type { Semantics, SemanticsContext } from '@volter/world-core';
-import { validateMoney } from '../stripe-twin.ts';
-import { accountSettings, PLATFORM_ACCOUNT_ID } from '../stripe-twin.ts';
-import { actingAccount, balanceOf, refusePayout, settleAutomaticPayout, settlePayout, unpaidEntries } from './ledger.ts';
-import { at, at_, created, fail, inRange, list, newest, send, where, type Row, kept } from './shared.ts';
-
-const account = actingAccount;
-const DAY = 86_400;
-const payoutMissing = (ctx: SemanticsContext, id: string): Response => fail(ctx, `No such payout: '${id}'`, 404, 'resource_missing');
-
-/** The acting account's Balance object (docs.stripe.com/api/balance/balance_object). */
-export function balanceBody(ctx: SemanticsContext): Row {
-  const { available, pending, issuing } = balanceOf(ctx);
-  const toArr = (m: Map<string, number>) => {
-    const out = [...m.entries()].map(([currency, amount]) => ({ amount, currency, source_types: { card: amount } }));
-    return out.length ? out : [{ amount: 0, currency: 'usd', source_types: { card: 0 } }];
-  };
-  // a platform's balance holds its connected accounts' reserve, "Funds held due to negative balances on connected accounts
-  // where account.controller.requirement_collection is `application`" (docs.stripe.com/api/balance/balance_object, whose
-  // example answers `[{"amount": 0, "currency": "usd"}]`); the twin models no such reserve, so it is zero in each currency
-  const reserved = account(ctx) ? {} : { connect_reserved: toArr(available).map((b) => ({ amount: 0, currency: b.currency })) };
-  return {
-    object: 'balance', available: toArr(available), pending: toArr(pending), ...reserved, livemode: false,
-    ...(issuing.size ? { issuing: { available: [...issuing.entries()].map(([currency, amount]) => ({ amount, currency, source_types: { card: amount } })) } } : {}),
-  };
+// Stripe's balance operations (docs/contributing/architecture.md, "What an author writes"): each handler over the
+// handler contract's context, computing with the engine (../engine/).
+import type { HandlerContext } from '@volter/world-core';
+import { balanceBody } from './shared.ts';
+export async function GetBalance(ctx: HandlerContext): Promise<Response> {
+  return ctx.reply(balanceBody(ctx));
 }
-
-const balance: Semantics = async (ctx) => ctx.reply(balanceBody(ctx));
-
-/** Time's arrivals, written: each of the acting account's payouts whose arrival date has come moves pending → paid
- *  (the clock's move, as asOf reads it), written as `payout.paid`, the event Stripe sends for it. Answers their ids. */
-export async function payDuePayouts(ctx: SemanticsContext): Promise<string[]> {
-  const acct = account(ctx);
-  const now = Number(ctx.now());
-  const paid: string[] = [];
-  for (const p of newest(ctx, 'payout')) {
-    if ((acct ? kept(ctx, 'payout', p, '_account') !== acct : !!kept(ctx, 'payout', p, '_account')) || p.status !== 'pending' || Number(p.arrival_date) > now) continue;
-    if (ctx.legal('payout', 'status', ctx.call.operation.id, 'pending', 'paid', String(p.id), 'time')) continue;
-    await ctx.write('payout', String(p.id), { status: 'paid' }, 'payout.paid');
-    paid.push(String(p.id));
-  }
-  return paid;
-}
-
-/** Where a connected account's payout goes: "ID of the bank account or card the payout is sent to" (served spec,
- *  payout.destination), its default external account for the currency, "When multiple accounts are available for a given
- *  currency, Stripe uses the one set as `default_for_currency`" (docs.stripe.com/connect/payouts-bank-accounts), the
- *  newest such. Where the documentation stops and the twin decides: the platform's own bank account is not modelled, so
- *  its payouts name none. */
-function payoutBank(ctx: SemanticsContext, account: string, currency: string): string | null {
-  const banks = newest(ctx, 'external_account').filter((e) => e.account === account && String(e.currency ?? currency) === currency);
-  return String((banks.find((e) => e.default_for_currency === true) ?? banks[0])?.id ?? '') || null;
-}
-
-const payoutDefaults = (ctx: SemanticsContext): Row => ({
-  method: 'standard', type: 'bank_account', source_type: 'card', automatic: false,
-  reconciliation_status: 'not_applicable', arrival_date: Number(ctx.now()) + 2 * DAY, livemode: false, metadata: {},
-});
-
-/** A payout as the clock reads it: paid once its arrival date has come, the clock's move, asked of the
- *  machine as a write asks it. */
-function asOf(ctx: SemanticsContext, p: Row): Row {
-  if (p.status !== 'pending' || Number(p.arrival_date) > Number(ctx.now())) return p;
-  ctx.legal('payout', 'status', ctx.call.operation.id, 'pending', 'paid', String(p.id), 'time');
-  return { ...p, status: 'paid' };
-}
-
-/** A connected account's payout in a currency none of its bank accounts takes. */
-function noExternalAccount(ctx: SemanticsContext, currency: string): Response {
-  return fail(ctx, `Sorry, you don't have any external accounts in that currency (${currency}).`, 400);
-}
-
-const createPayout: Semantics = async (ctx) => {
-  const bad = validateMoney(ctx.params);
-  if (bad) return send(ctx, bad);
-  const acct = account(ctx);
-  if (acct && !ctx.get('account', acct)) return fail(ctx, `No such account: '${acct}'`, 400, 'account_invalid');
-  const amount = Math.trunc(Number(ctx.params.amount) || 0);
-  const currency = String(ctx.params.currency ?? 'usd');
-  // a connected account is paid out to its own bank account
-  if (acct && !ctx.rows('external_account').some((e) => e.account === acct && (e.currency ?? currency) === currency)) return noExternalAccount(ctx, currency);
-  const refused = refusePayout(ctx, amount, currency);
-  if (refused) return refused;
-  const id = ctx.mint('payout');
-  const bt = await settlePayout(ctx, id, -amount, currency);
-  return ctx.reply(await created(ctx, 'payout', { ...ctx.params, id }, { status: 'pending', ...payoutDefaults(ctx), balance_transaction: bt, destination: acct ? payoutBank(ctx, acct, currency) : null, ...(acct ? { _account: acct } : {}) }));
-};
-
-const listPayouts: Semantics = async (ctx) => {
-  const acct = account(ctx);
-  const scoped = newest(ctx, 'payout').filter((p) => (acct ? kept(ctx, 'payout', p, '_account') === acct : !kept(ctx, 'payout', p, '_account'))).map((p) => asOf(ctx, p));
-  return list(ctx, 'payout', where(ctx, scoped, { status: (p, v) => p.status === v, created: (p, v) => inRange(p.created, v), arrival_date: (p, v) => inRange(p.arrival_date, v) }));
-};
-
-const DAYS = ['sunday', 'monday', 'tuesday', 'wednesday', 'thursday', 'friday', 'saturday'];
-/** The first scheduled payout time on or after `from`: midnight UTC of a day the schedule pays out on. */
-function payoutDay(from: number, schedule: Row): number {
-  const first = Math.ceil(from / DAY) * DAY;
-  const pays = (day: number): boolean => {
-    const d = new Date(day * 1000);
-    if (schedule.interval === 'weekly') return DAYS[d.getUTCDay()] === String(schedule.weekly_anchor ?? 'monday');
-    if (schedule.interval === 'monthly') return d.getUTCDate() === Math.min(Number(schedule.monthly_anchor ?? 1), new Date(Date.UTC(d.getUTCFullYear(), d.getUTCMonth() + 1, 0)).getUTCDate());
-    return true;
-  };
-  return Array.from({ length: 62 }, (_, i) => first + i * DAY).find(pays) ?? first;
-}
-
-/** Time's payouts, caught up to the World's clock: each account on an automatic schedule is paid out, on each of its
- *  scheduled days that has come, what became available by then. */
-export async function advancePayouts(ctx: SemanticsContext): Promise<void> {
-  const now = Number(ctx.now());
-  const platform = ctx.get('account', PLATFORM_ACCOUNT_ID);
-  const accounts: Array<{ id: string | undefined; settings: unknown }> = [{ id: undefined, settings: platform?.settings }];
-  for (const a of ctx.rows('account')) {
-    if (a.id === PLATFORM_ACCOUNT_ID || a.payouts_enabled !== true) continue;
-    if (!ctx.rows('external_account').some((e) => e.account === a.id)) continue;
-    accounts.push({ id: String(a.id), settings: a.settings });
-  }
-  for (const acct of accounts) {
-    const schedule = ((accountSettings(acct.settings, (acct.settings as Row | undefined) ?? undefined).payouts as Row).schedule ?? {}) as Row;
-    if (schedule.interval === 'manual') continue;
-    const unpaid = unpaidEntries(ctx, acct.id);
-    const days = [...new Set(unpaid.map((t) => payoutDay(Number(t.available_on) || 0, schedule)))].filter((d) => d <= now).sort((x, y) => x - y);
-    const paid = new Set<unknown>();
-    for (const day of days) {
-      const due = unpaid.filter((t) => !paid.has(t.id) && (Number(t.available_on) || 0) <= day);
-      const byCurrency = new Map<string, Row[]>();
-      for (const t of due) byCurrency.set(String(t.currency ?? 'usd'), [...(byCurrency.get(String(t.currency ?? 'usd')) ?? []), t]);
-      for (const [currency, entries] of byCurrency) {
-        const amount = entries.reduce((n, t) => n + (Number(t.net) || 0), 0);
-        // nothing to pay yet: what came due is carried to the next payout
-        if (amount <= 0) continue;
-        // made on its day, as Stripe makes it, whenever the request that catches it up comes
-        const c = await at_(ctx)(day);
-        const id = c.mint('payout');
-        const bt = await settleAutomaticPayout(c, id, amount, currency, acct.id, day, entries);
-        await created(c, 'payout', { id, amount, currency }, {
-          status: 'pending', ...payoutDefaults(c), arrival_date: day + 2 * DAY, automatic: true, balance_transaction: bt, destination: acct.id ? payoutBank(c, String(acct.id), currency) : null,
-          description: 'STRIPE PAYOUT', ...(acct.id ? { _account: acct.id } : {}),
-        });
-        for (const t of entries) paid.add(t.id);
-      }
-    }
-  }
-}
-
-const retrievePayout: Semantics = async (ctx) => {
-  const p = ctx.get('payout', at(ctx, 'payout'));
-  return p ? ctx.reply(asOf(ctx, p)) : payoutMissing(ctx, at(ctx, 'payout'));
-};
-
-const cancelPayout: Semantics = async (ctx) => {
-  const id = at(ctx, 'payout');
-  const po = ctx.get('payout', id);
-  if (!po) return payoutMissing(ctx, id);
-  const refused = ctx.legal('payout', 'status', 'PostPayoutsPayoutCancel', asOf(ctx, po).status, undefined, id);
-  if (refused) return ctx.refuse(refused);
-  // the money comes back to the balance it left
-  const owner = kept(ctx, 'payout', po, '_account');
-  await settlePayout(ctx, id, Number(po.amount) || 0, String(po.currency ?? 'usd'), typeof owner === 'string' ? owner : null);
-  return ctx.reply(await ctx.write('payout', id, { status: 'canceled' }, 'payout.cancel'));
-};
-
-// a reversal is itself a payout in the other direction, back into the connected account's balance, as the reverse page's
-// example answers it: a negative amount, pending until it arrives, carrying the request's metadata
-// (docs.stripe.com/api/payouts/reverse); the original stays paid and names it
-const reversePayout: Semantics = async (ctx) => {
-  const id = at(ctx, 'payout');
-  const po = ctx.get('payout', id);
-  if (!po) return payoutMissing(ctx, id);
-  const owner = kept(ctx, 'payout', po, '_account');
-  if (typeof owner !== 'string') return fail(ctx, "Payout reversals are only supported for payouts to connected accounts' bank accounts.", 400);
-  const status = String(asOf(ctx, po).status);
-  if (po.reversed_by || status !== 'paid') return ctx.refuse({ status: 400, code: 'payout_reversal_not_allowed', message: po.reversed_by ? 'This payout has already been reversed.' : `This payout cannot be reversed because it has a status of ${status}. A pending payout can be canceled instead.` });
-  const reversalId = ctx.mint('payout');
-  const bt = await settlePayout(ctx, reversalId, Number(po.amount) || 0, String(po.currency ?? 'usd'), owner);
-  const metadata = ctx.params.metadata && typeof ctx.params.metadata === 'object' ? { metadata: ctx.params.metadata } : {};
-  const reversal = await created(ctx, 'payout', { id: reversalId, amount: -(Number(po.amount) || 0), currency: po.currency, ...metadata }, {
-    status: 'pending', ...payoutDefaults(ctx), balance_transaction: bt, original_payout: id, destination: po.destination ?? null, _account: owner,
-  });
-  await ctx.write('payout', id, { reversed_by: reversal.id }, 'payout.reversed');
-  return ctx.reply(reversal);
-};
-
-export const balances: Record<string, Semantics> = {
-  GetBalance: balance,
-  PostPayouts: createPayout,
-  GetPayouts: listPayouts,
-  GetPayoutsPayout: retrievePayout,
-  PostPayoutsPayoutCancel: cancelPayout,
-  PostPayoutsPayoutReverse: reversePayout,
-};

package/src/semantics/balance_transactions.ts

@@ -0,0 +1,18 @@
+// Stripe's balance_transactions operations (docs/contributing/architecture.md, "What an author writes"): each handler over the
+// handler contract's context, computing with the engine (../engine/).
+import type { HandlerContext } from '@volter/world-core';
+import { inRange } from '../engine/common.ts';
+import { BT } from '../engine/ledger.ts';
+import { commonAsOf, kept, list, mine, newest, where } from './shared.ts';
+export async function GetBalanceTransactions(ctx: HandlerContext): Promise<Response> {
+  const own = mine(ctx);
+  return list(ctx, BT, where(ctx, newest(ctx, BT).filter((t) => own.has(t.id)).map((t) => commonAsOf(ctx, t)), {
+    type: (t, v) => t.type === v,
+    currency: (t, v) => t.currency === v,
+    source: (t, v) => t.source === v,
+    // an automatic payout lists the entries it paid out, its own debit among them
+    payout: (t, v) => t.source === v || kept(ctx, BT, t, '_payout') === v,
+    // a range of creation times (docs.stripe.com/api/balance_transactions/list#balance_transaction_list-created)
+    created: (t, v) => inRange(t.created, v),
+  }));
+}

package/src/semantics/billing_portal.ts

@@ -0,0 +1,45 @@
+// Stripe's billing_portal operations (docs/contributing/architecture.md, "What an author writes"): each handler over the
+// handler contract's context, computing with the engine (../engine/).
+import type { HandlerContext } from '@volter/world-core';
+import { filled, PBC, PORTAL_FEATURES } from '../engine/files.ts';
+import { asBool, nowUnix } from '../engine/stripe.ts';
+import { actingAccount, created, fail, list, newest, where } from './shared.ts';
+export async function GetBillingPortalConfigurations(ctx: HandlerContext): Promise<Response> {
+  return list(ctx, PBC, where(ctx, newest(ctx, PBC), {
+    active: (c, v) => asBool(c.active) === asBool(v),
+    is_default: (c, v) => asBool(c.is_default) === asBool(v),
+  }));
+}
+
+export async function PostBillingPortalConfigurations(ctx: HandlerContext): Promise<Response> {
+  return ctx.reply(
+    await created(ctx, PBC, { ...ctx.params, business_profile: filled({ headline: null, privacy_policy_url: null, terms_of_service_url: null }, ctx.params.business_profile), features: filled(PORTAL_FEATURES, ctx.params.features) }, {
+      active: true, is_default: false, livemode: false,
+      login_page: { enabled: false, url: null },
+      metadata: {}, default_return_url: ctx.params.default_return_url ?? null,
+      updated: nowUnix(ctx.occurredAt),
+    }),
+  );
+}
+
+
+// ── the customer portal ──
+
+// the configuration defaults to the account's default one
+export async function PostBillingPortalSessions(ctx: HandlerContext): Promise<Response> {
+  const customer = typeof ctx.params.customer === 'string' ? ctx.params.customer : '';
+  if (!customer) return fail(ctx, 'Missing required param: customer.', 400, 'parameter_missing');
+  if (!ctx.row('customer', customer, { withDeleted: true })) return fail(ctx, `No such customer: '${customer}'`, 404, 'resource_missing');
+  const configuration = typeof ctx.params.configuration === 'string' && ctx.params.configuration
+    ? ctx.params.configuration
+    : (ctx.rowsRaw('billing_portal.configuration', { withDeleted: true }).find((c) => c.is_default)?.id ?? 'bpc_twin_default');
+  const id = ctx.mint('billing_portal.session');
+  return ctx.reply(
+    await created(ctx, 'billing_portal.session', {
+      id, customer, configuration, return_url: ctx.params.return_url ?? null, url: `https://billing.stripe.com/p/session/${id}`,
+      locale: ctx.params.locale ?? null, on_behalf_of: ctx.params.on_behalf_of ?? null, livemode: false,
+      // the account the session was made on (Stripe-Account), whose name the portal shows (screens/billing-portal.tsx)
+      ...(actingAccount(ctx) ? { _brand_account: actingAccount(ctx) } : {}),
+    }, {}),
+  );
+}