@tremolo-ui/dom 0.7.0 → 0.9.0

package/src/input/defaults.ts

@@ -0,0 +1,32 @@
+import { type InputEventOption, type ModifierValue } from './modifiers'
+
+/**
+ * The keyboard amount used by Knob, NumberInput, Slider, and XYPad by default:
+ * 1 per press in the units of the value, and 0.1 with shift held. That is one
+ * `step` only while `step` is 1; a coarser `step` rounds 1 straight back, which
+ * `checkSteps` warns about.
+ *
+ * A modifier entry is not snapped to `step`, which is what lets the finer
+ * amount move at all — see `applyDelta`.
+ */
+export const DEFAULT_KEYBOARD_OPTIONS: ModifierValue<InputEventOption> = {
+  default: ['raw', 1],
+  shift: ['raw', 0.1],
+}
+
+/**
+ * The wheel amount used by Knob, NumberInput, Slider, and XYPad by default.
+ *
+ * Browsers turn shift+wheel into horizontal scrolling, which empties `deltaY`
+ * and fills `deltaX`, so no modifier is bound here.
+ */
+export const DEFAULT_WHEEL_OPTIONS: ModifierValue<InputEventOption> = ['raw', 1]
+
+/**
+ * The drag sensitivity used by value controls by default. Shift makes the
+ * same movement cover a tenth of the range, matching the arrow keys.
+ */
+export const DEFAULT_DRAG_SENSITIVITY: ModifierValue<number> = {
+  default: 1,
+  shift: 0.1,
+}

package/src/input/direction.ts

@@ -0,0 +1,107 @@
+/**
+ * Which way an input moves a value, before any amount is applied.
+ *
+ * `applyDelta` takes the direction as given, since which key or which sign of
+ * `deltaY` counts as "up" differs per control. The answers are collected here
+ * so that every wrapper gives the same one: a knob that turns the other way
+ * in one framework would be a bug nobody could see from the code.
+ *
+ * Two families, by what the control looks like:
+ *
+ * - **one value** (`Knob`, `Slider`, `NumberInput`): right and up raise it
+ * - **a position on screen** (`XYPad`, `PointsEditor`): in screen coordinates,
+ *   x growing rightwards and y growing downwards, plus which axis moves
+ *
+ * A control that runs the other way (`reverse`) flips the result itself.
+ */
+
+/** One of the four arrow keys, as `KeyboardEvent.key` names it. */
+export type ArrowKey = 'ArrowRight' | 'ArrowLeft' | 'ArrowUp' | 'ArrowDown'
+
+/** Is `key` one of the four arrow keys? */
+export function isArrowKey(key: string): key is ArrowKey {
+  return (
+    key === 'ArrowRight' ||
+    key === 'ArrowLeft' ||
+    key === 'ArrowUp' ||
+    key === 'ArrowDown'
+  )
+}
+
+/** A move along one of the two axes of a position on screen. */
+export interface AxisMove {
+  /** 0 = x, 1 = y. */
+  axis: 0 | 1
+  /** `1` towards the right or the bottom, `-1` towards the left or the top. */
+  direction: 1 | -1
+}
+
+/**
+ * The direction an arrow key moves a single value: right and up raise it.
+ * `null` for any other key.
+ */
+export function arrowKeyDirection(key: string): 1 | -1 | null {
+  if (!isArrowKey(key)) return null
+  return key === 'ArrowRight' || key === 'ArrowUp' ? 1 : -1
+}
+
+/**
+ * The axis and direction an arrow key moves a position on screen. `null` for
+ * any other key.
+ *
+ * The key picks the axis, whichever element inside the control holds the
+ * focus: a two-dimensional control is one control to the person moving it.
+ */
+export function arrowKeyMove(key: string): AxisMove | null {
+  if (!isArrowKey(key)) return null
+  return {
+    axis: key === 'ArrowRight' || key === 'ArrowLeft' ? 0 : 1,
+    direction: key === 'ArrowLeft' || key === 'ArrowUp' ? -1 : 1,
+  }
+}
+
+export interface WheelDirectionOptions {
+  /**
+   * Read horizontal scrolling as well, for a control laid out horizontally:
+   * scrolling right raises the value. Vertical scrolling still counts when
+   * there is no horizontal movement.
+   *
+   * @default false
+   */
+  horizontal?: boolean
+}
+
+/**
+ * The direction one wheel event moves a single value: scrolling up raises it.
+ * `null` when the event carries no movement the control reads.
+ */
+export function wheelDirection(
+  event: Pick<WheelEvent, 'deltaX' | 'deltaY'>,
+  { horizontal = false }: WheelDirectionOptions = {},
+): 1 | -1 | null {
+  if (horizontal && event.deltaX !== 0) return event.deltaX > 0 ? 1 : -1
+  if (event.deltaY === 0) return null
+  return event.deltaY > 0 ? -1 : 1
+}
+
+/**
+ * The axis and direction one wheel event moves a position on screen. `null`
+ * when the event carries no movement.
+ *
+ * Scrolling moves y, and shift switches to x. Browsers turn shift+wheel into
+ * horizontal scrolling: `deltaY` comes out empty and `deltaX` carries the
+ * movement. Reading whichever axis moved keeps shift working as the x-axis
+ * modifier — and picks up a trackpad's own horizontal gesture, which never
+ * had a modifier.
+ */
+export function wheelMove(
+  event: Pick<WheelEvent, 'deltaX' | 'deltaY' | 'shiftKey'>,
+): AxisMove | null {
+  const horizontal = event.deltaX !== 0
+  const delta = horizontal ? event.deltaX : event.deltaY
+  if (delta === 0) return null
+  return {
+    axis: horizontal || event.shiftKey ? 0 : 1,
+    direction: delta < 0 ? -1 : 1,
+  }
+}

