@gjermundgaraba-designs/pixel-paper 0.13.0 → 0.14.1

package/dist/src/keyHelp/keyHelp.d.ts

@@ -20,6 +20,7 @@ export declare const Model: Schema.Struct<{
             }>;
             readonly maybeFocusSelector: Schema.Option<Schema.String>;
         }>;
+        readonly isCloseHeld: Schema.Boolean;
     }>;
     readonly query: Schema.String;
 }>;
@@ -105,6 +106,7 @@ export declare const update: (model: Model, message: Message) => Readonly<{
                 };
                 readonly maybeFocusSelector: import("effect/Option").Option<string>;
             };
+            readonly isCloseHeld: boolean;
         };
         readonly query: string;
     };
@@ -182,6 +184,7 @@ export declare const subscriptions: {
                 };
                 readonly maybeFocusSelector: import("effect/Option").Option<string>;
             };
+            readonly isCloseHeld: boolean;
         };
         readonly query: string;
     }, {
@@ -268,6 +271,7 @@ export declare const view: import("foldkit/submodel").View<{
             };
             readonly maybeFocusSelector: import("effect/Option").Option<string>;
         };
+        readonly isCloseHeld: boolean;
     };
     readonly query: string;
 }, {

package/dist/src/keyHelp/keyHelp.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"keyHelp.d.ts","sourceRoot":"","sources":["../../../src/keyHelp/keyHelp.ts"],"names":[],"mappings":"AAAA,OAAO,EAAoB,MAAM,EAAgB,MAAM,QAAQ,CAAC;AAEhE,OAAO,KAAK,EAAE,WAAW,EAAE,MAAM,aAAa,CAAC;AAC/C,OAAO,KAAK,EAAE,IAAI,EAAe,MAAM,cAAc,CAAC;AAItD,OAAO,KAAK,YAAY,MAAM,sBAAsB,CAAC;AACrD,OAAO,KAAK,MAAM,MAAM,gBAAgB,CAAC;AAOzC,OAAO,EAAE,KAAK,WAAW,EAAY,MAAM,wBAAwB,CAAC;AACpE,OAAO,KAAK,MAAM,MAAM,qBAAqB,CAAC;AAI9C,2EAA2E;AAC3E,eAAO,MAAM,KAAK;;;;;;;;;;;;;;;;EAGhB,CAAC;AACH,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAC;AAEtC;;;6CAG6C;AAC7C,MAAM,MAAM,OAAO,GAAG,QAAQ,CAAC;IAC7B,IAAI,EAAE,aAAa,CAAC,WAAW,CAAC,CAAC;IACjC,KAAK,EAAE,MAAM,CAAC;IACd,IAAI,EAAE,MAAM,CAAC;CACd,CAAC,CAAC;AAEH,qFAAqF;AACrF,eAAO,MAAM,SAAS,EAAE,WAAuB,CAAC;AAEhD,0CAA0C;AAC1C,eAAO,MAAM,WAAW,EAAE,OAAkE,CAAC;AAI7F,sDAAsD;AACtD,eAAO,MAAM,OAAO;;QACE,OAAO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;QACX,KAAK;;;EAErB,CAAC;AACH,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAC;AAI1C;uFACuF;AACvF,eAAO,MAAM,UAAU;;EAErB,CAAC;AACH,MAAM,MAAM,UAAU,GAAG,OAAO,UAAU,CAAC,IAAI,CAAC;AAIhD,2DAA2D;AAC3D,MAAM,MAAM,UAAU,GAAG,QAAQ,CAAC;IAAE,EAAE,EAAE,MAAM,CAAA;CAAE,CAAC,CAAC;AAElD,oCAAoC;AACpC,eAAO,MAAM,IAAI,WAAY,UAAU,KAAG,KAGxC,CAAC;AAkBH,wFAAwF;AACxF,eAAO,MAAM,MAAM,UAAW,KAAK,WAAW,OAAO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;EAKjD,CAAC;AAEL,gFAAgF;AAChF,eAAO,MAAM,IAAI,UAAW,KAAK,KAAG,MAAM,CAAC,MAAM,CAAC,KAAK,EAAE,OAAO,CAC5B,CAAC;AAErC,sDAAsD;AACtD,eAAO,MAAM,KAAK,UAAW,KAAK,KAAG,MAAM,CAAC,MAAM,CAAC,KAAK,EAAE,OAAO,CAA4B,CAAC;AAI9F,iDAAiD;AACjD,eAAO,MAAM,EAAE,UAAW,KAAK,KAAG,MAAiC,CAAC;AAEpE,oCAAoC;AACpC,eAAO,MAAM,MAAM,UAAW,KAAK,KAAG,OAAsC,CAAC;AAI7E,8FAA8F;AAC9F,eAAO,MAAM,aAAa;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CAiBvB,CAAC;AAeJ;8FAC8F;AAC9F,eAAO,MAAM,cAAc,aACf,aAAa,CAAC,OAAO,CAAC,YACtB,WAAW,SACd,MAAM,KACZ,aAAa,CAAC,MAAM,CAAC,WAAW,CA2BlC,CAAC;AAIF,8EAA8E;AAC9E,MAAM,MAAM,UAAU,GAAG,QAAQ,CAAC;IAChC,8DAA8D;IAC9D,QAAQ,EAAE,aAAa,CAAC,OAAO,CAAC,CAAC;IACjC,QAAQ,EAAE,WAAW,CAAC;IACtB;;+DAE2D;IAC3D,WAAW,CAAC,EAAE,MAAM,aAAa,CAAC,IAAI,GAAG,MAAM,CAAC,CAAC;IACjD;0CACsC;IACtC,gBAAgB,CAAC,EAAE,CAAC,MAAM,IAAI,CAAC,GAAG,SAAS,CAAC;CAC7C,CAAC,CAAC;AAsDH;;qBAEqB;AACrB,eAAO,MAAM,IAAI;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;IAnEf,8DAA8D;cACpD,aAAa,CAAC,OAAO,CAAC;cACtB,WAAW;IACrB;;+DAE2D;kBAC7C,MAAM,aAAa,CAAC,IAAI,GAAG,MAAM,CAAC;IAChD;0CACsC;uBACnB,CAAC,MAAM,IAAI,CAAC,GAAG,SAAS;GAqE5C,CAAC"}
+{"version":3,"file":"keyHelp.d.ts","sourceRoot":"","sources":["../../../src/keyHelp/keyHelp.ts"],"names":[],"mappings":"AAAA,OAAO,EAAoB,MAAM,EAAgB,MAAM,QAAQ,CAAC;AAEhE,OAAO,KAAK,EAAE,WAAW,EAAE,MAAM,aAAa,CAAC;AAC/C,OAAO,KAAK,EAAE,IAAI,EAAe,MAAM,cAAc,CAAC;AAItD,OAAO,KAAK,YAAY,MAAM,sBAAsB,CAAC;AACrD,OAAO,KAAK,MAAM,MAAM,gBAAgB,CAAC;AAOzC,OAAO,EAAE,KAAK,WAAW,EAAY,MAAM,wBAAwB,CAAC;AACpE,OAAO,KAAK,MAAM,MAAM,qBAAqB,CAAC;AAI9C,2EAA2E;AAC3E,eAAO,MAAM,KAAK;;;;;;;;;;;;;;;;;EAGhB,CAAC;AACH,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAC;AAEtC;;;6CAG6C;AAC7C,MAAM,MAAM,OAAO,GAAG,QAAQ,CAAC;IAC7B,IAAI,EAAE,aAAa,CAAC,WAAW,CAAC,CAAC;IACjC,KAAK,EAAE,MAAM,CAAC;IACd,IAAI,EAAE,MAAM,CAAC;CACd,CAAC,CAAC;AAEH,qFAAqF;AACrF,eAAO,MAAM,SAAS,EAAE,WAAuB,CAAC;AAEhD,0CAA0C;AAC1C,eAAO,MAAM,WAAW,EAAE,OAAkE,CAAC;AAI7F,sDAAsD;AACtD,eAAO,MAAM,OAAO;;QACE,OAAO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;QACX,KAAK;;;EAErB,CAAC;AACH,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAC;AAI1C;uFACuF;AACvF,eAAO,MAAM,UAAU;;EAErB,CAAC;AACH,MAAM,MAAM,UAAU,GAAG,OAAO,UAAU,CAAC,IAAI,CAAC;AAIhD,2DAA2D;AAC3D,MAAM,MAAM,UAAU,GAAG,QAAQ,CAAC;IAAE,EAAE,EAAE,MAAM,CAAA;CAAE,CAAC,CAAC;AAElD,oCAAoC;AACpC,eAAO,MAAM,IAAI,WAAY,UAAU,KAAG,KAGxC,CAAC;AAkBH,wFAAwF;AACxF,eAAO,MAAM,MAAM,UAAW,KAAK,WAAW,OAAO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;EAKjD,CAAC;AAEL,gFAAgF;AAChF,eAAO,MAAM,IAAI,UAAW,KAAK,KAAG,MAAM,CAAC,MAAM,CAAC,KAAK,EAAE,OAAO,CAC5B,CAAC;AAErC,sDAAsD;AACtD,eAAO,MAAM,KAAK,UAAW,KAAK,KAAG,MAAM,CAAC,MAAM,CAAC,KAAK,EAAE,OAAO,CAA4B,CAAC;AAI9F,iDAAiD;AACjD,eAAO,MAAM,EAAE,UAAW,KAAK,KAAG,MAAiC,CAAC;AAEpE,oCAAoC;AACpC,eAAO,MAAM,MAAM,UAAW,KAAK,KAAG,OAAsC,CAAC;AAI7E,8FAA8F;AAC9F,eAAO,MAAM,aAAa;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CAiBvB,CAAC;AAeJ;8FAC8F;AAC9F,eAAO,MAAM,cAAc,aACf,aAAa,CAAC,OAAO,CAAC,YACtB,WAAW,SACd,MAAM,KACZ,aAAa,CAAC,MAAM,CAAC,WAAW,CA2BlC,CAAC;AAIF,8EAA8E;AAC9E,MAAM,MAAM,UAAU,GAAG,QAAQ,CAAC;IAChC,8DAA8D;IAC9D,QAAQ,EAAE,aAAa,CAAC,OAAO,CAAC,CAAC;IACjC,QAAQ,EAAE,WAAW,CAAC;IACtB;;+DAE2D;IAC3D,WAAW,CAAC,EAAE,MAAM,aAAa,CAAC,IAAI,GAAG,MAAM,CAAC,CAAC;IACjD;0CACsC;IACtC,gBAAgB,CAAC,EAAE,CAAC,MAAM,IAAI,CAAC,GAAG,SAAS,CAAC;CAC7C,CAAC,CAAC;AAsDH;;qBAEqB;AACrB,eAAO,MAAM,IAAI;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;IAnEf,8DAA8D;cACpD,aAAa,CAAC,OAAO,CAAC;cACtB,WAAW;IACrB;;+DAE2D;kBAC7C,MAAM,aAAa,CAAC,IAAI,GAAG,MAAM,CAAC;IAChD;0CACsC;uBACnB,CAAC,MAAM,IAAI,CAAC,GAAG,SAAS;GAqE5C,CAAC"}

