emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

bump: :ui tabs

Browse source 
ema2159/centaur-tabs@0bb1aa18d4 -> ema2159/centaur-tabs@4a121a175e

- Reverts some hacks that are no longer needed:
  - ema2159/centaur-tabs#231 makes 56f33bc7ed obsolete.
  - ema2159/centaur-tabs@2f6a5fbb8d makes 813c961511 obsolete.

Ref: ema2159/centaur-tabs@2f6a5fbb8d
Revert: 813c961511
Ref: ema2159/centaur-tabs#231
Revert: 56f33bc7ed
This commit is contained in:
Henrik Lissner 2024-06-21 16:33:43 -04:00
parent 046cfd816a
commit 4f4718e6d1
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
2 changed files with 2 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

26
modules/ui/tabs/config.el
View file

@ -39,31 +39,7 @@
(defun +tabs-reload-centaur-tabs-h ()
(when (bound-and-true-p centaur-tabs-mode)
(centaur-tabs-mode -1)
(centaur-tabs-mode +1))))
;; HACK: `centaur-tabs-buffer-update-groups' is both expensive and called too
;; frequently. There really is no reason to call it more than 10 times per
;; second, as buffers rarely change groups more frequently than that.
(let ((time (float-time)))
(defadvice! +tabs--rate-limit-buffer-update-groups-a (fn)
:around #'centaur-tabs-buffer-update-groups
(let ((now (float-time)))
(if-let ((buf (and (< now (+ time +tabs-buffer-update-groups-delay))
(assq (current-buffer) centaur-tabs--buffers))))
(car (nth 2 buf))
(setq time now)
(funcall fn)))))
;; This is deferred twice to ensure these settings apply *after* any user
;; configuration!
(after! centaur-tabs
;; HACK: `centaur-tabs-line-tab' reads `centaur-tabs-ace-jump-keys' without
;; length guards. If there are fewer entries than you have tabs, you'll
;; see an error (ema2159/centaur-tabs#231).
;; REVIEW: Remove when ema2159/centaur-tabs#231 is dealt with.
(when (< (length centaur-tabs-ace-jump-keys) 100)
(setq centaur-tabs-ace-jump-keys
(append centaur-tabs-ace-jump-keys (make-list 100 ?\ ))))))
(centaur-tabs-mode +1)))))
;; TODO tab-bar-mode (emacs 27)
;; TODO tab-line-mode (emacs 27)

2
modules/ui/tabs/packages.el
View file

@ -1,4 +1,4 @@
;; -*- no-byte-compile: t; -*-
;;; ui/tabs/packages.el
(package! centaur-tabs :pin "0bb1aa18d475319df85f192dce3327802866c3c3")
(package! centaur-tabs :pin "4a121a175e663295fcd295512642dae4d2ff9db3")