add yank-delete motions like 'ydw' and so on

2025-09-06 03:53:47 +01:00
parent caf43d0864
commit 6ab3e592ad
3 changed files with 116 additions and 3 deletions
--- a/fcore/normal-mode/normal-yank-delete.sml
+++ b/fcore/normal-mode/normal-yank-delete.sml
@@ -0,0 +1,14 @@
+structure NormalYankDelete =
+  MakeNormalDelete
+    (struct
+       open DrawMsg
+       open MailboxType
+
+       fun initMsgs (low, length, buffer) =
+         let
+           val str = LineGap.substring (low, length, buffer)
+           val msg = YANK str
+         in
+           [DRAW msg]
+         end
+     end)