Hi list,
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:
--8<---------------cut here---------------start------------->8---
(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)
(if (eq (org-element-type (org-element-at-point))
'clock)
(do-something-with-clock-at-point))))))
--8<---------------cut here---------------end--------------->8---
Is it ok or is there some fancy way of iterating across all clock
entries in the region? (I don't want any dependencies - only vanilla
Org!)
TIA,
--
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Faculty of Mathematics and Computer Science
Adam Mickiewicz University
