init/mode-line/init-mode-line.el


1
2
3
4
5
6
7
8
9
10
11

(setq-default mode-line-format '("%*"
                                 " "
                                 (:eval (if buffer-file-name
                                            (abbreviate-file-name buffer-file-name)
                                          (buffer-name)))
                                 " "
                                 "(" mode-name ")"
                                 " "
                                 "[" (:eval (abbreviate-file-name default-directory)) "]"))

(provide 'init-mode-line)