[nongnu] elpa/dslide a4ddb10c77 4/5: hide line and wrap prefix of hidden elements

[ELPA Syncer]

branch: elpa/dslide
commit a4ddb10c7747d845c9b7b27024189177cbe083b9
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>

    hide line and wrap prefix of hidden elements
---
 NEWS.org  | 1 +
 dslide.el | 9 +++++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/NEWS.org b/NEWS.org
index 5c4111f39f..001e4e3645 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -40,6 +40,7 @@ Data can be added to elements in different ways.  Regular 
keywords can act as th
 Fixing bugs and filling some gaps in new features
 ** Fixed 💩
 - Develop window configuration was not cleaned up, resulting in improper 
window configuration "restoration"
+- Line prefixes, such as those used by org modern to draw pretty source 
blocks, will be hidden by the markup hiding overlays.
 * v0.6.0 Fighting Spam 💌
 - There is less markup (especially for babel)
 - Old actions are easier to use
diff --git a/dslide.el b/dslide.el
index 0bd2af4899..f8625c32ad 100644
--- a/dslide.el
+++ b/dslide.el
@@ -2502,8 +2502,13 @@ keeping its height and width for filling in other 
content."
   (let ((ov (make-overlay beg end)))
     (if keep-fill
         (let ((background (face-attribute 'default :background)))
-          (overlay-put ov 'face `(:foreground ,background :background 
,background)))
-      (overlay-put ov 'display ""))
+          (overlay-put ov 'face `(:foreground ,background :background
+                                              ,background)))
+      ;; Before you try invisible t yet again, figure out if there's an
+      ;; off-by-one issue that can be avoided with child headlines
+      (overlay-put ov 'display "")
+      (overlay-put ov 'line-prefix "")
+      (overlay-put ov 'wrap-prefix ""))
     ov))
 
 (defun dslide-hide-element (element &optional keep-fill)