awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

setq -> setq-default (whoops); improve modeline config

Browse Source
This commit is contained in:
Henrik Lissner
2016-10-05 12:51:56 +02:00
parent 823dc07dc9
commit 62d220d863
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/core-modeline.el
View File

@ -401,9 +401,10 @@ lines are selected, or the NxM dimensions of a block selection."
" " " "
,(if (eq id 'scratch) ,(if (eq id 'scratch)
'(*buffer-project) '(*buffer-project)
'(*buffer-info)) (if (eq id 'media)
,(if (eq id 'media) '(*media-info)
'(*media-info) '(*buffer-info)))
,(unless (eq id 'media)
'(list " %l:%c %p " '(list " %l:%c %p "
(*selection-info) (*selection-info)
(*flycheck))))) (*flycheck)))))
@ -416,7 +417,7 @@ lines are selected, or the NxM dimensions of a block selection."
,(+ 1 (string-width (format-mode-line rhs))))))))) ,(+ 1 (string-width (format-mode-line rhs)))))))))
(list lhs mid rhs)))) (list lhs mid rhs))))
(setq mode-line-format (doom-modeline)) (setq-default mode-line-format (doom-modeline))
(add-hook! image-mode (add-hook! image-mode
(setq mode-line-format (doom-modeline 'media))) (setq mode-line-format (doom-modeline 'media)))