Emacs: Send text or region to vterm

vterm-execute-current-line-or-region.el

  (defun rytswd/vterm-execute-current-line-or-region ()
    "Insert text of current line or region in vterm and execute."
    (interactive)
    (let* ((current-line (buffer-substring
                          (save-excursion
                            (beginning-of-line)
                            (point))
                          (save-excursion
                            (end-of-line)
                            (point))))
           (buf (current-buffer))
           (command (string-trim
                     (if (use-region-p)
                         (buffer-substring (region-beginning) (region-end))
                       current-line))))
      (unless (get-buffer vterm-buffer-name)
        (vterm))
      (display-buffer vterm-buffer-name t)
      (switch-to-buffer-other-window vterm-buffer-name)
      (vterm--goto-line -1)
      (vterm-send-string command t)
      (vterm-send-return)
      (switch-to-buffer-other-window buf)
      (when (featurep 'beacon)
        (beacon-blink))
      ))