Browse Source

org-collector: fixed indentation to fit within 80 columns

Eric Schulte 9 years ago
parent
commit
57b21c86ff
1 changed files with 25 additions and 16 deletions
  1. 25 16
      contrib/lisp/org-collector.el

+ 25 - 16
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)))))