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

[Feature] options: doom-modeline-buffer-encoding and doom-modeline-indent-info.

Browse source
This commit is contained in:
Vincent Zhang 2019-05-14 02:11:40 +08:00
parent edd97bb2a0
commit 356e8d670a
2 changed files with 26 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
doom-modeline-core.el
View file

@ -149,6 +149,12 @@ Given ~/Projects/FOSS/emacs/lisp/comint.el
(defvar doom-modeline-major-mode-color-icon t
"Whether display color icons for `major-mode'. It respects `doom-modeline-icon' and `all-the-icons-color-icons'.")
(defvar doom-modeline-buffer-encoding t
"Whether display buffer encoding.")
(defvar doom-modeline-indent-info nil
"Whether display indentation information.")
(defvar doom-modeline-buffer-state-icon t
"Whether display icons for buffer states. It respects `doom-modeline-icon'.")

38
doom-modeline-segments.el
View file

@ -419,21 +419,22 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(doom-modeline-def-segment buffer-encoding
"Displays the encoding and eol style of the buffer the same way Atom does."
(propertize
(concat (pcase (coding-system-eol-type buffer-file-coding-system)
(0 " LF")
(1 " RLF")
(2 " CR"))
(let ((sys (coding-system-plist buffer-file-coding-system)))
(cond ((memq (plist-get sys :category)
'(coding-category-undecided coding-category-utf-8))
" UTF-8 ")
(t (upcase (symbol-name (plist-get sys :name))))))
" ")
'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)
'help-echo 'mode-line-mule-info-help-echo
'mouse-face '(:box 0)
'local-map mode-line-coding-system-map))
(when doom-modeline-buffer-encoding
(propertize
(concat (pcase (coding-system-eol-type buffer-file-coding-system)
(0 " LF")
(1 " RLF")
(2 " CR"))
(let ((sys (coding-system-plist buffer-file-coding-system)))
(cond ((memq (plist-get sys :category)
'(coding-category-undecided coding-category-utf-8))
" UTF-8 ")
(t (upcase (symbol-name (plist-get sys :name))))))
" ")
'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)
'help-echo 'mode-line-mule-info-help-echo
'mouse-face '(:box 0)
'local-map mode-line-coding-system-map)))
;;
@ -442,9 +443,10 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(doom-modeline-def-segment indent-info
"Displays the indentation information."
(propertize (format " %s %d "
(if indent-tabs-mode "TAB" "SPC") tab-width)
'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)))
(when doom-modeline-indent-info
(propertize (format " %s %d "
(if indent-tabs-mode "TAB" "SPC") tab-width)
'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive))))
;;
;; remote host