get multi-term quickly

multi-term.el

;;; multi-term
;;; TODO: find zsh from system configure (PATH)
(require-package 'multi-term)
(setq multi-term-program "/usr/local/bin/zsh")
(defun multi-last-term-buffer (list)
  "Return most recently used term buffer."
  (when list
    (if (eq 'term-mode (with-current-buffer (car list) major-mode))
        (car list) (multi-last-term-buffer (cdr list)))))

(defun multi-get-term ()
  "Switch to the term buffer last used, or create a new one if
    none exists, or if the current buffer is already a term."
  (interactive)
  (let ((last (multi-last-term-buffer (buffer-list))))
    (if (or (not last) (eq 'term-mode major-mode))
        (multi-term)
      (switch-to-buffer last))))

(global-set-key (kbd "<f10>") 'multi-get-term)