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

[Eric Schulte]

Hi Jonathan,

This does sound useful.  Unfortunately your email client seems to have
mangled the patch, could you resend with the patch attached rather than
pasted inline?

Thanks -- Eric

Jonathan BISSON <address@hidden> writes:

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

-- 
Eric Schulte
http://cs.unm.edu/~eschulte/