@thomasfosterau/effect-richtext 0.0.0 → 0.1.0

package/dist/commands/internal.js

@@ -0,0 +1,43 @@
+import * as Effect from "effect/Effect";
+// src/commands/internal.ts
+/**
+* Helpers shared by the command modules.
+*
+* @internal
+*/
+/** @internal */
+const succeedTrue = Effect.succeed(true);
+/** @internal */
+const succeedFalse = Effect.succeed(false);
+/**
+* Build a command from a synchronous body. The body receives whether a
+* dispatch function was given, and returns `false`, `true`, or a
+* transaction to dispatch. Exceptions thrown by the body are defects.
+*
+* @internal
+*/
+const syncCommand = (body) => (state, dispatch, view) => Effect.suspend(() => {
+	const result = body(state, dispatch !== void 0, view);
+	if (result === true) return succeedTrue;
+	if (result === false) return succeedFalse;
+	return dispatch ? Effect.as(dispatch(result), true) : succeedTrue;
+});
+/**
+* When dispatching, build the transaction; otherwise just report that
+* the command applies.
+*
+* @internal
+*/
+const done = (dispatching, build) => dispatching ? build() : true;
+/**
+* Wrap a dispatch function so that the marks active before a split are
+* kept active after it.
+*
+* @internal
+*/
+const keepMarks = (state, dispatch) => dispatch && ((tr) => Effect.suspend(() => {
+	const marks = state.storedMarksOrNull || state.selection.$to.parentOffset && state.selection.$from.marks();
+	if (marks) tr.ensureMarks(marks);
+	return dispatch(tr);
+}));
+export { done, keepMarks, succeedFalse, succeedTrue, syncCommand };

package/dist/commands/keymaps.d.ts

@@ -0,0 +1,46 @@
+import { Command } from "../state/transaction.js";
+import "../state.js";
+/**
+ * A keymap: commands keyed by key name (`"Mod-b"`, `"Enter"`), as the base
+ * keymaps below and `keymap(...)` from `@thomasfosterau/effect-richtext/keymap` use them.
+ *
+ * @since 0.1.0
+ * @category models
+ */
+export interface Keymap {
+  readonly [key: string]: Command;
+}
+/**
+ * A basic keymap containing bindings not specific to any schema. Binds
+ * the following keys (when multiple commands are listed, they are
+ * chained with `chainCommands`):
+ *
+ * - **Enter** to `newlineInCode`, `createParagraphNear`, `liftEmptyBlock`, `splitBlock`
+ * - **Mod-Enter** to `exitCode`
+ * - **Backspace**, **Mod-Backspace** and **Shift-Backspace** to `deleteSelection`, `joinBackward`, `selectNodeBackward`
+ * - **Delete** and **Mod-Delete** to `deleteSelection`, `joinForward`, `selectNodeForward`
+ * - **Mod-a** to `selectAll`
+ *
+ * @since 0.1.0
+ * @category keymaps
+ */
+export declare const pcBaseKeymap: Keymap;
+/**
+ * A copy of `pcBaseKeymap` that also binds **Ctrl-h** like Backspace,
+ * **Ctrl-d** like Delete, **Alt-Backspace** like Ctrl-Backspace, and
+ * **Ctrl-Alt-Backspace**, **Alt-Delete**, and **Alt-d** like
+ * Ctrl-Delete, plus **Ctrl-a** / **Ctrl-e** to `selectTextblockStart` /
+ * `selectTextblockEnd`.
+ *
+ * @since 0.1.0
+ * @category keymaps
+ */
+export declare const macBaseKeymap: Keymap;
+/**
+ * Depending on the detected platform, this will hold `pcBaseKeymap` or
+ * `macBaseKeymap`.
+ *
+ * @since 0.1.0
+ * @category keymaps
+ */
+export declare const baseKeymap: Keymap;

package/dist/commands/keymaps.js

