emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [PATCH] Adding features to contrib/lisp/org-collector.el (propview)
@ 2011-10-28  9:33 Jonathan BISSON
  2011-10-28 14:32 ` Bastien
  2011-10-28 14:37 ` Eric Schulte
  0 siblings, 2 replies; 6+ messages in thread
From: Jonathan BISSON @ 2011-10-28  9:33 UTC (permalink / raw)
  To: emacs-orgmode

[-- Attachment #1: Type: text/plain, Size: 1468 bytes --]

Hi there,


I did a small patch for org-collector.

Here are the changes :
- Adding a :colnames property, allowing to give the column names
(instead of displaying the function used to populate the table)
- Adding a :noquote property, allowing to remove the double quotes
around strings

I hope some of you would find it useful.

121a122,123
> 	    (noquote (plist-get params :noquote))
> 	    (colnames (plist-get params :colnames))
132a135
> 	  (setq stringformat (if noquote "%s" "%S"))
134c137,138
< 		       (org-propview-collect cols conds match scope inherit)))
---
> 		       (org-propview-collect cols stringformat conds match scope
inherit
> 					     (if colnames colnames cols)) stringformat))
170c174
< (defun org-propview-collect (cols &optional conds match scope inherit)
---
> (defun org-propview-collect (cols stringformat &optional conds match
scope inherit colnames)
194,195c198,199
<       (mapcar (lambda (el) (format "%S" el)) cols) ;; output headers
<       'hline) ;; ------------------------------------------------
---
>       (if colnames colnames (mapcar (lambda (el) (format stringformat
el)) cols))
>        'hline) ;; ------------------------------------------------
214c218
< (defun org-propview-to-table (results)
---
> (defun org-propview-to-table (results stringformat)
221c225
< 	(mapcar (lambda (el) (format "%S" el)) row)))
---
> 	(mapcar (lambda (el) (format stringformat el)) row)))


[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 230 bytes --]

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2011-10-28 17:01 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-10-28  9:33 [PATCH] Adding features to contrib/lisp/org-collector.el (propview) Jonathan BISSON
2011-10-28 14:32 ` Bastien
2011-10-28 14:41   ` Jonathan BISSON
2011-10-28 14:56     ` Bastien
2011-10-28 17:01       ` Eric Schulte
2011-10-28 14:37 ` Eric Schulte

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).