From c03f52a290192d1fd7c67637156260953268c229 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Fri, 11 Mar 2016 15:58:31 +0900
Subject: [PATCH] Update bs-show preferences

---
 emacs.el | 29 ++++++++++++++---------------
 1 file changed, 14 insertions(+), 15 deletions(-)

diff --git a/emacs.el b/emacs.el
index f0d0205..75d6a4b 100644
--- a/emacs.el
+++ b/emacs.el
@@ -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)