From: Bernt Hansen <bernt@norang.ca>
To: Carsten Dominik <dominik@uva.nl>
Cc: Org-Mode List <emacs-orgmode@gnu.org>
Subject: Re: Support (or not) for Emacs 21, and XEmacs
Date: Fri, 16 Apr 2010 15:15:42 -0400 [thread overview]
Message-ID: <87vdbryzs1.fsf@gollum.intra.norang.ca> (raw)
In-Reply-To: 01F3859A-1BDB-4F9C-A523-B3235A055F0D@uva.nl
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 <dominik@uva.nl> 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 <dominik@uva.nl> 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.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
next prev parent reply other threads:[~2010-04-16 19:16 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-04-14 8:15 Support (or not) for Emacs 21, and XEmacs Carsten Dominik
2010-04-16 10:26 ` Carsten Dominik
2010-04-16 10:27 ` Carsten Dominik
2010-04-16 12:19 ` Matt Lundin
2010-04-16 16:41 ` Carsten Dominik
2010-04-16 13:03 ` Sebastian Rose
2010-04-16 13:13 ` Bernt Hansen
2010-04-16 14:39 ` Carsten Dominik
2010-04-16 14:42 ` Bernt Hansen
2010-04-16 14:42 ` Carsten Dominik
2010-04-16 19:15 ` Bernt Hansen [this message]
2010-04-16 22:02 ` Carsten Dominik
2010-04-16 13:32 ` Rémi Vanicat
2010-04-16 13:56 ` Sebastian Rose
2010-04-16 13:07 ` Jan Böcker
2010-04-16 13:47 ` Günter Kolousek
2010-04-17 15:39 ` Michael Sperber
2010-04-17 20:31 ` Carsten Dominik
2010-04-18 8:22 ` Michael Sperber
2010-04-18 14:03 ` Carsten Dominik
2010-04-19 11:00 ` Michael Sperber
2010-04-19 11:19 ` Michael Sperber
2010-04-19 15:51 ` Carsten Dominik
2010-04-19 15:54 ` Michael Sperber
2010-04-19 15:55 ` Carsten Dominik
2010-04-19 15:59 ` Carsten Dominik
2010-05-07 7:51 ` Carsten Dominik
2010-05-07 8:30 ` Michael Sperber
2010-05-07 9:21 ` Carsten Dominik
2010-04-23 15:50 ` Michael Sperber
2010-04-23 19:03 ` Carsten Dominik
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87vdbryzs1.fsf@gollum.intra.norang.ca \
--to=bernt@norang.ca \
--cc=dominik@uva.nl \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).