diff options
author | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-25 18:38:30 +0000 |
---|---|---|
committer | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-25 18:38:30 +0000 |
commit | 82c746559bed1c7d12d46945e74d68c2b4650501 (patch) | |
tree | 5f1361706457eed8115be11e20bc115c7d4b5cfb /emacs | |
parent | 877cfdfa9312d783076155d71fdc5c7d081758d1 (diff) | |
download | dotfiles-82c746559bed1c7d12d46945e74d68c2b4650501.tar.gz dotfiles-82c746559bed1c7d12d46945e74d68c2b4650501.zip |
Fix to whitespace in modeline
Diffstat (limited to 'emacs')
-rw-r--r-- | emacs/loader.org | 16 |
1 files changed, 7 insertions, 9 deletions
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 |