branch: externals/org-modern
commit c266bdf934f6450e20c2797e2851c820e15be55e
Author: TEC <t...@tecosaur.com>
Commit: Daniel Mendler <m...@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-+\\)"
