 (global-set-key [(meta ?8)] (hot-shell "*shell8*"))
 (global-set-key [(meta ?9)] (hot-shell "*shell9*"))
 (global-set-key [(meta ?0)] (hot-shell "*shell0*"))
+
+(global-set-key [(meta ?!)] (remote-hot-shell "*remote-shell0*"))
 
 ;; Setup Shell
 (custom-set-variables


(use-package better-shell
  :ensure t
  :bind (("C-> s" . better-shell-remote-open))
  )

(provide 'shortcut-shell)

     (if (get-buffer ,name) (switch-to-buffer ,name)
       (shell-named ,name))))

(defun remote-shell-named (name)
  (interactive)
  (better-shell-remote-open)
  (rename-buffer name)
  (process-kill-without-query (get-buffer-process name)))

(defmacro remote-hot-shell (name)
  `(lambda () (interactive)
     (if (get-buffer ,name) (switch-to-buffer ,name)
       (remote-shell-named ,name))))

(global-set-key [(meta ?1)] (hot-shell "*shell1*"))
(global-set-key [(meta ?2)] (hot-shell "*shell2*"))
(global-set-key [(meta ?3)] (hot-shell "*shell3*"))