package/dist/src/lineChart/lineChart.js

@@ -91,6 +91,6 @@ const chartView = (config, labels, h) => {
  * Renders on the server: a fixed viewBox, stretched to its container's width.
  */
 export const view = (config, h) => __foldkitBrandViewResult((Array.match(config.labels, {
-    onEmpty: () => __foldkitBrandViewResult((EmptyState.view({ title: "nothing to chart" }, h)), "@gjermundgaraba-designs/pixel-paper/src/lineChart/lineChart.js#onEmpty"),
+    onEmpty: () => __foldkitBrandViewResult((EmptyState.view({ title: "nothing to chart", headingLevel: "Strong" }, h)), "@gjermundgaraba-designs/pixel-paper/src/lineChart/lineChart.js#onEmpty"),
     onNonEmpty: (labels) => __foldkitBrandViewResult((chartView(config, labels, h)), "@gjermundgaraba-designs/pixel-paper/src/lineChart/lineChart.js#onNonEmpty"),
 })), "@gjermundgaraba-designs/pixel-paper/src/lineChart/lineChart.js#view");

package/dist/src/liveRegion/index.d.ts

@@ -0,0 +1,3 @@
+export { place, view } from "./liveRegion.ts";
+export type { DialogEntry, Placement, ViewConfig } from "./liveRegion.ts";
+//# sourceMappingURL=index.d.ts.map

package/dist/src/liveRegion/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../../src/liveRegion/index.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,iBAAiB,CAAC;AAC9C,YAAY,EAAE,WAAW,EAAE,SAAS,EAAE,UAAU,EAAE,MAAM,iBAAiB,CAAC"}

package/dist/src/liveRegion/index.js

@@ -0,0 +1 @@
+export { place, view } from "./liveRegion.js";

package/dist/src/liveRegion/liveRegion.d.ts

@@ -0,0 +1,42 @@
+import type { Html, HtmlBuilder } from "foldkit/html";
+/** A dialog that can host the page's live parts: its name in the application, and whether it
+ *  is open now. */
+export type DialogEntry<Host extends string> = readonly [host: Host, isOpen: boolean];
+/** Where the page's live parts go on this render. */
+export type Placement<Host extends string> = Readonly<{
+    /** The `toLiveRegionView` to give the dialog `host`: the parts while it is the topmost open
+     *  dialog, `undefined` while it is not. */
+    toDialogView: (host: Host) => (() => Html) | undefined;
+    /** The parts for the end of the body while no dialog is open, nothing while one is. */
+    toPageView: () => ReadonlyArray<Html>;
+}>;
+/**
+ * Places the page's live parts by the hosting rule: an open Dialog makes the page outside it
+ * inert and hidden from screen readers, so they render inside the topmost open dialog, and at
+ * the end of the body while none is open, exactly once either way. Neither renders them
+ * until called, so a Submodel among the parts (the toast stack) is built once. `dialogs` lists every dialog
+ * that can host them from the bottom of the stack to the top: one that opens from another
+ * (a confirm from a form) comes after it, so of the open ones the last is the topmost. Call it
+ * on every render, from the application's Model, so the parts move as dialogs open and close.
+ *
+ * ```ts
+ * const placement = LiveRegion.place([
+ *   ["Rename", Dialog.isOpen(model.rename)],
+ *   ["Delete", ConfirmDialog.isOpen(model.deleteConfirm)],
+ * ], () => LiveRegion.view({ toasts: toastsView(model, h) }, h));
+ * // the rename dialog's view inputs: toLiveRegionView: placement.toDialogView("Rename")
+ * // the body: [...content, ...placement.toPageView()]
+ * ```
+ */
+export declare const place: <Host extends string>(dialogs: ReadonlyArray<DialogEntry<Host>>, toView: () => Html) => Placement<Host>;
+/** Configuration for rendering the page's live parts with `view`. */
+export type ViewConfig = Readonly<{
+    /** The page's Toast stack (its `h.submodel`), when it has one. */
+    toasts?: Html;
+    /** The Banner in force, when one is: it stays in reach while a dialog is open. */
+    banner?: Html;
+}>;
+/** The page's live parts together, for `place`: the Announcer's region, then the toast stack
+ *  and the banner the application gives. */
+export declare const view: <Message>(config: ViewConfig, h: HtmlBuilder<Message>) => Html;
+//# sourceMappingURL=liveRegion.d.ts.map

package/dist/src/liveRegion/liveRegion.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"liveRegion.d.ts","sourceRoot":"","sources":["../../../src/liveRegion/liveRegion.ts"],"names":[],"mappings":"AACA,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,cAAc,CAAC;AAMtD;mBACmB;AACnB,MAAM,MAAM,WAAW,CAAC,IAAI,SAAS,MAAM,IAAI,SAAS,CAAC,IAAI,EAAE,IAAI,EAAE,MAAM,EAAE,OAAO,CAAC,CAAC;AAEtF,qDAAqD;AACrD,MAAM,MAAM,SAAS,CAAC,IAAI,SAAS,MAAM,IAAI,QAAQ,CAAC;IACpD;+CAC2C;IAC3C,YAAY,EAAE,CAAC,IAAI,EAAE,IAAI,KAAK,CAAC,MAAM,IAAI,CAAC,GAAG,SAAS,CAAC;IACvD,uFAAuF;IACvF,UAAU,EAAE,MAAM,aAAa,CAAC,IAAI,CAAC,CAAC;CACvC,CAAC,CAAC;AAEH;;;;;;;;;;;;;;;;;GAiBG;AACH,eAAO,MAAM,KAAK,GAAI,IAAI,SAAS,MAAM,WAC9B,aAAa,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC,UACjC,MAAM,IAAI,KACjB,SAAS,CAAC,IAAI,CAWhB,CAAC;AAIF,qEAAqE;AACrE,MAAM,MAAM,UAAU,GAAG,QAAQ,CAAC;IAChC,kEAAkE;IAClE,MAAM,CAAC,EAAE,IAAI,CAAC;IACd,kFAAkF;IAClF,MAAM,CAAC,EAAE,IAAI,CAAC;CACf,CAAC,CAAC;AAEH;4CAC4C;AAC5C,eAAO,MAAM,IAAI,GAAI,OAAO,UAAU,UAAU,KAAK,WAAW,CAAC,OAAO,CAAC,KAAG,IAQzE,CAAC"}

