[nongnu] elpa/telephone-line 408e05e105 172/195: Merge branch 'master' of github.com:dbordak/telephone-line

[ELPA Syncer]

branch: elpa/telephone-line
commit 408e05e105e8e521735221f4c98fc358e007df3b
Merge: 81ec9e3137 17901f3911
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    Merge branch 'master' of github.com:dbordak/telephone-line
---
 telephone-line-segments.el | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/telephone-line-segments.el b/telephone-line-segments.el
index 3da8818086..713eeff0dd 100644
--- a/telephone-line-segments.el
+++ b/telephone-line-segments.el
@@ -90,6 +90,25 @@ Adapted from doom-modeline."
 (telephone-line-defsegment* telephone-line-simple-minor-mode-segment ()
   (telephone-line-raw minor-mode-alist t))
 
+(telephone-line-defsegment* telephone-line-minions-mode-segment ()
+  (telephone-line-raw minions-mode-line-modes t))
+
+;; For a file like /a/b/c/file.txt, this should display
+;; file.txt
+(telephone-line-defsegment telephone-line-buffer-name-segment ()
+  mode-line-buffer-identification
+  )
+
+;; For a file like /a/b/c/file.txt, this should display
+;; /a/b/c/file.txt
+(telephone-line-defsegment telephone-line-file-name-absolute-path-segment ()
+  buffer-file-name)
+
+(telephone-line-defsegment* telephone-line-buffer-modified-segment ()
+    (if (buffer-modified-p)
+        (telephone-line-raw "!")
+      (telephone-line-raw "-")))
+
 (telephone-line-defsegment telephone-line-narrow-segment ()
   "%n")
 
@@ -195,7 +214,7 @@ If it doesn't exist, create and cache it."
              (split-string dir "[^[:word:]]" t)))))
 
 (defun telephone-line--truncate-path (path truncate-until)
-  "Truncate PATH. TRUNCATE-UNTIL indicates how far to truncate; -1 means leave 
the last element, 0 means truncate all, etc."
+  "Truncate PATH.  TRUNCATE-UNTIL indicates how far to truncate; -1 means 
leave the last element, 0 means truncate all, etc."
   (let* ((dirs (split-string path "/"))
          (take (+ truncate-until (length dirs)))
          (trunc (seq-take dirs take))