Is there a way to show the sum of org-clock sprints in a marked region?

Question

I have been using clocking features of org-mode prefixed as org-clock. As shown by the picture below, it is possible to see the total time under a specific heading after executing org-clock-display.

Source:

*** 25/04/2022
    :LOGBOOK:
    CLOCK: [2022-04-25 Mon 19:09]
    CLOCK: [2022-04-25 Mon 17:35]--[2022-04-25 Mon 17:56] =>  0:21
    CLOCK: [2022-04-25 Mon 17:21]--[2022-04-25 Mon 17:35] =>  0:14
    CLOCK: [2022-04-25 Mon 16:47]--[2022-04-25 Mon 17:21] =>  0:34
    CLOCK: [2022-04-25 Mon 16:11]--[2022-04-25 Mon 16:31] =>  0:20
    CLOCK: [2022-04-25 Mon 15:25]--[2022-04-25 Mon 15:56] =>  0:31
    CLOCK: [2022-04-25 Mon 13:44]--[2022-04-25 Mon 14:24] =>  0:40
    CLOCK: [2022-04-25 Mon 13:19]--[2022-04-25 Mon 13:44] =>  0:25
    CLOCK: [2022-04-25 Mon 12:47]--[2022-04-25 Mon 13:16] =>  0:29
    CLOCK: [2022-04-25 Mon 12:04]--[2022-04-25 Mon 12:47] =>  0:43
    CLOCK: [2022-04-25 Mon 11:03]--[2022-04-25 Mon 12:00] =>  0:57
    CLOCK: [2022-04-25 Mon 09:00]--[2022-04-25 Mon 09:25] =>  0:25
    CLOCK: [2022-04-25 Mon 08:14]--[2022-04-25 Mon 08:18] =>  0:04
    :END:

Image:

I would like to know it if it is possible to do something similar but just for a specific marked region. For instance, the region below:

After executing some command that I do not know if it already exists, I would see a total of 2:09 since it would have done the sum of 0:26 + 1:00 + 0:43.

Is there a command for this out of the box? Is there a package to provide this? Maybe a short function to add to my in Elisp init file?

Thanks.

Answer 1

Try the following:

#+begin_src elisp
  (defun ndk/org-clock-sum-current-region (beg end)
     (interactive "r")
     (let ((s (buffer-substring-no-properties beg end)))
       (with-temp-buffer
         (insert "* foo\n")
         (insert s)
         (org-clock-sum)
         (message (format "%d" org-clock-file-total-minutes)))))
#+end_src

org-clock-sum almost does what you want on a region but the interface assumes that there is a headline before the sequence of clock entries, so if you select a region that does not contain a headline, the function returns 0. So we resort to the standard Emacs trick of working in a temp buffer, inserting the stuff we want (in this case, a dummy headline and then the contents of the region) and then we call org-clock-sum on that. org-clock-sum sets a text property on the headline (that's how org-clock-display works: it picks out the text property and adds an overlay with the value of the property) which does us no good in the current scenario; but it also sets the variable org-clock-file-total-minutes, so we print out the value of that variable in the echo area (it's in minutes; converting it to other formats is easy).