From 66162fab27e9b0adbe25b799c8fbb0fb0fdab546 Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Sat, 25 Nov 2023 11:29:10 -0500
Subject: [PATCH] add function to change my font size

---
 lisp/appearance.el | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/lisp/appearance.el b/lisp/appearance.el
index 9223b2d..112a8d0 100644
--- a/lisp/appearance.el
+++ b/lisp/appearance.el
@@ -2,11 +2,17 @@
 (setq frame-title-format "emacs")
 
 ;; Font
-(setq my-font (font-spec
-                :name "Fira Code"
-                :size 14
-                :weight 'normal
-                :width 'normal))
+(setq my-font-size 14)
+(defun set-my-font-size (font-size)
+  (interactive (list (read-number "size: " my-font-size)))
+  (setq my-font-size font-size)
+  (setq my-font (font-spec
+                 :name "Fira Code"
+                 :size font-size
+                 :weight 'normal
+                 :width 'normal))
+  (set-frame-font my-font nil t))
+(set-my-font-size my-font-size)
 (ignore-errors (set-frame-font my-font nil t))
 (add-to-list 'after-make-frame-functions
              (lambda (frame)
-- 
2.38.4