Hello, Marcin Borkowski <[email protected]> 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
