ryuslash/yoshi-theme
1
0
Fork 0
mirror of https://git.sr.ht/~ryuslash/yoshi-theme synced 2025-01-31 03:15:52 +01:00
Code Releases Activity

Add spaces around the Current info node in the mode-line

Browse source 
This puts it in line with the buffer identification for all other buffers that
I’ve seen.
This commit is contained in:
Tom Willemse 2021-10-30 21:56:06 -07:00
parent 06a6bcfc58
commit 787bb0a13c
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
yoshi-theme.el
View file

@ -36,9 +36,16 @@
"Return ARGS with the car modified to contain 2 spaces." "Return ARGS with the car modified to contain 2 spaces."
(cons (format " %s " (car args)) (cdr args))) (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 (advice-add 'propertized-buffer-identification
:filter-args #'yoshi-theme-add-space-to-first-arg) :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) (defun yoshi-theme--make-inline-box (border-color)
"Return a list representing a box specification using BORDER-COLOR." "Return a list representing a box specification using BORDER-COLOR."
(let ((line-width (if (> emacs-major-version 27) (let ((line-width (if (> emacs-major-version 27)