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

127
init.el
View File

@ -1,5 +1,5 @@
;;; 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:
;; I am using this file with Emacs 26, but most of it will probably work with
@ -548,65 +548,78 @@ With argument, do this that many times."
:config
(ido-ubiquitous-mode t)))
;; Advanced tab bar.
(unless slow-computer
(use-package mode-icons)
(use-package tabbar-ruler
: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-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.
(mode-icons-mode 0) ; Disable modeline symbols.
;; ;; Advanced tab bar.
;; (unless slow-computer
;; (use-package mode-icons)
;; (use-package tabbar-ruler
;; :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-ruler t)
;; :config
;; ;; (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.
;; (mode-icons-mode 0) ; Disable modeline symbols.
(add-hook 'projectile-after-switch-project-hook ; Does not work under :hook.
'tabbar-ruler-group-by-projectile-project)
;; (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)))
:bind
("C-<prior>" . 'tabbar-ruler-tabbar-backward-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"))))
))
;; ;; ;; 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)
;; :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
(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"))))
:hook
(find-file . (lambda () (ruler-mode 1)))
(text-mode . (lambda () (ruler-mode 1))) ; For the scratch buffer.
)
;; Visualize whitespace.
(use-package whitespace

View File

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