Set Emacs default font to Monocraft

This commit is contained in:
lulusilly 2025-09-13 17:06:41 -04:00
parent c240541123
commit f6a91a76b7
2 changed files with 28 additions and 12 deletions

View file

@ -1,3 +1,19 @@
;; Setting default Emacs window dimensions
(push '(tool-bar-lines . 0) default-frame-alist)
(push '(width . 75) default-frame-alist)
(push '(height . 30) default-frame-alist)
;; Setting default font
(set-frame-font
(cond
((member "Monocraft" (font-family-list)) "Monocraft")
((member "Miracode" (font-family-list)) "Miracode")
((member "Cascadia Mono-16" (font-family-list)) "Cascadia Mono")
(t nil)
)
t t
)
;; Set default tab width (in spaces)
(setq-default tab-width 2)
;; Store customizations in a separate file
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
;; Load it if the file exists
@ -36,7 +52,7 @@
(cond
;; If using Windows
((eq system-type 'windows-nt)
(setq default-directory (format "C:\\Users\\%s\\Documents" (getenv "USERNAME"))))
(setq default-directory (format "C:\\Users\\%s\\Documents" (user-login-name))))
;; If using GNU/Linux
((eq system-type 'gnu/linux)
(setq default-directory (format "/home/%s" (user-login-name))))
@ -82,4 +98,4 @@
(defalias 'yes-or-no-p 'y-or-n-p)
(column-number-mode 1)
(setq make-backup-files nil)
(setq global-visual-line-mode t)
(setq global-visual-line-mode t)