package/src/internal.ts

@@ -0,0 +1,51 @@
+// What the wrappers in this repository share and nothing else is meant to
+// call. Not covered by semver: anything here can change in any release. The
+// wrappers depend on this package at the exact version for that reason.
+export { partitionByAccept, type AcceptCandidate } from './file/accept'
+export { applyDelta } from './input/apply-delta'
+export { checkSteps, type CheckStepsOptions } from './input/check-steps'
+export {
+  arrowKeyDirection,
+  arrowKeyMove,
+  wheelDirection,
+  wheelMove,
+  type AxisMove,
+  type WheelDirectionOptions,
+} from './input/direction'
+export { selectModifier } from './input/modifiers'
+export {
+  createStepperDrag,
+  type StepperDragInstance,
+  type StepperDragOptions,
+} from './number-input/stepper-drag'
+export {
+  commitNumberInputText,
+  numberInputBounds,
+  numberInputRanges,
+  nudgeNumberInput,
+  type NumberInputRanges,
+  type NumberInputValueOptions,
+} from './number-input/value'
+export {
+  caretAtDecimalOffset,
+  caretDecimalOffset,
+  numberSpan,
+  parseNumberText,
+  type NumberSpan,
+} from './number-input/text'
+export { replaceOptions } from './options/replace'
+export {
+  blackKeyWidth,
+  fitWhiteKeyWidth,
+  getNoteRangeArray,
+  pianoWidth,
+} from './piano/layout'
+export {
+  clampPoint,
+  POINT_AXIS,
+  POINTS_EDITOR_DEFAULT_KEYBOARD,
+  POINTS_EDITOR_DEFAULT_WHEEL,
+} from './points-editor'
+export { sliderMarks, type SliderMark } from './slider/marks'
+export { cssLength, visuallyHiddenStyle } from './style'
+export { toXY } from './xy'

package/src/knob/geometry.ts

