[nongnu] elpa/pacmacs f7f962303b 371/472: Use background for start gradient color (#138)

[ELPA Syncer]

branch: elpa/pacmacs
commit f7f962303be4ef4449014dc33bc5913088bfd092
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Use background for start gradient color (#138)
---
 pacmacs-image.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/pacmacs-image.el b/pacmacs-image.el
index 63a7c8ef8a..6902004084 100644
--- a/pacmacs-image.el
+++ b/pacmacs-image.el
@@ -37,8 +37,7 @@
 
 (require 'pacmacs-vector)
 
-(defconst pacmacs--wall-gradient-color-start "#181818")
-(defconst pacmacs--wall-gradient-color-stop "#5555ff")
+(defconst pacmacs--wall-color "#5555ff")
 
 (defvar pacmacs--wall-blocks
   (make-hash-table))
@@ -219,8 +218,8 @@
                (let* ((wall-block (make-vector width nil))
                       (weight 10)
                       (palette (pacmacs--color-hex-gradient
-                                pacmacs--wall-gradient-color-start
-                                pacmacs--wall-gradient-color-stop
+                                (face-attribute 'default :background)
+                                pacmacs--wall-color
                                 weight)))
 
                  (dotimes (i width)