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 <bissonjonat...@gmail.com> 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/
