gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update the header line a bit more

Browse Source 
Moved some elements from the mode line to the header line.  Now only design remains.
This commit is contained in:
Gergely Polonkai 2017-04-20 15:48:04 +02:00
parent 4cbebe800b
commit 0b431b5228
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
init.el
View File

@ -283,19 +283,30 @@
(sml/setup) (sml/setup)
(setq-default header-line-format (setq-default header-line-format
'("" '(""
mode-line-front-space mode-line-mule-info
mode-line-client mode-line-client
mode-line-modified mode-line-modified
mode-line-remote mode-line-remote
mode-line-frame-identification mode-line-frame-identification
mode-line-buffer-identification mode-line-buffer-identification
sml/pos-id-separator
(vc-mode vc-mode) (vc-mode vc-mode)
mode-line-position)) mode-line-position))
(delete '(vc-mode vc-mode) mode-line-format) (delete '(vc-mode vc-mode) mode-line-format)
(delete 'mode-line-front-space mode-line-format)
(delete 'mode-line-frame-identification mode-line-format) (delete 'mode-line-frame-identification mode-line-format)
(delete 'mode-line-buffer-identification mode-line-format) (delete 'mode-line-buffer-identification mode-line-format)
(delete 'mode-line-position mode-line-format) (delete 'mode-line-position mode-line-format)
(delete 'mode-line-mule-info mode-line-format)
(delete 'mode-line-modified mode-line-format)
(delete 'mode-line-client mode-line-format)
(delete 'mode-line-remote mode-line-format)
;; Add sml/pre-id-separator after mode-line-front-space
(let* ((front-space-position (1+ (cl-position 'mode-line-front-space mode-line-format)))
(mode-line-rest (nthcdr front-space-position mode-line-format))
(mode-line-beg (subseq mode-line-format 0 front-space-position)))
(setq-default mode-line-format (nconc mode-line-beg
(list sml/pre-id-separator)
mode-line-rest)))
) )
(use-package company (use-package company