forked from mirrors/org-mode
org-element-inlinetask-parser: Use deferred properties
This commit is contained in:
parent
932c49c7bb
commit
daebeb6446
|
@ -1277,15 +1277,16 @@ Assume point is at beginning of the inline task."
|
||||||
(mapcar #'org-element--get-cached-string
|
(mapcar #'org-element--get-cached-string
|
||||||
(org-split-string (match-string-no-properties 1) ":"))))
|
(org-split-string (match-string-no-properties 1) ":"))))
|
||||||
(title-end (point))
|
(title-end (point))
|
||||||
(raw-value (org-trim
|
(raw-value-deferred
|
||||||
(buffer-substring-no-properties title-start title-end)))
|
(org-element-deferred
|
||||||
(archivedp (member org-element-archive-tag tags))
|
nil #'org-element--headline-raw-value
|
||||||
|
(- title-start begin) (- title-end begin)))
|
||||||
|
(archivedp (if (member org-element-archive-tag tags) t nil))
|
||||||
(task-end (save-excursion
|
(task-end (save-excursion
|
||||||
(end-of-line)
|
(end-of-line)
|
||||||
(and (re-search-forward org-element-headline-re limit t)
|
(and (re-search-forward org-element-headline-re limit t)
|
||||||
(looking-at-p "[ \t]*END[ \t]*$")
|
(looking-at-p "[ \t]*END[ \t]*$")
|
||||||
(line-beginning-position))))
|
(line-beginning-position))))
|
||||||
(standard-props (and task-end (org-element--get-node-properties)))
|
|
||||||
(time-props (and task-end (org-element--get-time-properties)))
|
(time-props (and task-end (org-element--get-time-properties)))
|
||||||
(contents-begin (and task-end
|
(contents-begin (and task-end
|
||||||
(< (point) task-end)
|
(< (point) task-end)
|
||||||
|
@ -1302,7 +1303,7 @@ Assume point is at beginning of the inline task."
|
||||||
(org-element-create
|
(org-element-create
|
||||||
'inlinetask
|
'inlinetask
|
||||||
(nconc
|
(nconc
|
||||||
(list :raw-value raw-value
|
(list :raw-value raw-value-deferred
|
||||||
:begin begin
|
:begin begin
|
||||||
:end end
|
:end end
|
||||||
:pre-blank
|
:pre-blank
|
||||||
|
@ -1321,12 +1322,16 @@ Assume point is at beginning of the inline task."
|
||||||
:commentedp commentedp
|
:commentedp commentedp
|
||||||
:secondary (alist-get
|
:secondary (alist-get
|
||||||
'inlinetask
|
'inlinetask
|
||||||
org-element-secondary-value-alist))
|
org-element-secondary-value-alist)
|
||||||
time-props
|
:deferred
|
||||||
standard-props))))
|
(and task-end
|
||||||
|
(org-element-deferred
|
||||||
|
t #'org-element-headline-parser--deferred))
|
||||||
|
:buffer (current-buffer))
|
||||||
|
time-props))))
|
||||||
(org-element-put-property
|
(org-element-put-property
|
||||||
inlinetask :title
|
inlinetask :title
|
||||||
(if raw-secondary-p raw-value
|
(if raw-secondary-p (org-element-deferred-alias :raw-value)
|
||||||
(org-element--parse-objects
|
(org-element--parse-objects
|
||||||
(progn (goto-char title-start)
|
(progn (goto-char title-start)
|
||||||
(skip-chars-forward " \t")
|
(skip-chars-forward " \t")
|
||||||
|
|
Loading…
Reference in New Issue