mirror of
https://github.com/correl/doom-modeline.git
synced 2024-11-27 11:09:52 +00:00
[Optimize] doom-modeline-buffer-file-name for all truncate styles.
e.g.`truncate-upto-project' is ~5x faster. (benchmark-run 1000 (format-mode-line mode-line-format)) ~0.7s vs ~4s Also add 2 new styles: `truncate-from-project' and `truncate-except-project'. Given ~/Projects/FOSS/emacs/lisp/comint.el truncate-upto-project => ~/P/F/emacs/lisp/comint.el truncate-from-project => ~/Projects/FOSS/emacs/l/comint.el truncate-with-project => emacs/l/comint.el truncate-except-project => ~/P/F/emacs/l/comint.el NOTE: `shrink-path-file-mixed' has so BAD performance! Damn it!!!
This commit is contained in:
parent
51ca9570a6
commit
d27c5485ba
2 changed files with 67 additions and 64 deletions
12
README.md
12
README.md
|
@ -61,23 +61,21 @@ Recommand to use [doom-themes](https://github.com/hlissner/emacs-doom-themes);
|
||||||
|
|
||||||
;; Determines the style used by `doom-modeline-buffer-file-name'.
|
;; Determines the style used by `doom-modeline-buffer-file-name'.
|
||||||
;;
|
;;
|
||||||
;; Basically `file-name' is the fastest but most ugly, and
|
|
||||||
;; `truncate-upto-project' is slowest but most fancy.
|
|
||||||
;; `truncate-with-project' is ~3x faster than `truncate-upto-project'.
|
|
||||||
;;
|
|
||||||
;; Given ~/Projects/FOSS/emacs/lisp/comint.el
|
;; Given ~/Projects/FOSS/emacs/lisp/comint.el
|
||||||
;; truncate-upto-project => ~/P/F/emacs/lisp/comint.el
|
;; truncate-upto-project => ~/P/F/emacs/lisp/comint.el
|
||||||
|
;; truncate-from-project => ~/Projects/FOSS/emacs/l/comint.el
|
||||||
;; truncate-with-project => emacs/l/comint.el
|
;; truncate-with-project => emacs/l/comint.el
|
||||||
|
;; truncate-except-project => ~/P/F/emacs/l/comint.el
|
||||||
;; truncate-upto-root => ~/P/F/e/lisp/comint.el
|
;; truncate-upto-root => ~/P/F/e/lisp/comint.el
|
||||||
;; truncate-all => ~/P/F/e/l/comint.el
|
;; truncate-all => ~/P/F/e/l/comint.el
|
||||||
;; relative-from-project => emacs/lisp/comint.el
|
;; relative-from-project => emacs/lisp/comint.el
|
||||||
;; relative-to-project => lisp/comint.el
|
;; relative-to-project => lisp/comint.el
|
||||||
;; file-name => comint.el
|
;; file-name => comint.el"
|
||||||
;;
|
;;
|
||||||
;; If you are expereicing the laggy issue, especially while editing remote files
|
;; If you are expereicing the laggy issue, especially while editing remote files
|
||||||
;; with tramp, please don't use `truncate-upto-project' style and try others.
|
;; with tramp, please try `file-name' style.
|
||||||
;; Please refer to https://github.com/bbatsov/projectile/issues/657.
|
;; Please refer to https://github.com/bbatsov/projectile/issues/657.
|
||||||
(setq doom-modeline-buffer-file-name-style 'truncate-with-project)
|
(setq doom-modeline-buffer-file-name-style 'truncate-upto-project)
|
||||||
|
|
||||||
;; What executable of Python will be used (if nil nothing will be showed).
|
;; What executable of Python will be used (if nil nothing will be showed).
|
||||||
(setq doom-modeline-python-executable "python")
|
(setq doom-modeline-python-executable "python")
|
||||||
|
|
119
doom-modeline.el
119
doom-modeline.el
|
@ -74,12 +74,14 @@
|
||||||
(defvar doom-modeline-bar-width 3
|
(defvar doom-modeline-bar-width 3
|
||||||
"How wide the mode-line bar should be (only respected in GUI Emacs).")
|
"How wide the mode-line bar should be (only respected in GUI Emacs).")
|
||||||
|
|
||||||
(defvar doom-modeline-buffer-file-name-style 'truncate-with-project
|
(defvar doom-modeline-buffer-file-name-style 'truncate-upto-project
|
||||||
"Determines the style used by `doom-modeline-buffer-file-name'.
|
"Determines the style used by `doom-modeline-buffer-file-name'.
|
||||||
|
|
||||||
Given ~/Projects/FOSS/emacs/lisp/comint.el
|
Given ~/Projects/FOSS/emacs/lisp/comint.el
|
||||||
truncate-upto-project => ~/P/F/emacs/lisp/comint.el
|
truncate-upto-project => ~/P/F/emacs/lisp/comint.el
|
||||||
|
truncate-from-project => ~/Projects/FOSS/emacs/l/comint.el
|
||||||
truncate-with-project => emacs/l/comint.el
|
truncate-with-project => emacs/l/comint.el
|
||||||
|
truncate-except-project => ~/P/F/emacs/l/comint.el
|
||||||
truncate-upto-root => ~/P/F/e/lisp/comint.el
|
truncate-upto-root => ~/P/F/e/lisp/comint.el
|
||||||
truncate-all => ~/P/F/e/l/comint.el
|
truncate-all => ~/P/F/e/l/comint.el
|
||||||
relative-from-project => emacs/lisp/comint.el
|
relative-from-project => emacs/lisp/comint.el
|
||||||
|
@ -504,8 +506,12 @@ active.")
|
||||||
(pcase doom-modeline-buffer-file-name-style
|
(pcase doom-modeline-buffer-file-name-style
|
||||||
(`truncate-upto-project
|
(`truncate-upto-project
|
||||||
(doom-modeline--buffer-file-name buffer-file-name buffer-file-truename 'shrink))
|
(doom-modeline--buffer-file-name buffer-file-name buffer-file-truename 'shrink))
|
||||||
|
(`truncate-from-project
|
||||||
|
(doom-modeline--buffer-file-name buffer-file-name buffer-file-truename nil 'shrink))
|
||||||
(`truncate-with-project
|
(`truncate-with-project
|
||||||
( doom-modeline--buffer-file-name-truncate-with-project buffer-file-name buffer-file-truename))
|
(doom-modeline--buffer-file-name buffer-file-name buffer-file-truename 'shrink 'shink 'hide))
|
||||||
|
(`truncate-except-project
|
||||||
|
(doom-modeline--buffer-file-name buffer-file-name buffer-file-truename 'shrink 'shink))
|
||||||
(`truncate-upto-root
|
(`truncate-upto-root
|
||||||
(doom-modeline--buffer-file-name-truncate buffer-file-name buffer-file-truename))
|
(doom-modeline--buffer-file-name-truncate buffer-file-name buffer-file-truename))
|
||||||
(`truncate-all
|
(`truncate-all
|
||||||
|
@ -543,32 +549,6 @@ If TRUNCATE-TAIL is t also truncate the parent directory of the file."
|
||||||
(propertize (file-name-nondirectory file-path)
|
(propertize (file-name-nondirectory file-path)
|
||||||
'face (if file-faces `(:inherit ,file-faces)))))))))
|
'face (if file-faces `(:inherit ,file-faces)))))))))
|
||||||
|
|
||||||
(defun doom-modeline--buffer-file-name-truncate-with-project (file-path _true-file-path)
|
|
||||||
"Propertized variable `buffer-file-name' based on FILE-PATH.
|
|
||||||
|
|
||||||
Show relative path to the project and truncate it.
|
|
||||||
Example:
|
|
||||||
~/Projects/FOSS/emacs/lisp/comint.el => emacs/l/comint.el"
|
|
||||||
(let* ((project-root (doom-modeline-project-root))
|
|
||||||
(relative-path (file-relative-name (or (file-name-directory file-path) "./") project-root)))
|
|
||||||
(let ((active (doom-modeline--active))
|
|
||||||
(modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified)))
|
|
||||||
(let ((project-faces (or modified-faces (if active 'font-lock-string-face)))
|
|
||||||
(relative-faces (or modified-faces (if active 'doom-modeline-buffer-path)))
|
|
||||||
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
|
||||||
(let ((project-props `(,@(if project-faces `(:inherit ,project-faces)) ,@(if active '(:weight bold))))
|
|
||||||
(relative-props `(,@(if relative-faces `(:inherit ,relative-faces))))
|
|
||||||
(file-props `(,@(if file-faces `(:inherit ,file-faces)))))
|
|
||||||
(concat (propertize (concat
|
|
||||||
(file-name-nondirectory (directory-file-name project-root))
|
|
||||||
"/")
|
|
||||||
'face project-props)
|
|
||||||
(propertize (if (string-equal relative-path "./")
|
|
||||||
""
|
|
||||||
(substring (shrink-path--dirs-internal relative-path t) 1))
|
|
||||||
'face relative-props)
|
|
||||||
(propertize (file-name-nondirectory file-path) 'face file-props)))))))
|
|
||||||
|
|
||||||
(defun doom-modeline--buffer-file-name-relative (_file-path true-file-path &optional include-project)
|
(defun doom-modeline--buffer-file-name-relative (_file-path true-file-path &optional include-project)
|
||||||
"Propertized variable `buffer-file-name' showing directories relative to project's root only."
|
"Propertized variable `buffer-file-name' showing directories relative to project's root only."
|
||||||
(let ((root (doom-modeline-project-root))
|
(let ((root (doom-modeline-project-root))
|
||||||
|
@ -585,38 +565,63 @@ Example:
|
||||||
(propertize (file-name-nondirectory true-file-path)
|
(propertize (file-name-nondirectory true-file-path)
|
||||||
'face (if file-faces `(:inherit ,file-faces))))))))
|
'face (if file-faces `(:inherit ,file-faces))))))))
|
||||||
|
|
||||||
(defun doom-modeline--buffer-file-name (file-path _true-file-path &optional truncate-project-root-parent)
|
(defun doom-modeline--buffer-file-name (file-path _true-file-path &optional truncate-project-root-parent truncate-project-relative-path hide-project-root-parent)
|
||||||
"Propertized variable `buffer-file-name'.
|
"Propertized variable `buffer-file-name' given by FILE-PATH.
|
||||||
|
|
||||||
If TRUNCATE-PROJECT-ROOT-PARENT is t space will be saved by truncating it down
|
If TRUNCATE-PROJECT-ROOT-PARENT is non-nil will be saved by truncating project
|
||||||
fish-shell style.
|
root parent down fish-shell style.
|
||||||
|
|
||||||
Example:
|
Example:
|
||||||
~/Projects/FOSS/emacs/lisp/comint.el => ~/P/F/emacs/lisp/comint.el"
|
~/Projects/FOSS/emacs/lisp/comint.el => ~/P/F/emacs/lisp/comint.el
|
||||||
(let* ((project-root (doom-modeline-project-root))
|
|
||||||
(file-name-split (shrink-path-file-mixed project-root
|
If TRUNCATE-PROJECT-RELATIVE-PATH is non-nil will be saved by truncating project
|
||||||
(or (file-name-directory file-path) "./")
|
relative path down fish-shell style.
|
||||||
file-path))
|
|
||||||
(active (doom-modeline--active)))
|
Example:
|
||||||
(if (null file-name-split)
|
~/Projects/FOSS/emacs/lisp/comint.el => ~/Projects/FOSS/emacs/l/comint.el
|
||||||
(propertize "%b" 'face (if active 'doom-modeline-buffer-file))
|
|
||||||
(pcase-let ((`(,root-path-parent ,project ,relative-path ,file-path) file-name-split))
|
If HIDE-PROJECT-ROOT-PARENT is non-nil will hide project root parent.
|
||||||
(let ((modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified)))
|
|
||||||
(let ((sp-faces (or modified-faces (if active 'font-lock-comment-face)))
|
Example:
|
||||||
(project-faces (or modified-faces (if active 'font-lock-string-face)))
|
~/Projects/FOSS/emacs/lisp/comint.el => emacs/lisp/comint.el"
|
||||||
(relative-faces (or modified-faces (if active 'doom-modeline-buffer-path)))
|
(let ((project-root (doom-modeline-project-root))
|
||||||
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
(active (doom-modeline--active))
|
||||||
(let ((sp-props `(,@(if sp-faces `(:inherit ,sp-faces)) ,@(if active '(:weight bold))))
|
(modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified)))
|
||||||
(project-props `(,@(if project-faces `(:inherit ,project-faces)) ,@(if active '(:weight bold))))
|
(let ((sp-faces (or modified-faces (if active 'font-lock-comment-face)))
|
||||||
(relative-props `(,@(if relative-faces `(:inherit ,relative-faces))))
|
(project-faces (or modified-faces (if active 'font-lock-string-face)))
|
||||||
(file-props `(,@(if file-faces `(:inherit ,file-faces)))))
|
(relative-faces (or modified-faces (if active 'doom-modeline-buffer-path)))
|
||||||
(concat (propertize (if truncate-project-root-parent
|
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
||||||
root-path-parent
|
(let ((sp-props `(,@(if sp-faces `(:inherit ,sp-faces)) ,@(if active '(:weight bold))))
|
||||||
(abbreviate-file-name project-root))
|
(project-props `(,@(if project-faces `(:inherit ,project-faces)) ,@(if active '(:weight bold))))
|
||||||
'face sp-props)
|
(relative-props `(,@(if relative-faces `(:inherit ,relative-faces))))
|
||||||
(propertize (concat project "/") 'face project-props)
|
(file-props `(,@(if file-faces `(:inherit ,file-faces)))))
|
||||||
(if relative-path (propertize relative-path 'face relative-props))
|
(concat
|
||||||
(propertize file-path 'face file-props)))))))))
|
;; project root parent
|
||||||
|
(unless hide-project-root-parent
|
||||||
|
(propertize
|
||||||
|
(when-let (root-path-parent
|
||||||
|
(file-name-directory (directory-file-name project-root)))
|
||||||
|
(if truncate-project-root-parent
|
||||||
|
(shrink-path--dirs-internal root-path-parent t)
|
||||||
|
(abbreviate-file-name root-path-parent)))
|
||||||
|
'face sp-props))
|
||||||
|
;; project
|
||||||
|
(propertize
|
||||||
|
(concat (file-name-nondirectory (directory-file-name project-root)) "/")
|
||||||
|
'face project-props)
|
||||||
|
;; relative path
|
||||||
|
(propertize
|
||||||
|
(when-let (relative-path (file-relative-name
|
||||||
|
(or (file-name-directory file-path) "./")
|
||||||
|
project-root))
|
||||||
|
(if (string-equal relative-path "./")
|
||||||
|
""
|
||||||
|
(if truncate-project-relative-path
|
||||||
|
(substring (shrink-path--dirs-internal relative-path t) 1)
|
||||||
|
relative-path)))
|
||||||
|
'face relative-props)
|
||||||
|
;; file name
|
||||||
|
(propertize (file-name-nondirectory file-path) 'face file-props))))))
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
|
|
Loading…
Reference in a new issue