procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; * doc/misc/modus-themes.org: Fix merge snafu.

Browse source
This commit is contained in:
Eli Zaretskii 2023-12-09 07:46:45 -05:00
parent 486094126b
commit 93592c6917
1 changed files with 1 additions and 95 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

96
doc/misc/modus-themes.org
View file

@ -3554,101 +3554,7 @@ With those in place, PDFs have a distinct backdrop for their page, while
buffers with major-mode as ~pdf-view-mode~ automatically switches to dark
mode when ~modus-themes-toggle~ is called.
** Decrease mode line height
:properties:
:custom_id: h:03be4438-dae1-4961-9596-60a307c070b5
:end:
#+cindex: Decrease mode line height
By default, the mode line of the Modus themes is set to 1 pixel width
for its =:box= attribute. In contrast, the mode line of stock Emacs is -1
pixel. This small difference is considered necessary for the purposes
of accessibility as our out-of-the-box design has a prominent color
around the mode line (a border) to make its boundaries clear. With a
negative width the border and the text on the mode line can feel a bit
more difficult to read under certain scenaria.
Furthermore, the user option ~modus-themes-mode-line~ ([[#h:27943af6-d950-42d0-bc23-106e43f50a24][Mode line]]) does not
allow for such a negative value because there are many edge cases that
simply make for a counter-intuitive set of possibilities, such as a =0=
value not being acceptable by the underlying face infrastructure, and
negative values greater than =-2= not being particularly usable.
For these reasons, users who wish to decrease the overall height of the
mode line must handle things on their own by implementing the methods
for face customization documented herein.
[[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Basic face customization]].
One such method is to create a function that configures the desired
faces and hook it to ~modus-themes-after-load-theme-hook~ so that it
persists while switching between the Modus themes with the command
~modus-themes-toggle~.
This one simply disables the box altogether, which will reduce the
height of the mode lines, but also remove their border:
#+begin_src emacs-lisp
(defun my-modus-themes-custom-faces ()
(set-face-attribute 'mode-line nil :box nil)
(set-face-attribute 'mode-line-inactive nil :box nil))
(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces)
#+end_src
The above relies on the ~set-face-attribute~ function, though users who
plan to reuse colors from the theme and do so at scale are better off
with the more streamlined combination of the ~modus-themes-with-colors~
macro and ~custom-set-faces~.
[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face customization at scale]].
As explained before in this document, this approach has a syntax that is
consistent with the source code of the themes, so it probably is easier
to reuse parts of the design.
The following emulates the stock Emacs style, while still using the
colors of the Modus themes (whichever attribute is not explicitly stated
is inherited from the underlying theme):
#+begin_src emacs-lisp
(defun my-modus-themes-custom-faces ()
(modus-themes-with-colors
(custom-set-faces
`(mode-line ((,class :box (:line-width -1 :style released-button))))
`(mode-line-inactive ((,class :box (:line-width -1 :color ,bg-region)))))))
(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces)
#+end_src
And this one is like the out-of-the-box style of the Modus themes, but
with the -1 height instead of 1:
#+begin_src emacs-lisp
(defun my-modus-themes-custom-faces ()
(modus-themes-with-colors
(custom-set-faces
`(mode-line ((,class :box (:line-width -1 :color ,fg-alt))))
`(mode-line-inactive ((,class :box (:line-width -1 :color ,bg-region)))))))
(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces)
#+end_src
Finally, to also change the background color of the active mode line,
such as that it looks like the "accented" variant which is possible via
the user option ~modus-themes-mode-line~, the =:background= attribute needs
to be specified as well:
#+begin_src emacs-lisp
(defun my-modus-themes-custom-faces ()
(modus-themes-with-colors
(custom-set-faces
`(mode-line ((,class :box (:line-width -1 :color ,fg-alt) :background ,bg-active-accent)))
`(mode-line-inactive ((,class :box (:line-width -1 :color ,bg-region)))))))
(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces)
#+end_src
** Toggle themes without reloading them
:properties:
:custom_id: h:b40aca50-a3b2-4c43-be58-2c26fcd14237
:end: