@nauticana/sail 1.1.33 → 1.1.35

package/src/component/security/api_keys.ts

@@ -0,0 +1,90 @@
+import { DatePipe } from '@angular/common';
+import { ChangeDetectionStrategy, Component, OnInit, ViewEncapsulation, inject, input, signal } from '@angular/core';
+import { FormBuilder, ReactiveFormsModule, Validators } from '@angular/forms';
+import { MatButtonModule } from '@angular/material/button';
+import { MatCheckboxModule } from '@angular/material/checkbox';
+import { MatFormFieldModule } from '@angular/material/form-field';
+import { MatInputModule } from '@angular/material/input';
+import { ApiKey, MintedApiKey } from '../../model/access';
+import { AccessService } from '../../service/access.service';
+import { LabelOption } from '../../service/label.service';
+import { BaseAsync } from '../abstract/base_async';
+
+/**
+ * The partner's API keys: mint one with scopes and allowed networks (the plaintext shows once),
+ * restrict its networks later, or revoke it. The app passes the scopes it offers; keel's
+ * `ScopePolicy` still decides. Selector: <sail-api-keys>.
+ */
+@Component({
+  selector: 'sail-api-keys',
+  templateUrl: './api_keys.html',
+  changeDetection: ChangeDetectionStrategy.OnPush,
+  encapsulation: ViewEncapsulation.None,
+  imports: [DatePipe, ReactiveFormsModule, MatButtonModule, MatCheckboxModule, MatFormFieldModule, MatInputModule],
+})
+export class ApiKeysComponent extends BaseAsync implements OnInit {
+  private readonly access = inject(AccessService);
+  private readonly fb = inject(FormBuilder).nonNullable;
+
+  /** Scopes offered for a new key, as code and caption. */
+  readonly scopes = input.required<LabelOption[]>();
+
+  readonly canGenerate = this.access.canApiKeyAction('generate');
+  readonly canRestrict = this.access.canApiKeyAction('restrict');
+  readonly canRevoke = this.access.canRevokeApiKey();
+  readonly keys = signal<ApiKey[]>([]);
+  readonly minted = signal<MintedApiKey | null>(null);
+  /** Id of the key whose networks are being edited. */
+  readonly restricting = signal<number | null>(null);
+  readonly form = this.fb.group({
+    keyName:      ['', [Validators.required, Validators.maxLength(100)]],
+    allowedCidrs: ['', Validators.maxLength(2000)],
+    scopes:       [[] as string[], Validators.required],
+  });
+  readonly networks = this.fb.control('', Validators.maxLength(2000));
+
+  ngOnInit(): void {
+    this.load();
+  }
+
+  load(): void {
+    this.run(this.access.apiKeys(), (rows) => this.keys.set(rows), 'Failed to load API keys.');
+  }
+
+  toggleScope(code: string, checked: boolean): void {
+    const control = this.form.controls.scopes;
+    control.setValue(checked ? [...control.value, code] : control.value.filter((s) => s !== code));
+  }
+
+  mint(): void {
+    if (this.form.invalid) return;
+    const { keyName, scopes, allowedCidrs } = this.form.getRawValue();
+    this.run(this.access.mintApiKey(keyName, scopes, allowedCidrs), (key) => {
+      this.minted.set(key);
+      this.form.reset();
+      this.load();
+    }, 'Failed to create the key.');
+  }
+
+  editNetworks(key: ApiKey): void {
+    this.networks.setValue(key.AllowedCidrs ?? '');
+    this.restricting.set(key.Id);
+  }
+
+  saveNetworks(key: ApiKey): void {
+    if (this.networks.invalid) return;
+    this.run(this.access.restrictApiKey(key.Id, this.networks.value), () => {
+      this.restricting.set(null);
+      this.successMessage.set(`Networks of "${key.KeyName}" saved.`);
+      this.load();
+    }, 'Failed to save the networks.');
+  }
+
+  revoke(key: ApiKey): void {
+    if (!confirm(`Revoke key "${key.KeyName}" (${key.KeyPrefix}…)? Anything using it stops working.`)) return;
+    this.run(this.access.revokeApiKey(key.Id), () => {
+      this.successMessage.set(`Key "${key.KeyName}" revoked.`);
+      this.load();
+    }, 'Failed to revoke the key.');
+  }
+}

