move around what goes where wrt font settings

This commit is contained in:
Miranda Marquez 2024-09-22 16:31:14 -08:00
parent 2c865f828c
commit 8d3a1ee88b

28
init.el
View File

@ -26,19 +26,6 @@ declarations for color schemes."
(setq window-divider-default-places t)
;; (setq right-divider-width 5)
(setq ring-bell-function 'ignore)
(unless (not (display-graphic-p))
(set-face-attribute 'fixed-pitch nil
:family "MesloLGS Nerd Font")
(set-face-attribute 'default nil
:family "MesloLGS Nerd Font")
(set-face-attribute 'variable-pitch nil
:inherit 'default
:family "sans serif"
:height (/ 1.5 1.3))
(add-to-list 'initial-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(cursor-color . "white"))
(add-to-list 'default-frame-alist '(fullscreen . maximized)))
;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4
(let ((display-table (or standard-display-table (make-display-table))))
(set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
@ -65,7 +52,20 @@ console."
(font-height (/ resy 8))) ; gonna be different on diff machines 💀
(set-face-attribute 'fixed-pitch nil :height font-height)
(set-face-attribute 'default nil :height font-height)
(set-face-attribute 'variable-pitch nil :height (+ font-height 10))))
(set-face-attribute 'variable-pitch nil :height (+ font-height 10)))
(unless (not (display-graphic-p))
(set-face-attribute 'fixed-pitch nil
:family "MesloLGS Nerd Font")
(set-face-attribute 'default nil
:family "MesloLGS Nerd Font")
(set-face-attribute 'variable-pitch nil
:inherit 'default
:family "sans serif"
:height (/ 1.5 1.3))
(add-to-list 'initial-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(cursor-color . "white"))
(add-to-list 'default-frame-alist '(fullscreen . maximized))))
(defun turn-off-line-numbers ()
"A tiny wrapper around `display-line-numbers-mode' or `linum'.
For use in hooks."