branch: scratch/add-vdiff
commit 2e7f0766ad53d8196fa15f6c91959ad0e2e868be
Author: justbur <[email protected]>
Commit: justbur <[email protected]>
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)))
