org-clock: Fix percent formula column in clock table

* lisp/org-clock.el (org-clocktable-write-default): Fix percent
  formula column in clock table.
This commit is contained in:
Yasushi SHOJI 2017-03-19 10:55:44 +01:00 committed by Nicolas Goaziou
parent b72920344f
commit d2835ab54d
1 changed files with 1 additions and 0 deletions

View File

@ -2622,6 +2622,7 @@ from the dynamic block definition."
;; Empty fields for higher levels.
(make-string (max 0 (1- (min time-columns level))) ?|)
hlc (org-minutes-to-clocksum-string time) hlc "|" ; time
(make-string (max 0 (- time-columns level)) ?|)
(if (eq formula '%)
(format "%.1f |" (* 100 (/ time (float total-time))))
"")