@@ -0,0 +1,100 @@
+import { radian, type Scale } from '@tremolo-ui/functions'
+
+/**
+ * Width and height of the viewBox a knob is drawn in. The arcs and the thumb
+ * are laid out in these units, and the SVG scales them to the knob's size.
+ */
+export const KNOB_VIEWBOX_SIZE = 100
+
+const center = KNOB_VIEWBOX_SIZE / 2
+
+export interface KnobAngleOptions {
+  value: number
+  min: number
+  max: number
+  scale: Scale
+  /** Where the active arc starts from, so that it can grow from the middle. */
+  startValue: number
+  /** How far the knob turns from `min` to `max`, in degrees. */
+  angleRange: number
+}
+
+/**
+ * The angles a knob is drawn with, in degrees clockwise from the top.
+ *
+ * The travel is centred on the top, so `angleRange` of 270 runs from -135 to
+ * 135. Derived from the value alone, so a wrapper can call it while rendering.
+ */
+export interface KnobAngles {
+  /** The value, normalized to 0..1 along the scale. */
+  p: number
+  /** Where the travel starts. */
+  r1: number
+  /** Where the active arc starts: the lower of the value and `startValue`. */
+  r2: number
+  /** Where the active arc ends: the higher of the value and `startValue`. */
+  r3: number
+  /** Where the travel ends. */
+  r4: number
+}
+
+export function knobAngles({
+  value,
+  min,
+  max,
+  scale,
+  startValue,
+  angleRange,
+}: KnobAngleOptions): KnobAngles {
+  const p = scale.normalize(value, min, max)
+  const s = scale.normalize(startValue, min, max)
+  const r1 = -angleRange / 2
+  const r2 = r1 + Math.min(p, s) * angleRange
+  const r3 = r1 + Math.max(p, s) * angleRange
+  const r4 = angleRange / 2
+  return { p, r1, r2, r3, r4 }
+}
+
+/**
+ * The point at `angle` on a circle of `radius` around the centre of the
+ * viewBox.
+ *
+ * The radius depends on the stroke of the line being drawn, which each arc
+ * has its own of, so the point is found per arc rather than once for the knob.
+ */
+export function knobArcPoint(angle: number, radius: number) {
+  return {
+    x: center + radius * Math.cos(radian(angle - 90)),
+    y: center + radius * Math.sin(radian(angle - 90)),
+  }
+}
+
+/**
+ * The radius that keeps a stroke of `strokeWidth` inside the viewBox: half of
+ * the stroke falls outside the path it is drawn along.
+ */
+export function knobArcRadius(strokeWidth: number | string | undefined) {
+  const width =
+    typeof strokeWidth === 'number'
+      ? strokeWidth
+      : Number.parseFloat(String(strokeWidth))
+  return Number.isFinite(width) ? center - width / 2 : center
+}
+
+/** Build an SVG path for an arc, splitting full turns into drawable segments. */
+export function knobArcPath(
+  startAngle: number,
+  endAngle: number,
+  radius: number,
+) {
+  const start = knobArcPoint(startAngle, radius)
+  const sweep = endAngle - startAngle
+  const segmentCount = Math.max(1, Math.ceil(Math.abs(sweep) / 180))
+  const segmentSweep = sweep / segmentCount
+  let path = `M ${start.x} ${start.y}`
+  for (let i = 1; i <= segmentCount; i += 1) {
+    const end = knobArcPoint(startAngle + segmentSweep * i, radius)
+    path += ` A ${radius} ${radius} 0 0 ${segmentSweep >= 0 ? 1 : 0} ${end.x} ${end.y}`
+  }
+  return path
+}

package/src/midi/access.ts

@@ -1,15 +1,16 @@
-/** @private */
-export const PERMISSION_DENIED = 'PERMISSION_DENIED'
-/** @private */
-export const NOT_SUPPORTED = 'NOT_SUPPORTED'
-/** @private */
-export const UNAVAILABLE = 'UNAVAILABLE'
-
-/** @private */
+/**
+ * Why MIDI access could not be had.
+ *
+ * - `'NOT_SUPPORTED'`: the browser has no Web MIDI API, and asking again will
+ *   not change that
+ * - `'PERMISSION_DENIED'`: the user or the browser said no. Asking again is
+ *   worthwhile
+ * - `'UNAVAILABLE'`: anything else
+ */
 export type MIDIAccessError =