package/dist/src/liveRegion/liveRegion.js

@@ -0,0 +1,35 @@
+import { brandViewResult as __foldkitBrandViewResult } from 'foldkit/brand'
+import { Array, Option, pipe } from "effect";
+import * as Announcer from "../announcer/announcer.js";
+/**
+ * Places the page's live parts by the hosting rule: an open Dialog makes the page outside it
+ * inert and hidden from screen readers, so they render inside the topmost open dialog, and at
+ * the end of the body while none is open, exactly once either way. Neither renders them
+ * until called, so a Submodel among the parts (the toast stack) is built once. `dialogs` lists every dialog
+ * that can host them from the bottom of the stack to the top: one that opens from another
+ * (a confirm from a form) comes after it, so of the open ones the last is the topmost. Call it
+ * on every render, from the application's Model, so the parts move as dialogs open and close.
+ *
+ * ```ts
+ * const placement = LiveRegion.place([
+ *   ["Rename", Dialog.isOpen(model.rename)],
+ *   ["Delete", ConfirmDialog.isOpen(model.deleteConfirm)],
+ * ], () => LiveRegion.view({ toasts: toastsView(model, h) }, h));
+ * // the rename dialog's view inputs: toLiveRegionView: placement.toDialogView("Rename")
+ * // the body: [...content, ...placement.toPageView()]
+ * ```
+ */
+export const place = (dialogs, toView) => {
+    const maybeTopmost = pipe(Array.findLast(dialogs, ([, isOpen]) => __foldkitBrandViewResult((isOpen), "@gjermundgaraba-designs/pixel-paper/src/liveRegion/liveRegion.js#anonymous")), Option.map(([host]) => __foldkitBrandViewResult((host), "@gjermundgaraba-designs/pixel-paper/src/liveRegion/liveRegion.js#anonymous~2")));
+    return __foldkitBrandViewResult(({
+        toDialogView: (host) => __foldkitBrandViewResult((Option.exists(maybeTopmost, (topmost) => __foldkitBrandViewResult((topmost === host), "@gjermundgaraba-designs/pixel-paper/src/liveRegion/liveRegion.js#anonymous~3")) ? toView : undefined), "@gjermundgaraba-designs/pixel-paper/src/liveRegion/liveRegion.js#toDialogView"),
+        toPageView: () => (__foldkitBrandViewResult((Option.isNone(maybeTopmost) ? [toView()] : []), "@gjermundgaraba-designs/pixel-paper/src/liveRegion/liveRegion.js#toPageView")),
+    }), "@gjermundgaraba-designs/pixel-paper/src/liveRegion/liveRegion.js#place");
+};
+/** The page's live parts together, for `place`: the Announcer's region, then the toast stack
+ *  and the banner the application gives. */
+export const view = (config, h) => __foldkitBrandViewResult((h.div([], [
+    Announcer.view(h),
+    ...(config.toasts === undefined ? [] : [config.toasts]),
+    ...(config.banner === undefined ? [] : [config.banner]),
+])), "@gjermundgaraba-designs/pixel-paper/src/liveRegion/liveRegion.js#view");

