From 3bef1afe186a05130ad1b4563926173bd418291c Mon Sep 17 00:00:00 2001 From: Jeremy Dormitzer Date: Wed, 26 Feb 2020 17:33:28 -0500 Subject: [PATCH] Use Org-mode titles for centaur tabs when possible --- emacs/init.org | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/emacs/init.org b/emacs/init.org index e574405..126fde4 100755 --- a/emacs/init.org +++ b/emacs/init.org @@ -2284,6 +2284,7 @@ UI-related keybindings: (if (buffer-file-name) (apply oldfn args) (setq header-line-format nil)))) + ;; Enable prefix argument for tab switching keybindings (advice-add 'centaur-tabs-forward :around (lambda (oldfn &rest args) (if (numberp current-prefix-arg) @@ -2296,6 +2297,18 @@ UI-related keybindings: (dotimes (_ current-prefix-arg) (apply oldfn args)) (apply oldfn args)))) + ;; Use Org-mode titles for tab names when possible + (advice-add 'centaur-tabs-buffer-tab-label :around + (lambda (oldfn tab &rest args) + (if-let ((title (org-get-title + (with-current-buffer (car tab) + (buffer-substring (point-min) + (min (point-max) 200)))))) + (if (> centaur-tabs-label-fixed-length 0) + (centaur-tabs-truncate-string centaur-tabs-label-fixed-length + (format " %s" title)) + (format " %s" title)) + (apply oldfn tab args)))) :general ((normal motion visual) "g t" #'centaur-tabs-forward) ((normal motion visual) "g T" #'centaur-tabs-backward)