fix use-package dep, interactive font size fn

This commit is contained in:
Erik Osheim 2022-05-13 17:41:49 -04:00
parent 6bd79b588d
commit 0ea4a02c7d
1 changed files with 14 additions and 0 deletions

14
init.el
View File

@ -18,6 +18,9 @@
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
;; set up use-package
(straight-use-package 'use-package)
;; set a bunch of varibles
(setq user-full-name "d_m"
user-mail-address "d_m@plastic-idolatry.com"
@ -72,6 +75,17 @@
:repo "lumiknit/emacs-pragmatapro-ligatures")
:config (add-hook 'prog-mode-hook 'pragmatapro-lig-mode))
;; interactive font size
(defun set-font-size ()
"Set font size interactively."
(interactive)
(let* ((family (face-attribute 'default :family))
(curHeight (face-attribute 'default :height))
(curSize (/ curHeight 10))
(newSize (string-to-number (read-string "Font-size: " (number-to-string curSize))))
(newHeight (* newSize 10)))
(set-face-attribute 'default nil :height newHeight)))
;; ;; use doom themes
;; (use-package doom-themes
;; :straight (doom-themes :type git