add a few additional motions to be parsed by yank

fcore/normal-mode/normal-mode.sml

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

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