[nongnu] elpa/telephone-line aef373fd76 1/2: add telephone-line-project-segment

[ELPA Syncer]

branch: elpa/telephone-line
commit aef373fd76b11d2f57e639a214586889e065d2b1
Author: Trevor Richards <trev@trevdev.ca>
Commit: Trevor Richards <trev@trevdev.ca>

    add telephone-line-project-segment
---
 telephone-line-segments.el | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/telephone-line-segments.el b/telephone-line-segments.el
index 32d5bf2d3d..520c6e515f 100644
--- a/telephone-line-segments.el
+++ b/telephone-line-segments.el
@@ -208,6 +208,26 @@ If it doesn't exist, create and cache it."
                                          (interactive)
                                          (projectile-switch-project))))))
 
+(defcustom telephone-line-project-custom-name nil
+  "A custom directory-local name for a project.el project."
+  :type 'string
+  :group 'telephone-line)
+
+(telephone-line-defsegment telephone-line-project-segment ()
+  "Displays the project name, according to project.el"
+  (if (project-current)
+      (propertize (if (stringp telephone-line-project-custom-name)
+          telephone-line-project-custom-name
+        (file-name-nondirectory
+         (directory-file-name
+          (project-root (project-current)))))
+                  'face 'telephone-line-projectile
+                  'display '(raise 0.0)
+                  'help-echo "Switch project"
+                  'mouse-face '(:box 1)
+                  'local-map (make-mode-line-mouse-map
+                              'mouse-1 #'project-switch-project))))
+
 (defun telephone-line--truncate-dir (dir)
   "Truncate DIR, respecting word boundaries."
   (if (string= dir "~")
@@ -268,7 +288,7 @@ Configure the face group telephone-line-evil to change the 
colors per-mode."
   "Wraps `flymake-mode' mode-line information in a telephone-line segment."
   (when (bound-and-true-p flymake-mode)
     (telephone-line-raw
-     (if (boundp flymake--mode-line-format) 
+     (if (boundp flymake--mode-line-format)
          flymake--mode-line-format
        flymake-mode-line-format) t)))