[PATCH] org-collector.el: Add support for formulas appending

[Slava Barinov <rayslava@gmail.com>]

* 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 <rayslava@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