humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a few additional motions to be parsed by yank

Browse Source
This commit is contained in:
Humza Shahid
2025-09-02 03:07:50 +01:00
parent 298cec88b3
commit ea38e95e6b
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fcore/normal-mode/normal-mode.sml
View File

@@ -268,6 +268,8 @@ struct
let val f = fn (buffer, cursorIdx, _) => Cursor.vi0 (buffer, cursorIdx) let val f = fn (buffer, cursorIdx, _) => Cursor.vi0 (buffer, cursorIdx)
in yankWhenMovingBack (app, f, 1) in yankWhenMovingBack (app, f, 1)
end end
| #"w" => yankWhenMovingForward (app, Cursor.nextWord, count)
| #"W" => yankWhenMovingForward (app, Cursor.nextWORD, count)
| _ => app | _ => app
fun parseYank (strPos, str, count, app, chrCmd, time) = fun parseYank (strPos, str, count, app, chrCmd, time) =

3
shell/gl-draw.sml
View File

@@ -231,9 +231,8 @@ struct
fun yank (shellState: t, str) = fun yank (shellState: t, str) =
let let
(* print when text is yanked *) (* print when text is yanked *)
val msg = String.toCString str val msg = "|" ^ String.toCString str ^ "|\n"
val () = print msg val () = print msg
val () = print "\n"
val () = Glfw.setClipboardString (#window shellState, str) val () = Glfw.setClipboardString (#window shellState, str)
in in
shellState shellState