|
@@ -1110,16 +1110,7 @@ as a canonical duration, i.e., using units defined in
|
|
"Apply FUN to time values TIMES.
|
|
"Apply FUN to time values TIMES.
|
|
Return the result as a duration."
|
|
Return the result as a duration."
|
|
(org-duration-from-minutes
|
|
(org-duration-from-minutes
|
|
- (apply fun
|
|
|
|
- (mapcar (lambda (time)
|
|
|
|
- ;; Unlike to `org-duration-to-minutes' standard
|
|
|
|
- ;; behavior, we want to consider plain numbers as
|
|
|
|
- ;; hours. As a consequence, we treat them
|
|
|
|
- ;; differently.
|
|
|
|
- (if (string-match-p "\\`[0-9]+\\(?:\\.[0-9]*\\)?\\'" time)
|
|
|
|
- (* 60 (string-to-number time))
|
|
|
|
- (org-duration-to-minutes time)))
|
|
|
|
- times))
|
|
|
|
|
|
+ (apply fun (mapcar #'org-duration-to-minutes times))
|
|
(org-duration-h:mm-only-p times)))
|
|
(org-duration-h:mm-only-p times)))
|
|
|
|
|
|
(defun org-columns--compute-spec (spec &optional update)
|
|
(defun org-columns--compute-spec (spec &optional update)
|