-  | typeof PERMISSION_DENIED
-  | typeof NOT_SUPPORTED
-  | typeof UNAVAILABLE
+  | 'NOT_SUPPORTED'
+  | 'PERMISSION_DENIED'
+  | 'UNAVAILABLE'
 
 export type MIDIAccessOptions = {
   /**
@@ -65,13 +66,13 @@ function toError(reason: unknown): MIDIAccessError {
       : ''
 
   if (name === 'SecurityError' || name === 'NotAllowedError') {
-    return PERMISSION_DENIED
+    return 'PERMISSION_DENIED'
   }
   if (name === 'NotSupportedError' || name === 'TypeError') {
-    return NOT_SUPPORTED
+    return 'NOT_SUPPORTED'
   }
   // AbortError, InvalidStateError, and anything a browser makes up.
-  return UNAVAILABLE
+  return 'UNAVAILABLE'
 }
 
 /**
@@ -110,7 +111,7 @@ export function createMIDIAccess(): MIDIAccessInstance {
     if (destroyed) return
     const generation = ++requestGeneration
     if (typeof navigator === 'undefined' || !navigator.requestMIDIAccess) {
-      setState({ ...state, error: NOT_SUPPORTED })
+      setState({ ...state, error: 'NOT_SUPPORTED' })
       return
     }
     navigator.requestMIDIAccess({ sysex: options.sysex ?? false }).then(

package/src/midi/input.ts

@@ -11,14 +11,6 @@ const STATUS = {
   PITCH_BEND: 0xe0,
 }
 
-/**
- * Centre of the 14-bit pitch bend range: no bend.
- *
- * The range is not symmetric — 0 is 8192 below centre and 16383 is 8191 above
- * — so a wheel at rest reports exactly this rather than half of the maximum.
- */
-export const PITCH_BEND_CENTER = 8192
-
 /**
  * Every handler is given the channel last, as 0-15. MIDI channels are written
  * 1-16 on hardware, so add one before showing it to anyone.
@@ -27,7 +19,8 @@ export type MIDIInputHandlers = {
   onNoteOnEvent?: (note: number, velocity: number, channel: number) => void
   onNoteOffEvent?: (note: number, channel: number) => void
   /**
-   * The 14-bit bend, 0-16383, centred at {@link PITCH_BEND_CENTER}.
+   * The 14-bit bend, 0-16383, centred at 8192. `normalizePitchBend` in
+   * `@tremolo-ui/functions` turns it into -1 to 1.
    *
    * The two data bytes are little-endian — the first carries the low 7 bits —
    * which is the other way round from every other message.

package/src/number-input/stepper-drag.ts

@@ -0,0 +1,147 @@
+import { type ValueRange } from '@tremolo-ui/functions'
+
+import { applyDelta } from '../input/apply-delta'
+import { DEFAULT_DRAG_SENSITIVITY } from '../input/defaults'
+import {
+  mapModifier,
+  selectModifier,
+  type InputEventOption,
+  type ModifierValue,
+} from '../input/modifiers'
+import { createDrag } from '../pointer/drag'
+
+export interface StepperDragOptions {
+  /** The value now, read when the drag starts moving it. */
+  getValue: () => number
+  /**
+   * The range the value moves across. Its `step` is what one step of the drag
+   * is worth; see `numberInputRanges` for the one a number input uses.
+   */
+  range: ValueRange
+  /**
+   * How many pixels of vertical movement make one step.
+   *
+   * @default 1
+   */
+  pixels?: number
+  /**
+   * How much a step is worth, per modifier key: `0.1` makes the same movement
+   * count a tenth as much. Pressing or releasing the key mid-drag does not
+   * move the value.
+   *
+   * @default { default: 1, shift: 0.1 }
+   */
+  sensitivity?: ModifierValue<number>
+  /** Hide the pointer and keep it from hitting the edge of the screen. */
+  pointerLock?: boolean
+  /**
+   * The cursor to show while dragging. Applied to the element itself, as
+   * `createDrag` does.
+   *
+   * @default 'ns-resize'
+   */
+  cursor?: string
+  /** Called with the new value whenever the drag moves it. */
+  onChange: (value: number) => void
+}
+
+export interface StepperDragInstance {
+  /** Replace the given options. `pointerLock` reaches the next drag. */
+  update: (options: Partial<StepperDragOptions>) => void
+  /**
+   * Whether the drag in progress has moved the value. A stepper button's
+   * press-and-hold repeat stands down once it has, so the value is not moved
+   * twice.
+   */
+  moved: () => boolean
+  destroy: () => void
+}
+
+/**
+ * Drag up and down on the steppers of a number input to move its value, one
+ * `step` every `pixels` — up raises it, as on a knob.
+ *
+ * Counted from where the drag started moving rather than added up per
+ * event, so rounding cannot accumulate. The start is taken on the first
+ * move, not on pointerdown: a stepper button acts on pointerdown, so by then
+ * the value may already have been nudged once, and the drag carries on from
+ * there.
+ */
+export function createStepperDrag(
+  element: Element,
+  options: StepperDragOptions,
+): StepperDragInstance {
+  let opts = options
+  let origin: { y: number; value: number } | null = null
+  let moved = false
+  /**
+   * Which sensitivity the drag is counting at, and where the previous event
+   * was — a key produces no pointer event of its own, so a change is only
+   * seen on the next move and has to be dated back to the one before it.
+   */
+  let factor = 1
+  let previousY = 0
+
+  const drag = createDrag(element, {
+    threshold: 1,
+    cursor: opts.cursor ?? 'ns-resize',
+    pointerLock: opts.pointerLock,
+    onDragStart: (state) => {
+      origin = null
+      moved = false
+      factor = selectModifier(
+        opts.sensitivity ?? DEFAULT_DRAG_SENSITIVITY,
+        state.event,
+      ).value
+    },
+    onDrag: (state) => {
+      const { y } = state
+      if (!origin) {
+        origin = { y, value: opts.getValue() }
+        previousY = y
+        return
+      }
+
+      const sensitivity = opts.sensitivity ?? DEFAULT_DRAG_SENSITIVITY
+      // Pressing or releasing the key mid-drag must not move the value, so the
+      // travel so far is folded into the origin and measuring starts again
+      // from the previous event: that event's own distance belongs to the new
+      // sensitivity.
+      const next = selectModifier(sensitivity, state.event).value
+      if (next !== factor) {
+        origin = { y: previousY, value: opts.getValue() }
+        factor = next
+      }
+      previousY = y
+
+      const steps = Math.round(-(y - origin.y) / (opts.pixels ?? 1))
+      if (steps === 0) return
+      moved = true
+
+      // The sensitivity as an amount per step, carried over as a modifier map
+      // rather than resolved here: that keeps `step` out of the pipeline for
+      // a modifier entry, since naming one is a request to move off the grid.
+      const step = opts.range.step ?? 1
+      const amounts = mapModifier(sensitivity, (f): InputEventOption => [
+        'raw',
+        step * f,
+      ])
+      opts.onChange(
+        applyDelta(origin.value, steps, amounts, opts.range, state.event),
+      )
+    },
+    onDragEnd: () => {
+      moved = false
+    },
+  })
+
+  return {
+    update: (next) => {
+      opts = { ...opts, ...next }
+      if ('pointerLock' in next) drag.update({ pointerLock: opts.pointerLock })
+      if ('cursor' in next) drag.update({ cursor: opts.cursor ?? 'ns-resize' })
+    },
+    moved: () => moved,
+    destroy: () => drag.destroy(),
+  }
+}

