mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Attempt to fix fonts too big on windows

Browse Source
This commit is contained in:
MitchMarq42 2022-10-04 17:55:09 -08:00
parent d10ed050d8
commit 9f6e20b190
2 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/mitch-defuns.el
View File

@ -71,7 +71,18 @@ console."
(setq use-dialog-box nil) (setq use-dialog-box nil)
;; Pixel scrolling. Only in emacs 29+... ;; Pixel scrolling. Only in emacs 29+...
(if (>= (string-to-number emacs-version) 29) (if (>= (string-to-number emacs-version) 29)
(pixel-scroll-precision-mode t))) (pixel-scroll-precision-mode t)
(pixel-scroll-mode t))
;; Size of text. お前 わ 毛 しんでる.
(if (eq system-type 'gnu/linux)
(progn
(set-face-attribute 'fixed-pitch nil :height 130)
(set-face-attribute 'default nil :height 130)
(set-face-attribute 'variable-pitch nil :height 140))
(progn
(set-face-attribute 'fixed-pitch nil :height 100)
(set-face-attribute 'default nil :height 100)
(set-face-attribute 'variable-pitch nil :height 110))))
(defun toggle-ja-input () (defun toggle-ja-input ()
"Switch between english and japanese. Broken." "Switch between english and japanese. Broken."

7
lisp/mitch-theme.el
View File

@ -38,14 +38,11 @@
;; sane font stuff ;; sane font stuff
(set-face-attribute 'fixed-pitch nil (set-face-attribute 'fixed-pitch nil
:family "MesloLGS NF" :family "MesloLGS NF")
:height 130)
(set-face-attribute 'default nil (set-face-attribute 'default nil
:family "MesloLGS NF" :family "MesloLGS NF")
:height 130)
(set-face-attribute 'variable-pitch nil (set-face-attribute 'variable-pitch nil
:inherit 'default :inherit 'default
:height 140
:family "Sans Serif") :family "Sans Serif")
(setq rainbow-delimiters-max-face-count 2) (setq rainbow-delimiters-max-face-count 2)