themes for emacs in term

1 files changed, 9 insertions, 4 deletions

diff --git a/init.org b/init.org
index 76aaf6b..ac1463e 100644
--- a/init.org
+++ b/init.org
@@ -382,14 +382,19 @@
 
       (defvar jao-theme-dark 'jao-dark)
       (defvar jao-theme-light 'jao-light)
+      (defvar jao-theme-term-dark 'modus-vivendi)
+      (defvar jao-theme-term-light 'modus-operandi)
 
       (defun jao-themes-setup ()
-        (let ((dark (jao-colors-scheme-dark-p)))
-          (load-theme (if dark jao-theme-dark jao-theme-light) t)
+        (let* ((dark (jao-colors-scheme-dark-p))
+               (theme (cond ((and dark window-system) jao-theme-dark)
+                            (dark jao-theme-term-dark)
+                            (window-system jao-theme-light)
+                            (t jao-theme-term-light))))
+          (load-theme theme t)
           (modify-all-frames-parameters `((font . ,jao-themes-default-face)))))
 
-      (when (and window-system (not (eq window-system 'pgtk)))
-        (jao-themes-setup))
+      (unless (eq window-system 'pgtk) (jao-themes-setup))
 
       (global-font-lock-mode 1)
     #+end_src