(defun vterm--self-insert ()
  "Send invoking key to libvterm."
  (interactive)
  (when vterm--term
    (let* ((modifiers (event-modifiers last-input-event))
           (shift (memq 'shift modifiers))
           (meta (memq 'meta modifiers))
           (ctrl (memq 'control modifiers))
           (raw-key (event-basic-type last-input-event))
           (ev-key (if input-method-function
                       (let ((inhibit-read-only t))
                         (funcall input-method-function raw-key))
                     (vector raw-key))))
      (when-let ((key (key-description ev-key)))
        (vterm-send-key key shift meta ctrl)))))