Clean up mode line format
This commit is contained in:
parent
1c5d216600
commit
d342a3f9b8
1 changed files with 9 additions and 15 deletions
|
@ -15,7 +15,7 @@
|
|||
(tab-bar-mode 1)))
|
||||
|
||||
;; Cursor and mouse
|
||||
(column-number-mode -1)
|
||||
(column-number-mode 1)
|
||||
(mouse-wheel-mode 1)
|
||||
(blink-cursor-mode -1)
|
||||
|
||||
|
@ -77,17 +77,11 @@
|
|||
|
||||
;; Mode line
|
||||
(setq-default mode-line-format
|
||||
(list "-"
|
||||
; 'system-name
|
||||
; " "
|
||||
'display-time-string
|
||||
"-"
|
||||
"("
|
||||
'(:eval (substring (mode-line-frame-control) 2))
|
||||
"%b "
|
||||
'(line-number-mode "%l ")
|
||||
'(:eval (when-let (vc vc-mode)
|
||||
(list (substring vc 5) "")))
|
||||
")-"
|
||||
'mode-line-modes
|
||||
"%n"))
|
||||
'((""
|
||||
mode-line-frame-control "%b "
|
||||
mode-name
|
||||
vc-mode
|
||||
" "
|
||||
mode-line-position
|
||||
mode-line-misc-info
|
||||
)))
|
||||
|
|
Loading…
Add table
Reference in a new issue