From: Mark Edgington <edgimar@gmail.com>
To: emacs-orgmode <emacs-orgmode@gnu.org>
Subject: [PATCH] org-collector: enable specifying a default table-value as a parameter
Date: Tue, 12 Nov 2013 22:02:12 -0500 [thread overview]
Message-ID: <5282EBB4.8010108@gmail.com> (raw)
Currently there isn't an easy way to have default cell values which
differ from one propview block to another. This patch enables one to
specify what a cell's default value for a block should be. For example,
with this patch applied, you can do something like:
#+BEGIN: propview :id " mytable" :defaultval "" :cols (PROP1 PROP2
PROP3)
in order to make the default value for this block to be "" instead of 0.
* contrib/lisp/org-collector.el (org-dblock-write:propview): if a
'defaultval'
property has been set, then use this in place of
org-propview-default-value.
TINYCHANGE
---
contrib/lisp/org-collector.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/contrib/lisp/org-collector.el b/contrib/lisp/org-collector.el
index 60b9069..d62a462 100644
--- a/contrib/lisp/org-collector.el
+++ b/contrib/lisp/org-collector.el
@@ -121,6 +121,7 @@ preceeding the dblock, then update the contents of
the dblock."
(scope (plist-get params :scope))
(noquote (plist-get params :noquote))
(colnames (plist-get params :colnames))
+ (defaultval (plist-get params :defaultval))
(content-lines (org-split-string (plist-get params
:content) "\n"))
id table line pos)
(save-excursion
@@ -133,9 +134,10 @@ preceeding the dblock, then update the contents of
the dblock."
(t (error "Cannot find entry with :ID: %s" id))))
(unless (eq id 'global) (org-narrow-to-subtree))
(setq stringformat (if noquote "%s" "%S"))
- (setq table (org-propview-to-table
- (org-propview-collect cols stringformat conds
match scope inherit
- (if colnames colnames
cols)) stringformat))
+ (let ((org-propview-default-value (if defaultval defaultval
org-propview-default-value)))
+ (setq table (org-propview-to-table
+ (org-propview-collect cols stringformat conds
match scope inherit
+ (if colnames colnames
cols)) stringformat)))
(widen))
(setq pos (point))
(when content-lines
next reply other threads:[~2013-11-13 3:02 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-11-13 3:02 Mark Edgington [this message]
2013-11-13 8:58 ` [PATCH] org-collector: enable specifying a default table-value as a parameter Bastien
-- strict thread matches above, loose matches on Subject: below --
2013-11-13 12:32 Mark Edgington
2013-11-13 12:51 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=5282EBB4.8010108@gmail.com \
--to=edgimar@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).