From ccff884113100bf42cb330d8feccbbd4a82d45e6 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 17 Dec 2021 18:31:24 -0600
Subject: Bunches o changes

I was gonna try to like, make these atomic, but oops
---
 lisp/+modeline.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'lisp/+modeline.el')

diff --git a/lisp/+modeline.el b/lisp/+modeline.el
index 7c74f76..7615ea7 100644
--- a/lisp/+modeline.el
+++ b/lisp/+modeline.el
@@ -20,7 +20,7 @@
 (defun +modeline-buffer-name ()         ; gonsie
   "Display the buffer name."
   (propertize
-   (+string-align (buffer-name) 20 :before " " :ellipsis "… ")
+   (+string-align (buffer-name) 20 :before " " :ellipsis "~ ")
    'face 'bold
    'help-echo (or (buffer-file-name)
                   (buffer-name))
@@ -49,7 +49,7 @@
   "Display the current `major-mode'."
   (concat " "
           (propertize (+string-truncate (format-mode-line mode-name)
-                                        12 "…")
+                                        12 "~")
                       'face 'bold
                       'keymap mode-line-major-mode-keymap
                       'mouse-face 'mode-line-highlight)))
@@ -108,6 +108,7 @@ The order of elements matters: whichever one matches first is applied."
                                            "mouse-2: widen buffer.")
                         'local-map (purecopy (simple-modeline-make-mouse-map
                                               'mouse-2 'mode-line-widen))
+                        'face 'font-lock-doc-face
                         'mouse-face 'mode-line-highlight))))
 
 (define-minor-mode file-percentage-mode
@@ -161,5 +162,11 @@ The order of elements matters: whichever one matches first is applied."
     (format (if (> text-scale-mode-amount 0) " (%+d)" " (%-d)")
             text-scale-mode-amount)))
 
+(defun +modeline-ace-window-display ()
+  "Display `ace-window-display-mode' information in the modeline."
+  '(+ace-window-display-mode
+    (ace-window-mode
+     (" " (:eval (window-parameter (selected-window) 'ace-window-path))))))
+
 (provide '+modeline)
 ;;; +modeline.el ends here
-- 
cgit 1.4.1-21-gabe81