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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(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)) "]"
                                 " "
                                 "(" (:eval (if server-process
                                                (process-name server-process)
                                              "none"))
                                 ")"))

(provide 'init-mode-line)