Re: [O] How to do <something> for all clocks in the region or subtree?

[Nicolas Goaziou]

Hello,

Marcin Borkowski <address@hidden> writes:

> I have a function which does <something> on a clock the point is on.
> I want to call it for every clock in the region if it is active, and if
> not, then for every clock in the current subtree.  Here's what I have:
>
> (defun do-something-for-all-clocks (begin end)
>   "Do <something> for all clocks in the region.
> In interactive use, use region if active and current subtree
> otherwise.  Use with caution!"
>   (interactive (if (use-region-p)
>                  (list (region-beginning)
>                        (region-end))
>                (list nil nil)))
>   (save-excursion
>     (save-restriction
>       (narrow-to-region
>        (or begin (progn (org-back-to-heading t)
>                       (point)))
>        (or end (progn (org-end-of-subtree t t)
>                     (when (and (org-at-heading-p) ; see org-narrow-to-subtree
>                                (not (eobp)))
>                       (backward-char 1))
>                     (point))))
>       (goto-char (point-min))
>       (while (re-search-forward "^CLOCK: " nil t)

The regexp above is not correct. Valid clocks are not required to start
at column 0.

>       (if (eq (org-element-type (org-element-at-point))
>               'clock)
>           (do-something-with-clock-at-point))))))

`when', or `and' if return value matters, is clearer IMO.


Regards,

-- 
Nicolas Goaziou