From 04dcfb48ea743ad5cc20c7decba0906a76f4a4d1 Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Sat, 11 Feb 2023 15:57:02 +0100 Subject: appearance: move font configuration --- lisp/init-appearance.el | 11 +++++++++++ lisp/init-mac.el | 12 ------------ 2 files changed, 11 insertions(+), 12 deletions(-) (limited to 'lisp') diff --git a/lisp/init-appearance.el b/lisp/init-appearance.el index bf65a49..d1b3551 100644 --- a/lisp/init-appearance.el +++ b/lisp/init-appearance.el @@ -2,6 +2,17 @@ ;;; Commentary: ;;; Code: +(defvar mpolden/font-family "Iosevka" "Set the default font.") + +(defvar mpolden/font-size 14 "Set the default font size in points.") + +;; set font +(let ((font-family mpolden/font-family)) + (when (and (display-graphic-p) (member font-family (font-family-list))) + (set-face-attribute 'default nil + :family font-family + :height (* 10 mpolden/font-size)))) + ;; disable splash (setq inhibit-startup-message t) diff --git a/lisp/init-mac.el b/lisp/init-mac.el index 5873e95..bf1848b 100644 --- a/lisp/init-mac.el +++ b/lisp/init-mac.el @@ -2,18 +2,6 @@ ;;; Commentary: ;;; Code: -(defvar mpolden/font-family "Iosevka" "Set the default font.") - -(defvar mpolden/font-size 14 "Set the default font size in points.") - -;; set font -(let ((font-family mpolden/font-family)) - (when (and (display-graphic-p) (member font-family (font-family-list))) - (set-face-attribute 'default nil - :family font-family - :height (* 10 mpolden/font-size)))) - - ;; use command as meta (setq mac-command-modifier 'meta) -- cgit v1.2.3