diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2011-01-08 14:03:29 -0700 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2011-01-08 14:04:33 -0700 |
| commit | 33a32227957b2594e765af36cd8f612aeaccb851 (patch) | |
| tree | d4cc595ee67992fcaffc9c7a187009f90e5ab508 | |
| parent | 8674006516c6d4654b8f3e2bb182789a38076f3b (diff) | |
| download | org-mode-33a32227957b2594e765af36cd8f612aeaccb851.tar.gz | |
org-collector: adding :inherit keyword for inherited properties
* contrib/lisp/org-collector.el (org-propview-get-with-inherited): New
function for inheriting explicitly mentioned properties.
(org-propview-collect): Accepts explicitly mentioned properties to
inherit.
| -rw-r--r-- | contrib/lisp/org-collector.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/contrib/lisp/org-collector.el b/contrib/lisp/org-collector.el index d84c3ee..a271678 100644 --- a/contrib/lisp/org-collector.el +++ b/contrib/lisp/org-collector.el @@ -115,6 +115,7 @@ preceeding the dblock, then update the contents of the dblock." (interactive) (condition-case er (let ((cols (plist-get params :cols)) + (inherit (plist-get params :inherit)) (conds (plist-get params :conds)) (match (plist-get params :match)) (scope (plist-get params :scope)) @@ -129,7 +130,7 @@ preceeding the dblock, then update the contents of the dblock." (goto-char idpos)) (t (error "Cannot find entry with :ID: %s" id)))) (org-narrow-to-subtree) - (setq table (org-propview-to-table (org-propview-collect cols conds match scope))) + (setq table (org-propview-to-table (org-propview-collect cols conds match scope inherit))) (widen)) (setq pos (point)) (when content-lines @@ -155,13 +156,19 @@ variables and values specified in props" ,body)) (error nil))) -(defun org-propview-collect (cols &optional conds match scope) +(defun org-propview-get-with-inherited (&optional inherit) + (append + (org-entry-properties) + (mapcar (lambda (i) (cons i (org-entry-get nil i 'do-inherit))) inherit)) + (org-entry-properties)) + +(defun org-propview-collect (cols &optional conds match scope inherit) (interactive) ;; collect the properties from every header (let* ((header-props - (let ((org-trust-scanner-tags t)) + (let ((org-trust-scanner-tags t) alst) (org-map-entries (quote (cons (cons "ITEM" (org-get-heading t)) - (org-entry-properties))) + (org-propview-get-with-inherited inherit))) match scope))) ;; read property values (header-props (mapcar (lambda (props) |