general.el

(defun emacs-ime (&optional close-frame)
  (interactive)
  (let ((char (with-temp-buffer
                (call-interactively 'insert-char)
                (buffer-string))))
    (when close-frame
      (delete-frame))
    (gui-set-selection 'CLIPBOARD char)
    (start-process "xdotool"
                   "*emacs-ime*"
                   "xdotool" "sleep" "0.5" "type" char)))