From c958eb67b305f8d0b3a8ffa924928eee5b8ae1c3 Mon Sep 17 00:00:00 2001
From: 10sr <sr10@users.sourceforge.jp>
Date: Sun, 4 Dec 2011 16:52:08 +0900
Subject: [PATCH] add frame buffer settings

---
 .emacs.el | 89 +++++++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 67 insertions(+), 22 deletions(-)

diff --git a/.emacs.el b/.emacs.el
index aa5aad7..0ebe356 100644
--- a/.emacs.el
+++ b/.emacs.el
@@ -203,18 +203,20 @@
 ;; change color for border
 ;; (set-face-foreground (make-face 'vertical-border-face) "white")
 ;; (set-face-background 'vertical-border-face "black")
-(defface vertical-border-face
-  `((((background dark))
-     (:background "white"))
-    (((background light))
-     (:background "black")))
-  "vertical border")
-(set-display-table-slot standard-display-table 'vertical-border
-                        (make-glyph-code #x3a 'vertical-border-face))
+;; (defface vertical-border-face
+;;   `((((background dark))
+;;      (:background "white"))
+;;     (((background light))
+;;      (:background "black")))
+;;   "vertical border")
+;; (set-display-table-slot standard-display-table 'vertical-border
+;;                         (make-glyph-code #x3a 'vertical-border-face))
+;; (set-face-foreground 'vertical-border "default")
+;; (set-face-background 'vertical-border "white")
 
 (when (eq system-type 'Darwin)
-  (mac-set-input-method-parameter 'japanese 'cursor-color ”red”)
-  (mac-set-input-method-parameter 'roman 'cursor-color ”black”))
+  (mac-set-input-method-parameter 'japanese 'cursor-color "red")
+  (mac-set-input-method-parameter 'roman 'cursor-color "black"))
 
 (when (and (boundp 'input-method-activate-hook) ;ちょっと正しいかわかんない
            (boundp 'input-method-inactivate-hook))
@@ -742,6 +744,57 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
                             'newframe
                           'pushy))
 
+;; (when (and (executable-find "git")
+;;            (require 'sgit-mode nil t))
+;;   (add-hook 'find-file-hook
+;;             'sgit-load))
+
+(require 'session nil t)
+
+(when (require 'gtkbm nil t)
+  (global-set-key (kbd "C-x C-d") 'gtkbm))
+
+(defvar my-frame-buffer-plist nil)
+(setplist my-frame-buffer-plist nil)
+
+(defun my-frame-buffer-add ()
+  ""
+  (put 'my-frame-buffer-plist
+       (selected-frame)
+       (let ((lst (my-frame-buffer-get)))
+         (if lst
+             (add-to-list 'lst
+                          (current-buffer))
+           (list (current-buffer))))))
+
+(defun my-frame-buffer-remove ()
+  ""
+  (put 'my-frame-buffer-plist
+       (selected-frame)
+       (delq (current-buffer)
+             (my-frame-buffer-get))))
+
+(defun my-frame-buffer-get (&optional frame)
+  ""
+  (get 'my-frame-buffer-plist
+       (or frame
+           (selected-frame))))
+
+(defun my-frame-buffer-kill-all-buffer (frame)
+  ""
+  (mapcar 'kill-buffer
+          (my-frame-buffer-get frame)))
+
+(add-hook 'find-file-hook
+          'my-frame-buffer-add)
+(add-hook 'kill-buffer-hook
+          'my-frame-buffer-remove)
+(add-hook 'delete-frame-functions
+          'my-frame-buffer-kill-all-buffer)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; term mode
+
 ;; (setq multi-term-program shell-file-name)
 (and (dllib-if-unfound "multi-term"
                        "http://www.emacswiki.org/emacs/download/multi-term.el"
@@ -800,16 +853,6 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
                             ))
 ;; (add-hook 'term-exec-hook 'forward-char)
 
-
-
-;; (when (and (executable-find "git")
-;;            (require 'sgit-mode nil t))
-;;   (add-hook 'find-file-hook
-;;             'sgit-load))
-
-(when (require 'gtkbm nil t)
-  (global-set-key (kbd "C-x C-d") 'gtkbm))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; buffer switching
 
@@ -819,12 +862,14 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 
 ;; (add-to-list 'bs-configurations '("processes" nil get-buffer-process ".*" nil nil))
 (add-to-list 'bs-configurations '("same-dir" nil buffer-same-dir-p ".*" nil nil))
+(add-to-list 'bs-configurations '("this-frame" nil (lambda (buf) (memq buf (my-frame-buffer-get))) ".*" nil nil))
 ;; (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)))
-(setq bs-default-configuration "all")
+(setq bs-default-configuration "this-frame")
+(setq bs-default-sort-name "by name")
 (add-hook 'bs-mode-hook
           (lambda ()
-            (setq bs-default-configuration "all")))
+            (setq bs-default-configuration "this-frame")))
 
 (defun buffer-same-dir-p (bf)
   "return t if BF's dir is same as current dir, otherwise nil."