@@ -0,0 +1,64 @@
+import { chainCommands, createParagraphNear, deleteSelection, exitCode, joinBackward, joinForward, liftEmptyBlock, newlineInCode, selectAll, selectNodeBackward, selectNodeForward, selectTextblockEnd, selectTextblockStart, splitBlock } from "./commands.js";
+import * as Predicate from "effect/Predicate";
+// src/commands/keymaps.ts
+/**
+* Base keymaps, ported from `prosemirror-commands`.
+*
+* @since 0.1.0
+*/
+const backspace = chainCommands(deleteSelection, joinBackward, selectNodeBackward);
+const del = chainCommands(deleteSelection, joinForward, selectNodeForward);
+/**
+* A basic keymap containing bindings not specific to any schema. Binds
+* the following keys (when multiple commands are listed, they are
+* chained with `chainCommands`):
+*
+* - **Enter** to `newlineInCode`, `createParagraphNear`, `liftEmptyBlock`, `splitBlock`
+* - **Mod-Enter** to `exitCode`
+* - **Backspace**, **Mod-Backspace** and **Shift-Backspace** to `deleteSelection`, `joinBackward`, `selectNodeBackward`
+* - **Delete** and **Mod-Delete** to `deleteSelection`, `joinForward`, `selectNodeForward`
+* - **Mod-a** to `selectAll`
+*
+* @since 0.1.0
+* @category keymaps
+*/
+const pcBaseKeymap = {
+	Enter: chainCommands(newlineInCode, createParagraphNear, liftEmptyBlock, splitBlock),
+	"Mod-Enter": exitCode,
+	Backspace: backspace,
+	"Mod-Backspace": backspace,
+	"Shift-Backspace": backspace,
+	Delete: del,
+	"Mod-Delete": del,
+	"Mod-a": selectAll
+};
+/**
+* A copy of `pcBaseKeymap` that also binds **Ctrl-h** like Backspace,
+* **Ctrl-d** like Delete, **Alt-Backspace** like Ctrl-Backspace, and
+* **Ctrl-Alt-Backspace**, **Alt-Delete**, and **Alt-d** like
+* Ctrl-Delete, plus **Ctrl-a** / **Ctrl-e** to `selectTextblockStart` /
+* `selectTextblockEnd`.
+*
+* @since 0.1.0
+* @category keymaps
+*/
+const macBaseKeymap = {
+	"Ctrl-h": backspace,
+	"Alt-Backspace": backspace,
+	"Ctrl-d": del,
+	"Ctrl-Alt-Backspace": del,
+	"Alt-Delete": del,
+	"Alt-d": del,
+	"Ctrl-a": selectTextblockStart,
+	"Ctrl-e": selectTextblockEnd,
+	...pcBaseKeymap
+};
+/**
+* Depending on the detected platform, this will hold `pcBaseKeymap` or
+* `macBaseKeymap`.
+*
+* @since 0.1.0
+* @category keymaps
+*/
+const baseKeymap = !Predicate.isUndefined(globalThis.navigator) && /Mac|iP(hone|[oa]d)/.test(navigator.platform) ? macBaseKeymap : pcBaseKeymap;
+export { baseKeymap, macBaseKeymap, pcBaseKeymap };

package/dist/commands.d.ts

@@ -0,0 +1,3 @@
+import { CommandError, CommandRequirements, SplitNodeType, TextblockBoundaryDirection, TextblockBoundaryView, ToggleMarkOptions, autoJoin, chainCommands, createParagraphNear, deleteSelection, exitCode, isTextblockBoundaryView, joinBackward, joinDown, joinForward, joinTextblockBackward, joinTextblockForward, joinUp, lift, liftEmptyBlock, newlineInCode, selectAll, selectNodeBackward, selectNodeForward, selectParentNode, selectTextblockEnd, selectTextblockStart, setBlockType, splitBlock, splitBlockAs, splitBlockKeepMarks, toggleMark, wrapIn } from "./commands/commands.js";
+import { Keymap, baseKeymap, macBaseKeymap, pcBaseKeymap } from "./commands/keymaps.js";
+export { CommandError, CommandRequirements, Keymap, SplitNodeType, TextblockBoundaryDirection, TextblockBoundaryView, ToggleMarkOptions, autoJoin, baseKeymap, chainCommands, createParagraphNear, deleteSelection, exitCode, isTextblockBoundaryView, joinBackward, joinDown, joinForward, joinTextblockBackward, joinTextblockForward, joinUp, lift, liftEmptyBlock, macBaseKeymap, newlineInCode, pcBaseKeymap, selectAll, selectNodeBackward, selectNodeForward, selectParentNode, selectTextblockEnd, selectTextblockStart, setBlockType, splitBlock, splitBlockAs, splitBlockKeepMarks, toggleMark, wrapIn };

