Browse Source

add frame buffer settings

pull/1/head
10sr 13 years ago
parent
commit
c958eb67b3
1 changed files with 67 additions and 22 deletions
  1. +67
    -22
      .emacs.el

+ 67
- 22
.emacs.el View File

@@ -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."


Loading…
Cancel
Save