mattfidler / tabbar-ruler.el

Tabbar Ruler Mode
54 stars 10 forks source link

only themes #28

Closed transtone closed 8 years ago

transtone commented 8 years ago

I just want a tabbar-ruler like theme for tabbar. How to set the font padding and close image ?

image-20160114-7

transtone commented 8 years ago

I try it like this, but ugly: image-20160114-8

(set-face-attribute 'tabbar-default nil
                    :inherit nil
                    :stipple nil
                    :foreground "#151718"
                    :background "#3B758C"
                    :inverse-video nil
                    :strike-through nil
                    :overline nil
                    :underline nil
                    :slant 'normal
                    :weight 'normal
                    :width 'normal
                    :height 90)

(set-face-attribute 'tabbar-button nil
          :inherit 'tabbar-default
          :box nil)

(set-face-attribute 'tabbar-modified nil
                   :inherit 'tabbar-default
                   :background "#151718"
                   :foreground "DarkOrange3"
                   :box nil
                   :weight 'bold)

(set-face-attribute 'tabbar-selected nil
                    :inherit 'tabbar-default
                    :stipple nil
                    :background "#FFFFFF"
                    :foreground "#151718"
                    :foundry "outline" )

(defface tabbar-selected-highlight
  '((t
     :inherit tabbar-default
     :weight bold ))
  "Face for selected, highlighted tabs."
  :group 'tabbar)

(defface tabbar-selected-modified
  '((t
     :inherit tabbar-selected
     :foreground "DarkOrange3"
     :weight bold ))
    "Face used for unselected tabs."
    :group 'tabbar)

(set-face-attribute 'tabbar-separator nil
                    :inherit 'tabbar-default
                    :height 1.0)

(set-face-attribute 'tabbar-unselected nil
                    :inherit nil
                    :stipple nil
                    :background "#151718"
                    :foreground "#FFFFFF"
                    :inverse-video nil
                    :box nil
                    :strike-through nil
                    :overline nil
                    :underline nil
                    :slant 'normal
                    :weight 'normal
                    :height 90
                    :width 'normal
                    :foundry "outline")

(defface tabbar-unselected-highlight
  '((t
     :background "gray90"
     :foreground "gray20"
     :box (:line-width -1 :color "grey75" :style released-button)
     :weight light ))
  "Face for unselected, highlighted tabs."
  :group 'tabbar)
transtone commented 8 years ago

I don't want to use tabbar-ruler because of the cpu useage: not use tabbar-ruler: image-20160114-12

use tabbar-ruler: image-20160114-11

mattfidler commented 8 years ago

Ok. Sorry this is out of scope. The whole purpose of using tabbar-ruler is to use the mechanism to create the theme.

mattfidler commented 8 years ago

Use

(setq tabbar-ruler-movement-timer-dealy 1000000)

to reduce your cpu usage. See Issue #10

mattfidler commented 8 years ago

Perhaps if you upgrade this will be fixed as well. Others have reported upgrading fixes the issue. (See #15)

transtone commented 8 years ago

I can't afford the high cpu usage. In this artical I find a way to add some space for tabbar text: http://amitp.blogspot.hk/2007/04/emacs-buffer-tabs.html It says: For tabbar 2.0, you can add spaces to the tab text with: (setq tabbar-tab-label-function (lambda (tab) (format " %s " (car tab))))

mattfidler commented 8 years ago

Ok. Others don't have the issue after upgrading. Did you upgrade or use the option I suggested?

On Thu, Jan 14, 2016, 8:06 PM transtone notifications@github.com wrote:

I can't afford the height cpu usage. In this artical I find a way to add some space for tabbar text: http://amitp.blogspot.hk/2007/04/emacs-buffer-tabs.html It says: For tabbar 2.0, you can add spaces to the tab text with: (setq tabbar-tab-label-function (lambda (tab) (format " %s " (car tab))))

— Reply to this email directly or view it on GitHub https://github.com/mattfidler/tabbar-ruler.el/issues/28#issuecomment-171846386 .

transtone commented 8 years ago

I use the latest tabbar-ruler.el from melpa with package-install. and add (setq tabbar-ruler-movement-timer-dealy 1000000) in my init.el file. but it does not work.

I'am using windows and get emacs from ftp.gnu.org/gnu/emacs/windows/

mattfidler commented 8 years ago

I am also using windows 7 and emacs 24.5 from the ftp server and do not have the CPU slowdown described.