package/dist/commands.js

@@ -0,0 +1,3 @@
+import { autoJoin, chainCommands, createParagraphNear, deleteSelection, exitCode, isTextblockBoundaryView, joinBackward, joinDown, joinForward, joinTextblockBackward, joinTextblockForward, joinUp, lift, liftEmptyBlock, newlineInCode, selectAll, selectNodeBackward, selectNodeForward, selectParentNode, selectTextblockEnd, selectTextblockStart, setBlockType, splitBlock, splitBlockAs, splitBlockKeepMarks, toggleMark, wrapIn } from "./commands/commands.js";
+import { baseKeymap, macBaseKeymap, pcBaseKeymap } from "./commands/keymaps.js";
+export { autoJoin, baseKeymap, chainCommands, createParagraphNear, deleteSelection, exitCode, isTextblockBoundaryView, joinBackward, joinDown, joinForward, joinTextblockBackward, joinTextblockForward, joinUp, lift, liftEmptyBlock, macBaseKeymap, newlineInCode, pcBaseKeymap, selectAll, selectNodeBackward, selectNodeForward, selectParentNode, selectTextblockEnd, selectTextblockStart, setBlockType, splitBlock, splitBlockAs, splitBlockKeepMarks, toggleMark, wrapIn };

package/dist/compat/commands.d.ts

@@ -0,0 +1,250 @@
+import { Attrs, MarkType, Node, NodeType, ResolvedPos } from "./model.js";
+import { Command, fromCoreCommand, toCoreCommand } from "./state.js";
+/**
+ * Delete the selection, if there is one.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const deleteSelection: Command;
+/**
+ * If the selection is empty and at the start of a textblock, try to
+ * reduce the distance between that block and the one before it.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const joinBackward: Command;
+/**
+ * A more limited form of `joinBackward` that only tries to join the
+ * current textblock to the one before it, if the cursor is at the
+ * start of a textblock.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const joinTextblockBackward: Command;
+/**
+ * A more limited form of `joinForward` that only tries to join the
+ * current textblock to the one after it, if the cursor is at the end
+ * of a textblock.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const joinTextblockForward: Command;
+/**
+ * When the selection is empty and at the start of a textblock, select
+ * the node before that textblock, if possible.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const selectNodeBackward: Command;
+/**
+ * If the selection is empty and the cursor is at the end of a
+ * textblock, try to reduce or remove the boundary between that block
+ * and the one after it.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const joinForward: Command;
+/**
+ * When the selection is empty and at the end of a textblock, select
+ * the node coming after that textblock, if possible.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const selectNodeForward: Command;
+/**
+ * Join the selected block or, if there is a text selection, the
+ * closest ancestor block of the selection that can be joined, with the
+ * sibling above it.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const joinUp: Command;
+/**
+ * Join the selected block, or the closest ancestor of the selection
+ * that can be joined, with the sibling after it.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const joinDown: Command;
+/**
+ * Lift the selected block, or the closest ancestor block of the
+ * selection that can be lifted, out of its parent node.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const lift: Command;
+/**
+ * If the selection is in a node whose type has a truthy `code`
+ * property in its spec, replace the selection with a newline
+ * character.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const newlineInCode: Command;
+/**
+ * When the selection is in a node with a truthy `code` property in its
+ * spec, create a default block after the code block, and move the
+ * cursor there.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const exitCode: Command;
+/**
+ * If a block node is selected, create an empty paragraph before (if it
+ * is its parent's first child) or after it.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const createParagraphNear: Command;
+/**
+ * If the cursor is in an empty textblock that can be lifted, lift the
+ * block.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const liftEmptyBlock: Command;
+/**
+ * Create a variant of `splitBlock` that uses a custom function to
+ * determine the type of the newly split off block.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare function splitBlockAs(splitNode?: (node: Node, atEnd: boolean, $from: ResolvedPos) => {
+  type: NodeType;
+  attrs?: Attrs;
+} | null): Command;
+/**
+ * Split the parent block of the selection.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const splitBlock: Command;
+/**
+ * Acts like `splitBlock`, but without resetting the set of active
+ * marks at the cursor.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const splitBlockKeepMarks: Command;
+/**
+ * Move the selection to the node wrapping the current selection, if
+ * any.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const selectParentNode: Command;
+/**
+ * Select the whole document.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const selectAll: Command;
+/**
+ * Moves the cursor to the start of current text block.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const selectTextblockStart: Command;
+/**
+ * Moves the cursor to the end of current text block.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare const selectTextblockEnd: Command;
+/**
+ * Wrap the selection in a node of the given type with the given
+ * attributes.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare function wrapIn(nodeType: NodeType, attrs?: Attrs | null): Command;
+/**
+ * Returns a command that tries to set the selected textblocks to the
+ * given node type with the given attributes.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare function setBlockType(nodeType: NodeType, attrs?: Attrs | null): Command;
+/**
+ * Create a command function that toggles the given mark with the given
+ * attributes.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare function toggleMark(markType: MarkType, attrs?: Attrs | null, options?: {
+  removeWhenPresent?: boolean;
+  enterInlineAtoms?: boolean;
+  includeWhitespace?: boolean;
+}): Command;
+/**
+ * Wrap a command so that, when it produces a transform that causes two
+ * joinable nodes to end up next to each other, those are joined.
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare function autoJoin(command: Command, isJoinable: ((before: Node, after: Node) => boolean) | ReadonlyArray<string>): Command;
+/**
+ * Combine a number of command functions into a single function (which
+ * calls them one by one until one returns true).
+ *
+ * @since 0.1.0
+ * @category commands
+ */
+export declare function chainCommands(...commands: ReadonlyArray<Command>): Command;
+/**
+ * A basic keymap containing bindings not specific to any schema.
+ *
+ * @since 0.1.0
+ * @category keymaps
+ */
+export declare const pcBaseKeymap: {
+  [key: string]: Command;
+};
+/**
+ * A copy of `pcBaseKeymap` that also binds **Ctrl-h** like Backspace,
+ * **Ctrl-d** like Delete, **Alt-Backspace** like Ctrl-Backspace, and
+ * **Ctrl-Alt-Backspace**, **Alt-Delete**, and **Alt-d** like
+ * Ctrl-Delete.
+ *
+ * @since 0.1.0
+ * @category keymaps
+ */
+export declare const macBaseKeymap: {
+  [key: string]: Command;
+};
+/**
+ * Depending on the detected platform, this will hold `pcBasekeymap` or
+ * `macBaseKeymap`.
+ *
+ * @since 0.1.0
+ * @category keymaps
+ */
+export declare const baseKeymap: {
+  [key: string]: Command;
+};
+export { fromCoreCommand, toCoreCommand };

