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)