emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui/modeline: hide encoding if default

Browse source
This commit is contained in:
Henrik Lissner 2020-07-19 00:57:14 -04:00
parent a8a918121b
commit b383ff23cb
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
modules/ui/modeline/+light.el
View file

@ -458,14 +458,17 @@ lines are selected, or the NxM dimensions of a block selection.")
;;; `+modeline-encoding' ;;; `+modeline-encoding'
(def-modeline-var! +modeline-encoding (def-modeline-var! +modeline-encoding
'(:eval `(:eval
(concat (coding-system-eol-type-mnemonic buffer-file-coding-system) (let ((sys (coding-system-plist buffer-file-coding-system))
" " (eol (coding-system-eol-type-mnemonic buffer-file-coding-system)))
(let ((sys (coding-system-plist buffer-file-coding-system))) (concat (unless (equal eol ,(if IS-WINDOWS "CRLF" "LF"))
(concat " " eol " "))
(if (memq (plist-get sys :category) (if (memq (plist-get sys :category)
'(coding-category-undecided coding-category-utf-8)) '(coding-category-undecided coding-category-utf-8))
"UTF-8" (unless (string-match-p "utf-8" (symbol-name buffer-file-coding-system))
(upcase (symbol-name (plist-get sys :name)))))))) "UTF-8 ")
(concat (upcase (symbol-name (plist-get sys :name)))
" "))))))
;; Clearer mnemonic labels for EOL styles ;; Clearer mnemonic labels for EOL styles
(setq eol-mnemonic-dos "CRLF" (setq eol-mnemonic-dos "CRLF"