Olaf Dietsche <olaf+list.orgm...@olafdietsche.de> writes: > If you insist on elisp, maybe something along these (untested) lines > might work:
It just nicer to do text stuff from within Emacs but my personal Lisp skill are surpassed by my Python skills. That is not to say that any of the skill sets are high. . . The function didn't work in my test.org in emacs -q. I will investigate more later when I've got more time. > ---8<--- cut here --- > (defvar clockstable) > > (defun collect-clock-lines () > (org-narrow-to-subtree) > (let ((re (concat "^[ \t]*" org-clock-string "[ \t]+\\(.+?\\)[ \t]+=>[ > \t]+\\(.+\\)")) > (headline (nth 4 (org-heading-components)))) > (while (re-search-forward re) > (setq clockstable (concat clockstable (match-string 1) "|" headline "|" > (match-string 2) "\n"))))) > > (defun summarize-clocks () > (interactive) > (setq clockstable "| date | headline | total |\n|-----+----+----|\n") > (org-map-entries collect-clock-lines nil 'agenda) > (insert clockstable)) > --- cut here --->8--- Thanks again, Rasmus -- Sent from my Emacs
