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

[Slava Barinov]

* 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 <address@hidden>
---
 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