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))