Disable tabbar.

This commit is contained in:
tastytea 2019-05-08 18:14:38 +02:00
parent 9571a8c434
commit c447b28e3b
2 changed files with 17 additions and 14 deletions

29
init.el
View File

@ -1,5 +1,5 @@
;;; init.el --- tastytea's Emacs init file.
;; Time-stamp: <2019-05-08T15:26:30+00:00>
;; Time-stamp: <2019-05-08T16:13:20+00:00>
;;; Commentary:
;; I am using this file with Emacs 26, but most of it will probably work with
@ -219,7 +219,7 @@ With argument, do this that many times."
(use-package company-statistics
:after company
:hook
(after-init-hook . company-statistics-mode))
(after-init . company-statistics-mode))
;; Set default indentation.
(setq-default indent-tabs-mode nil
@ -543,9 +543,12 @@ With argument, do this that many times."
:pin melpa ; Faces are not correctly applied,
:after (projectile mode-icons) ; version from >=2016-08-02 is needed.
:custom
(tabbar-ruler-global-tabbar t)
;; (tabbar-ruler-global-tabbar t)
(tabbar-ruler-global-ruler t)
:config
(defun tabbar-ruler-tabbar-ruler-fight (&optional initialize)
"tabbar-ruler-tabbar-ruler-fight is disabled."
(ruler-mode t))
;; (tabbar-ruler-group-by-projectile-project) ; Group by projectile.
;; (tabbar-ruler-group-buffer-groups) ; Group by file type.
(tabbar-ruler-group-user-buffers) ; Group by frame.
@ -554,17 +557,17 @@ With argument, do this that many times."
(add-hook 'projectile-after-switch-project-hook ; Does not work under :hook.
'tabbar-ruler-group-by-projectile-project)
(defun my/show-tabbar ()
"Show tabbar if it is hidden."
(when tabbar-ruler-tabbar-off
(tabbar-mode 1)
(setq tabbar-ruler-tabbar-off nil)
(ruler-mode -1)
(setq tabbar-ruler-ruler-off 't)
))
;; (defun my/show-tabbar ()
;; "Show tabbar if it is hidden."
;; (when tabbar-ruler-tabbar-off
;; (tabbar-mode 1)
;; (setq tabbar-ruler-tabbar-off nil)
;; (ruler-mode -1)
;; (setq tabbar-ruler-ruler-off 't)
;; ))
;; Show tabbar after 2 seconds idle.
(run-with-idle-timer 2 t (lambda () (my/show-tabbar)))
;; ;; Show tabbar after 2 seconds idle.
;; (run-with-idle-timer 2 t (lambda () (my/show-tabbar)))
:bind
("C-<prior>" . 'tabbar-ruler-tabbar-backward-tab)
("C-<next>" . 'tabbar-ruler-tabbar-forward-tab)

View File

@ -1,2 +1,2 @@
127.0.0.1:51313 26259
127.0.0.1:51313 21319
phahw2ohVoh0oopheish7IVie9desh8aequeenei3uo8wahShe%thuadaeNa4ieh