package/dist/src/loading/loading.d.ts

@@ -1,15 +1,20 @@
 import type { Html, HtmlBuilder } from "foldkit/html";
+import type { Attributes } from "../attributes/attributes.ts";
 /** Configuration for rendering a loading line with `view`. */
-export type ViewConfig = Readonly<{
+export type ViewConfig<Message> = Readonly<{
     /** Whether the content is on its way. Done, the line empties and leaves the flow, so it
      *  takes no room and no gap, but stays in place, so the next wait is heard. */
     isLoading: boolean;
     /** What is on its way, in pixel caps (`"loading the items"`). `"loading"` by default. */
     label?: string;
+    /** Attributes for the line, such as the id and `tabindex="-1"` that make it a place to
+     *  send focus. */
+    attributes?: Attributes<Message>;
 }>;
 /** What a panel says while its content is on the way, centred where the content will be, with
  *  the working cursor. A polite status that stays in place with its words swapped, as a live
  *  region must be for a screen reader to hear it: render it before the content, from before
- *  the wait starts, and set `isLoading`. */
-export declare const view: <Message>(config: ViewConfig, h: HtmlBuilder<Message>) => Html;
+ *  the wait starts, and set `isLoading`. It is not the page's live region (the Announcer's,
+ *  marked `data-pixel-paper-announcer`), so a test that counts live regions counts that. */
+export declare const view: <Message>(config: ViewConfig<Message>, h: HtmlBuilder<Message>) => Html;
 //# sourceMappingURL=loading.d.ts.map

package/dist/src/loading/loading.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"loading.d.ts","sourceRoot":"","sources":["../../../src/loading/loading.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,cAAc,CAAC;AAItD,8DAA8D;AAC9D,MAAM,MAAM,UAAU,GAAG,QAAQ,CAAC;IAChC;mFAC+E;IAC/E,SAAS,EAAE,OAAO,CAAC;IACnB,yFAAyF;IACzF,KAAK,CAAC,EAAE,MAAM,CAAC;CAChB,CAAC,CAAC;AAEH;;;4CAG4C;AAC5C,eAAO,MAAM,IAAI,GAAI,OAAO,UAAU,UAAU,KAAK,WAAW,CAAC,OAAO,CAAC,KAAG,IAO3E,CAAC"}
+{"version":3,"file":"loading.d.ts","sourceRoot":"","sources":["../../../src/loading/loading.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,cAAc,CAAC;AAEtD,OAAO,KAAK,EAAE,UAAU,EAAE,MAAM,6BAA6B,CAAC;AAI9D,8DAA8D;AAC9D,MAAM,MAAM,UAAU,CAAC,OAAO,IAAI,QAAQ,CAAC;IACzC;mFAC+E;IAC/E,SAAS,EAAE,OAAO,CAAC;IACnB,yFAAyF;IACzF,KAAK,CAAC,EAAE,MAAM,CAAC;IACf;sBACkB;IAClB,UAAU,CAAC,EAAE,UAAU,CAAC,OAAO,CAAC,CAAC;CAClC,CAAC,CAAC;AAEH;;;;4FAI4F;AAC5F,eAAO,MAAM,IAAI,GAAI,OAAO,UAAU,UAAU,CAAC,OAAO,CAAC,KAAK,WAAW,CAAC,OAAO,CAAC,KAAG,IAOpF,CAAC"}

package/dist/src/loading/loading.js

@@ -2,8 +2,9 @@ import { brandViewResult as __foldkitBrandViewResult } from 'foldkit/brand'
 /** What a panel says while its content is on the way, centred where the content will be, with
  *  the working cursor. A polite status that stays in place with its words swapped, as a live
  *  region must be for a screen reader to hear it: render it before the content, from before
- *  the wait starts, and set `isLoading`. */
+ *  the wait starts, and set `isLoading`. It is not the page's live region (the Announcer's,
+ *  marked `data-pixel-paper-announcer`), so a test that counts live regions counts that. */
 export const view = (config, h) => {
-    const { isLoading, label = "loading" } = config;
-    return __foldkitBrandViewResult((h.div([h.Role("status"), h.Class(isLoading ? "loading" : "loading-idle")], isLoading ? [label, h.span([h.Class("cursor"), h.AriaHidden(true)])] : [])), "@gjermundgaraba-designs/pixel-paper/src/loading/loading.js#view");
+    const { isLoading, label = "loading", attributes = [] } = config;
+    return __foldkitBrandViewResult((h.div([...attributes, h.Role("status"), h.Class(isLoading ? "loading" : "loading-idle")], isLoading ? [label, h.span([h.Class("cursor"), h.AriaHidden(true)])] : [])), "@gjermundgaraba-designs/pixel-paper/src/loading/loading.js#view");
 };

package/dist/src/menu/menu.d.ts

