emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* patch proposal for org-clock-time% with day
@ 2013-11-18 11:33 marco paolo valerio vezzoli
  2013-11-18 14:13 ` marco paolo valerio vezzoli
  2013-11-19  9:31 ` Bastien
  0 siblings, 2 replies; 3+ messages in thread
From: marco paolo valerio vezzoli @ 2013-11-18 11:33 UTC (permalink / raw)
  To: emacs-orgmode

[-- Attachment #1: Type: text/plain, Size: 1588 bytes --]

Hi,
I use clocktables with the :funciton % option.
Sometime the table sums up to a time interval larger than one day so the
total may fool the regular expression:

1d 0:04 -> 4 minutes instead of 1444 minutes

I wrote a simple modification of org-clock-time% : please find it below.
I'm sure that elisp wizards can find a better solution than mine.
  Marco

(defun org-clock-time% (total &rest strings)
  "Compute a time fraction in percent.
TOTAL s a time string like 1d 10:21 specifying the total times.
STRINGS is a list of strings that should be checked for a time.
The first string that does have a time will be used.
This function is made for clock tables."
  (let ((day-re "\\([0-9]+\\)d \\([0-9]+\\):\\([0-9]+\\)")
        (re "\\([0-9]+\\):\\([0-9]+\\)")
    tot s)
    (save-match-data
      (catch 'exit
    (if (not (string-match day-re total))
        (if (not (string-match re total))
        (throw 'exit 0.)
          (setq tot (+ (string-to-number (match-string 2 total))
               (* 60 (string-to-number (match-string 1 total))))))
      (setq tot (+ (string-to-number (match-string 2 total))
               (* 60 (string-to-number (match-string 1 total)))
               (* 60 24 (string-to-number (match-string 1 total)))))
      (if (= tot 0.) (throw 'exit 0.)))
    (while (setq s (pop strings))
      (if (string-match "\\([0-9]+\\):\\([0-9]+\\)" s)
          (throw 'exit
             (/ (* 100.0 (+ (string-to-number (match-string 2 s))
                    (* 60 (string-to-number
                       (match-string 1 s)))))
            tot))))
    0))))

[-- Attachment #2: Type: text/html, Size: 2026 bytes --]

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2013-11-19  9:31 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2013-11-18 11:33 patch proposal for org-clock-time% with day marco paolo valerio vezzoli
2013-11-18 14:13 ` marco paolo valerio vezzoli
2013-11-19  9:31 ` Bastien

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).