diff options
author | Pedro <pedro@cas.cat> | 2024-02-01 19:06:59 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@gnu.org> | 2024-02-01 19:08:18 +0100 |
commit | e11f0399b629524d3f6d62bf9788fdfe2fec2556 (patch) | |
tree | 2239752017c14a83da263a56a83cfa9a4596fe3c /lisp | |
parent | 9066205ff9fef487d833a37290693d29e44c4872 (diff) |
lisp/org-collector.el: Proper read of org inactive ts in props
* lisp/org-collector.el (org-propview-collect): Inhibit lisp
evaluation when properties with inactive timestamps value are
processed using lisp functions in the :cols argument.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/org-collector.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/org-collector.el b/lisp/org-collector.el index ce3a937..76ba7fb 100644 --- a/lisp/org-collector.el +++ b/lisp/org-collector.el @@ -187,7 +187,8 @@ variables and values specified in props" (header-props (mapcar (lambda (props) (mapcar (lambda (pair) - (let ((inhibit-lisp-eval (string= (car pair) "ITEM"))) + (let ((inhibit-lisp-eval (or (string= (car pair) "ITEM") + (string-match-p org-ts-regexp-inactive (cdr pair))))) (cons (car pair) (org-babel-read (cdr pair) inhibit-lisp-eval)))) props)) header-props))) @@ -202,9 +203,9 @@ variables and values specified in props" 'hline) ;; ------------------------------------------------ (mapcar ;; calculate the value of the column for each header (lambda (props) (mapcar (lambda (col) - (let ((result (org-propview-eval-w-props props col))) - (if result result org-propview-default-value))) - cols)) + (let ((result (org-propview-eval-w-props props col))) + (if result result org-propview-default-value))) + cols)) (if conds ;; eliminate the headers which don't satisfy the property (delq nil |