dotfiles/emacs/+modeline.el
James Patrick 1f7b9cd28e Don't tell me if a file is UTF8. Everything's UTF8
Do let me know when things aren't UTF8 though.
2021-04-02 15:52:30 -04:00

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)