首页 > 代码库 > Emacs 构建 Tabbar

Emacs 构建 Tabbar


;;;;;;;;;;;;;;;;;;;;; tabbar ;;;;;;;;;;;;;;;;;;;;;;;;;;
(require ‘tabbar)
(tabbar-mode 1)
(global-set-key [(meta j)] ‘tabbar-forward)
(global-set-key [(meta k)] ‘tabbar-backward)

(set-face-attribute ‘tabbar-default nil
                    :background "gray"
                    :foreground "gray")
(set-face-attribute ‘tabbar-selected nil
                    :inherit ‘tabbar-default
                    :background "lightblue"
                    :box ‘(:line-width 1 :color "lightblack") )
(set-face-attribute ‘tabbar-unselected nil
                    :inherit ‘tabbar-default
                    :box ‘(:line-width 1 :color "gray"))

(custom-set-variables ‘(tabbar-separator (quote (1.5))))


效果:

技术分享

Emacs 构建 Tabbar