[emacs] don't set a theme if not running in a graphical env

1 files changed, 54 insertions, 56 deletions

diff --git a/emacs/inits/01-basic.el b/emacs/inits/01-basic.el
index 65dd445..343ac68 100644
--- a/emacs/inits/01-basic.el
+++ b/emacs/inits/01-basic.el
@@ -1,4 +1,4 @@
-;; Time-stamp: <2026-03-22 19h15 GMT (11978fd4)>
+;; Time-stamp: <2026-03-27 12h10 GMT (anker)>
 
 ;; -----------------------------------------------------------------------------
 ;; Interface
@@ -33,61 +33,59 @@
                                 (split-window-horizontally)
                                 (enlarge-to-fill)))
 
-(if (display-graphic-p)
-    (progn
-      (add-to-list 'custom-theme-load-path "~/.config/emacs/themes/")
-
-      ;; listen for theme changes
-      (defconst dark-theme 'dracula)
-      (defconst light-theme 'acme)
-
-      (defun my-switch-to-light ()
-        (disable-theme dark-theme)
-        (load-theme light-theme t))
-
-      (defun my-switch-to-dark ()
-        (disable-theme light-theme)
-        (load-theme dark-theme t))
-
-      (require 'dbus)
-      (pcase (caar (dbus-ignore-errors
-                     (dbus-call-method
-                      :session
-                      "org.freedesktop.portal.Desktop"
-                      "/org/freedesktop/portal/desktop"
-                      "org.freedesktop.portal.Settings" "Read"
-                      "org.freedesktop.appearance" "color-scheme")))
-        (1 (my-switch-to-dark))
-        (2 (my-switch-to-light)))
-
-      (dbus-register-signal
-       :session
-       "org.freedesktop.portal.Desktop"
-       "/org/freedesktop/portal/desktop"
-       "org.freedesktop.portal.Settings"
-       "SettingChanged"
-       (lambda (path var val)
-         (when (and (string= path "org.freedesktop.appearance")
-                    (string= var "color-scheme"))
-           (pcase (car val)
-             (1 (my-switch-to-dark))
-             (2 (my-switch-to-light))))))
-
-      ;; fonts
-      (progn
-        (setq my-font "Commit Mono-14")
-        (setq my-font "Berkeley Mono-14")
-        (setq my-font "Monaspace Krypton-14")
-        (setq my-font "Sudo-14")
-        (setq my-font "Iosevka Term Slab-14")
-        (setq my-font "PxPlus IBM VGA 9x16-14")
-        (setq my-font "Myna-14")
-        (setq my-font "BQN386 Unicode DZ-14")
-        ;; (setq line-spacing 4)
-        (set-frame-font my-font)
-        (set-face-attribute 'font-lock-comment-face nil :slant 'italic))
-      )
-  (load-theme 'challenger-deep t))
+(when (display-graphic-p)
+  (add-to-list 'custom-theme-load-path "~/.config/emacs/themes/")
+
+  ;; listen for theme changes
+  (defconst dark-theme 'dracula)
+  (defconst light-theme 'acme)
+
+  (defun my-switch-to-light ()
+    (disable-theme dark-theme)
+    (load-theme light-theme t))
+
+  (defun my-switch-to-dark ()
+    (disable-theme light-theme)
+    (load-theme dark-theme t))
+
+  (require 'dbus)
+  (pcase (caar (dbus-ignore-errors
+                 (dbus-call-method
+                  :session
+                  "org.freedesktop.portal.Desktop"
+                  "/org/freedesktop/portal/desktop"
+                  "org.freedesktop.portal.Settings" "Read"
+                  "org.freedesktop.appearance" "color-scheme")))
+    (1 (my-switch-to-dark))
+    (2 (my-switch-to-light)))
+
+  (dbus-register-signal
+   :session
+   "org.freedesktop.portal.Desktop"
+   "/org/freedesktop/portal/desktop"
+   "org.freedesktop.portal.Settings"
+   "SettingChanged"
+   (lambda (path var val)
+     (when (and (string= path "org.freedesktop.appearance")
+                (string= var "color-scheme"))
+       (pcase (car val)
+         (1 (my-switch-to-dark))
+         (2 (my-switch-to-light))))))
+
+  ;; fonts
+  (progn
+    (setq my-font "Commit Mono-14")
+    (setq my-font "Berkeley Mono-14")
+    (setq my-font "Monaspace Krypton-14")
+    (setq my-font "Sudo-14")
+    (setq my-font "Iosevka Term Slab-14")
+    (setq my-font "PxPlus IBM VGA 9x16-14")
+    (setq my-font "Myna-14")
+    (setq my-font "BQN386 Unicode DZ-12")
+    ;; (setq line-spacing 4)
+    (set-frame-font my-font)
+    (set-face-attribute 'font-lock-comment-face nil :slant 'italic))
+  )
 
 (setq-default line-spacing nil)