2012年2月29日水曜日

tabbar.el

Emacsをタブブラウズ化することができる。
ここのサイトからtabbar.elを自分のライブラリフォルダにダウンロードする。
落合研の人ならemacslibフォルダ。
そして以下を.emacs.elに書き込む。
;; tabbar.el------------------------------------------
;; scratch buffer 以外をまとめてタブに表示する
(require 'cl) ; for emacs-22.0.50 on Vine Linux 4.2
(when (require 'tabbar nil t)
(setq tabbar-buffer-groups-function
(lambda (b) (list "All Buffers")))
(setq tabbar-buffer-list-function
(lambda ()
(remove-if
(lambda(buffer)
(find (aref (buffer-name buffer) 0) " *"))
(buffer-list))))
(tabbar-mode))

;;M-]で次のタブ、M-[で前のタブに移動
(global-set-key "\M-]" 'tabbar-forward)
(global-set-key "\M-[" 'tabbar-backward)

;; 外観変更
(set-face-attribute
'tabbar-default-face nil
:background "#585555")
(set-face-attribute
'tabbar-unselected-face nil
:background "gray85"
:foreground "black"
:box '(:line-width 2 :color "white" :style pressed-button))
(set-face-attribute
'tabbar-selected-face nil
:background "white"
:foreground "black"
:box '(:line-width 2 :color "red" :style released-button))
(set-face-attribute
'tabbar-button-face nil
:box '(:line-width 6 :color "gray72" :style released-button))
(set-face-attribute
'tabbar-separator-face nil
:height 0.7)
;; M-4 で タブ表示、非表示
(global-set-key "\M-4" 'tabbar-mode) 

色なんかは自分のお好みで値を設定してください。

0 件のコメント :

コメントを投稿