From c35bbaaca30bc3ac9897afce66d2fdf838b253a2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bart=C5=82omiej=20Kruczyk?= Date: Wed, 23 Sep 2015 20:31:14 +0200 Subject: [PATCH] Customize shell to run with prelude-visit-term-buffer --- core/prelude-core.el | 2 +- core/prelude-custom.el | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/core/prelude-core.el b/core/prelude-core.el index 1051236..ffa080f 100644 --- a/core/prelude-core.el +++ b/core/prelude-core.el @@ -67,7 +67,7 @@ This variable can be set via .dir-locals.el to provide multi-term support.") "Create or visit a terminal buffer." (interactive) (prelude-start-or-switch-to (lambda () - (ansi-term (getenv "SHELL") (concat prelude-term-buffer-name "-term"))) + (ansi-term prelude-shell (concat prelude-term-buffer-name "-term"))) (format "*%s-term*" prelude-term-buffer-name))) (defun prelude-search (query-url prompt) diff --git a/core/prelude-custom.el b/core/prelude-custom.el index 152d33f..30d86ec 100644 --- a/core/prelude-custom.el +++ b/core/prelude-custom.el @@ -98,6 +98,11 @@ Only modes that don't derive from `prog-mode' should be listed here." :type 'symbol :group 'prelude) +(defcustom prelude-shell (getenv "SHELL") + "The default shell to run with `prelude-visit-term-buffer'" + :type 'string + :group 'prelude) + (provide 'prelude-custom) ;;; prelude-custom.el ends here