From 96d7d3cb633a9ad36c8dd9bb03e6cdcf10d6e542 Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Mon, 7 Feb 2022 10:43:04 +0000 Subject: [PATCH] chore(font): improve font setting logic with list of preferred fonts --- core/siren-core-macos.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/core/siren-core-macos.el b/core/siren-core-macos.el index 2d8c965..a87a63c 100644 --- a/core/siren-core-macos.el +++ b/core/siren-core-macos.el @@ -21,10 +21,17 @@ ;; When running in GUI mode. (when window-system - ;; Set default font - (let* ((primary "Menlo Nerd Font Mono") - (fallback "Menlo") - (family (if (member primary (font-family-list)) primary fallback))) + ;; Set default font based on priority list + (let* ((families '("Menlo Nerd Font Mono" + "Menlo for Powerline" + "Menlo" + "Monaco Nerd Font Mono" + "Monaco for Powerline" + "Monaco")) + (family (catch 'found + (dolist (f families) + (if (member f (font-family-list)) + (throw 'found f)))))) (set-face-attribute 'default nil :family family :height 120)) ;; Fix the default default-directory value.