marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Disable mode-line by default and use old styling again

Browse source
This commit is contained in:
Marcus Kammer 2025-02-25 16:37:00 +01:00
parent f79e264417
commit 9445957700
1 changed files with 26 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
init.el
View file

@ -181,41 +181,45 @@
(defvar-local mk/mode-line-format (defvar-local mk/mode-line-format
'("%e" mode-line-front-space "%Z" " " "%b %*%n %I %l:%c %p" (vc-mode vc-mode) " " mode-line-modes mode-line-misc-info mode-line-end-spaces)) '("%e" mode-line-front-space "%Z" " " "%b %*%n %I %l:%c %p" (vc-mode vc-mode) " " mode-line-modes mode-line-misc-info mode-line-end-spaces))
(setq-default mode-line-format mk/mode-line-format) (add-hook 'after-init-hook
(lambda ()
(unless (memq 'hs-headline mk/mode-line-format)
(setq mk/mode-line-format
(append '("-" hs-headline) mk/mode-line-format)))))
(add-hook 'after-init-hook (add-hook 'after-init-hook
(lambda () (lambda ()
(unless (memq 'hs-headline mode-line-format) (setq-default mode-line-format nil)))
(setq mode-line-format
(append '("-" hs-headline) mode-line-format)))))
(defun mk/toggle-mode-line () (defun mk/toggle-mode-line ()
(interactive) (interactive)
(if (eql mode-line-format nil) (if (eq mode-line-format nil)
(setq mode-line-format mk/mode-line-format) (setq mode-line-format mk/mode-line-format)
(setq mode-line-format nil))) (setq mode-line-format nil))
(force-mode-line-update t))
(keymap-global-set "<f9>" 'mk/toggle-mode-line) (keymap-global-set "<f9>" 'mk/toggle-mode-line)
(set-face-attribute 'mode-line nil
:box '(:line-width (1 . 8) :style flat-button))
(set-face-attribute 'mode-line-inactive nil
:box '(:line-width (1 . 8) :style flat-button))
;; (set-face-attribute 'mode-line nil ;; (set-face-attribute 'mode-line nil
;; :slant 'italic ;; :box '(:line-width (1 . 8) :style flat-button))
;; :weight 'bold ;; (set-face-attribute 'mode-line-inactive nil
;; :background (face-attribute 'default :background)
;; :foreground
;; (cond ((member 'doom-one custom-enabled-themes) "#5B6268")
;; ((member 'doom-nord custom-enabled-themes) "#9099AB")
;; (t (face-attribute 'mode-line-inactive :foreground)))
;; :box '(:line-width (1 . 8) :style flat-button)) ;; :box '(:line-width (1 . 8) :style flat-button))
;; (set-face-attribute 'mode-line-inactive nil (set-face-attribute 'mode-line nil
;; :inherit 'mode-line :slant 'italic
;; :weight 'normal :weight 'bold
;; :box '(:line-width (1 . 8) :style flat-button)) :background (face-attribute 'default :background)
:foreground
(cond ((member 'doom-one custom-enabled-themes) "#5B6268")
((member 'doom-nord custom-enabled-themes) "#9099AB")
(t (face-attribute 'mode-line-inactive :foreground)))
:box '(:line-width (1 . 8) :style flat-button))
(set-face-attribute 'mode-line-inactive nil
:inherit 'mode-line
:weight 'normal
:background (face-attribute 'default :background)
:box '(:line-width (1 . 8) :style flat-button))
(use-package tab-bar (use-package tab-bar
:bind (("C-M-[" . tab-bar-switch-to-prev-tab) :bind (("C-M-[" . tab-bar-switch-to-prev-tab)