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

@ -6,25 +6,25 @@ print_info() {
info "OS" distro
info "Host" model
# info "Kernel" kernel
info "Kernel" kernel
info "Uptime" uptime
# info "Packages" packages
info "Packages" packages
info "Shell" shell
# info "Resolution" resolution
# info "DE" de
# info "WM" wm
# info "WM Theme" wm_theme
# info "Theme" theme
# info "Icons" icons
info "Resolution" resolution
info "DE" de
info "WM" wm
info "WM Theme" wm_theme
info "Theme" theme
info "Icons" icons
info "Terminal" term
# info "Terminal Font" term_font
info "Terminal Font" term_font
info "CPU" cpu
info "GPU" gpu
info "Memory" memory
# info "GPU Driver" gpu_driver # Linux/macOS only
# info "CPU Usage" cpu_usage
info "Disk" disk
# info "Disk" disk
# info "Battery" battery
# info "Font" font
# info "Song" song

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))))