support cleanse settings

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")