Re: [O] Function that splits a CLOCK interval

[Christoph LANGE]

Hi Peter,

Peter Frings on 2015-04-01 12:37:
> > The following function now automates the task of splitting:
> > …
>
> Fantastic, just what I needed!

thanks for your feedback!

I have now made a few improvements but not yet found time to get started 
with contributing the code to Worg, so one more email with the 
improvements.

> One little thing, though. When I interrupt the function with C-g at the prompt, 
> the current line is already duplicated. It would by nice that C-g left the 
> buffer unchanged.

Done, see code below.  Plus, the function now accepts a prefix argument 
and works with active time stamps.  When a prefix argument is given, the 
interactive editing of the timestamp uses C as a default before changing 
A--C into A--B B--C.

Cheers,

Christoph

--- %< --- %< --- %< --- %< --- %< --- %< --- %< --- %< --- %< --- %< ---

  (defun org-clock-split-current-interval (end-as-default)
    "If this is a CLOCK line, split its clock time interval into two.
Let the current time interval be A--C.  By default, this function 
interactively prompts for a time B (suggesting A as a default), and then 
replaces A--C by B--C and A--B.  When called with a prefix argument, the 
function uses C as a default for B.  The point is left on the later 
interval, so that this line can, e.g., be moved to another entry."
    (interactive "P")
    (save-excursion
      ;; Part of the following code is copied from 
org-clock-update-time-maybe.
      ;; If this function becomes part of org-clock.el, some 
refactoring would be in order.
      (beginning-of-line nil)
      (skip-chars-forward " \t")
      (when (looking-at org-clock-string)
        (beginning-of-line nil)
        (let ((re (concat "\\([ \t]*" org-clock-string " *\\)"

"\\([[<][^]>]+[]>]\\)\\(-+\\)\\([[<][^]>]+[]>]\\)"
                          "\\(?:[ \t]*=>.*\\)?")))
          (when (looking-at re)
            (let ((indentation (match-string 1))
                  (start (match-string 2))
                  (to (match-string 3))
                  (end (match-string 4))
                  (use-start-as-default (equal end-as-default nil)))
              ;; interactively change A--C to B--C,
              ;; or (given prefix argument) to A--B, …
              (re-search-forward (concat org-clock-string " \\([[<]\\)"))
              (when (not use-start-as-default) (re-search-forward 
"\\([[<]\\)"))
              ;; … respecting whether A or C is an active or an 
inactive timestamp
              (call-interactively (if (equal (match-string 1) "<")
                                        'org-time-stamp
                                      'org-time-stamp-inactive))
              ;; If there were a function that implemented the actual 
body of org-clock-update-time-maybe, we could call that function, as in 
this context we _know_ that we are on a CLOCK line.
              (org-clock-update-time-maybe)
              ;; copy changed time B
              (re-search-backward org-ts-regexp-both)
              (let ((middle (match-string 0)))
                ;; insert A--B below, or (given prefix argument) insert 
B--C above
                (end-of-line (if use-start-as-default 1 0))
                (insert "\n" indentation
                        (if use-start-as-default start middle)
                        to
                        (if use-start-as-default middle end))
                (org-clock-update-time-maybe))))))))

--
Dr. Christoph Lange, Enterprise Information Systems Department
Applied Computer Science @ University of Bonn; Fraunhofer IAIS
http://langec.wordpress.com/about, Skype duke4701

→ Semantic Publishing Challenge: Assessing the Quality of Scientific Output
  ESWC, 31 May–4 June 2014, Portorož, Slovenia. 
https://tinyurl.com/SPChallenge15
  Submission deadline 27 March (abstracts: 20 March)