feat: Render undo-tree parent buffer name (#1)

* feat: Render undo-tree parent buffer name

* fix compile

* changelog

Author: jcs090218

CHANGELOG.md

@@ -17,6 +17,7 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
 * Integrate `flymake` segment (4d36abc780d547aa07e250839b349421c60dc468)
 * Update `flycheck` lighter (559db6644036ab6bb8d806081d6dcbd40b6d3876)
 * Update `flymake` lighter (ccaeb6bb75a551bfe37f833ce32f762eea9622ef)
+* feat: Render undo-tree parent buffer name (#1)
 
 ## 0.1.0
 > Released Nov 16, 2022

jcs-modeline.el

@@ -49,7 +49,8 @@
     mode-line-front-space
     (:eval (jcs-modeline--render-buffer-identification))
     (:eval (jcs-modeline--render-modes))
-    (:eval (jcs-modeline--render-vc-project)))
+    (:eval (jcs-modeline--render-vc-project))
+    (:eval (jcs-modeline--render-undo-tree-buffer-name)))
   "List of item to render on the left."
   :type 'list
   :group 'jcs-modeline)
@@ -82,6 +83,9 @@
 (declare-function string-pixel-width "subr-x.el")   ; TODO: remove this after 29.1
 (declare-function shr-string-pixel-width "shr.el")  ; TODO: remove this after 29.1
 
+(defvar undo-tree-visualizer-buffer-name)
+(defvar undo-tree-visualizer-parent-buffer)
+
 (defvar flymake--state)
 (declare-function flymake-running-backends "ext:flymake.el")
 (declare-function flymake-disabled-backends "ext:flymake.el")
@@ -270,10 +274,16 @@
   "Return project directory path."
   (when-let ((current (project-current))) (project-root current)))
 
+(defcustom jcs-modeline-show-project-name-virutal-buffer nil
+  "If non-nil, display project-name in virutal buffer."
+  :type 'boolean
+  :group 'jcs-modeline)
+
 (defun jcs-modeline--render-vc-project ()
   "Return the project name."
-  (when-let ((project (jcs-modeline--project-root)))
-    (concat " "(file-name-nondirectory (directory-file-name project)))))
+  (when (or (buffer-file-name) jcs-modeline-show-project-name-virutal-buffer)
+    (when-let ((project (jcs-modeline--project-root)))
+      (concat " " (file-name-nondirectory (directory-file-name project))))))
 
 ;;
 ;;; Text Scale
@@ -287,6 +297,15 @@
        "(%-d) ")
      text-scale-mode-amount)))
 
+;;
+;;; Undo
+
+(defun jcs-modeline--render-undo-tree-buffer-name ()
+  "Render text-scale amount."
+  (when (featurep 'undo-tree)
+    (cond ((equal (buffer-name) undo-tree-visualizer-buffer-name)
+           (format " %s" undo-tree-visualizer-parent-buffer)))))
+
 ;;
 ;;; Flymake