package/src/component/security/connected_apps.html

@@ -0,0 +1,25 @@
+<div class="connected-apps">
+  @if (grants().length > 0) {
+    <table class="connected-apps__table">
+      <thead>
+        <tr><th>App</th><th>Scopes</th><th>Connected</th><th>Last used</th><th><span class="cdk-visually-hidden">Actions</span></th></tr>
+      </thead>
+      <tbody>
+        @for (grant of grants(); track grant.clientId) {
+          <tr>
+            <td>{{ grant.clientName || grant.clientId }}</td>
+            <td>{{ grant.scopes.join(', ') }}</td>
+            <td>{{ grant.authorizedAt | date: 'short' }}</td>
+            <td>{{ grant.lastIssuedAt | date: 'short' }}</td>
+            <td><button matButton type="button" [disabled]="loading()" (click)="revoke(grant)">Disconnect</button></td>
+          </tr>
+        }
+      </tbody>
+    </table>
+  } @else if (!loading()) {
+    <p class="empty-state">No app is connected.</p>
+  }
+
+  @if (errorMessage()) { <div class="auth-error" role="alert">{{ errorMessage() }}</div> }
+  @if (successMessage()) { <div class="auth-success" role="status">{{ successMessage() }}</div> }
+</div>

package/src/component/security/connected_apps.ts

@@ -0,0 +1,40 @@
+import { DatePipe } from '@angular/common';
+import { ChangeDetectionStrategy, Component, OnInit, ViewEncapsulation, inject, signal } from '@angular/core';
+import { MatButtonModule } from '@angular/material/button';
+import { OAuthGrant } from '../../model/access';
+import { AccessService } from '../../service/access.service';
+import { BaseAsync } from '../abstract/base_async';
+
+/**
+ * OAuth clients holding a live grant from the signed-in user, with disconnect; a disconnected
+ * client must authorize again. Selector: <sail-connected-apps>.
+ */
+@Component({
+  selector: 'sail-connected-apps',
+  templateUrl: './connected_apps.html',
+  changeDetection: ChangeDetectionStrategy.OnPush,
+  encapsulation: ViewEncapsulation.None,
+  imports: [DatePipe, MatButtonModule],
+})
+export class ConnectedAppsComponent extends BaseAsync implements OnInit {
+  private readonly access = inject(AccessService);
+
+  readonly grants = signal<OAuthGrant[]>([]);
+
+  ngOnInit(): void {
+    this.load();
+  }
+
+  load(): void {
+    this.run(this.access.grants(), (rows) => this.grants.set(rows), 'Failed to load connected apps.');
+  }
+
+  revoke(grant: OAuthGrant): void {
+    const name = grant.clientName || grant.clientId;
+    if (!confirm(`Disconnect "${name}"? It will have to connect again.`)) return;
+    this.run(this.access.revokeGrant(grant.clientId), () => {
+      this.successMessage.set(`Disconnected ${name}.`);
+      this.load();
+    }, 'Failed to disconnect the app.');
+  }
+}

package/src/index.ts

@@ -7,6 +7,8 @@ export * from './model/oauth_connection';
 export * from './model/notification';
 export * from './model/document';
 export * from './model/agency';
+export * from './model/geo';
+export * from './model/access';
 export * from './model/decorator';
 export * from './component/abstract/base_table';
 export * from './component/dashboard/dashboard_shell';
@@ -53,6 +55,8 @@ export * from './component/security/twofactor_setup';
 export * from './component/security/twofactor_verify';
 export * from './component/security/trusted_devices';
 export * from './component/security/sessions';
+export * from './component/security/api_keys';
+export * from './component/security/connected_apps';
 export * from './component/billing/plan_selector';
 export * from './component/billing/price_selector';
 export * from './component/billing/checkout_button';
@@ -94,6 +98,10 @@ export * from './service/api-response.interceptor';
 export * from './service/rest_service';
 export * from './service/rest_url';
 export * from './service/label.service';
