From 0b431b5228d4b939391dda7619df6b986926a117 Mon Sep 17 00:00:00 2001 From: Gergely Polonkai Date: Thu, 20 Apr 2017 15:48:04 +0200 Subject: [PATCH] Update the header line a bit more Moved some elements from the mode line to the header line. Now only design remains. --- init.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 62d76ef..07cec61 100644 --- a/init.el +++ b/init.el @@ -283,19 +283,30 @@ (sml/setup) (setq-default header-line-format '("" - mode-line-front-space + mode-line-mule-info mode-line-client mode-line-modified mode-line-remote mode-line-frame-identification mode-line-buffer-identification + sml/pos-id-separator (vc-mode vc-mode) mode-line-position)) (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-buffer-identification 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