diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-01-08 14:06:36 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-01-08 14:06:36 -0700 |
commit | 57b21c86ff0edaa96eead9a42a3ac123bf009fd6 (patch) | |
tree | 95c60aa5d5aeafd130d562bea60092e75f09751d /contrib | |
parent | 33a32227957b2594e765af36cd8f612aeaccb851 (diff) |
org-collector: fixed indentation to fit within 80 columns
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/lisp/org-collector.el | 41 |
1 files changed, 25 insertions, 16 deletions
diff --git a/contrib/lisp/org-collector.el b/contrib/lisp/org-collector.el index a271678a7..7cac36aba 100644 --- a/contrib/lisp/org-collector.el +++ b/contrib/lisp/org-collector.el @@ -130,7 +130,8 @@ 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 inherit))) + (setq table (org-propview-to-table + (org-propview-collect cols conds match scope inherit))) (widen)) (setq pos (point)) (when content-lines @@ -167,33 +168,41 @@ variables and values specified in props" ;; collect the properties from every header (let* ((header-props (let ((org-trust-scanner-tags t) alst) - (org-map-entries (quote (cons (cons "ITEM" (org-get-heading t)) - (org-propview-get-with-inherited inherit))) - match scope))) + (org-map-entries + (quote (cons (cons "ITEM" (org-get-heading t)) + (org-propview-get-with-inherited inherit))) + match scope))) ;; read property values - (header-props (mapcar (lambda (props) - (mapcar (lambda (pair) (cons (car pair) (org-babel-read (cdr pair)))) - props)) - header-props)) + (header-props + (mapcar (lambda (props) + (mapcar (lambda (pair) + (cons (car pair) (org-babel-read (cdr pair)))) + props)) + header-props)) ;; collect all property names - (prop-names (mapcar 'intern (delete-dups - (apply 'append (mapcar (lambda (header) - (mapcar 'car header)) - header-props)))))) + (prop-names + (mapcar 'intern (delete-dups + (apply 'append (mapcar (lambda (header) + (mapcar 'car header)) + header-props)))))) (append (list (mapcar (lambda (el) (format "%S" el)) cols) ;; output headers 'hline) ;; ------------------------------------------------ (mapcar ;; calculate the value of the column for each header - (lambda (props) (mapcar (lambda (col) (let ((result (org-propview-eval-w-props props col))) - (if result result org-propview-default-value))) - cols)) + (lambda (props) (mapcar (lambda (col) + (let ((result (org-propview-eval-w-props props col))) + (if result result org-propview-default-value))) + cols)) (if conds ;; eliminate the headers which don't satisfy the property (delq nil (mapcar (lambda (props) - (if (and-rest (mapcar (lambda (col) (org-propview-eval-w-props props col)) conds)) + (if (and-rest (mapcar + (lambda (col) + (org-propview-eval-w-props props col)) + conds)) props)) header-props)) header-props))))) |