Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s
Adds :cursor-pos to TUI state. New functions: - input-insert-char(ch): insert at cursor position, advance cursor - input-delete-char(): delete char before cursor (standard backspace) on-key handlers: - Left arrow: decrement cursor-pos (clamped >= 0) - Right arrow: increment cursor-pos (clamped <= buffer-len) - Character input: input-insert-char at cursor position - Backspace: input-delete-char at cursor position - Enter: reset cursor-pos to 0 view-input: cursor at visual position matching cursor-pos Test: (init-state) → (input-insert-char #\h) → (input-insert-char #\i) → (setf cursor-pos 1) → (input-insert-char #\X) → 'hXi' at pos 2
2.6 KiB
2.6 KiB