diff options
Diffstat (limited to '.config/emacs/modules/bd--modeline.el')
| -rw-r--r-- | .config/emacs/modules/bd--modeline.el | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el index 1c0a4df..1b0f5ee 100644 --- a/.config/emacs/modules/bd--modeline.el +++ b/.config/emacs/modules/bd--modeline.el @@ -1,11 +1,10 @@ -;; -*- lexical-binding: t; -*- +;;; -*- lexical-binding: t; -*- +;;; Commentary: +;;; Note this currently requires many of the previous modules to be loaded +;;; to function properly. +;;; Code: -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Highly customized modeline. Note this currently requires ;; -;; many of the previous modules to be loaded to function properly. ;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - (defun mode-line-fill (reserve) "Return empty space, leaving RESERVE space on the right." (unless reserve @@ -55,6 +54,8 @@ '(:eval (when (mode-line-window-selected-p) mode-line-position))) +;; show column number +(column-number-mode) ;;;; git (defun git-vc-modeline () @@ -80,7 +81,8 @@ (put construct 'risky-local-variable t)) -(setq-default mode-line-format +;; set elements; move modeline to top +(setq-default header-line-format (list mode-line-front-space ;; mode-line-mule-info @@ -92,10 +94,12 @@ mode-line-modified bd/vc-mode-line " " - (mode-line-fill 13) + (mode-line-fill 19) bd/line-position " " bd/time-mode-line)) +(setq-default mode-line-format nil) (provide 'bd--modeline) +;;; bd-modeline ends here |