diff options
| author | bard <[email protected]> | 2024-03-07 07:15:04 -0500 |
|---|---|---|
| committer | bard <[email protected]> | 2024-03-07 07:15:04 -0500 |
| commit | 1edfe7eca24f830551ce5d68816669cbdc0ae2ba (patch) | |
| tree | 5f6504b7be2b02634e6892beb754cda1e41d47ad /bard-emacs-modules | |
| parent | 1faa5b382c6527b01543b3a7f3dd9c4df9017b2f (diff) | |
right align misc information
Diffstat (limited to 'bard-emacs-modules')
| -rw-r--r-- | bard-emacs-modules/bard-emacs-modeline.el | 44 |
1 files changed, 23 insertions, 21 deletions
diff --git a/bard-emacs-modules/bard-emacs-modeline.el b/bard-emacs-modules/bard-emacs-modeline.el index acec052..9327d87 100644 --- a/bard-emacs-modules/bard-emacs-modeline.el +++ b/bard-emacs-modules/bard-emacs-modeline.el @@ -32,26 +32,26 @@ ;; Face customization -(defun bard/modus-light-faces () - (modus-themes-with-colors - (custom-set-faces - `(mode-line ((t :background ,bg-ochre :foreground ,fg-main :box (:line-width 6 :color ,bg-ochre :style nil))))) - (custom-set-faces - `(mode-line-inactive ((t :background ,bg-mode-line-inactive :foreground ,fg-dim :box (:line-width 6 :color ,bg-mode-line-inactive :style nil))))))) - -(defun bard/modus-dark-faces () - (modus-themes-with-colors - (custom-set-faces - `(mode-line ((t :background ,bg-magenta-subtle :foreground ,fg-main :box (:line-width 6 :color ,bg-magenta-subtle :style nil))))) - (custom-set-faces - `(mode-line-inactive ((t :background ,bg-mode-line-inactive :foreground ,fg-dim :box (:line-width 6 :color ,bg-mode-line-inactive :style nil))))))) - -(defun bard/modus-themes-faces () - (if (or (memq 'modus-operandi custom-enabled-themes) - (memq 'modus-operandi-tinted custom-enabled-themes)) - (bard/modus-light-faces) - (bard/modus-dark-faces) - )) +;; (defun bard/modus-light-faces () +;; (modus-themes-with-colors +;; (custom-set-faces +;; `(mode-line ((t :background ,bg-ochre :foreground ,fg-main :box (:line-width 6 :color ,bg-ochre :style nil))))) +;; (custom-set-faces +;; `(mode-line-inactive ((t :background ,bg-mode-line-inactive :foreground ,fg-dim :box (:line-width 6 :color ,bg-mode-line-inactive :style nil))))))) + +;; (defun bard/modus-dark-faces () +;; (modus-themes-with-colors +;; (custom-set-faces +;; `(mode-line ((t :background ,bg-magenta-subtle :foreground ,fg-main :box (:line-width 6 :color ,bg-magenta-subtle :style nil))))) +;; (custom-set-faces +;; `(mode-line-inactive ((t :background ,bg-mode-line-inactive :foreground ,fg-dim :box (:line-width 6 :color ,bg-mode-line-inactive :style nil))))))) + +;; (defun bard/modus-themes-faces () +;; (if (or (memq 'modus-operandi custom-enabled-themes) +;; (memq 'modus-operandi-tinted custom-enabled-themes)) +;; (bard/modus-light-faces) +;; (bard/modus-dark-faces) +;; )) ;; (modus-themes-with-colors ;; (custom-set-faces @@ -59,10 +59,11 @@ ;; (custom-set-faces ;; `(mode-line-inactive ((t :background ,bg-purple-nuanced :foreground ,fg-dim :box (:line-width 3 :color ,purple-faint)))))) -(add-hook 'modus-themes-after-load-theme-hook #'bard/modus-themes-faces) +;; (add-hook 'modus-themes-after-load-theme-hook #'bard/modus-themes-faces) ;;; Mode line (setq mode-line-compact nil) ; Emacs 28 +(setq mode-line-right-align-edge 'right-margin) (setq-default mode-line-format '("%e" prot-modeline-narrow @@ -79,6 +80,7 @@ " " prot-modeline-flymake " " + prot-modeline-align-right prot-modeline-misc-info)) (with-eval-after-load 'spacious-padding |