Skip to content

Instantly share code, notes, and snippets.

@abuiles

abuiles/open-shells.el

Created September 22, 2016 19:48
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save abuiles/c6c4554283a346094586feef84991c3b to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save abuiles/c6c4554283a346094586feef84991c3b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
open-shells.el
;; Open Shells
(defun my-shell (arg)
(interactive "p")
(let ((arg (or arg 1)))
(shell (format "*sh%d*" arg))))
(global-unset-key (kbd "C-z"))
(global-set-key (kbd "C-z 1") '(lambda () (interactive) (my-shell 1)))
(global-set-key (kbd "C-z 2") '(lambda () (interactive) (my-shell 2)))
(global-set-key (kbd "C-z 3") '(lambda () (interactive) (my-shell 3)))
(global-set-key (kbd "C-z 4") '(lambda () (interactive) (my-shell 4)))
(global-set-key (kbd "C-z 5") '(lambda () (interactive) (my-shell 5)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment