From 3091c93ca34f1387290e0338e388a0c8adfe334e Mon Sep 17 00:00:00 2001 From: Jonathan Schuster Date: Fri, 10 Apr 2015 15:25:14 -0400 Subject: [PATCH 1/4] Replace cl-copy-list with copy-sequence --- solarized-definitions.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/solarized-definitions.el b/solarized-definitions.el index 840d9c0..693a621 100644 --- a/solarized-definitions.el +++ b/solarized-definitions.el @@ -1,8 +1,7 @@ (eval-when-compile (unless (require 'cl-lib nil t) (require 'cl) - (defalias 'cl-case 'case) - (defalias 'cl-copy-list 'copy-list)) + (defalias 'cl-case 'case)) ) (defconst solarized-description @@ -93,7 +92,7 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further." (defun solarized-face-for-index (facespec index &optional light) "Creates a face from facespec where the colors use the names from `solarized-colors`." - (let ((new-fontspec (cl-copy-list facespec))) + (let ((new-fontspec (copy-sequence facespec))) (dolist (property '(:foreground :background :color)) (let ((color-name (plist-get new-fontspec property))) (when color-name From 0b363f4ba6c8a5ebb40d6cdeff934c7f12ece558 Mon Sep 17 00:00:00 2001 From: Anders Johansson Date: Thu, 16 Apr 2015 22:24:18 +0200 Subject: [PATCH 2/4] Add faces for hydra Hydra package is available at: https://github.com/abo-abo/hydra --- solarized-definitions.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/solarized-definitions.el b/solarized-definitions.el index 693a621..d194348 100644 --- a/solarized-definitions.el +++ b/solarized-definitions.el @@ -733,7 +733,13 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further." (company-scrollbar-bg (,@bg-base02)) (company-preview (,@bg-green)) (company-preview-common (,@bg-base02)) - (company-template-field (,@fg-base03 ,@bg-yellow))))))) + (company-template-field (,@fg-base03 ,@bg-yellow)) + ;; hydra + (hydra-face-red (,@fmt-bold ,@fg-red)) + (hydra-face-blue (,@fmt-bold ,@fg-blue)) + (hydra-face-amaranth (,@fmt-bold ,@fg-orange)) + (hydra-face-pink (,@fmt-bold ,@fg-magenta)) + (hydra-face-teal (,@fmt-bold ,@fg-cyan))))))) ;;;###autoload (when (boundp 'custom-theme-load-path) From 7903ed8964eea65c94e7ce352c7b6f56e09aaa5c Mon Sep 17 00:00:00 2001 From: Anders Johansson Date: Mon, 20 Apr 2015 15:48:51 +0200 Subject: [PATCH 3/4] Add faces for guide-key Guide-key package available at: https://github.com/kai2nenobu/guide-key --- solarized-definitions.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/solarized-definitions.el b/solarized-definitions.el index d194348..c75f601 100644 --- a/solarized-definitions.el +++ b/solarized-definitions.el @@ -739,7 +739,11 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further." (hydra-face-blue (,@fmt-bold ,@fg-blue)) (hydra-face-amaranth (,@fmt-bold ,@fg-orange)) (hydra-face-pink (,@fmt-bold ,@fg-magenta)) - (hydra-face-teal (,@fmt-bold ,@fg-cyan))))))) + (hydra-face-teal (,@fmt-bold ,@fg-cyan)) + ;; guide-key + (guide-key/prefix-command-face (,@fg-blue)) + (guide-key/highlight-command-face (,@fg-orange)) + (guide-key/key-face (,@fg-green))))))) ;;;###autoload (when (boundp 'custom-theme-load-path) From bec76eeffdcf8e338c37ece00aa7d6b6e9013d52 Mon Sep 17 00:00:00 2001 From: Greg Pfeil Date: Sat, 25 Apr 2015 19:44:56 -0600 Subject: [PATCH 4/4] Update after-make-frame-functions hook. --- README.md | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index 400e11e..aef0126 100644 --- a/README.md +++ b/README.md @@ -53,9 +53,9 @@ This allows you to have a mix of light and dark frames. I tend to use light fram ```common-lisp (add-hook 'after-make-frame-functions (lambda (frame) - (set-frame-parameter frame - 'background-mode - (if (display-graphic-p frame) 'light 'dark)) + (let ((mode (if (display-graphic-p frame) 'light 'dark))) + (set-frame-parameter frame 'background-mode mode) + (set-terminal-parameter frame 'background-mode mode)) (enable-theme 'solarized))) ```