diff options
| author | Blake Romero <blake@blkrom.com> | 2025-10-10 23:48:46 +0100 |
|---|---|---|
| committer | Blake Romero <blake@blkrom.com> | 2025-10-10 23:48:46 +0100 |
| commit | 46427789aa9a015d681450f4c312f30d91c29149 (patch) | |
| tree | e37a552d3dd46b3f0ce2eca907162a1141c530f9 | |
| parent | 41db5f3579d1c7f5f1441b61621d1fd5ec7258c6 (diff) | |
Add icons based on read-only status
| -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 |