13 lines
686 B
EmacsLisp
13 lines
686 B
EmacsLisp
;;; +modeline.el -*- lexical-binding: t; -*-
|
|
|
|
;; Only let us know when the encoding is NOT LF UTF-8.
|
|
(defun doom-modeline-conditional-buffer-encoding ()
|
|
"We expect the encoding to be LF UTF-8, so only show the modeline when this is not the case"
|
|
(setq-local doom-modeline-buffer-encoding
|
|
(unless (and (memq (plist-get (coding-system-plist buffer-file-coding-system) :category)
|
|
'(coding-category-undecided coding-category-utf-8))
|
|
(not (memq (coding-system-eol-type buffer-file-coding-system) '(1 2))))
|
|
t)))
|
|
|
|
(add-hook 'after-change-major-mode-hook #'doom-modeline-conditional-buffer-encoding)
|