kyle
/
emacsd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adjusting default font size selection

This commit is contained in:
Kyle Isom 2025-04-11 10:52:50 -07:00
parent eddc04b224
commit dcad820bad
2 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ensure.el
View File

@ -2,7 +2,7 @@
(unless (package-installed-p package) (unless (package-installed-p package)
(package-install package))) (package-install package)))
(unless (file-directory-p "/home/kyle/.emacs.d/elpa/archives/melpa") (unless (file-directory-p (cache-path "packages"))
(package-refresh-contents)) (package-refresh-contents))
(let ((initial-package-list (let ((initial-package-list

22
init.el
View File

@ -2,7 +2,7 @@
;;; (global-font-lock-mode 0) ;;; (global-font-lock-mode 0)
(require 'cl-lib) (require 'cl-lib)
(setq debug-on-error t) ;; (setq debug-on-error t)
(defun localize-path (path) (defun localize-path (path)
"If the path is relative, place it in the user's home directory." "If the path is relative, place it in the user's home directory."
@ -274,10 +274,24 @@ p :publishing-directory "/ssh:phobos.wntrmute.net:/var/www/sites/tmp/"
))) )))
(defvar *default-font* "Brass Mono") (defvar *default-font* "Brass Mono")
(defvar *acceptable-font-sizes '(13 14 15 16 18))
(defun get-default-font () (defun get-default-font ()
(let ((font-size (gethash (system-name) (let* ((select-minimum-equal (lambda (x lst)
*host-font-size* (let ((selected (car lst)))
14))) (dolist (val (cdr lst))
(when (<= val x)
(setf selected val)))
selected)))
(scaled-screen-area
(/ (apply #'* (list
(display-pixel-width)
(display-pixel-height)))
100000))
(font-size (gethash (system-name)
*host-font-size*
(funcall select-minimum-equal scaled-screen-area
*acceptable-font-sizes))))
(format "%s %d" *default-font* font-size))) (format "%s %d" *default-font* font-size)))
(when (window-system) (when (window-system)