oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reintroduce reset-font-size

Browse Source
This commit is contained in:
Aryadev Chavali
2025-11-16 22:30:30 +00:00
parent 69f82668f1
commit 711cdf555b
1 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Emacs/.config/emacs/config.org
View File

@@ -270,6 +270,27 @@ the PATH variable with the shell to avoid any silly issues.
(when (member window-system '(mac ns x)) (when (member window-system '(mac ns x))
(exec-path-from-shell-initialize))) (exec-path-from-shell-initialize)))
#+end_src #+end_src
** Reset font size
Font size is best left unfixed: depending on the display size and the
machine, I will usually need to adjust it so it looks just right.
This function sets the font size using both those variables. It is
also added to `enable-theme-functions` such that loading a theme will
forcefully adjust the font size.
#+begin_src emacs-lisp
(defvar +oreo/font-size-alist
'((1920 140)
(2560 160)))
(defun +oreo/font-reset (&optional _)
(let ((font-size (or (car (alist-get (display-pixel-width) +oreo/font-size-alist))
(cadar +oreo/font-size-alist))))
(set-face-attribute 'default nil :height font-size)
(set-face-attribute 'mode-line nil :height font-size)))
(add-to-list 'enable-theme-functions #'+oreo/font-reset)
(add-to-list 'after-make-frame-functions #'+oreo/font-reset)
#+end_src
* Essential packages * Essential packages
External and internal packages absolutely necessary for the rest of External and internal packages absolutely necessary for the rest of
this configuration. this configuration.