created a mode-line init module and new mode-line format

master
John Turner 2 years ago
parent 9bcb1a65eb
commit d418b37cc6
No known key found for this signature in database
GPG Key ID: 422FE10CC41A94A2

@ -12,7 +12,6 @@
tab-width 4) tab-width 4)
(setq-default display-fill-column-indicator-column 120 (setq-default display-fill-column-indicator-column 120
mode-line-format (list "%b (%m)")
indent-tabs-mode nil) indent-tabs-mode nil)
(when (file-exists-p (file-name-concat custom-theme-directory "custom-wombat-theme.el")) (when (file-exists-p (file-name-concat custom-theme-directory "custom-wombat-theme.el"))
@ -36,6 +35,7 @@
(add-to-list 'load-path (file-name-concat config-directory "ibuffer")) (add-to-list 'load-path (file-name-concat config-directory "ibuffer"))
(add-to-list 'load-path (file-name-concat config-directory "keys")) (add-to-list 'load-path (file-name-concat config-directory "keys"))
(add-to-list 'load-path (file-name-concat config-directory "man")) (add-to-list 'load-path (file-name-concat config-directory "man"))
(add-to-list 'load-path (file-name-concat config-directory "mode-line"))
(add-to-list 'load-path (file-name-concat config-directory "lsp-mode")) (add-to-list 'load-path (file-name-concat config-directory "lsp-mode"))
(add-to-list 'load-path (file-name-concat config-directory "native-comp")) (add-to-list 'load-path (file-name-concat config-directory "native-comp"))
(add-to-list 'load-path (file-name-concat config-directory "package")) (add-to-list 'load-path (file-name-concat config-directory "package"))
@ -59,6 +59,7 @@
(require 'init-ibuffer) (require 'init-ibuffer)
(require 'init-keys) (require 'init-keys)
(require 'init-man) (require 'init-man)
(require 'init-mode-line)
(require 'init-package) (require 'init-package)
(require 'init-project) (require 'init-project)
(require 'init-recentf) (require 'init-recentf)

@ -0,0 +1,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)
Loading…
Cancel
Save