* contrib/lisp/org-collector.el (org-dblock-write:propview): add
:tblfm keyword parameter support
This adds possiblity to append formula line to table which is useful
in certain cases, especially during updates and recalculation of whole
table.
Signed-off-by: Slava Barinov <raysl...@gmail.com>
---
contrib/lisp/org-collector.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/contrib/lisp/org-collector.el b/contrib/lisp/org-collector.el
index 833ecbf51..5270ede6d 100644
--- a/contrib/lisp/org-collector.el
+++ b/contrib/lisp/org-collector.el
@@ -122,6 +122,7 @@ preceeding the dblock, then update the contents of the
dblock."
(noquote (plist-get params :noquote))
(colnames (plist-get params :colnames))
(defaultval (plist-get params :defaultval))
+ (tblfm (plist-get params :tblfm))
(content-lines (org-split-string (plist-get params :content) "\n"))
id table line pos)
(save-excursion
@@ -148,6 +149,8 @@ preceeding the dblock, then update the contents of the
dblock."
(while (setq line (pop content-lines))
(when (string-match "^#" line)
(insert "\n" line)))
+ (when tblfm
+ (insert "\n#+TBLFM: " tblfm))
(goto-char pos)
(org-table-recalculate 'all))
(org-collector-error (widen) (error "%s" er))
--
2.21.0
