Skip to content

Instantly share code, notes, and snippets.

@4d47

4d47/minimal-emacs-mode-line.el

Last active May 9, 2016 21:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save 4d47/9bdcdd621519944240c470fd49894ba9 to your computer and use it in GitHub Desktop.
Save 4d47/9bdcdd621519944240c470fd49894ba9 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
minimal-emacs-mode-line.el
(setq-default
mode-line-format '("%e %b ܃ "
(:eval
(if (use-region-p)
(if (eq (point) (region-beginning))
(format "%%l … %d" (line-number-at-pos (region-end)))
(format "%d … %%l" (line-number-at-pos (region-beginning))))
"%l"))
(:eval
;; TODO: on click `set-buffer-file-coding-system'
(if (not (member buffer-file-coding-system
'(utf-8 utf-8-unix)))
(symbol-name buffer-file-coding-system)))
mode-line-misc-info))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment