summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-01-08 14:06:36 -0700
committerEric Schulte <schulte.eric@gmail.com>2011-01-08 14:06:36 -0700
commit57b21c86ff0edaa96eead9a42a3ac123bf009fd6 (patch)
tree95c60aa5d5aeafd130d562bea60092e75f09751d
parent33a32227957b2594e765af36cd8f612aeaccb851 (diff)
downloadorg-mode-57b21c86ff0edaa96eead9a42a3ac123bf009fd6.tar.gz
org-collector: fixed indentation to fit within 80 columns
-rw-r--r--contrib/lisp/org-collector.el41
1 files changed, 25 insertions, 16 deletions
diff --git a/contrib/lisp/org-collector.el b/contrib/lisp/org-collector.el
index a271678..7cac36a 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)))))