[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] org-collector.el: Add support for formulas appending
From: |
Slava Barinov |
Subject: |
[O] [PATCH] org-collector.el: Add support for formulas appending |
Date: |
Sun, 17 Mar 2019 13:22:58 +0300 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux) |
* 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
- [O] [PATCH] org-collector.el: Add support for formulas appending,
Slava Barinov <=