emacs: Add thanos/shell

* Add function to launch shell similar to how eshell works.

1 files changed, 11 insertions, 2 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 9fd76a3..77ef8ea 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -605,14 +605,23 @@
   :config
   (setf eshell-visual-commands nil
 	eat-term-name "xterm-256color")
-  :bind (("C-c v" . eat))
+  :bind (("C-c V" . eat))
   :hook ((eshell-mode . eat-eshell-mode)
 	 (eshell-mode . eat-eshell-visual-command-mode)
 	 (eat-mode . (lambda () (visual-line-mode -1)))))
 
 (use-package shell
   :ensure t
-  :bind (("C-c V" . shell)
+  :config
+  (defun thanos/shell (n)
+    "Create or switch to a shell buffer."
+    (interactive "P")
+    (let* ((num (if n (prefix-numeric-value n) nil))
+           (buf-name (if num
+			 (format "*shell<%d>*" num)
+                       "*shell*")))
+      (shell buf-name)))
+  :bind (("C-c v" . thanos/shell)
 	 :map shell-mode-map
 	 ("C-l" . 'comint-clear-buffer))
   :hook ((shell-mode . (lambda () (display-line-numbers-mode -1)))))