emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui/modeline: refactor buffer-id segment

Browse source
This commit is contained in:
Henrik Lissner 2020-08-26 21:42:39 -04:00
parent b3006ecabb
commit 2e2f72a2de
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 22 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

48
modules/ui/modeline/+light.el
View file

@ -157,9 +157,8 @@ LHS and RHS will accept."
(push docstring plist) (push docstring plist)
(setq docstring nil)) (setq docstring nil))
`(progn `(progn
(defvar ,name nil ,docstring) (defconst ,name ,body ,docstring)
,@(if (plist-get plist :local) `((make-variable-buffer-local ',name))) ,@(if (plist-get plist :local) `((make-variable-buffer-local ',name)))
(setq-default ,name ,body)
(put ',name 'risky-local-variable t))) (put ',name 'risky-local-variable t)))
@ -355,40 +354,37 @@ Requires `anzu', also `evil-anzu' if using `evil-mode' for compatibility with
;;; `+modeline-buffer-identification' ;;; `+modeline-buffer-identification'
(defvar-local +modeline--buffer-id-cache nil) (defvar-local +modeline--buffer-id-cache nil)
(add-transient-hook! 'doom-first-buffer-hook ;; REVIEW Generating the buffer's file name can be relatively expensive.
;; REVIEW Generating the buffer's file name can be relatively expensive. ;; Compounded with how often the modeline updates this can add up, so
;; Compounded with how often the modeline updates this can add up, so ;; we cache it ahead of time.
;; we cache it ahead of time. (add-hook! '(change-major-mode-after-body-hook
(add-hook! '(change-major-mode-after-body-hook ;; In case the user saves the file to a new location
;; In case the user saves the file to a new location after-save-hook
after-save-hook ;; ...or makes external changes then returns to Emacs
;; ...or makes external changes then returns to Emacs focus-in-hook
focus-in-hook ;; ...or when we change the current project!
;; ...or when we change the current project! projectile-after-switch-project-hook
projectile-after-switch-project-hook ;; ...when the visited file changes (e.g. it's renamed)
;; ...when the visited file changes (e.g. it's renamed) after-set-visited-file-name-hook
after-set-visited-file-name-hook ;; ...when the underlying file changes
;; ...when the underlying file changes after-revert-hook)
after-revert-hook) (defun +modeline--generate-buffer-id-cache-h ()
(defun +modeline--generate-buffer-id-cache-h () (when after-init-time
(setq +modeline--buffer-id-cache (setq +modeline--buffer-id-cache
(let ((file-name (buffer-file-name (buffer-base-buffer)))) (let ((file-name (buffer-file-name (buffer-base-buffer))))
(unless (or (null default-directory) (unless (or (null default-directory)
(null file-name) (null file-name)
(file-remote-p file-name)) (file-remote-p file-name))
(when-let ((project-root (doom-project-root))) (when-let (project-root (doom-project-root))
(file-relative-name (file-relative-name (or buffer-file-truename (file-truename file-name))
(or buffer-file-truename (file-truename file-name)) (concat project-root "..")))))))))
(concat project-root "..")))))))))
(def-modeline-var! +modeline-buffer-identification ; slightly more informative buffer id (def-modeline-var! +modeline-buffer-identification ; slightly more informative buffer id
'((:eval '((:eval
(propertize (propertize
(or +modeline--buffer-id-cache "%b") (or +modeline--buffer-id-cache "%b")
'face (cond ((buffer-modified-p) 'face (cond ((buffer-modified-p) '(error bold mode-line-buffer-id))
'(error bold mode-line-buffer-id)) ((+modeline-active) 'mode-line-buffer-id))
((+modeline-active)
'mode-line-buffer-id))
'help-echo (or +modeline--buffer-id-cache (buffer-name)))) 'help-echo (or +modeline--buffer-id-cache (buffer-name))))
(buffer-read-only (:propertize " RO" face warning)))) (buffer-read-only (:propertize " RO" face warning))))