package/dist/compat/commands.js

@@ -0,0 +1,275 @@
+import { autoJoin as autoJoin$1, createParagraphNear as createParagraphNear$1, deleteSelection as deleteSelection$1, exitCode as exitCode$1, joinBackward as joinBackward$1, joinDown as joinDown$1, joinForward as joinForward$1, joinTextblockBackward as joinTextblockBackward$1, joinTextblockForward as joinTextblockForward$1, joinUp as joinUp$1, lift as lift$1, liftEmptyBlock as liftEmptyBlock$1, newlineInCode as newlineInCode$1, selectAll as selectAll$1, selectNodeBackward as selectNodeBackward$1, selectNodeForward as selectNodeForward$1, selectParentNode as selectParentNode$1, selectTextblockEnd as selectTextblockEnd$1, selectTextblockStart as selectTextblockStart$1, setBlockType as setBlockType$1, splitBlock as splitBlock$1, splitBlockAs as splitBlockAs$1, splitBlockKeepMarks as splitBlockKeepMarks$1, toggleMark as toggleMark$1, wrapIn as wrapIn$1 } from "../commands/commands.js";
+import { baseKeymap as baseKeymap$1, macBaseKeymap as macBaseKeymap$1, pcBaseKeymap as pcBaseKeymap$1 } from "../commands/keymaps.js";
+import { CORE, wrap } from "./internal/core.js";
+import { fromCoreCommand, toCoreCommand } from "./state.js";
+// src/compat/commands.ts
+/**
+* A `prosemirror-commands`-compatible module: the core editing commands
+* (`@thomasfosterau/effect-richtext/commands`), bridged to ProseMirror-style
+* `(state, dispatch?, view?) => boolean` commands.
+*
+* Ported API surface from prosemirror-commands (MIT, Marijn Haverbeke and others).
+*
+* @since 0.1.0
+*/
+/**
+* Delete the selection, if there is one.
+*
+* @since 0.1.0
+* @category commands
+*/
+const deleteSelection = fromCoreCommand(deleteSelection$1);
+/**
+* If the selection is empty and at the start of a textblock, try to
+* reduce the distance between that block and the one before it.
+*
+* @since 0.1.0
+* @category commands
+*/
+const joinBackward = fromCoreCommand(joinBackward$1);
+/**
+* A more limited form of `joinBackward` that only tries to join the
+* current textblock to the one before it, if the cursor is at the
+* start of a textblock.
+*
+* @since 0.1.0
+* @category commands
+*/
+const joinTextblockBackward = fromCoreCommand(joinTextblockBackward$1);
+/**
+* A more limited form of `joinForward` that only tries to join the
+* current textblock to the one after it, if the cursor is at the end
+* of a textblock.
+*
+* @since 0.1.0
+* @category commands
+*/
+const joinTextblockForward = fromCoreCommand(joinTextblockForward$1);
+/**
+* When the selection is empty and at the start of a textblock, select
+* the node before that textblock, if possible.
+*
+* @since 0.1.0
+* @category commands
+*/
+const selectNodeBackward = fromCoreCommand(selectNodeBackward$1);
+/**
+* If the selection is empty and the cursor is at the end of a
+* textblock, try to reduce or remove the boundary between that block
+* and the one after it.
+*
+* @since 0.1.0
+* @category commands
+*/
+const joinForward = fromCoreCommand(joinForward$1);
+/**
+* When the selection is empty and at the end of a textblock, select
+* the node coming after that textblock, if possible.
+*
+* @since 0.1.0
+* @category commands
+*/
+const selectNodeForward = fromCoreCommand(selectNodeForward$1);
+/**
+* Join the selected block or, if there is a text selection, the
+* closest ancestor block of the selection that can be joined, with the
+* sibling above it.
+*
+* @since 0.1.0
+* @category commands
+*/
+const joinUp = fromCoreCommand(joinUp$1);
+/**
+* Join the selected block, or the closest ancestor of the selection
+* that can be joined, with the sibling after it.
+*
+* @since 0.1.0
+* @category commands
+*/
+const joinDown = fromCoreCommand(joinDown$1);
+/**
+* Lift the selected block, or the closest ancestor block of the
+* selection that can be lifted, out of its parent node.
+*
+* @since 0.1.0
+* @category commands
+*/
+const lift = fromCoreCommand(lift$1);
+/**
+* If the selection is in a node whose type has a truthy `code`
+* property in its spec, replace the selection with a newline
+* character.
+*
+* @since 0.1.0
+* @category commands
+*/
+const newlineInCode = fromCoreCommand(newlineInCode$1);
+/**
+* When the selection is in a node with a truthy `code` property in its
+* spec, create a default block after the code block, and move the
+* cursor there.
+*
+* @since 0.1.0
+* @category commands
+*/
+const exitCode = fromCoreCommand(exitCode$1);
+/**
+* If a block node is selected, create an empty paragraph before (if it
+* is its parent's first child) or after it.
+*
+* @since 0.1.0
+* @category commands
+*/
+const createParagraphNear = fromCoreCommand(createParagraphNear$1);
+/**
+* If the cursor is in an empty textblock that can be lifted, lift the
+* block.
+*
+* @since 0.1.0
+* @category commands
+*/
+const liftEmptyBlock = fromCoreCommand(liftEmptyBlock$1);
+/**
+* Create a variant of `splitBlock` that uses a custom function to
+* determine the type of the newly split off block.
+*
+* @since 0.1.0
+* @category commands
+*/
+function splitBlockAs(splitNode) {
+	return fromCoreCommand(splitBlockAs$1(splitNode && ((node, atEnd, $from) => {
+		const result = splitNode(wrap(node), atEnd, wrap($from));
+		return result && {
+			type: result.type[CORE],
+			attrs: result.attrs ?? null
+		};
+	})));
+}
+/**
+* Split the parent block of the selection.
+*
+* @since 0.1.0
+* @category commands
+*/
+const splitBlock = fromCoreCommand(splitBlock$1);
+/**
+* Acts like `splitBlock`, but without resetting the set of active
+* marks at the cursor.
+*
+* @since 0.1.0
+* @category commands
+*/
+const splitBlockKeepMarks = fromCoreCommand(splitBlockKeepMarks$1);
+/**
+* Move the selection to the node wrapping the current selection, if
+* any.
+*
+* @since 0.1.0
+* @category commands
+*/
+const selectParentNode = fromCoreCommand(selectParentNode$1);
+/**
+* Select the whole document.
+*
+* @since 0.1.0
+* @category commands
+*/
+const selectAll = fromCoreCommand(selectAll$1);
+/**
+* Moves the cursor to the start of current text block.
+*
+* @since 0.1.0
+* @category commands
+*/
+const selectTextblockStart = fromCoreCommand(selectTextblockStart$1);
+/**
+* Moves the cursor to the end of current text block.
+*
+* @since 0.1.0
+* @category commands
+*/
+const selectTextblockEnd = fromCoreCommand(selectTextblockEnd$1);
+/**
+* Wrap the selection in a node of the given type with the given
+* attributes.
+*
+* @since 0.1.0
+* @category commands
+*/
+function wrapIn(nodeType, attrs = null) {
+	return fromCoreCommand(wrapIn$1(nodeType[CORE], attrs));
+}
+/**
+* Returns a command that tries to set the selected textblocks to the
+* given node type with the given attributes.
+*
+* @since 0.1.0
+* @category commands
+*/
+function setBlockType(nodeType, attrs = null) {
+	return fromCoreCommand(setBlockType$1(nodeType[CORE], attrs));
+}
+/**
+* Create a command function that toggles the given mark with the given
+* attributes.
+*
+* @since 0.1.0
+* @category commands
+*/
+function toggleMark(markType, attrs = null, options) {
+	return fromCoreCommand(toggleMark$1(markType[CORE], attrs ?? void 0, options));
+}
+/**
+* Wrap a command so that, when it produces a transform that causes two
+* joinable nodes to end up next to each other, those are joined.
+*
+* @since 0.1.0
+* @category commands
+*/
+function autoJoin(command, isJoinable) {
+	return fromCoreCommand(autoJoin$1(toCoreCommand(command), typeof isJoinable === "function" ? (a, b) => isJoinable(wrap(a), wrap(b)) : isJoinable));
+}
+/**
+* Combine a number of command functions into a single function (which
+* calls them one by one until one returns true).
+*
+* @since 0.1.0
+* @category commands
+*/
+function chainCommands(...commands) {
+	return function(state, dispatch, view) {
+		for (let i = 0; i < commands.length; i++) if (commands[i](state, dispatch, view)) return true;
+		return false;
+	};
+}
+const fromCoreKeymap = (map) => {
+	const result = {};
+	for (const key in map) result[key] = fromCoreCommand(map[key]);
+	return result;
+};
+/**
+* A basic keymap containing bindings not specific to any schema.
+*
+* @since 0.1.0
+* @category keymaps
+*/
+const pcBaseKeymap = fromCoreKeymap(pcBaseKeymap$1);
+/**
+* A copy of `pcBaseKeymap` that also binds **Ctrl-h** like Backspace,
+* **Ctrl-d** like Delete, **Alt-Backspace** like Ctrl-Backspace, and
+* **Ctrl-Alt-Backspace**, **Alt-Delete**, and **Alt-d** like
+* Ctrl-Delete.
+*
+* @since 0.1.0
+* @category keymaps
+*/
+const macBaseKeymap = fromCoreKeymap(macBaseKeymap$1);
+/**
+* Depending on the detected platform, this will hold `pcBasekeymap` or
+* `macBaseKeymap`.
+*
+* @since 0.1.0
+* @category keymaps
+*/
+const baseKeymap = baseKeymap$1 === macBaseKeymap$1 ? macBaseKeymap : pcBaseKeymap;
+export { autoJoin, baseKeymap, chainCommands, createParagraphNear, deleteSelection, exitCode, fromCoreCommand, joinBackward, joinDown, joinForward, joinTextblockBackward, joinTextblockForward, joinUp, lift, liftEmptyBlock, macBaseKeymap, newlineInCode, pcBaseKeymap, selectAll, selectNodeBackward, selectNodeForward, selectParentNode, selectTextblockEnd, selectTextblockStart, setBlockType, splitBlock, splitBlockAs, splitBlockKeepMarks, toCoreCommand, toggleMark, wrapIn };