On 10/28/2011 04:32 PM, Bastien wrote: > Hi Jonathan, > > Jonathan BISSON <bissonjonat...@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,
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)))
signature.asc
Description: OpenPGP digital signature