https://github.com/honmaple/emacs-maple-tabbar

show tabbar in emacs
https://github.com/honmaple/emacs-maple-tabbar

Last synced: 4 months ago
JSON representation

show tabbar in emacs

• Host: GitHub
• URL: https://github.com/honmaple/emacs-maple-tabbar
• Owner: honmaple
• License: gpl-3.0
• Created: 2019-05-13T16:43:32.000Z (about 7 years ago)
• Default Branch: master
• Last Pushed: 2021-05-29T16:22:02.000Z (about 5 years ago)
• Last Synced: 2025-02-14T17:43:05.168Z (over 1 year ago)
• Language: Emacs Lisp
• Size: 378 KB
• Stars: 5
• Watchers: 3
• Forks: 1
• Open Issues: 0
• Metadata Files:
  • Readme: README.org
  • License: LICENSE

Awesome Lists containing this project

README

          
* emacs-maple-tabbar

** screenshots

   [[https://github.com/honmaple/emacs-maple-tabbar/blob/master/screenshot/example.png]]

   [[https://github.com/honmaple/emacs-maple-tabbar/blob/master/screenshot/example1.png]]

   [[https://github.com/honmaple/emacs-maple-tabbar/blob/master/screenshot/example2.png]]

   [[https://github.com/honmaple/emacs-maple-tabbar/blob/master/screenshot/example3.png]]

** How to use

   #+begin_src bash

   git clone https://github.com/honmaple/emacs-maple-xpm ~/.emacs.d/site-lisp/maple-xpm

   git clone https://github.com/honmaple/emacs-maple-tabbar ~/.emacs.d/site-lisp/maple-tabbar

   #+end_src

   #+begin_src elisp

     (use-package maple-tabbar

       :ensure nil

       :commands (maple-tabbar-mode)

       :config

       (setq maple-tabbar-ignore '("^.*\\*" "^magit")

             maple-tabbar-adjust t

             maple-tabbar-icon (display-graphic-p))

       (defun custom-tabbar-sep(face1 face2 &optional reverse)

         (propertize

          (char-to-string (if reverse #xe0b2 #xe0b0))

          'face (list :background (face-attribute (if reverse face1 face2) :background)

                      :foreground (face-attribute (if reverse face2 face1) :background))))

       (setq maple-tabbar-sep 'custom-tabbar-sep)

       (defun custom-tabbar-group(buffer)

         (with-current-buffer buffer

           (cond ((and (featurep 'projectile) (projectile-project-p))

                  (projectile-project-name))

                 (t "Default"))))

       (fset 'maple-tabbar-group 'custom-tabbar-group)

       ;; or with single tabbar show

       (use-package maple-tabbar-side

         :ensure nil

         :commands (maple-tabbar-side-mode))

   #+end_src