Replaced tabbar-ruler with ruler-mode.

This commit is contained in:
tastytea 2019-05-15 00:21:23 +02:00
parent 8a59e48d62
commit 51fbdd3082
2 changed files with 71 additions and 58 deletions

109
init.el
View File

@ -1,5 +1,5 @@
;;; init.el --- tastytea's Emacs init file. ;;; init.el --- tastytea's Emacs init file.
;; Time-stamp: <2019-05-14T22:00:21+00:00> ;; Time-stamp: <2019-05-14T22:28:02+00:00>
;;; Commentary: ;;; Commentary:
;; I am using this file with Emacs 26, but most of it will probably work with ;; I am using this file with Emacs 26, but most of it will probably work with
@ -548,56 +548,66 @@ With argument, do this that many times."
:config :config
(ido-ubiquitous-mode t))) (ido-ubiquitous-mode t)))
;; Advanced tab bar. ;; ;; Advanced tab bar.
(unless slow-computer ;; (unless slow-computer
(use-package mode-icons) ;; (use-package mode-icons)
(use-package tabbar-ruler ;; (use-package tabbar-ruler
:pin melpa ; Faces are not correctly applied, ;; :pin melpa ; Faces are not correctly applied,
:after (projectile mode-icons) ; version from >=2016-08-02 is needed. ;; :after (projectile mode-icons) ; version from >=2016-08-02 is needed.
:custom ;; :custom
;; (tabbar-ruler-global-tabbar t) ;; (tabbar-ruler-global-tabbar t)
(tabbar-ruler-global-ruler t) ;; (tabbar-ruler-global-ruler t)
:config ;; :config
(defun tabbar-ruler-tabbar-ruler-fight (&optional initialize) ;; ;; (tabbar-ruler-group-by-projectile-project) ; Group by projectile.
"tabbar-ruler-tabbar-ruler-fight is disabled." ;; ;; (tabbar-ruler-group-buffer-groups) ; Group by file type.
(ruler-mode t)) ;; (tabbar-ruler-group-user-buffers) ; Group by frame.
;; (tabbar-ruler-group-by-projectile-project) ; Group by projectile. ;; (mode-icons-mode 0) ; Disable modeline symbols.
;; (tabbar-ruler-group-buffer-groups) ; Group by file type.
(tabbar-ruler-group-user-buffers) ; Group by frame.
(mode-icons-mode 0) ; Disable modeline symbols.
(add-hook 'projectile-after-switch-project-hook ; Does not work under :hook. ;; (add-hook 'projectile-after-switch-project-hook ; Does not work under :hook.
'tabbar-ruler-group-by-projectile-project) ;; 'tabbar-ruler-group-by-projectile-project)
;; (defun my/show-tabbar () ;; ;; (defun my/show-tabbar ()
;; "Show tabbar if it is hidden." ;; ;; "Show tabbar if it is hidden."
;; (when tabbar-ruler-tabbar-off ;; ;; (when tabbar-ruler-tabbar-off
;; (tabbar-mode 1) ;; ;; (tabbar-mode 1)
;; (setq tabbar-ruler-tabbar-off nil) ;; ;; (setq tabbar-ruler-tabbar-off nil)
;; (ruler-mode -1) ;; ;; (ruler-mode -1)
;; (setq tabbar-ruler-ruler-off 't) ;; ;; (setq tabbar-ruler-ruler-off 't)
;; )) ;; ;; ))
;; ;; Show tabbar after 2 seconds idle. ;; ;; ;; Show tabbar after 2 seconds idle.
;; (run-with-idle-timer 2 t (lambda () (my/show-tabbar))) ;; ;; (run-with-idle-timer 2 t (lambda () (my/show-tabbar)))
:bind ;; :bind
("C-<prior>" . 'tabbar-ruler-tabbar-backward-tab) ;; ("C-<prior>" . 'tabbar-ruler-tabbar-backward-tab)
("C-<next>" . 'tabbar-ruler-tabbar-forward-tab) ;; ("C-<next>" . 'tabbar-ruler-tabbar-forward-tab)
;; :custom-face
;; (tabbar-selected ((t
;; (:background "gray5"
;; :foreground "light gray"
;; :family "Sans Serif"
;; :bold t))))
;; (tabbar-unselected ((t
;; (:background "gray18"
;; :foreground "dark gray"
;; :family "Sans Serif"
;; :italic t))))
;; (tabbar-modified ((t
;; (:foreground "brown2"
;; :italic t
;; :bold nil))))
;; (ruler-mode-default ((t
;; (:inherit default
;; :background "gray18"
;; :foreground "dim gray"
;; :box nil))))
;; (ruler-mode-column-number ((t
;; (:inherit ruler-mode-default
;; :foreground "dark gray"))))
;; ))
;; Ruler with fill-column marker.
(use-package ruler-mode
:custom-face :custom-face
(tabbar-selected ((t
(:background "gray5"
:foreground "light gray"
:family "Sans Serif"
:bold t))))
(tabbar-unselected ((t
(:background "gray18"
:foreground "dark gray"
:family "Sans Serif"
:italic t))))
(tabbar-modified ((t
(:foreground "brown2"
:italic t
:bold nil))))
(ruler-mode-default ((t (ruler-mode-default ((t
(:inherit default (:inherit default
:background "gray18" :background "gray18"
@ -606,7 +616,10 @@ With argument, do this that many times."
(ruler-mode-column-number ((t (ruler-mode-column-number ((t
(:inherit ruler-mode-default (:inherit ruler-mode-default
:foreground "dark gray")))) :foreground "dark gray"))))
)) :hook
(find-file . (lambda () (ruler-mode 1)))
(text-mode . (lambda () (ruler-mode 1))) ; For the scratch buffer.
)
;; Visualize whitespace. ;; Visualize whitespace.
(use-package whitespace (use-package whitespace

View File

@ -1,2 +1,2 @@
127.0.0.1:51313 3637 127.0.0.1:51313 23413
phahw2ohVoh0oopheish7IVie9desh8aequeenei3uo8wahShe%thuadaeNa4ieh phahw2ohVoh0oopheish7IVie9desh8aequeenei3uo8wahShe%thuadaeNa4ieh