From aa65b19e1fd7676f1691ec60ccf188c7ac6ed2b0 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 2 Nov 2015 21:40:50 -0500 Subject: [PATCH] defvar narf-term-theme --- core/lib/defuns-ui.el | 2 +- init.el | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/core/lib/defuns-ui.el b/core/lib/defuns-ui.el index cebd9a1fe..1fba278ef 100644 --- a/core/lib/defuns-ui.el +++ b/core/lib/defuns-ui.el @@ -28,7 +28,7 @@ ;;;###autoload (defun narf/reset-theme () (interactive) - (load-theme narf-theme t)) + (load-theme (if window-system narf-theme narf-term-theme) t)) ;;;###autoload (defun narf/default-font () diff --git a/init.el b/init.el index db6a18946..4b976f3a3 100644 --- a/init.el +++ b/init.el @@ -41,6 +41,7 @@ ;;; License: GPLv3 (defconst narf-theme 'narf-dark) +(defconst narf-term-theme 'wombat) (defconst narf-default-font (font-spec :family "DejaVu Sans Mono" :size 12)) (defconst narf-big-font (font-spec :family "Ubuntu Mono" :size 18)) @@ -50,7 +51,7 @@ ;; prematurely optimize for faster startup (let (file-name-handler-alist) (load (concat user-emacs-directory "init-load-path.el")) - (load-theme narf-theme t) + (load-theme (if window-system narf-theme narf-term-theme) t) (mapc 'require `(core ; core/core.el