package/src/number-input/text.ts

@@ -0,0 +1,100 @@
+/**
+ * Reading a number out of the text of a number input, and keeping the caret
+ * in place while the number under it changes.
+ *
+ * The text is whatever `format` made of the value — `"440 Hz"`, `"-6.0 dB"` —
+ * or a half-typed entry, so none of this assumes the text is a number alone.
+ */
+
+/** The signs a number can carry. U+2212 is what some `Intl.NumberFormat` locales write. */
+const SIGNS = '+-\u2212'
+
+/** Where the number is in the text; the rest, on either side, is the unit. */
+export interface NumberSpan {
+  start: number
+  end: number
+}
+
+/**
+ * Where the number is in the text: from its first digit to its last, with the
+ * sign and the decimal point in front of it. Whatever is left on either side
+ * is taken for the unit, so it does not matter whether a space separates them,
+ * or what the number looks like — `+6.0`, `1e+21`, `1,000` and `1:30` are each
+ * one number. `null` when the text has no digit at all.
+ */
+export function numberSpan(text: string): NumberSpan | null {
+  const first = text.search(/\d/)
+  if (first === -1) return null
+  let start = first
+  if (text[start - 1] === '.') start -= 1
+  if (start > 0 && SIGNS.includes(text[start - 1])) start -= 1
+  return { start, end: text.search(/\d\D*$/) + 1 }
+}
+
+/** A plain number, and nothing else: no grouping, no other separators. */
+const PLAIN_NUMBER =
+  /^[+\-\u2212]?(?:\d+(?:\.\d*)?|\.\d+)(?:[eE][+\-\u2212]?\d+)?$/
+
+/**
+ * The number in the text, with the unit after it ignored: the default `parse`
+ * of a number input.
+ *
+ * `NaN`, which leaves the value alone, whenever the number cannot be read
+ * safely, rather than a part of it: text with no number, a number that is not
+ * a plain one (`1,000` would otherwise read as 1, and `1:30` as 1), and text
+ * with something in front of the number, which can change what it means (the
+ * `L` of a pan reading `L 30`). A `format` that writes any of those needs its
+ * own `parse`.
+ */
+export function parseNumberText(text: string): number {
+  const span = numberSpan(text)
+  if (!span || text.slice(0, span.start).trim() !== '') return NaN
+  const number = text.slice(span.start, span.end)
+  return PLAIN_NUMBER.test(number)
+    ? Number(number.replace(/\u2212/g, '-'))
+    : NaN
+}
+
+/**
+ * The index the caret is measured against: the decimal point, or where one
+ * would go if the number has none — in front of an exponent, if there is one.
+ *
+ * Measuring from an end instead would slide the caret across a digit whenever
+ * the number changed length — `9.9` to `10.0` gains a character in front, `10`
+ * to `9` loses one, and so does `9e+9` to `1e+10` behind — which is exactly
+ * what stepping does.
+ */
+function decimalAnchor(text: string, span: NumberSpan) {
+  const number = text.slice(span.start, span.end)
+  const exponent = number.search(/[eE][+\-\u2212]?\d/)
+  const mantissa = exponent === -1 ? number : number.slice(0, exponent)
+  const dot = mantissa.indexOf('.')
+  return span.start + (dot === -1 ? mantissa.length : dot)
+}
+
+const NO_NUMBER: NumberSpan = { start: 0, end: 0 }
+
+/**
+ * Where the caret is, relative to the decimal point, so that it can be put
+ * back at the same digit once the value has changed. See
+ * {@link caretAtDecimalOffset}.
+ */
+export function caretDecimalOffset(text: string, caret: number): number {
+  return caret - decimalAnchor(text, numberSpan(text) ?? NO_NUMBER)
+}
+
+/**
+ * The caret position `offset` characters from the decimal point of the new
+ * text, kept within the number.
+ *
+ * @example
+ * // The caret sits in front of the point of "9.9" when ArrowUp turns it
+ * // into "10.0"
+ * const offset = caretDecimalOffset('9.9', 1) // 0
+ * caretAtDecimalOffset('10.0', offset) // 2: still in front of the point
+ */
+export function caretAtDecimalOffset(text: string, offset: number): number {
+  const span = numberSpan(text) ?? NO_NUMBER
+  const place = decimalAnchor(text, span) + offset
+  return Math.max(span.start, Math.min(place, span.end))
+}