Make the modeline collapse home into '~'

diff --git a/config.org b/config.org
index 5adbb2359c8e56a7eca07918942d48f6a4ba714a..00ee73d57b9e5684afbbb673d81fb2a045c15e17 100644 (file)
--- a/config.org
+++ b/config.org
@@ -913,9 +913,9 @@ Stolen from https://www.masteringemacs.org/article/fixing-mark-commands-transien
                                                     (when (buffer-modified-p)\r
                                                       'mode-line-highlight)))\r
                                  " "\r
-                                 (:propertize (buffer-file-name "%f" "%b")\r
-                                              'face\r
-                                              mode-line)\r
+                                 (:eval (if buffer-file-name\r
+                                            (abbreviate-file-name buffer-file-name)\r
+                                          "%b"))\r
                                  ":%l,%C"\r
                                  (:eval (propertize "%n " 'face (when (buffer-narrowed-p)\r
                                                                     'mode-line-highlight)))\r