From 9d9ddb812c3cfb4b97d0bf66512bac32a545a78c Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Mon, 20 Nov 2023 17:38:47 -0800 Subject: trying various monaspace fonts from GitHub See https://monaspace.githubnext.com --- init.org | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/init.org b/init.org index db49018..a10ca03 100644 --- a/init.org +++ b/init.org @@ -678,23 +678,22 @@ Invokes [[https://direnv.net/][direnv]] to obtain environment for the current fi Somehow I need to set the font to a higher height on MacOS. #+BEGIN_SRC emacs-lisp -(defun my/default-font-size() - "Set the size of the font based on the operating system." - (if (memq window-system '(mac ns)) - 150 - 130)) - +;; use various monaspace fonts +;; https://monaspace.githubnext.com (set-face-attribute 'default nil - :family "Source Code Pro" - :height (my/default-font-size)) + :font "Monaspace Neon" + :height 150) (set-face-attribute 'fixed-pitch nil - :family "Source Code Pro" - :height (my/default-font-size)) + :font "Monaspace Neon" + :height 150) (set-face-attribute 'variable-pitch nil - :family "DejaVu Sans" - :height (my/default-font-size)) + :font "Monaspace Radon" + :height 150) + +(custom-set-faces + '(font-lock-comment-face ((t (:font "Monaspace Radon" :italic t :height 1.0))))) #+END_SRC ** fringe -- cgit 1.4.1