aboutsummaryrefslogtreecommitdiffstats
path: root/oni-org/oni-org.el
diff options
context:
space:
mode:
authorGravatar Tom Willemse2023-04-11 20:20:28 -0700
committerGravatar Tom Willemse2023-04-11 20:20:28 -0700
commit1de5e3892cd22f3c2324865753149769afd3b2c3 (patch)
tree7b49ed2b32b0b50f2c66f8be552fa4b563cf72ad /oni-org/oni-org.el
parentf460c3a19fb9477d63c5f7bbda90c7c7c283dcca (diff)
downloademacs-config-1de5e3892cd22f3c2324865753149769afd3b2c3.tar.gz
emacs-config-1de5e3892cd22f3c2324865753149769afd3b2c3.zip
[oni-org] Simplify org element property access
Diffstat (limited to 'oni-org/oni-org.el')
-rw-r--r--oni-org/oni-org.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el
index 7164040..7a95721 100644
--- a/oni-org/oni-org.el
+++ b/oni-org/oni-org.el
@@ -1083,10 +1083,9 @@ placed above TARGET. Otherwise it will be placed below it."
(goto-char (point-min))
(org-forward-heading-same-level 1)
(let* ((element (org-element-at-point-no-context))
- (element-data (when element (cadr element)))
- (element-title (when element-data (map-elt element-data :raw-value)))
- (contents-begin (when element-data (map-elt element-data :contents-begin)))
- (contents-end (when element-data (map-elt element-data :contents-end))))
+ (element-title (org-element-property :raw-value element))
+ (contents-begin (org-element-property :contents-begin element))
+ (contents-end (org-element-property :contents-end element)))
(when contents-begin
(let ((text (buffer-substring-no-properties contents-begin contents-end)))
(delete-region contents-begin contents-end)