Re: [PATCH] Adding features to contrib/lisp/org-collector.el (propview)

[Jonathan BISSON <bissonjonathan@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 349 bytes --]

On 10/28/2011 04:32 PM, Bastien wrote:
> Hi Jonathan,
> 
> Jonathan BISSON <bissonjonathan@gmail.com> writes:
> 
>> I did a small patch for org-collector.
> 
> Thanks for this -- can you resend the patch by attaching 
> it, instead of inserting it in the body of the email?  It 
> is not readable here.
> 
> Thanks!
> 

Here it is,


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: bjonnh.patch --]
[-- Type: text/x-patch; name="bjonnh.patch", Size: 1122 bytes --]

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 --]