From 2c3afe1196211f486513d71c197a9e556d7ed366 Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremy.dormitzer@gmail.com>
Date: Fri, 21 Feb 2020 23:32:27 -0500
Subject: [PATCH] Use Monaco font for StumpWM

---
 stumpwm/.stumpwm.d/init.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index b72c7d7..394d9e3 100644
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@@ -76,8 +76,9 @@
 ;; UI
 (ql:quickload "clx-truetype")
 (load-module "ttf-fonts")
+(xft:cache-fonts)
 (set-font
- (make-instance 'xft:font :family "Triplicate T4c" :subfamily "Regular" :size 12))
+ (make-instance 'xft:font :family "Monaco" :subfamily "Regular" :size 12))
 (set '*message-window-padding* 4)
 
 ;; Notifications via Dunst