Rasmus <ras...@gmx.us> writes: > 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---
Look at C-h f org-map-entries RET. Maybe changing the scope from 'agenda to 'file will help. Regards, Olaf
