add a few additional motions to be parsed by yank

2025-09-02 03:07:50 +01:00
parent 298cec88b3
commit ea38e95e6b
2 changed files with 3 additions and 2 deletions
--- a/shell/gl-draw.sml
+++ b/shell/gl-draw.sml
@@ -231,9 +231,8 @@ struct
  fun yank (shellState: t, str) =
    let
      (* print when text is yanked *)
-      val msg = String.toCString str
+      val msg = "|" ^ String.toCString str ^ "|\n"
      val () = print msg
-      val () = print "\n"
      val () = Glfw.setClipboardString (#window shellState, str)
    in
      shellState