[elpa] scratch/add-vdiff 2e7f076 141/258: Simplify bitmap creation

[Justin Burkett]

branch: scratch/add-vdiff
commit 2e7f0766ad53d8196fa15f6c91959ad0e2e868be
Author: justbur <address@hidden>
Commit: justbur <address@hidden>

    Simplify bitmap creation
---
 vdiff.el | 32 +++++++++++---------------------
 1 file changed, 11 insertions(+), 21 deletions(-)

diff --git a/vdiff.el b/vdiff.el
index aa2ccef..f888074 100644
--- a/vdiff.el
+++ b/vdiff.el
@@ -587,28 +587,18 @@ of a \"word\"."
 
 ;; * Add overlays
 
-(defvar vdiff--insertion-arrow-bits
-  (cl-map
-   #'vector
-   (lambda (line)
-     (let ((ex (length line)))
-       (cl-reduce
-        (lambda (acc el)
-          (+ acc (* el (expt 2 (cl-decf ex)))))
-        line
-        :initial-value 0)))
-   '((0 0 1 1 1 1 1 1)
-     (0 0 0 1 1 1 1 1)
-     (0 0 0 0 1 1 1 1)
-     (0 0 0 1 1 1 1 1)
-     (0 0 1 1 1 0 1 1)
-     (0 1 1 1 0 0 0 1)
-     (1 1 1 0 0 0 0 0)
-     (1 1 0 0 0 0 0 0)
-     (1 0 0 0 1 1 1 1))))
-
 (define-fringe-bitmap
-  'vdiff--insertion-arrow vdiff--insertion-arrow-bits nil 8 'top)
+  'vdiff--insertion-arrow
+  [#b00111111
+   #b00011111
+   #b00001111
+   #b00011111
+   #b00111011
+   #b01110001
+   #b11100000
+   #b11000000
+   #b10001111]
+  nil 8 'top)
 
 (defun vdiff--make-subtraction-string (n-lines)
   (let* ((width (1- (vdiff--min-window-width)))