[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] Adding features to contrib/lisp/org-collector.el (propview)
From: |
Jonathan BISSON |
Subject: |
[O] [PATCH] Adding features to contrib/lisp/org-collector.el (propview) |
Date: |
Fri, 28 Oct 2011 11:33:14 +0200 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:7.0.1) Gecko/20111001 Thunderbird/7.0.1 |
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)))
signature.asc
Description: OpenPGP digital signature