fcore/normal-mode/normal-yank-delete.sml

structure NormalYankDelete =
  MakeNormalDelete
    (struct
       open DrawMsg
       open MailboxType

       fun initMsgs (low, length, buffer) =
         let
           val str = LineGap.substring (low, length + 1, buffer)
           val msg = YANK str
         in
           [DRAW msg]
         end
     end)
add yank-delete motions like 'ydw' and so on 2025-09-06 03:53:47 +01:00			`structure NormalYankDelete =`
			`MakeNormalDelete`
			`(struct`
			`open DrawMsg`
			`open MailboxType`

			`fun initMsgs (low, length, buffer) =`
			`let`
seems like 'NormalYankDelete' functions need to yank one character more than the deletion range, so implement that, and make note to add tests for that module 2026-01-23 21:08:12 +00:00			`val str = LineGap.substring (low, length + 1, buffer)`
add yank-delete motions like 'ydw' and so on 2025-09-06 03:53:47 +01:00			`val msg = YANK str`
			`in`
			`[DRAW msg]`
			`end`
			`end)`