[PATCH] lisp/org-collector.el: Add support for TBLFM

[PATCH] lisp/org-collector.el: Add support for TBLFM

[Slava Barinov]

The :tblfm keyword adds formulas to the end of table so they are applied right
after collection is done and the table is generated.

* lisp/org-collector.el (org-dblock-write:propview): Add support for the
:tblfm keyword.
---
 lisp/org-collector.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lisp/org-collector.el b/lisp/org-collector.el
index b645d3a..69f4e0f 100644
--- a/lisp/org-collector.el
+++ b/lisp/org-collector.el
@@ -122,6 +122,7 @@ preceding 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 idpos stringformat)
 	(save-excursion
@@ -148,6 +149,15 @@ preceding the dblock, then update the contents of the dblock."
 	(while (setq line (pop content-lines))
 	  (when (string-match "^#" line)
 	    (insert "\n" line)))
+	(when tblfm
+	  (save-excursion
+            (goto-char (point-min))
+            (when (re-search-forward "^#\\+TBLFM:" nil t)
+              (setq tblfm-pos (match-beginning 0))
+              (delete-region tblfm-pos (line-end-position))))
+	  (unless (looking-back "\n" 1)
+            (insert "\n"))
+	  (insert (concat "#+TBLFM:" tblfm)))
 	(goto-char pos)
 	(org-table-recalculate 'all))
     (org-collector-error (widen) (error "%s" er))
-- 
2.47.1