@@ -75,8 +75,6 @@ export declare const update: (model: Model, message: Message) => Readonly<{
         readonly edge: "First" | "Last";
     };
     commands?: Update.Commands<{
-        readonly _tag: "PressedEscape";
-    } | {
         readonly _tag: "CompletedFocus";
     } | {
         readonly _tag: "ClickedToggle";
@@ -86,6 +84,8 @@ export declare const update: (model: Model, message: Message) => Readonly<{
         readonly _tag: "CompletedPlaceSlip";
     } | {
         readonly _tag: "LeftSlip";
+    } | {
+        readonly _tag: "PressedEscape";
     } | {
         readonly _tag: "PressedTab";
     } | {
@@ -125,11 +125,11 @@ export declare const BindSlip: Mount.MountDefinitionWithArgs<"BindSlip", {
     isEnd: Schema.Boolean;
     edge: Schema.Literals<readonly ["First", "Last"]>;
 }, {
-    readonly _tag: "PressedEscape";
-} | {
     readonly _tag: "CompletedPlaceSlip";
 } | {
     readonly _tag: "LeftSlip";
+} | {
+    readonly _tag: "PressedEscape";
 } | {
     readonly _tag: "PressedTab";
 }>;
@@ -174,8 +174,6 @@ export declare const view: import("foldkit/submodel").View<{
     readonly isOpen: boolean;
     readonly edge: "First" | "Last";
 }, {
-    readonly _tag: "PressedEscape";
-} | {
     readonly _tag: "CompletedFocus";
 } | {
     readonly _tag: "ClickedToggle";
@@ -185,6 +183,8 @@ export declare const view: import("foldkit/submodel").View<{
     readonly _tag: "CompletedPlaceSlip";
 } | {
     readonly _tag: "LeftSlip";
+} | {
+    readonly _tag: "PressedEscape";
 } | {
     readonly _tag: "PressedTab";
 } | {

package/dist/src/meter/meter.d.ts

@@ -32,6 +32,9 @@ export type MeterConfig = Readonly<{
     /** Replaces the printed numbers and what screen readers hear:
      *  `"41,200 of 50,000 requests"`. */
     valueText?: string;
+    /** Prints the numbers line (the default). Leave it out where it would repeat the
+     *  percentage (`valueText: "62% used"`); screen readers still hear `valueText`. */
+    hasNumbers?: boolean;
     /** In a red chip once the value reaches `max`. The percentage by default. */
     full?: string;
     /** The last reading failed: the cells print muted, the numbers are the last known, and

package/dist/src/meter/meter.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"meter.d.ts","sourceRoot":"","sources":["../../../src/meter/meter.ts"],"names":[],"mappings":"AAEA,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,cAAc,CAAC;AAatD,0DAA0D;AAC1D,MAAM,MAAM,WAAW,GAAG,QAAQ,CAAC;IACjC,uDAAuD;IACvD,EAAE,EAAE,MAAM,CAAC;IACX,gEAAgE;IAChE,KAAK,EAAE,MAAM,CAAC;IACd,0BAA0B;IAC1B,EAAE,EAAE,MAAM,CAAC;IACX,4CAA4C;IAC5C,KAAK,EAAE,MAAM,CAAC;IACd,wEAAwE;IACxE,SAAS,EAAE,MAAM,CAAC;IAClB,qDAAqD;IACrD,OAAO,CAAC,EAAE,OAAO,CAAC;CACnB,CAAC,CAAC;AASH;0EAC0E;AAC1E,eAAO,MAAM,SAAS,GAAI,OAAO,UAAU,WAAW,KAAK,WAAW,CAAC,OAAO,CAAC,KAAG,IAmBjF,CAAC;AAIF,iCAAiC;AACjC,MAAM,MAAM,WAAW,GAAG,QAAQ,CAAC;IACjC,uDAAuD;IACvD,EAAE,EAAE,MAAM,CAAC;IACX,4CAA4C;IAC5C,KAAK,EAAE,MAAM,CAAC;IACd,2DAA2D;IAC3D,MAAM,CAAC,EAAE,aAAa,CAAC,IAAI,GAAG,MAAM,CAAC,CAAC;IACtC,KAAK,EAAE,MAAM,CAAC;IACd,GAAG,EAAE,MAAM,CAAC;IACZ,+CAA+C;IAC/C,IAAI,CAAC,EAAE,MAAM,CAAC;IACd;yCACqC;IACrC,SAAS,CAAC,EAAE,MAAM,CAAC;IACnB,6EAA6E;IAC7E,IAAI,CAAC,EAAE,MAAM,CAAC;IACd;;kBAEc;IACd,OAAO,CAAC,EAAE,OAAO,CAAC;IAClB,uDAAuD;IACvD,IAAI,CAAC,EAAE,aAAa,CAAC,IAAI,GAAG,MAAM,CAAC,CAAC;CACrC,CAAC,CAAC;AA+EH,oEAAoE;AACpE,MAAM,MAAM,cAAc,GAAG,QAAQ,CAAC;IACpC,MAAM,EAAE,aAAa,CAAC,WAAW,CAAC,CAAC;CACpC,CAAC,CAAC;AAEH;;;;;;GAMG;AACH,eAAO,MAAM,QAAQ,GAAI,OAAO,UAAU,cAAc,KAAK,WAAW,CAAC,OAAO,CAAC,KAAG,IAIjF,CAAC"}
+{"version":3,"file":"meter.d.ts","sourceRoot":"","sources":["../../../src/meter/meter.ts"],"names":[],"mappings":"AAEA,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,cAAc,CAAC;AAatD,0DAA0D;AAC1D,MAAM,MAAM,WAAW,GAAG,QAAQ,CAAC;IACjC,uDAAuD;IACvD,EAAE,EAAE,MAAM,CAAC;IACX,gEAAgE;IAChE,KAAK,EAAE,MAAM,CAAC;IACd,0BAA0B;IAC1B,EAAE,EAAE,MAAM,CAAC;IACX,4CAA4C;IAC5C,KAAK,EAAE,MAAM,CAAC;IACd,wEAAwE;IACxE,SAAS,EAAE,MAAM,CAAC;IAClB,qDAAqD;IACrD,OAAO,CAAC,EAAE,OAAO,CAAC;CACnB,CAAC,CAAC;AASH;0EAC0E;AAC1E,eAAO,MAAM,SAAS,GAAI,OAAO,UAAU,WAAW,KAAK,WAAW,CAAC,OAAO,CAAC,KAAG,IAmBjF,CAAC;AAIF,iCAAiC;AACjC,MAAM,MAAM,WAAW,GAAG,QAAQ,CAAC;IACjC,uDAAuD;IACvD,EAAE,EAAE,MAAM,CAAC;IACX,4CAA4C;IAC5C,KAAK,EAAE,MAAM,CAAC;IACd,2DAA2D;IAC3D,MAAM,CAAC,EAAE,aAAa,CAAC,IAAI,GAAG,MAAM,CAAC,CAAC;IACtC,KAAK,EAAE,MAAM,CAAC;IACd,GAAG,EAAE,MAAM,CAAC;IACZ,+CAA+C;IAC/C,IAAI,CAAC,EAAE,MAAM,CAAC;IACd;yCACqC;IACrC,SAAS,CAAC,EAAE,MAAM,CAAC;IACnB;uFACmF;IACnF,UAAU,CAAC,EAAE,OAAO,CAAC;IACrB,6EAA6E;IAC7E,IAAI,CAAC,EAAE,MAAM,CAAC;IACd;;kBAEc;IACd,OAAO,CAAC,EAAE,OAAO,CAAC;IAClB,uDAAuD;IACvD,IAAI,CAAC,EAAE,aAAa,CAAC,IAAI,GAAG,MAAM,CAAC,CAAC;CACrC,CAAC,CAAC;AAwFH,oEAAoE;AACpE,MAAM,MAAM,cAAc,GAAG,QAAQ,CAAC;IACpC,MAAM,EAAE,aAAa,CAAC,WAAW,CAAC,CAAC;CACpC,CAAC,CAAC;AAEH;;;;;;GAMG;AACH,eAAO,MAAM,QAAQ,GAAI,OAAO,UAAU,cAAc,KAAK,WAAW,CAAC,OAAO,CAAC,KAAG,IAMjF,CAAC"}

package/dist/src/meter/meter.js

@@ -48,7 +48,7 @@ const percentView = (config, percent, isFull, h) => {
     }
 };
 const meterView = (config, h) => {
-    const { id, label, value, max, detail = [], foot = [], isStale = false } = config;
+    const { id, label, value, max, detail = [], foot = [], isStale = false, hasNumbers = true, } = config;
     const share = max > 0 ? Math.min(1, Math.max(0, value / max)) : 0;
     const isFull = value >= max;
     const numbers = config.valueText ?? numbersText(value, max, config.unit);
@@ -66,7 +66,7 @@ const meterView = (config, h) => {
             h.div([h.Class("meter-line")], [
                 h.span([...groups.meter, h.Class("cells")], cellRowView(METER_CELLS, scaled(share, METER_CELLS, isFull), h)),
                 percentView(config, scaled(share, PERCENT, isFull), isFull, h),
-                h.span([h.Class("meter-num tnum")], [numbers]),
+                ...(hasNumbers ? [h.span([h.Class("meter-num tnum")], [numbers])] : []),
             ]),
             ...slotView("div", "meter-foot", foot, h),
         ])), "@gjermundgaraba-designs/pixel-paper/src/meter/meter.js#toView~2"),
@@ -79,4 +79,7 @@ const meterView = (config, h) => {
  * the numbers in English, a foot line. The cells are the `meter`, named by the printed label,
  * with the value, the maximum and the numbers in words for screen readers.
  */
-export const listView = (config, h) => __foldkitBrandViewResult((h.ul([h.Class("meters")], Array.map(config.meters, (meter) => __foldkitBrandViewResult((meterView(meter, h)), "@gjermundgaraba-designs/pixel-paper/src/meter/meter.js#anonymous~2")))), "@gjermundgaraba-designs/pixel-paper/src/meter/meter.js#listView");
+export const listView = (config, h) => __foldkitBrandViewResult((h.ul(
+// NOTE: Safari takes list semantics from a list printed without markers, so the list
+// says it is one
+[h.Role("list"), h.Class("meters")], Array.map(config.meters, (meter) => __foldkitBrandViewResult((meterView(meter, h)), "@gjermundgaraba-designs/pixel-paper/src/meter/meter.js#anonymous~2")))), "@gjermundgaraba-designs/pixel-paper/src/meter/meter.js#listView");

package/dist/src/remote/index.d.ts

@@ -0,0 +1,3 @@
+export { view } from "./remote.ts";
+export type { ViewConfig } from "./remote.ts";
+//# sourceMappingURL=index.d.ts.map

package/dist/src/remote/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../../src/remote/index.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,IAAI,EAAE,MAAM,aAAa,CAAC;AACnC,YAAY,EAAE,UAAU,EAAE,MAAM,aAAa,CAAC"}

package/dist/src/remote/index.js

@@ -0,0 +1 @@
+export { view } from "./remote.js";

package/dist/src/remote/remote.d.ts

@@ -0,0 +1,29 @@
+import { AsyncData } from "foldkit";
+import type { Html, HtmlBuilder } from "foldkit/html";
+/** Configuration for rendering data that loads with `view`. */
+export type ViewConfig<Data, Error, Message> = Readonly<{
+    /** The loading line's id, unique in the document. Retry takes its button away with the
+     *  notice, so return `Focus.Focus({ id })` with the retry: focus lands on the line, which
+     *  says a first load and stays quiet over a refresh. */
+    id: string;
+    data: AsyncData.AsyncData<Data, Error>;
+    /** What loads, as a noun in the words around it: `"usage"` reads "loading usage", "Usage
+     *  not loaded" and "Usage not refreshed". */
+    label: string;
+    /** Why a load failed, in a sentence, under the notice's title. */
+    toErrorText: (error: Error) => string;
+    /** Loads it again: the notice's retry button, on a failure and on stale data alike. */
+    onRetry: Message;
+    /** The data, loaded or the last loaded (an EmptyState for none is the caller's). */
+    toDataView: (data: Data) => ReadonlyArray<Html>;
+}>;
+/**
+ * Data that loads, in each of Foldkit's `AsyncData` states, with the retry built in: a Loading
+ * line while it first loads (in place in every state, so its status is heard), an error
+ * Notice with retry when it failed with nothing to show, a warn Notice with retry above the
+ * last data when a refresh failed (stale), and the data itself once loaded or while it
+ * refreshes, quietly, so a page that polls is not heard each time. Spread it where the
+ * content goes.
+ */
+export declare const view: <Data, Error, Message>(config: ViewConfig<Data, Error, Message>, h: HtmlBuilder<Message>) => ReadonlyArray<Html>;
+//# sourceMappingURL=remote.d.ts.map

package/dist/src/remote/remote.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"remote.d.ts","sourceRoot":"","sources":["../../../src/remote/remote.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,SAAS,EAAE,MAAM,SAAS,CAAC;AACpC,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,cAAc,CAAC;AAQtD,+DAA+D;AAC/D,MAAM,MAAM,UAAU,CAAC,IAAI,EAAE,KAAK,EAAE,OAAO,IAAI,QAAQ,CAAC;IACtD;;4DAEwD;IACxD,EAAE,EAAE,MAAM,CAAC;IACX,IAAI,EAAE,SAAS,CAAC,SAAS,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;IACvC;iDAC6C;IAC7C,KAAK,EAAE,MAAM,CAAC;IACd,kEAAkE;IAClE,WAAW,EAAE,CAAC,KAAK,EAAE,KAAK,KAAK,MAAM,CAAC;IACtC,uFAAuF;IACvF,OAAO,EAAE,OAAO,CAAC;IACjB,oFAAoF;IACpF,UAAU,EAAE,CAAC,IAAI,EAAE,IAAI,KAAK,aAAa,CAAC,IAAI,CAAC,CAAC;CACjD,CAAC,CAAC;AAIH;;;;;;;GAOG;AACH,eAAO,MAAM,IAAI,GAAI,IAAI,EAAE,KAAK,EAAE,OAAO,UAC/B,UAAU,CAAC,IAAI,EAAE,KAAK,EAAE,OAAO,CAAC,KACrC,WAAW,CAAC,OAAO,CAAC,KACtB,aAAa,CAAC,IAAI,CAmCpB,CAAC"}

package/dist/src/remote/remote.js

@@ -0,0 +1,41 @@
+import { brandViewResult as __foldkitBrandViewResult } from 'foldkit/brand'
+import { AsyncData } from "foldkit";
+import * as Button from "../button/button.js";
+import * as Loading from "../loading/loading.js";
+import * as Notice from "../notice/notice.js";
+const capitalised = (label) => __foldkitBrandViewResult((`${label.charAt(0).toUpperCase()}${label.slice(1)}`), "@gjermundgaraba-designs/pixel-paper/src/remote/remote.js#capitalised");
+/**
+ * Data that loads, in each of Foldkit's `AsyncData` states, with the retry built in: a Loading
+ * line while it first loads (in place in every state, so its status is heard), an error
+ * Notice with retry when it failed with nothing to show, a warn Notice with retry above the
+ * last data when a refresh failed (stale), and the data itself once loaded or while it
+ * refreshes, quietly, so a page that polls is not heard each time. Spread it where the
+ * content goes.
+ */
+export const view = (config, h) => {
+    const { id, data, label, toErrorText, onRetry, toDataView } = config;
+    const noticeView = (tone, title, error) => __foldkitBrandViewResult((Notice.view({
+        tone,
+        title,
+        body: [toErrorText(error)],
+        actions: [Button.view({ label: "retry", isSmall: true, onClick: onRetry }, h)],
+    }, h)), "@gjermundgaraba-designs/pixel-paper/src/remote/remote.js#noticeView");
+    return __foldkitBrandViewResult(([
+        Loading.view({
+            isLoading: AsyncData.isLoading(data),
+            label: `loading ${label}`,
+            attributes: [h.Id(id), h.Tabindex(-1)],
+        }, h),
+        ...AsyncData.match(data, {
+            onIdle: () => __foldkitBrandViewResult(([]), "@gjermundgaraba-designs/pixel-paper/src/remote/remote.js#onIdle"),
+            onLoading: () => __foldkitBrandViewResult(([]), "@gjermundgaraba-designs/pixel-paper/src/remote/remote.js#onLoading"),
+            onFailure: (error) => __foldkitBrandViewResult(([noticeView("Error", `${capitalised(label)} not loaded`, error)]), "@gjermundgaraba-designs/pixel-paper/src/remote/remote.js#onFailure"),
+            onStale: ({ error, data: lastData }) => __foldkitBrandViewResult(([
+                noticeView("Warn", `${capitalised(label)} not refreshed`, error),
+                ...toDataView(lastData),
+            ]), "@gjermundgaraba-designs/pixel-paper/src/remote/remote.js#onStale"),
+            onRefreshing: toDataView,
+            onSuccess: toDataView,
+        }),
+    ]), "@gjermundgaraba-designs/pixel-paper/src/remote/remote.js#view");
+};

package/dist/src/skipLink/index.d.ts

@@ -1,2 +1,2 @@
-export { focusFragment, view } from "./skipLink.ts";
+export { ScrollToFragment, view } from "./skipLink.ts";
 //# sourceMappingURL=index.d.ts.map

package/dist/src/skipLink/index.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../../src/skipLink/index.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,aAAa,EAAE,IAAI,EAAE,MAAM,eAAe,CAAC"}
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../../src/skipLink/index.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,gBAAgB,EAAE,IAAI,EAAE,MAAM,eAAe,CAAC"}

package/dist/src/skipLink/index.js

@@ -1 +1 @@
-export { focusFragment, view } from "./skipLink.js";
+export { ScrollToFragment, view } from "./skipLink.js";

package/dist/src/skipLink/skipLink.d.ts

@@ -1,17 +1,33 @@
-import { Effect } from "effect";
+import { Effect, Schema } from "effect";
+import * as Command from "foldkit/command";
 import type { Html, HtmlBuilder } from "foldkit/html";
+/** What `ScrollToFragment` reports. An application that runs it puts
+ *  `CompletedScrollToFragment: {}` in its own Message union, which this tag matches. */
+export declare const Message: import("foldkit/message").MessageUnion<{
+    readonly CompletedScrollToFragment: {};
+}>;
+export type Message = typeof Message.Type;
 /**
  * The first thing in the page: a link to the main landmark (`#main`, as Deck, Stage and Wall render it), hidden until it holds the
  * keyboard. A Foldkit application routes every link click through its own update, so its
- * fragment handler must move focus to the target as the browser would: run `focusFragment`
- * from the Command that handles a changed URL's fragment.
+ * fragment handler must move focus to the target as the browser would: return
+ * `ScrollToFragment` for a changed URL.
  */
 export declare const view: <Message>(h: HtmlBuilder<Message>) => Html;
+/** Moves focus to the element a fragment names, making it focusable when it is not;
+ *  `ScrollToFragment` runs it. */
+export declare const focusFragment: (fragment: string) => Effect.Effect<void>;
 /**
- * Scrolls to the element a fragment names and moves focus to it, making it focusable
- * (`tabindex="-1"`) when it is not, so the next Tab continues from there: what a fragment
- * link does without an application in the way. Does nothing when no element has that id.
- * Run it from the application's own Command, as Foldkit's `Dom` Effects are run.
+ * What a followed link does without an application in the way, for the application's URL
+ * handler to return when the URL changes: with a fragment, scrolls to the element it names and
+ * moves focus to it, making it focusable (`tabindex="-1"`) when it is not, so the next Tab
+ * continues from there (nothing when no element has that id); without one, scrolls to the
+ * top, since Foldkit reports a link followed and a step through history as the same change, so
+ * a new page opens at its top either way. Reports `CompletedScrollToFragment`.
  */
-export declare const focusFragment: (fragment: string) => Effect.Effect<void>;
+export declare const ScrollToFragment: Command.CommandDefinitionWithArgs<"ScrollToFragment", {
+    maybeFragment: Schema.Option<Schema.String>;
+}, Effect.Effect<{
+    readonly _tag: "CompletedScrollToFragment";
+}, never, never>>;
 //# sourceMappingURL=skipLink.d.ts.map

package/dist/src/skipLink/skipLink.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"skipLink.d.ts","sourceRoot":"","sources":["../../../src/skipLink/skipLink.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAEhC,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,cAAc,CAAC;AAItD;;;;;GAKG;AACH,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,WAAW,CAAC,OAAO,CAAC,KAAG,IACM,CAAC;AAI/D;;;;;GAKG;AACH,eAAO,MAAM,aAAa,aAAc,MAAM,KAAG,MAAM,CAAC,MAAM,CAAC,IAAI,CAGhE,CAAC"}
+{"version":3,"file":"skipLink.d.ts","sourceRoot":"","sources":["../../../src/skipLink/skipLink.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAU,MAAM,EAAE,MAAM,QAAQ,CAAC;AAChD,OAAO,KAAK,OAAO,MAAM,iBAAiB,CAAC;AAE3C,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,cAAc,CAAC;AAKtD;wFACwF;AACxF,eAAO,MAAM,OAAO;;EAAwD,CAAC;AAC7E,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAC;AAI1C;;;;;GAKG;AACH,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,WAAW,CAAC,OAAO,CAAC,KAAG,IACM,CAAC;AAI/D;kCACkC;AAClC,eAAO,MAAM,aAAa,aAAc,MAAM,KAAG,MAAM,CAAC,MAAM,CAAC,IAAI,CAGhE,CAAC;AAIJ;;;;;;;GAOG;AACH,eAAO,MAAM,gBAAgB;;;;iBAY3B,CAAC"}

package/dist/src/skipLink/skipLink.js

@@ -1,19 +1,38 @@
 import { brandViewResult as __foldkitBrandViewResult } from 'foldkit/brand'
-import { Effect } from "effect";
+import { Effect, Option, Schema } from "effect";
+import * as Command from "foldkit/command";
 import * as Dom from "foldkit/dom";
+import { defineMessageUnion } from "foldkit/message";
+// MESSAGE
+/** What `ScrollToFragment` reports. An application that runs it puts
+ *  `CompletedScrollToFragment: {}` in its own Message union, which this tag matches. */
+export const Message = defineMessageUnion({ CompletedScrollToFragment: {} });
 // VIEW
 /**
  * The first thing in the page: a link to the main landmark (`#main`, as Deck, Stage and Wall render it), hidden until it holds the
  * keyboard. A Foldkit application routes every link click through its own update, so its
- * fragment handler must move focus to the target as the browser would: run `focusFragment`
- * from the Command that handles a changed URL's fragment.
+ * fragment handler must move focus to the target as the browser would: return
+ * `ScrollToFragment` for a changed URL.
  */
 export const view = (h) => __foldkitBrandViewResult((h.a([h.Href("#main"), h.Class("skip")], ["Skip to content"])), "@gjermundgaraba-designs/pixel-paper/src/skipLink/skipLink.js#view");
 // FOCUS
+/** Moves focus to the element a fragment names, making it focusable when it is not;
+ *  `ScrollToFragment` runs it. */
+export const focusFragment = (fragment) => __foldkitBrandViewResult((Effect.suspend(() => __foldkitBrandViewResult((Dom.focus(`#${CSS.escape(fragment)}`, { makeFocusable: true })), "@gjermundgaraba-designs/pixel-paper/src/skipLink/skipLink.js#anonymous")).pipe(Effect.ignore)), "@gjermundgaraba-designs/pixel-paper/src/skipLink/skipLink.js#focusFragment");
+// COMMAND
 /**
- * Scrolls to the element a fragment names and moves focus to it, making it focusable
- * (`tabindex="-1"`) when it is not, so the next Tab continues from there: what a fragment
- * link does without an application in the way. Does nothing when no element has that id.
- * Run it from the application's own Command, as Foldkit's `Dom` Effects are run.
+ * What a followed link does without an application in the way, for the application's URL
+ * handler to return when the URL changes: with a fragment, scrolls to the element it names and
+ * moves focus to it, making it focusable (`tabindex="-1"`) when it is not, so the next Tab
+ * continues from there (nothing when no element has that id); without one, scrolls to the
+ * top, since Foldkit reports a link followed and a step through history as the same change, so
+ * a new page opens at its top either way. Reports `CompletedScrollToFragment`.
  */
-export const focusFragment = (fragment) => __foldkitBrandViewResult((Effect.suspend(() => __foldkitBrandViewResult((Dom.focus(`#${CSS.escape(fragment)}`, { makeFocusable: true })), "@gjermundgaraba-designs/pixel-paper/src/skipLink/skipLink.js#anonymous")).pipe(Effect.ignore)), "@gjermundgaraba-designs/pixel-paper/src/skipLink/skipLink.js#focusFragment");
+export const ScrollToFragment = Command.define("ScrollToFragment", {
+    args: { maybeFragment: Schema.Option(Schema.String) },
+    messages: [Message.CompletedScrollToFragment],
+    execute: ({ maybeFragment }) => __foldkitBrandViewResult((Option.match(maybeFragment, {
+        onNone: () => __foldkitBrandViewResult((Effect.sync(() => __foldkitBrandViewResult((window.scrollTo(0, 0)), "@gjermundgaraba-designs/pixel-paper/src/skipLink/skipLink.js#anonymous~2"))), "@gjermundgaraba-designs/pixel-paper/src/skipLink/skipLink.js#onNone"),
+        onSome: (fragment) => __foldkitBrandViewResult((Dom.scrollIntoView(`#${CSS.escape(fragment)}`).pipe(Effect.ignore, Effect.andThen(focusFragment(fragment)))), "@gjermundgaraba-designs/pixel-paper/src/skipLink/skipLink.js#onSome"),
+    }).pipe(Effect.as(Message.CompletedScrollToFragment()))), "@gjermundgaraba-designs/pixel-paper/src/skipLink/skipLink.js#execute"),
+});

package/dist/src/sortable/index.d.ts

@@ -0,0 +1,3 @@
+export { AnnounceReorder, Item, Message, Model, OutMessage, SizeLiftedItem, init, setMovable, subscriptions, update, view, } from "./sortable.ts";
+export type { InitConfig, ItemRender, Layout, ViewInputs } from "./sortable.ts";
+//# sourceMappingURL=index.d.ts.map

package/dist/src/sortable/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../../src/sortable/index.ts"],"names":[],"mappings":"AAAA,OAAO,EACL,eAAe,EACf,IAAI,EACJ,OAAO,EACP,KAAK,EACL,UAAU,EACV,cAAc,EACd,IAAI,EACJ,UAAU,EACV,aAAa,EACb,MAAM,EACN,IAAI,GACL,MAAM,eAAe,CAAC;AACvB,YAAY,EAAE,UAAU,EAAE,UAAU,EAAE,MAAM,EAAE,UAAU,EAAE,MAAM,eAAe,CAAC"}

package/dist/src/sortable/index.js

@@ -0,0 +1 @@
+export { AnnounceReorder, Item, Message, Model, OutMessage, SizeLiftedItem, init, setMovable, subscriptions, update, view, } from "./sortable.js";