Add prelude-term-buffer-name variable

This provides multi-term support via .dir-locals.el for example.
This commit is contained in:
Doug MacEachern 2014-11-06 07:12:23 -08:00
parent ec420534c2
commit 4517a2f594

View file

@ -59,12 +59,16 @@ With a prefix ARG always prompt for command to use."
(with-current-buffer buffer-or-name (with-current-buffer buffer-or-name
major-mode)) major-mode))
(defvar prelude-term-buffer-name "ansi"
"The default `ansi-term' name used by `prelude-visit-term-buffer'.
This variable can be set via .dir-locals.el to provide multi-term support.")
(defun prelude-visit-term-buffer () (defun prelude-visit-term-buffer ()
"Create or visit a terminal buffer." "Create or visit a terminal buffer."
(interactive) (interactive)
(prelude-start-or-switch-to (lambda () (prelude-start-or-switch-to (lambda ()
(ansi-term (getenv "SHELL"))) (ansi-term (getenv "SHELL") (concat prelude-term-buffer-name "-term")))
"*ansi-term*")) (format "*%s-term*" prelude-term-buffer-name)))
(defun prelude-search (query-url prompt) (defun prelude-search (query-url prompt)
"Open the search url constructed with the QUERY-URL. "Open the search url constructed with the QUERY-URL.