Repeat the last terminal command from any buffer (in Emacs)

term-repeat-last-command.el

;; I use it for other things, but in this case, its used to give you a
;; list of terminal buffers to choose from. FWIW, you could hard-code
;; the buffer name.
(defun ajv-ido-completing-read-for-mode (prompt the-mode)
  (ido-completing-read prompt
                       (save-excursion
                         (delq
                          nil
                          (mapcar (lambda (buf)
                                    (when (buffer-live-p buf)
                                      (with-current-buffer buf
                                        (and (eq major-mode the-mode)
                                             (buffer-name buf)))))
                                  (buffer-list))))))

;; This basically goes to the terminal buffer and does <up> <return>
;; to rerun the last command. Not graceful, but it works.
(defun term-repeat-last-command ()
  (interactive)
  (with-current-buffer (ajv-ido-completing-read-for-mode "Rerun from:" 'term-mode)
    (end-of-buffer)
    (term-send-up)
    (term-send-input)))

;; One binding to key them all! Wait, what?
(global-set-key (kbd "M-r") 'term-repeat-last-command)