[elpa] externals/org-modern c266bdf934 1/6: Seperate block fringes into own customisation

[ELPA Syncer]

branch: externals/org-modern
commit c266bdf934f6450e20c2797e2851c820e15be55e
Author: TEC <tec@tecosaur.com>
Commit: Daniel Mendler <mail@daniel-mendler.de>

     Seperate block fringes into own customisation
---
 org-modern.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index de28061e98..5138302347 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -166,6 +166,10 @@ and faces in the cdr. Example:
   "Prettify blocks, wrapped by #+begin and #+end keywords."
   :type 'boolean)
 
+(defcustom org-modern-block-fringe t
+  "Add a bitmap fringe to blocks."
+  :type 'boolean)
+
 (defcustom org-modern-keyword t
   "Prettify keywords like #+title.
 If set to t, the prefix #+ will be hidden.
@@ -573,10 +577,11 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
                      org-modern-horizontal-rule)))))
       (when org-modern-table
         '(("^[ \t]*\\(|.*|\\)[ \t]*$" (0 (org-modern--table)))))
-      (when org-modern-block
+      (when org-modern-block-fringe
         '(("^[ \t]*#\\+\\(?:begin\\|BEGIN\\)_\\S-"
-           (0 (org-modern--block-fringe)))
-          ("^\\([ \t]*#\\+\\(?:begin\\|BEGIN\\)_\\)\\(\\S-+\\)"
+           (0 (org-modern--block-fringe)))))
+      (when org-modern-block
+        '(("^\\([ \t]*#\\+\\(?:begin\\|BEGIN\\)_\\)\\(\\S-+\\)"
            (1 '(face nil display (space :width (3))))
            (2 'org-modern-block-keyword append))
           ("^\\([ \t]*#\\+\\(?:end\\|END\\)_\\)\\(\\S-+\\)"