[nongnu] elpa/pacmacs aed2853780 373/472: Move wall weight to the constants (#138)

[ELPA Syncer]

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

    Move wall weight to the constants (#138)
---
 pacmacs-image.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/pacmacs-image.el b/pacmacs-image.el
index 6902004084..5ea8c17ba3 100644
--- a/pacmacs-image.el
+++ b/pacmacs-image.el
@@ -38,6 +38,7 @@
 (require 'pacmacs-vector)
 
 (defconst pacmacs--wall-color "#5555ff")
+(defconst pacmacs--wall-weight 10)
 
 (defvar pacmacs--wall-blocks
   (make-hash-table))
@@ -216,18 +217,17 @@
         cached-tile
       (puthash cache-index
                (let* ((wall-block (make-vector width nil))
-                      (weight 10)
                       (palette (pacmacs--color-hex-gradient
                                 (face-attribute 'default :background)
                                 pacmacs--wall-color
-                                weight)))
+                                pacmacs--wall-weight)))
 
                  (dotimes (i width)
                    (aset wall-block i (make-vector height nil)))
 
-                 (pacmacs--put-inner-corners wall-block width height weight 
wall-bits)
-                 (pacmacs--put-bars wall-block width height weight wall-bits)
-                 (pacmacs--put-outer-corners wall-block width height weight 
wall-bits)
+                 (pacmacs--put-inner-corners wall-block width height 
pacmacs--wall-weight wall-bits)
+                 (pacmacs--put-bars wall-block width height 
pacmacs--wall-weight wall-bits)
+                 (pacmacs--put-outer-corners wall-block width height 
pacmacs--wall-weight wall-bits)
 
                  (create-image (pacmacs--bits-to-xpm wall-block width height 
palette)
                                'xpm t))