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)