emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/dslide e31cb7fc09 2/3: Support mapping over all element ty


From: ELPA Syncer
Subject: [nongnu] elpa/dslide e31cb7fc09 2/3: Support mapping over all element types
Date: Thu, 21 Nov 2024 06:59:41 -0500 (EST)

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

    Support mapping over all element types
    
    Helps actions that might apply to any element in the entire restriction
---
 dslide.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/dslide.el b/dslide.el
index 9c05fab2ae..814155cb3f 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1270,10 +1270,7 @@ for `dslide-contents-map'.")
 
 (cl-defmethod dslide-begin ((obj dslide-action-propertize))
   (dslide-section-map
-   obj '(paragraph src-block headline plain-list
-                   quote-block special-block
-                   table)
-   ;; TODO see `org-element-all-elements' and make this more comprehensive
+   obj t
    (lambda (e)
      (message "Element found: %s" (car e))
      (when-let ((props (org-element-property
@@ -2207,7 +2204,9 @@ its height and width for filling in other content."
   "Map FUN over the contents of the ELEMENT matching TYPE.
 INFO, FIRST-MATCH, and NO-RECURSION are described in
 `org-element-map'."
-  (let ((type (if (listp type) type (list type))))
+  (let ((type (if (or (listp type) (eq t type))
+                  type
+                (list type))))
     (save-excursion
       (save-restriction
         (narrow-to-region (org-element-property :begin element)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]