github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Modernize the icons of buffer file state.

Browse source
This commit is contained in:
Vincent Zhang 2018-12-12 01:34:16 +08:00
parent c9699003f6
commit 1d66c50309
1 changed files with 25 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
doom-modeline.el
View file

@ -527,6 +527,10 @@ If DEFAULT is non-nil, set the default mode-line for all buffers."
;; Modeline helpers ;; Modeline helpers
;; ;;
(defvar doom-modeline-vspc
(propertize " " 'face 'variable-pitch)
"Text style with icons in mode-line.")
(defun doom-modeline-icon-octicon (&rest args) (defun doom-modeline-icon-octicon (&rest args)
"Display octicon via ARGS." "Display octicon via ARGS."
(when doom-modeline-icon (when doom-modeline-icon
@ -742,7 +746,7 @@ buffer where knowing the current project directory is important."
'help-echo (format "Major-mode: `%s'" major-mode) 'help-echo (format "Major-mode: `%s'" major-mode)
'display '(raise -0.15) 'display '(raise -0.15)
'face `(:height 1.1 :family ,(all-the-icons-icon-family-for-mode major-mode) :inherit)) 'face `(:height 1.1 :family ,(all-the-icons-icon-family-for-mode major-mode) :inherit))
" "))))) doom-modeline-vspc)))))
(add-hook 'find-file-hook 'doom-modeline-update-buffer-file-icon) (add-hook 'find-file-hook 'doom-modeline-update-buffer-file-icon)
(add-hook 'after-save-hook 'doom-modeline-update-buffer-file-icon) (add-hook 'after-save-hook 'doom-modeline-update-buffer-file-icon)
(add-hook 'after-revert-hook 'doom-modeline-update-buffer-file-icon) (add-hook 'after-revert-hook 'doom-modeline-update-buffer-file-icon)
@ -761,30 +765,34 @@ buffer where knowing the current project directory is important."
(setq doom-modeline--buffer-file-state-icon (setq doom-modeline--buffer-file-state-icon
(let ((active (doom-modeline--active))) (let ((active (doom-modeline--active)))
(cond (buffer-read-only (cond (buffer-read-only
(concat (doom-modeline-icon-octicon (concat (doom-modeline-icon-material
"lock" "lock"
:face (if active 'doom-modeline-warning) :face (if active 'doom-modeline-warning)
:v-adjust -0.05) :height 1.1
" ")) :v-adjust -0.2)
doom-modeline-vspc))
((buffer-modified-p) ((buffer-modified-p)
(concat (doom-modeline-icon-faicon (concat (doom-modeline-icon-material
"floppy-o" "save"
:face (if active 'doom-modeline-buffer-modified) :face (if active 'doom-modeline-buffer-modified)
:v-adjust -0.0575) :height 1.1
" ")) :v-adjust -0.2)
doom-modeline-vspc))
((and buffer-file-name ((and buffer-file-name
(not (file-exists-p buffer-file-name))) (not (file-exists-p buffer-file-name)))
(concat (doom-modeline-icon-octicon (concat (doom-modeline-icon-material
"circle-slash" "do_not_disturb_alt"
:face (if active 'doom-modeline-urgent) :face (if active 'doom-modeline-urgent)
:v-adjust -0.05) :height 1.1
" ")) :v-adjust -0.2)
doom-modeline-vspc))
((buffer-narrowed-p) ((buffer-narrowed-p)
(concat (doom-modeline-icon-octicon (concat (doom-modeline-icon-material
"fold" "unfold_less"
:face (if active 'doom-modeline-warning) :face (if active 'doom-modeline-warning)
:v-adjust -0.05) :height 1.1
" ")))))) :v-adjust -0.2)
doom-modeline-vspc))))))
(add-hook 'find-file-hook 'doom-modeline-update-buffer-file-state-icon) (add-hook 'find-file-hook 'doom-modeline-update-buffer-file-state-icon)
(add-hook 'after-save-hook 'doom-modeline-update-buffer-file-state-icon) (add-hook 'after-save-hook 'doom-modeline-update-buffer-file-state-icon)
(add-hook 'after-revert-hook 'doom-modeline-update-buffer-file-state-icon) (add-hook 'after-revert-hook 'doom-modeline-update-buffer-file-state-icon)
@ -956,7 +964,7 @@ mouse-3: Toggle minor modes"
"git-branch" "git-branch"
:face face :face face
:v-adjust -0.05))) :v-adjust -0.05)))
" " doom-modeline-vspc
(propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2)) (propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))
'face (if active face)) 'face (if active face))
" ")))))) " "))))))
@ -976,10 +984,6 @@ mouse-3: Toggle minor modes"
;; flycheck ;; flycheck
;; ;;
(defvar doom-modeline-vspc
(propertize " " 'face 'variable-pitch)
"Text style with icons in mode-line.")
(defun doom-modeline-flycheck-icon (icon &optional text face voffset) (defun doom-modeline-flycheck-icon (icon &optional text face voffset)
"Displays an ICON with FACE, followed by TEXT. "Displays an ICON with FACE, followed by TEXT.
Uses `all-the-icons-material' to fetch the icon." Uses `all-the-icons-material' to fetch the icon."