+export * from './service/caption_pipe';
+export * from './service/currency.service';
+export * from './service/access.service';
+export * from './service/money_pipe';
 export * from './service/base_rest.service';
 export * from './util/text';
 export * from './util/money';

package/src/model/access.ts

@@ -0,0 +1,28 @@
+/** A row of keel's `api_key` table as generic REST returns it; the hash never leaves keel. */
+export interface ApiKey {
+  Id:            number;
+  KeyName:       string;
+  KeyPrefix:     string;
+  Scopes:        string;   // CSV
+  IsActive:      boolean;
+  CreatedAt:     string;
+  ExpiresAt?:    string;
+  LastUsedAt?:   string;
+  UserId?:       number;
+  AllowedCidrs?: string;   // CSV of networks; absent allows any address
+}
+
+/** keel `api_key/generate` reply: the plaintext is shown once and never stored. */
+export interface MintedApiKey {
+  api_key:    string;
+  key_prefix: string;
+}
+
+/** An OAuth client the signed-in user authorized on keel's authorization server (`authserver.Grant`). */
+export interface OAuthGrant {
+  clientId:     string;
+  clientName:   string;
+  scopes:       string[];
+  authorizedAt: string;
+  lastIssuedAt: string;
+}

package/src/model/appdata.ts

@@ -252,47 +252,32 @@ export interface PartnerCreated {
 	paymentUrl?:     string;
 }
 
-// One purchasable offer for a plan — a (billing cycle × commitment term) row of
-// keel's `subscription_plan_price` table (v1.0.5). A plan sells several; the
-// customer picks one at checkout via `<sail-price-selector>`. Mirrors keel
-// `billing.PlanPrice`.
+// One purchasable offer for a plan: a (billing cycle × commitment term) row of
+// keel's `subscription_plan_price` table. Mirrors keel `billing.PlanPrice`.
 export interface PlanPrice {
 	billingCycle: string;   // PERIOD_TYPE code (D/W/M/A) — how often charged
 	termCount:    number;   // commitment length, in termType units
 	termType:     string;   // PERIOD_TYPE code — commitment/pricing unit
-	amountMinor:  number;   // price per termType unit, in minor units (cents)
-	amount:       number;   // same amount in major units (currency-exponent applied)
+	amountMinor:  number;   // price per termType unit, in minor units
 	currency:     string;   // ISO 4217
+	exponent:     number;   // minor-unit decimals from keel's currency table
 	// Provider price id (Stripe Price). Empty for free/unpriced offers; pass to
 	// `<sail-checkout-button [priceId]>` / `createCheckout({ priceId })`.
 	priceId?:     string;
 }
 
-// PublicPlan — shape returned by GET /public/plans. Used on the registration
-// page to render the plan picker and to drive `<sail-checkout-button>` flows.
+// Mirrors keel `billing.Plan` from GET /public/plans.
 export interface PublicPlan {
 	id:          string;
 	caption:     string;
-	// NOTE: keel v1.0.7 REMOVED the flat `monthlyCost`/`annualCost` from the plan
-	// JSON (both `/public/plans` and the billing catalog). Price lives per-offer
-	// in `prices[]`; derive a display price with `fromPriceLabel(plan.prices)`.
-	// Purchasable offers (keel v1.0.5 `subscription_plan_price`, nested under the
-	// plan). The source of truth for checkout — feed a chosen offer's `priceId`
-	// to `<sail-checkout-button>`. Returned by `/public/plans` as of keel v1.0.6
-	// (so `<sail-price-selector>` works on the registration page too); absent on
-	// pre-v1.0.6 backends.
-	prices?:     PlanPrice[];
-	// @deprecated keel v1.0.5 moved per-offer prices into `prices[]`
-	// (`subscription_plan.provider_price_id` was dropped). Use
-	// `prices?.[…].priceId`. Kept optional for pre-v1.0.5 backends.
-	priceId?:    string;
-	// keel `subscription_plan.activation_mode` (SUBSCRIPTION_ACTIVATION_MODE
-	// dictionary, single char — e.g. 'P' paid, 'F' free, 'T' trial). Drives the
-	// picker CTA copy ("Start trial" / "Subscribe" / …). Optional — pre-v1.0.3
-	// backends omit it.
-	activationMode?: string;
+	currency:    string;
+	// Purchasable offers; derive a display price with `fromPriceLabel(plan.prices)`
+	// and feed the chosen offer's `priceId` to `<sail-checkout-button>`.
+	prices:      PlanPrice[] | null;
+	// keel `subscription_plan.activation_mode` ('P' paid, 'F' free, 'T' trial); drives the picker CTA.
+	activationMode: string;
 	// Length of the free trial in days when `activationMode === 'T'`.
-	trialDays?:      number;
+	trialDays:      number;
 }
 
 // ConfirmRegisterResponse — shape returned by POST /public/register/confirm:
