implmenet 'daW' motion (next: test it)

2025-12-13 03:57:21 +00:00
parent 204f549c79
commit d1b865bda8
3 changed files with 127 additions and 3 deletions
--- a/fcore/normal-mode/make-normal-delete.sml
+++ b/fcore/normal-mode/make-normal-delete.sml
@@ -997,8 +997,8 @@ struct
    let
      val {buffer, cursorIdx, dfa, ...} = app
      val buffer = LineGap.goToIdx (cursorIdx, buffer)
-      val low = raise Fail "unimplemented"
-      val high = raise Fail "unimplemented"
+      val low = Cursor.aroundWORDPrev (buffer, cursorIdx)
+      val high = Cursor.aroundWORDNext (buffer, cursorIdx) + 1
      val length = high - low
    in
      deleteAndFinish (app, low, length, buffer, time)