[elpa] externals/org-modern 010eade723: org-modern-block-fringe: Customizable offset from the window edge (Fix #107)

[ELPA Syncer]

branch: externals/org-modern
commit 010eade723881ca234a12bd94b791e2000cd2a15
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    org-modern-block-fringe: Customizable offset from the window edge (Fix #107)
---
 org-modern.el | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 6038f736f4..692e81e336 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -157,9 +157,12 @@ all other blocks."
                         (string :tag "#+end_NAME replacement"))
                   (const :tag "Hide #+begin_ and #+end_ prefixes" t)))))
 
-(defcustom org-modern-block-fringe t
-  "Add a bitmap fringe to blocks."
-  :type 'boolean)
+(defcustom org-modern-block-fringe 0
+  "Add a border to the blocks in the fringe.
+This variable can also be set to an integer between 0 and 16,
+which specifies the offset of the block border from the edge of
+the window."
+  :type '(choice boolean integer))
 
 (defcustom org-modern-keyword t
   "Prettify keywords like #+title.
@@ -564,13 +567,16 @@ the font.")
              (fboundp 'fringe-bitmap-p)
              (not (fringe-bitmap-p 'org-modern--block-inner)))
     (let* ((g (ceiling (frame-char-height) 1.8))
-           (h (- (default-line-height) g)))
+           (h (- (default-line-height) g))
+           (v (expt 2 (- 15 (if (booleanp org-modern-block-fringe) 0
+                              org-modern-block-fringe))))
+           (w (+ v v -1)))
       (define-fringe-bitmap 'org-modern--block-inner
-        [128] nil nil '(top t))
+        (vector v) nil 16 '(top t))
       (define-fringe-bitmap 'org-modern--block-begin
-        (vconcat (make-vector g 0) [#xFF] (make-vector (- 127 g) #x80)) nil 
nil 'top)
+        (vconcat (make-vector g 0) (vector w) (make-vector (- 127 g) v)) nil 
16 'top)
       (define-fringe-bitmap 'org-modern--block-end
-        (vconcat (make-vector (- 127 h) #x80) [#xFF] (make-vector h 0)) nil 
nil 'bottom))))
+        (vconcat (make-vector (- 127 h) v) (vector w) (make-vector h 0)) nil 
16 'bottom))))
 
 (defun org-modern--symbol (str)
   "Add `org-modern-symbol' face to STR."