diff options
| -rw-r--r-- | modeline.el | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/modeline.el b/modeline.el index 6def3e3..b93b833 100644 --- a/modeline.el +++ b/modeline.el @@ -21,14 +21,40 @@ ;;;###autoload (defun modeline-format-dashboard () "The mode line format for the dashboard." + (let* ((left (modeline-dashboard-format-left)) + (right (modeline-dashboard-format-right)) + (left-len (length left)) + (right-len (length right)) + (middle (propertize " " 'display + (make-string + (max (- (window-total-width) + left-len + right-len) + 0) + 32)))) + (concat left middle right))) + +;;;###autoload +(defun modeline-dashboard-format-left () + "The left / main part of the mode line for the dashboard." (concat - ;; (modeline-format-bar) (modeline-spc) (modeline-format-directory) (modeline-spc) (modeline-format-minor-modes))) ;;;###autoload +(defun modeline-dashboard-format-right () + "The right part of the mode line for the dashboard." + (declare (side-effect-free t) (pure t)) + (let ((face (cond ((modeline-active-window-p) 'doom-modeline-buffer-major-mode) + ('mode-line-inactive)))) + (concat + (modeline-propertize + (format-mode-line global-mode-string face)) + (modeline-spc)))) + +;;;###autoload (defun modeline-format-left () "The left mode line format." (concat |