Skip to content

Instantly share code, notes, and snippets.

@olmstadfm

olmstadfm/terms.el

Created September 14, 2017 15:38
Show Gist options
  • Save olmstadfm/fc775134a3b248ae4fe95a446f7b0095 to your computer and use it in GitHub Desktop.
Save olmstadfm/fc775134a3b248ae4fe95a446f7b0095 to your computer and use it in GitHub Desktop.
Download ZIP
Switchable terminals in emacs
Raw
terms.el
; ansi-term
(defun switch-to-ansi-term(n) ()
(interactive)
(if (get-buffer (concat "*ansi-term<" n ">*"))
(switch-to-buffer (concat "*ansi-term<" n ">*"))
(term-run "/bin/bash" (concat "*ansi-term<" n ">*") "--login"))
)
(global-set-key (kbd "M-!") (lambda () (interactive) (switch-to-ansi-term "1")))
(global-set-key (kbd "M-@") (lambda () (interactive) (switch-to-ansi-term "2")))
(global-set-key (kbd "M-#") (lambda () (interactive) (switch-to-ansi-term "3")))
(global-set-key (kbd "M-$") (lambda () (interactive) (switch-to-ansi-term "4")))
(global-set-key (kbd "M-%") (lambda () (interactive) (switch-to-ansi-term "5")))
(global-set-key (kbd "M-^") (lambda () (interactive) (switch-to-ansi-term "6")))
(global-set-key (kbd "M-&") (lambda () (interactive) (switch-to-ansi-term "7")))
(global-set-key (kbd "M-*") (lambda () (interactive) (switch-to-ansi-term "8")))
(global-set-key (kbd "M-(") (lambda () (interactive) (switch-to-ansi-term "9")))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment