diff options
Diffstat (limited to 'modally.el')
| -rw-r--r-- | modally.el | 19 |
1 files changed, 10 insertions, 9 deletions
@@ -34,15 +34,16 @@ (defun modally--buffer-name () "Return a propertized buffer name string." (let* ((buffer-face (cond - ((buffer-modified-p) 'modally-buffer-modified) - (buffer-read-only 'modally-buffer-readonly) - ('modally-buffer))) - (buffer-name (if buffer-file-name - (if (string-match "^\\(/home/[^/]+\\)\\(.+\\)" - buffer-file-name) - (concat "~" (match-string 2 buffer-file-name)) - buffer-file-name) - (buffer-name (current-buffer)))) + ((buffer-modified-p) 'modally-buffer-modified) + (buffer-read-only 'modally-buffer-readonly) + ('modally-buffer))) + (buffer-name (concat (if buffer-read-only "🔒 " "✏️ ") + (if buffer-file-name + (if (string-match "^\\(/home/[^/]+\\)\\(.+\\)" + buffer-file-name) + (concat "~" (match-string 2 buffer-file-name)) + buffer-file-name) + (buffer-name (current-buffer))))) (spath (string-split buffer-name "/"))) ;; Format |