From 787bb0a13c6e1b28e904e1b7f18564d5e97c9c93 Mon Sep 17 00:00:00 2001 From: Tom Willemse <tom@ryuslash.org> Date: Sat, 30 Oct 2021 21:56:06 -0700 Subject: [PATCH] Add spaces around the Current info node in the mode-line MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This puts it in line with the buffer identification for all other buffers that I’ve seen. --- yoshi-theme.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/yoshi-theme.el b/yoshi-theme.el index 7963137..ead85b9 100644 --- a/yoshi-theme.el +++ b/yoshi-theme.el @@ -36,9 +36,16 @@ "Return ARGS with the car modified to contain 2 spaces." (cons (format " %s " (car args)) (cdr args))) +(defun yoshi-theme-add-spaces-around-current-info-node (func &rest args) + (let ((Info-current-node (format " %s " Info-current-node))) + (apply func args))) + (advice-add 'propertized-buffer-identification :filter-args #'yoshi-theme-add-space-to-first-arg) +(advice-add 'Info-set-mode-line + :around #'yoshi-theme-add-spaces-around-current-info-node) + (defun yoshi-theme--make-inline-box (border-color) "Return a list representing a box specification using BORDER-COLOR." (let ((line-width (if (> emacs-major-version 27)