branch: elpa/pacmacs
commit aed285378088fb6c29c968fa786b965d9447362f
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
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))
