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: Wed, 13 Nov 2013 07:32:01 -0500 [thread overview]
Message-ID: <52837141.70801@gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 621 bytes --]
Hi Bastien,
Sorry about the formatting -- that's annoying. I've attached the patch.
Here's its description:
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)
in order to make the default value for this block to be "" instead of 0
in the case that PROP1 or PROP2 isn't contained as a property of a headline.
Regards,
Mark
[-- Attachment #2: org-collector-enable-default-table-value.patch --]
[-- Type: text/x-patch, Size: 1556 bytes --]
* 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 12:32 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-11-13 12:32 Mark Edgington [this message]
2013-11-13 12:51 ` [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 3:02 Mark Edgington
2013-11-13 8:58 ` 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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=52837141.70801@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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.