@@ -323,7 +308,7 @@ export type CheckoutMode = 'subscription' | 'payment' | 'setup';
 export interface CheckoutRequest {
 	mode?:       CheckoutMode;        // default 'subscription'
 	// Required for 'subscription' / 'payment'; must be empty for 'setup'.
-	// Pass `PublicPlan.priceId` straight through.
+	// Pass the chosen `PlanPrice.priceId` straight through.
 	priceId?:    string;
 	quantity?:   number;
 	email?:      string;
@@ -401,33 +386,35 @@ export interface PageRequest {
 	orderBy?: string;
 }
 
+// Mirrors keel `billing.Subscription`; amounts are minor units at `exponent`.
 export interface Subscription {
-	planId:      string;
-	status:      string;  // 'A' active, 'P' pending-payment, 'C' cancelled, 'T' trialing, 'X' past-due — caption via SUBSCRIPTION_STATUS dict
-	begda:       string;
-	endda?:      string;
-	monthlyCost: number;
-	currency:    string;
-	autoRenew:   boolean;
-	// PERIOD_TYPE code (D/W/M/A) the sub is charged on, copied from the chosen
-	// offer (keel `billing_cycle`); absent on pre-v1.0.5 backends.
-	billingCycle?: string;
-	// ISO timestamp the trial ends (keel `trial_end`); empty/absent when not
-	// trialing. Drives `<sail-trial-banner>`.
-	trialEnd?:   string;
-	// Seat quantity on the active/trial sub (keel `seats`); absent for
-	// non-seat plans. Drives `<sail-seat-selector>`.
-	seats?:      number;
-}
-
+	planId:           string;
+	caption?:         string;  // plan display name
+	status:           string;  // 'A' active, 'P' pending-payment, 'C' cancelled, 'T' trialing, 'X' past-due — caption via SUBSCRIPTION_STATUS dict
+	begda:            string;
+	endda?:           string;
+	installmentMinor: number;
+	currency:         string;
+	exponent:         number;
+	autoRenew:        boolean;
+	// PERIOD_TYPE code (D/W/M/A) the sub is charged on, copied from the chosen offer.
+	billingCycle?:    string;
+	// ISO timestamp the trial ends; empty/absent when not trialing. Drives `<sail-trial-banner>`.
+	trialEnd?:        string;
+	// Seat quantity on the active/trial sub; absent for non-seat plans. Drives `<sail-seat-selector>`.
+	seats?:           number;
+}
+
+// Mirrors keel `billing.Invoice`; `status` is keel's one-character invoice status code.
 export interface Invoice {
-	id:       string;
-	number:   string;
-	status:   string;  // 'paid' | 'open' | 'void' | ...
-	total:    number;
-	currency: string;
-	issuedAt: string;
-	paidAt?:  string;
+	id:         string;
+	number:     string;
+	status:     string;
+	totalMinor: number;
+	currency:   string;
+	exponent:   number;
+	issuedAt:   string;
+	paidAt?:    string;
 }
 
 // ── Payout types ──
@@ -469,25 +456,12 @@ export interface BankInfoFormValue {
 	currency:          string;
 	accountHolderName: string;
 	billingAddress:    string;
-	taxIdType:         string;  // 'S' SIN, 'N' SSN, 'E' EIN, 'V' VAT, 'O' other
+	taxIdType:         string;  // keel `tax_id_type` code
 	taxId:             string;
 	provider:          string;
 	providerAgreement: boolean;
 }
 
