From 83e481418c18d52adcb9e25dbb9d2f4c7cfb8e16 Mon Sep 17 00:00:00 2001
From: Erik Osheim <d_m@plastic-idolatry.com>
Date: Thu, 4 Aug 2022 22:19:52 -0400
Subject: [PATCH] support cleanse settings

---
 init.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/init.el b/init.el
index 04aeaed..33f2c1c 100644
--- a/init.el
+++ b/init.el
@@ -70,6 +70,9 @@
 (set-language-environment "UTF-8")
 (set-default-coding-systems 'utf-8)
 
+(defvar use-pragmata)
+(setq use-pragmata (not (equal (system-name) "cleanse")))
+
 ;; UI settings when not in a terminal
 (when (display-graphic-p)
   (setq mac-option-key-is-meta nil
@@ -77,13 +80,15 @@
         mac-command-modifier 'meta
         mac-option-modifier nil
         x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
-  (set-frame-font "PragmataPro Liga 24" nil t)
+  (if use-pragmata
+    (set-frame-font "PragmataPro Liga 24" nil t)
+    (set-frame-font "Iosevka 24" nil t))
   (set-foreground-color "#c7c7c7")
   (set-background-color "#000000"))
 
 ;; set up font ligatures
 (use-package pragmatapro-lig
-  :if window-system
+  :if (and window-system use-pragmata)
   :straight (pragmatapro-lig :type git
                              :host github
                              :repo "lumiknit/emacs-pragmatapro-ligatures")