Browse Source

Update bs-show preferences

pull/15/head
10sr 8 years ago
parent
commit
c03f52a290
1 changed files with 14 additions and 15 deletions
  1. +14
    -15
      emacs.el

+ 14
- 15
emacs.el View File

@@ -1348,31 +1348,30 @@ IF OK-IF-ALREADY-EXISTS is true force download."

(defvar bs-configurations)
(when (autoload-eval-lazily 'bs '(bs-show)
;; (add-to-list 'bs-configurations
;; '("processes" nil get-buffer-process ".*" 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))))))))
'("specials" "^\\*" nil ".*" nil nil))
(defvar bs-mode-map)
(defvar bs-current-configuration)
(define-key bs-mode-map (kbd "t")
(lambda ()
(interactive)
(if (string= "specials"
bs-current-configuration)
(bs-set-configuration "files")
(bs-set-configuration "specials"))
(bs-refresh)
(bs-message-without-log "%s"
(bs--current-config-message))))
;; (setq bs-configurations (list
;; '("processes" nil get-buffer-process ".*" nil nil)
;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
;; bs-visits-non-file bs-sort-buffer-interns-are-last)))
)
;; (global-set-key "\C-x\C-b" 'bs-show)
(defalias 'list-buffers 'bs-show)
(set-variable 'bs-default-configuration "files-and-terminals")
(set-variable 'bs-default-configuration "files")
(set-variable 'bs-default-sort-name "by nothing")
(add-hook 'bs-mode-hook
(lambda ()
;; (setq bs-default-configuration "files")
;; (and bs--show-all
;; (call-interactively 'bs-toggle-show-all))
(set (make-local-variable 'scroll-margin) 0))))

;;(iswitchb-mode 1)


Loading…
Cancel
Save