-// CountryProfile drives the country dropdown in the bank-info form.
-// Each profile bundles ISO codes + tax-id labelling so the form's
-// hint/placeholder text follows the country selection.
-export interface CountryProfile {
-	code:             string;  // ISO 3166-1 alpha-2
-	label:            string;
-	currency:         string;  // ISO 4217
-	taxIdType:        string;  // matches basis constant_header 'tax_id_type'
-	taxIdLabel:       string;
-	taxIdPlaceholder: string;
-	taxIdHint:        string;
-}
-
 // ── User payment methods ──
 // Consumer-side saved cards/wallets. Mirrors basis user_payment_method
 // one-to-one. Distinct from PaymentMethod (partner-scoped SaaS billing

package/src/model/auth.ts

@@ -115,11 +115,19 @@ export interface UserProfile {
 
 // ── Re-authentication credentials ──
 // Required by Setup2FA, Disable2FA, DeleteAccount, LogoutEverywhere — server
-// rejects with 401 if neither `password` nor `twoFactorCode` is supplied.
-// Disable2FA additionally requires the current TOTP `code` alongside password.
+// rejects with 401 unless one is supplied. `reauthCode` comes from
+// sendReauthCode(). Disable2FA additionally requires the current TOTP `code`.
 export interface ReauthCredentials {
   password?:      string;
   twoFactorCode?: string;
+  reauthCode?:    string;
+}
+
+export type ReauthChannel = 'email' | 'phone';
+
+export interface ReauthSendResponse {
+  channel:            ReauthChannel;
+  resendCountdownSec: number;
 }
 
 // ── Social login (ID token flow) ──
@@ -144,6 +152,13 @@ export interface LoginResponseSocial {
   isNewUser:               boolean;
   singleDeviceSession?:    boolean;
   previousDeviceRevoked?:  boolean;
+  // Client-side: the name Apple returns only on first authorization, never in the ID token.
+  socialName?:             SocialName;
+}
+
+export interface SocialName {
+  firstName?: string;
+  lastName?:  string;
 }
 
 // ── Push notification tokens ──

package/src/model/geo.ts

@@ -0,0 +1,12 @@
+/** Rows of keel's `currency` and `country` tables as generic REST returns them. */
+export interface Currency {
+  Code:     string;  // ISO 4217
+  Caption:  string;
+  Exponent: number;  // minor-unit decimals, 0–6
+}
+
+export interface Country {
+  Id:       string;  // ISO 3166-1 alpha-2
+  Caption:  string;
+  Currency: string;  // default ISO 4217 code
+}

package/src/service/access.service.ts

@@ -0,0 +1,57 @@
+import { Injectable } from '@angular/core';
+import { Observable, catchError, throwError } from 'rxjs';
+import { ApiKey, MintedApiKey, OAuthGrant } from '../model/access';
+import { TableAction } from '../model/appdata';
+import { BackendService } from './rest_service';
+import { RestURL } from './rest_url';
+
+/** The signed-in user's API keys (keel `api_key` table and actions) and OAuth grants. */
+@Injectable({ providedIn: 'root' })
+export class AccessService extends BackendService {
+  apiKeys(): Observable<ApiKey[]> {
+    return this.list<ApiKey>('api_key', undefined, { orderBy: 'created_at desc' });
+  }
+
+  mintApiKey(keyName: string, scopes: string[], allowedCidrs: string): Observable<MintedApiKey> {
+    return this.apiKeyAction<MintedApiKey>('generate',
+      { key_name: keyName, scopes: scopes.join(','), allowed_cidrs: allowedCidrs });
+  }
+
+  restrictApiKey(id: number, allowedCidrs: string): Observable<void> {
+    return this.apiKeyAction<void>('restrict', { id, allowed_cidrs: allowedCidrs });
+  }
+
+  revokeApiKey(id: number): Observable<{ message: string }> {
+    return this.delete('api_key', { Id: String(id) });
+  }
+
+  grants(): Observable<OAuthGrant[]> {
+    return this.http.get<OAuthGrant[]>(this.url(RestURL.oauthGrantsURL))
+      .pipe(catchError((err) => this.handleError(err)));
+  }
+
+  revokeGrant(clientId: string): Observable<void> {
+    return this.http.post<void>(this.url(RestURL.oauthGrantRevokeURL), { clientId })
+      .pipe(catchError((err) => this.handleError(err)));
+  }
+
+  canApiKeyAction(name: string): boolean {
+    const action = this.findApiKeyAction(name);
+    return !!action && this.auth.canExecute(action.authorityObject, action.authorityCheck, 'api_key');
+  }
+
+  canRevokeApiKey(): boolean {
+    return this.auth.canDelete('api_key');
+  }
+
+  private apiKeyAction<T>(name: string, body: Record<string, unknown>): Observable<T> {
+    const action = this.findApiKeyAction(name);
+    return action
+      ? this.executeAction<T>(action.method, body)
+      : throwError(() => new Error(`sail: api_key/${name} is not available in backend metadata.`));
+  }
+
+  private findApiKeyAction(name: string): TableAction | undefined {
+    return (this.auth.getTableDefinition('api_key')?.Actions ?? []).find((action) => action.action === name);
+  }
+}

package/src/service/auth.service.ts

@@ -7,7 +7,7 @@ import {
   LoginResponseSocial,
   OtpRequest, OtpResendRequest, OtpResponse, OtpVerifyRequest, OtpVerifyResponse,
   PushPlatform, PushRegisterRequest,
-  ReauthCredentials,
+  ReauthChannel, ReauthCredentials, ReauthSendResponse,
   SignupConsent, SocialLoginRequest, SocialProvider,
   UserProfile,
 } from '../model/auth';
@@ -112,6 +112,7 @@ export abstract class BaseAuthService extends BaseRestService {
   protected get loginSocialUrl()           { return this.url(RestURL.loginSocialURL); }
   protected get logoutEverywhereUrl()      { return this.url(RestURL.logoutEverywhereURL); }
   protected get deleteAccountUrl()         { return this.url(RestURL.deleteAccountURL); }
+  protected get reauthSendUrl()            { return this.url(RestURL.reauthSendURL); }
   protected get pushRegisterUrl()          { return this.url(RestURL.pushRegisterURL); }
   protected get pushRevokeUrl()            { return this.url(RestURL.pushRevokeURL); }
   protected get profileUrl()               { return this.url(RestURL.profileURL); }
@@ -625,9 +626,14 @@ export abstract class BaseAuthService extends BaseRestService {
 
   // ── Account lifecycle ──
 
+  /** Send a one-time code for ReauthCredentials.reauthCode; no channel prefers email. */
+  sendReauthCode(channel?: ReauthChannel): Observable<ReauthSendResponse> {
+    return this.http.post<ReauthSendResponse>(this.reauthSendUrl, { channel });
+  }
+
   /**
    * Soft-delete the caller's account. Requires recent re-authentication —
-   * pass current `password` and/or `twoFactorCode`. Server anonymizes
+   * pass `password`, `twoFactorCode` or `reauthCode`. Server anonymizes
    * user_account, revokes all tokens / trusted devices / social links.
    * Clears local session on success.
    */
@@ -640,8 +646,8 @@ export abstract class BaseAuthService extends BaseRestService {
 
   /**
    * Revoke every active refresh token for this user (sign out everywhere).
-   * Requires recent re-authentication — pass current `password` and/or
-   * `twoFactorCode`.
+   * Requires recent re-authentication — pass `password`, `twoFactorCode`
+   * or `reauthCode`.
    */
   logoutEverywhere(reauth: ReauthCredentials): Observable<void> {
     return this.http.post<void>(this.logoutEverywhereUrl, reauth);

package/src/service/caption_pipe.ts

@@ -0,0 +1,32 @@
+import { DestroyRef, Pipe, PipeTransform, inject, signal } from '@angular/core';
+import { takeUntilDestroyed } from '@angular/core/rxjs-interop';
+import { LabelService } from './label.service';
+
+/**
+ * `{{ code | sailCaption:'constant_id' }}` — the backend caption of a constant code, the code
+ * itself until its domain loads or when the domain lacks it. Impure so it re-renders on load.
+ */
+@Pipe({ name: 'sailCaption', pure: false })
+export class CaptionPipe implements PipeTransform {
+  private readonly labels = inject(LabelService);
+  private readonly destroyRef = inject(DestroyRef);
+  private readonly requested = new Set<string>();
+  private readonly loaded = signal(0);
+
+  transform(code: string | null | undefined, constantId: string): string {
+    if (!code) return '';
+    this.loaded();
+    if (!this.requested.has(constantId)) {
+      this.requested.add(constantId);
+      // A cached domain emits synchronously: its caption is already current, and a signal
+      // write during render would throw NG0600.
+      let rendering = true;
+      this.labels.loadLabels(constantId).pipe(takeUntilDestroyed(this.destroyRef)).subscribe({
+        next: () => { if (!rendering) this.loaded.update((n) => n + 1); },
+        error: () => this.requested.delete(constantId),
+      });
+      rendering = false;
+    }
+    return this.labels.getLabel(constantId, code);
+  }
+}

package/src/service/currency.service.ts

@@ -0,0 +1,51 @@
+import { Injectable, inject, signal } from '@angular/core';
+import { Observable, map, of, shareReplay, tap } from 'rxjs';
+import { Currency } from '../model/geo';
+import { formatMinor } from '../util/money';
+import { BackendService } from './rest_service';
+
+/**
+ * keel's `currency` catalog, the only source of minor-unit exponents. Loaded once through
+ * generic REST, so the caller's role needs `TABLE SELECT currency`.
+ */
+@Injectable({ providedIn: 'root' })
+export class CurrencyService {
+  private readonly backend = inject(BackendService);
+  private readonly byCode = new Map<string, Currency>();
+  private pending?: Observable<void>;
+  readonly ready = signal(false);
+  readonly failed = signal(false);
+
+  /** Load the catalog; completed and concurrent calls share one request, a failed one is retried. */
+  load(): Observable<void> {
+    if (this.ready()) return of(undefined);
+    this.failed.set(false);
+    this.pending ??= this.backend.list<Currency>('currency', undefined, { limit: 1000 }).pipe(
+      tap({
+        next: (rows) => {
+          for (const row of rows) this.byCode.set(row.Code, row);
+          this.ready.set(true);
+        },
+        error: () => {
+          this.pending = undefined;
+          this.failed.set(true);
+        },
+      }),
+      map(() => undefined),
+      shareReplay({ bufferSize: 1, refCount: false }),
+    );
+    return this.pending;
+  }
+
+  /** Minor-unit exponent of a code; an unknown code is an error, never a guess. */
+  exponent(currency: string): number {
+    if (!this.ready()) throw new Error('sail: the currency catalog is not loaded.');
+    const row = this.byCode.get(currency);
+    if (!row) throw new Error(`sail: unknown currency "${currency}".`);
+    return row.Exponent;
+  }
+
+  format(minor: number, currency: string): string {
+    return formatMinor(minor, currency, this.exponent(currency));
+  }
+}

package/src/service/label.service.ts

@@ -36,9 +36,10 @@ export class LabelService {
     }
 
     /**
-     * Load one backend-provided `constant_value` domain from ApplicationData.
-     * Completed and concurrent requests are cached; a failed application-data
-     * load is evicted so a later call can retry.
+     * Load one caption map from ApplicationData: a `constant_value` domain by its
+     * constant id, or a catalog table registered in `foreign_key_lookup` by its
+     * table name. Completed and concurrent requests are cached; a failed
+     * application-data load is evicted so a later call can retry.
      */
     loadLabels(constantId: string): Observable<void> {
         const domain = constantId.trim();
@@ -53,7 +54,7 @@ export class LabelService {
             tap({
                 next: (data) => this.labels.set(
                     domain,
-                    new Map(Object.entries(data.ConstantCache?.[domain] ?? {})),
+                    new Map(Object.entries(data.ConstantCache?.[domain] ?? data.TableCache?.[domain] ?? {})),
                 ),
                 error: () => this.pendingLoads.delete(domain),
             }),