Browse Source

list terminal buffer in bs-show

pull/1/head
10sr 10 years ago
parent
commit
fc0a230cc1
1 changed files with 20 additions and 12 deletions
  1. +20
    -12
      emacs.el

+ 20
- 12
emacs.el View File

@@ -1159,6 +1159,15 @@ If called intearctively, find word at point."
'("this-frame" nil (lambda (buf) '("this-frame" nil (lambda (buf)
(memq buf (my-frame-buffer-get))) (memq buf (my-frame-buffer-get)))
".*" nil nil)) ".*" nil nil))
(add-to-list 'bs-configurations
'("files-and-terminals" nil nil nil
(lambda (buf)
(and (bs-visits-non-file buf)
(save-excursion
(set-buffer buf)
(not (memq major-mode
'(term-mode
eshell-mode))))))))
;; (setq bs-configurations (list ;; (setq bs-configurations (list
;; '("processes" nil get-buffer-process ".*" nil nil) ;; '("processes" nil get-buffer-process ".*" nil nil)
;; '("files-and-scratch" "^\\*scratch\\*$" nil nil ;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
@@ -1166,11 +1175,11 @@ If called intearctively, find word at point."
) )
;; (global-set-key "\C-x\C-b" 'bs-show) ;; (global-set-key "\C-x\C-b" 'bs-show)
(defalias 'list-buffers 'bs-show) (defalias 'list-buffers 'bs-show)
(setq bs-default-configuration "files")
(setq bs-default-configuration "files-and-terminals")
(setq bs-default-sort-name "by nothing") (setq bs-default-sort-name "by nothing")
(add-hook 'bs-mode-hook (add-hook 'bs-mode-hook
(lambda () (lambda ()
(setq bs-default-configuration "files")
;; (setq bs-default-configuration "files")
;; (and bs--show-all ;; (and bs--show-all
;; (call-interactively 'bs-toggle-show-all)) ;; (call-interactively 'bs-toggle-show-all))
(set (make-local-variable 'scroll-margin) 0)))) (set (make-local-variable 'scroll-margin) 0))))
@@ -1853,23 +1862,22 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(pop-to-buffer my-term) (pop-to-buffer my-term)
(setq my-term (setq my-term
(save-window-excursion (save-window-excursion
(funcall my-term-function)
))
(funcall my-term-function)))
(and my-term (and my-term
(my-term)))) (my-term))))


(defvar my-term-function nil (defvar my-term-function nil
"Function to create terminal buffer.") "Function to create terminal buffer.")


;; (setq my-term-function
;; (lambda ()
;; (if (eq system-type 'windows-nt)
;; (eshell)
;; (if (require 'multi-term nil t)
;; (multi-term)
;; (ansi-term shell-file-name)))))
(setq my-term-function
(lambda ()
(if (eq system-type 'windows-nt)
(eshell)
(if (require 'multi-term nil t)
(multi-term)
(ansi-term shell-file-name)))))


(setq my-term-function 'eshell)
;; (setq my-term-function 'eshell)


(defun my-delete-frame-or-kill-emacs () (defun my-delete-frame-or-kill-emacs ()
"delete frame when opening multiple frame, kill emacs when only one." "delete frame when opening multiple frame, kill emacs when only one."


Loading…
Cancel
Save