Merge branch 'master' into next

This commit is contained in:
Nicolas Goaziou 2018-12-18 09:54:51 +01:00
commit 045cfce67a
1 changed files with 8 additions and 4 deletions

View File

@ -331,7 +331,11 @@ Return nil if no collect function is associated to OPERATOR."
(_ (error "Invalid definition for operator %S" operator)))) (_ (error "Invalid definition for operator %S" operator))))
(defun org-columns--overlay-text (value fmt width property original) (defun org-columns--overlay-text (value fmt width property original)
"Return text " "Return decorated VALUE string for columns overlay display.
FMT is a format string. WIDTH is the width of the column, as an
integer. PROPERTY is the property being displayed, as a string.
ORIGINAL is the real string, i.e., before it is modified by
`org-columns--displayed-value'."
(format fmt (format fmt
(let ((v (org-columns-add-ellipses value width))) (let ((v (org-columns-add-ellipses value width)))
(pcase property (pcase property
@ -1272,17 +1276,17 @@ When PRINTF is non-nil, use it to format the result."
times)) times))
(defun org-columns--summary-min-age (ages _) (defun org-columns--summary-min-age (ages _)
"Compute the minimum time among AGES." "Compute the minimum age among AGES."
(org-columns--format-age (org-columns--format-age
(apply #'min (mapcar #'org-columns--age-to-minutes ages)))) (apply #'min (mapcar #'org-columns--age-to-minutes ages))))
(defun org-columns--summary-max-age (ages _) (defun org-columns--summary-max-age (ages _)
"Compute the maximum time among AGES." "Compute the maximum age among AGES."
(org-columns--format-age (org-columns--format-age
(apply #'max (mapcar #'org-columns--age-to-minutes ages)))) (apply #'max (mapcar #'org-columns--age-to-minutes ages))))
(defun org-columns--summary-mean-age (ages _) (defun org-columns--summary-mean-age (ages _)
"Compute the minimum time among AGES." "Compute the mean age among AGES."
(org-columns--format-age (org-columns--format-age
(/ (apply #'+ (mapcar #'org-columns--age-to-minutes ages)) (/ (apply #'+ (mapcar #'org-columns--age-to-minutes ages))
(float (length ages))))) (float (length ages)))))