From 82c746559bed1c7d12d46945e74d68c2b4650501 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Grave Date: Mon, 25 Feb 2019 18:38:30 +0000 Subject: Fix to whitespace in modeline --- emacs/loader.org | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'emacs') diff --git a/emacs/loader.org b/emacs/loader.org index ec5389a..8dc6789 100644 --- a/emacs/loader.org +++ b/emacs/loader.org @@ -186,15 +186,13 @@ if that is ever a problem. (defun simple-mode-line-render (left middle right) "Return a string of `window-width' length containing LEFT, and RIGHT aligned respectively." (let* ((available-width - (- (window-total-width) - (+ (length (format-mode-line left)) - (length (format-mode-line right))))) - (before-width (- (/ available-width 2) - (/ (length (format-mode-line middle)) 2))) - (after-width (+ (/ available-width 2) - (/ (length (format-mode-line middle)) 2)))) - (append left (list (format (format "%%%ds" before-width) "")) - middle (list (format (format "%%%ds" after-width) "")) + (/ (- (window-total-width) + (+ (length (format-mode-line left)) + (length (format-mode-line right)) + (length (format-mode-line middle)))) + 2))) + (append left (list (format (format "%%%ds" available-width) "")) + middle (list (format (format "%%%ds" available-width) "")) right))) (setq-default mode-line-format -- cgit