Another bug.
Attempting to get a clock report in the agenda. (R in the daily
agenda)
-Bernt
Debugger entered--Lisp error: (void-function org-dblock-write:)
org-dblock-write:((:name nil :link nil :maxlevel 2 :tstart
733878 :tend 733879 :scope agenda :indentation-column 0 :content
"\n"))
funcall(org-dblock-write: (:name nil :link nil :maxlevel 2 :tstart
733878 :tend 733879 :scope agenda :indentation-column 0 :content
"\n"))
(let* ((pos ...) (line ...) (params ...) (name ...) (indent ...)
(cmd ...)) (message "Updating dynamic block `%s' at line %d..." name
line) (funcall cmd params) (message "Updating dynamic block `%s' at
line %d...done" name line) (goto-char pos) (when (and indent ...)
(setq indent ...) (save-excursion ... ... ... ...)))
(save-window-excursion (let* (... ... ... ... ... ...) (message
"Updating dynamic block `%s' at line %d..." name line) (funcall cmd
params) (message "Updating dynamic block `%s' at line %d...done"
name line) (goto-char pos) (when ... ... ...)))
org-update-dblock()
(save-current-buffer (set-buffer temp-buffer) (org-mode) (org-
create-dblock props) (org-update-dblock) (font-lock-fontify-buffer)
(forward-line 2) (buffer-substring (point) (progn ... ...)))
(with-current-buffer temp-buffer (org-mode) (org-create-dblock
props) (org-update-dblock) (font-lock-fontify-buffer) (forward-line
2) (buffer-substring (point) (progn ... ...)))
(unwind-protect (with-current-buffer temp-buffer (org-mode) (org-
create-dblock props) (org-update-dblock) (font-lock-fontify-buffer)
(forward-line 2) (buffer-substring ... ...)) (and (buffer-name temp-
buffer) (kill-buffer temp-buffer)))
(let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-
buffer ... ... ... ... ... ...) (and ... ...)))
(with-temp-buffer (org-mode) (org-create-dblock props) (org-update-
dblock) (font-lock-fontify-buffer) (forward-line 2) (buffer-
substring (point) (progn ... ...)))
org-get-clocktable(:link nil :maxlevel 2 :tstart 733878 :tend
733879 :scope agenda)
apply(org-get-clocktable (:link nil :maxlevel 2 :tstart
733878 :tend 733879 :scope agenda))
(setq tbl (apply (quote org-get-clocktable) p))
(let ((org-agenda-files ...) (p org-agenda-clockreport-parameter-
plist) tbl) (setq p (org-plist-delete p :block)) (setq p (plist-put
p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable-
end)) (setq p (plist-put p :scope ...)) (setq tbl (apply ... p))
(insert tbl))
(progn (let (... ... tbl) (setq p ...) (setq p ...) (setq p ...)
(setq p ...) (setq tbl ...) (insert tbl)))
(if (and org-agenda-clockreport-mode clocktable-start) (progn
(let ... ... ... ... ... ... ...)))
(when (and org-agenda-clockreport-mode clocktable-start) (let
(... ... tbl) (setq p ...) (setq p ...) (setq p ...) (setq p ...)
(setq tbl ...) (insert tbl)))
(let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files
thefiles) (today ...) (sd ...) (start ...) (day-numbers ...) (day-
cnt 0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos
end-pos todayp nd wd clocktable-start clocktable-end) (setq org-
agenda-redo-command (list ... ... start-day ndays)) (setq ndays (or
ndays org-agenda-ndays) nd ndays) (while (> ndays 1) (push ... day-
numbers) (setq ndays ...)) (setq day-numbers (nreverse day-numbers))
(setq clocktable-start (car day-numbers) clocktable-end (1+ ...))
(org-prepare-agenda "Day/Week") (org-set-local (quote org-starting-
day) (car day-numbers)) (org-set-local (quote org-include-all-loc)
include-all) (org-set-local (quote org-agenda-span) (org-agenda-
ndays-to-span nd)) (when (and ... ...) (setq files thefiles rtnall
nil) (while ... ...) (when rtnall ... ... ... ...)) (unless org-
agenda-compact-blocks (let* ... ... ...) (add-text-properties
s ... ...) (org-agenda-mark-header-line s)) (while (setq d ...)
(setq date ... wd ... s ...) (if ... ... ...) (setq files thefiles
rtnall nil) (while ... ...) (if org-agenda-include-diary ...)
(if ... ...)) (when (and org-agenda-clockreport-mode clocktable-
start) (let ... ... ... ... ... ... ...)) (goto-char (point-min))
(or org-agenda-multi (org-fit-agenda-window)) (unless (and ... ...)
(goto-char ...) (recenter -1) (if ... ...)) (goto-char (or start-pos
1)) (add-text-properties (point-min) (point-max) (quote ...)) (org-
finalize-agenda) (setq buffer-read-only t) (message ""))
org-agenda-list(nil nil 1)
eval((org-agenda-list (quote nil) nil 1))
(let nil (eval org-agenda-redo-command))
eval((let nil (eval org-agenda-redo-command)))
org-let(nil (eval org-agenda-redo-command))
(let* ((org-agenda-keep-modes t) (filter org-agenda-filter)
(preset ...) (cols org-agenda-columns-active) (line ...) (window-
line ...) (lprops ...)) (put (quote org-agenda-filter) :preset-
filter nil) (and cols (org-columns-quit)) (message "Rebuilding
agenda buffer...") (org-let lprops (quote ...)) (setq org-agenda-
undo-list nil org-agenda-pending-undo-list nil) (message "Rebuilding
agenda buffer...done") (put (quote org-agenda-filter) :preset-filter
preset) (and (or filter preset) (org-agenda-filter-apply filter))
(and cols (interactive-p) (org-agenda-columns)) (org-goto-line line)
(recenter window-line))
org-agenda-redo()
org-agenda-clockreport-mode()
call-interactively(org-agenda-clockreport-mode)
Carsten Dominik <address@hidden> writes:
On Apr 16, 2010, at 4:42 PM, Bernt Hansen wrote:
Thanks. I'll beat on it some more :)
What a team! :-)
Regards,
Bernt
Carsten Dominik <address@hidden> writes:
Hi Bernt, thanks a lot for this report - I believe I know
what was causing this and have fixed it, still on that branch of
course.
- Carsten
On Apr 16, 2010, at 3:13 PM, Bernt Hansen wrote:
Found a bug.
<snip>
Clocking in doesn't work correctly.
I have a task like this
,----[ x.org ]
| * TODO foo
| :CLOCK:
| CLOCK: [2010-04-16 Fri 09:10]--[2010-04-16 Fri 09:11] => 0:01
| :END:
|
| ** TODO Bar baz
| [2010-04-16 Fri 09:10]
`----
if the parent task is clocking I can't clock in the subtask - the
parent
task continues to clock and the point is moved to the headline of
the
parent task. Same behaviour on both versions.
Switching back to master until this is fixed since I can't
function
without working clocking :)
- Carsten
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode