Re: [O] new exporter, conditional options according to backend

2013-01-27 Thread Nicolas Goaziou
Hello,

Jambunathan K  writes:

> Nicolas Goaziou  writes:
>
>> Jambunathan K  writes:
>>
>>> Nicolas Goaziou  writes:
>>>
 #+begin_src emacs-lisp
 (defun my-options-change-fun (tree backend info)
   (when (org-export-derived-backend-p backend 'e-beamer)
 (plist-put info :with-author nil))
   ;; Don't forget to return tree.
   tree)
>>>
>>> CAVEAT: plist-put can return a different list, at times.
>>>
>>> I don't know enough about implementation of `plist-put' to ascertain
>>> when it would return a new list.
>>
>> Since the OP wants to modify the values of _existing properties_ I'm
>> quite sure the change will happen in place.
>
> Look at example in Elisp manual.  New members seem to get appended.  
>
> List being destructive is explainable if new members were to be added to
> the head.  Since this is not the case, I am curious what the
> implementation could be ...

I have added a filter for export options. The OP may want to use it
instead.

I guess it will be cleaner that way. Besides, the previous export
framework had one too.


Regards,

-- 
Nicolas Goaziou



Re: [O] Bug: no hypertext in a latex exported footnote

2013-01-27 Thread Nicolas Goaziou
Hello,

Heikki Lehvaslaiho  writes:

> If you add a footnote that starts with an URL, latex export fails to
> recognize it as a hypertext. My quick fix has been to add a nonbreaking
> space before the URL. I'd love to see this fixed in the repo.

The next export framework, which will be merged soon, doesn't suffer
this bug.

Thank you for the report.


Regards,

-- 
Nicolas Goaziou



[O] colorg: Weekly status!

2013-01-27 Thread François Pinard
Hi, my Org friends.

The colorg project is about real-time collaborative editing of Org
files.  The project progresses a bit on each weekend only, but I
seemingly cannot find free hours elsewhere in the week!  Here is the
status after three weeks.

The parts slowly begin to fit together.  I can launch a colorg server
and two Emacs sessions.  In the first Emacs, I can upload a buffer
contents to the server as a resource.  In the second Emacs, I can either
download that resource from the server into a empty buffer, or associate
it with a buffer already having identical contents.  Then, making edits
to any Emacs go to the other.  That's a start!

Take note that the tool is still unusable however, as the resolution
clashing code in the server still has to be implemented, it only works
when editing in disjoint areas.  On a local Git branch, I have some
Emacs Lisp code to multiplex many buffers to many servers (or one), but
bugs remain, so I did not merge that branch yet.

I adjusted the documentation on https://github.com/pinard/colorg/wiki .
The Usage page has a list of known problems (remaining things to do).

Keep happy all!

François

P.S. When modifications clash, a region should never be deleted more
than once, and insertions should all be kept, so no work is lost
unexpectedly.  This has consequences on the later alterations coming in
the same batches, and this is where the complexity lies.  Not very
difficult (so far that I can see), but quite tedious to do correctly.
I'll come to it, hopefully.






Re: [O] org-bullets extension

2013-01-27 Thread E Sabof
What is the current status of the package? Was it accepted? Was it
superseded?

If it wasn't superseded, I might spend some time re-implementing it.

Evgeni


On Tue, Dec 18, 2012 at 11:05 AM, Bastien  wrote:

> Hi Jambunathan,
>
> Jambunathan K  writes:
>
> > (font-lock-add-keywords
> >  'org-mode `(("\\(?:^\\(?1:\\*+\\)[[:blank:]]\\)"
> >   (0 (progn (compose-region
> >  (match-beginning 1) (match-end 1)
> >  (pcase (length (match-string 1))
> >(1 ?\u2219)
> >(2 ?\u2022)
> >(3 ?\u25c9)
> >(_ ?\u25CB)))
> > nil)
>
> This does convert all headlines characters (*+) to a single
> unicode character.  Close to what many users are looking for,
> but extending this snippet to handle converting several *
> characters would come closer.
>
> Are you working on this?  If so, could this be a minor mode?
>
> Thanks,
>
> --
>  Bastien
>


Re: [O] [bug] latex fragment preview with dvipng ignores :foreground specification

2013-01-27 Thread Myles English

Hi Eric,

Eric S Fraga writes:

> Nick Dokos  writes:
>
>> I tried the imagemagick setting, set the options variable to black background
>> and red foreground - lo and behold, that's what I get in the preview.
>
> I was correct in my conclusion last night that I needed to go to
> bed...  I was making a silly mistake (and I won't go into details ;-).
>
> This does indeed work!  Thanks again.

Please could you clarify a couple of things for me?

>From your investigations can you say if there is a bug in the orgmode
use of dvipng, or has dvipng changed so that the expected behaviour is
no longer supported?  I too use a dark display (emacs theme
zenburn-emacs), get the black fragments in normal latex blocks in org
files (i.e. not beamer), and org-format-latex-options has no visible
effect, how can I have white formulae again?

Thanks,

Myles



Re: [O] Problems with org-caldav (wrong-type-argument stringp 47)

2013-01-27 Thread David Engster
Sven Bretfeld writes:
> Hi David and all
>
> I've got it. By try and error I found out that entries like these in an
> org-file cause the problem:
>
> %%(diary-anniversary  6 8 1969) Christian is %d years old

Ah OK. Thanks for looking into this. Those entries apparently produce
events during export but don't seem to get an ID. I'll look into this
issue during the next week, when my sinuses have calmed down a bit...

-David



Re: [O] Bug: C-c C-c does not handle dynamic blocks correctly [7.9.3d (release_7.9.3d-894-gfe805e)]

2013-01-27 Thread Nicolas Goaziou
Hello,

"Stefan-W. Hahn"  writes:

> if trying to update a dynamic clocktable with "C-c C-c", point on "#+BEGIN",
> I get the error message:
>
> "user-error: C-c C-c can do nothing useful at this location"
>
> The clocktable looks like:
>
> #+BEGIN: clocktable
> #+END: clocktable

This is incorrect syntax.

> If I write
>
> #+BEGIN: clocktable
> #+END:
>
> than the evaluation with "C-c C-c" will work. 

This is the correct syntax.

> This behaviour has been changed, perhaps this is a bug.

The syntax is just stricter with Elements. Please use the second one.


Regards,

-- 
Nicolas Goaziou



Re: [O] Agenda optimization: new option `org-agenda-inhibit-startup'

2013-01-27 Thread Nicolas Goaziou
Hello,

Bastien  writes:

>> Maybe it would be useful to exempt initializing org-indent-mode from this.
>> I think (Nicolas?) that this will cost no time as long as the buffer is not
>> visible, but it will help to make the buffer look "right" when the user
>> gets to it.
>
> Mhh.. that's right.  I'll check that (org-indent-mode 1) does not cost
> any time when the buffer is not visible.

`org-indent-mode' initializes indentation of buffers even when they are
not current. Though, it happens on idle time, so it shouldn't be
noticeable.


Regards,

-- 
Nicolas Goaziou



[O] bbdb or bbdb3 or org-contacts

2013-01-27 Thread Dieter Wilhelm
Hi list,

I just took up again the Gnus newsreader!
Formerly I used it in conjunction with bbdb.

It would be nice if I had the
possibility to (re)use my contacts
from gmail.

What do you advise, what is already
usable and what is the way ahead,
still bbdb or bbdb3 or already
org-contacts?

Thanks a lot

   Dieter

-- 
Best wishes

H. Dieter Wilhelm
Darmstadt
Germany



Re: [O] Problems with org-caldav (wrong-type-argument stringp 47)

2013-01-27 Thread Sven Bretfeld
Hi David and all

I've got it. By try and error I found out that entries like these in an
org-file cause the problem:

%%(diary-anniversary  6 8 1969) Christian is %d years old

Best, and thanks for your help,

Sven

"Sven Bretfeld"  writes:

> Hi David
>
> David Engster  writes:
>
>> Sven Bretfeld writes:
>>> - progn: Could not find UID emacs207403667799062360.
>>
>> I'm currently struck with a nasty cold, so I have trouble thinking. 
>
> Sorry to hear that. I wish you get better soon.
>
>> But this means that it tries to find this ID in your Org files, and it
>> does not seem to be there. You can try to go there by calling
>>
>> M-x org-id-goto
>>
>> and yank the above ID. Does this get you anywhere?
>
> No, doesn't work.
>
>> If not, could you grep through your Org files and see if there's maybe
>> an ID which at least is similar? Maybe some special character was
>> stripped while putting the event.
>
> I deleted all IDs in all org-files as well as
> .emacs.d/.org-id-locations. No result. The error-message remains. New
> entries in GoogleCalendar are not synced to the inbox. I guess this
> depends on the ID error. I have updated to Emacs 24. So this cannot be
> the problem.
>
>> Also, the *org-caldav-debug* buffer might contain more information.
>
> Here is a debug report. The first call of org-caldav-sync always
> produces this error. When called a second time with "resume last sync"
> syncing from org to google works, but not the other way round.
>
> Debugger entered--Lisp error: (error "Could not find UID
> emacs207412372310441120.")
>   signal(error ("Could not find UID emacs207412372310441120."))
>   error("Could not find UID %s." "emacs207412372310441120")
>   (progn (error "Could not find UID %s." uid))
>   (if (null marker) (progn (error "Could not find UID %s." uid)))
>   (when (null marker) (error "Could not find UID %s." uid))
>   (let ((marker (org-id-find uid t))) (when (null marker) (error
> "Could not find UID %s." uid)) (with-current-buffer (marker-buffer
> marker) (goto-char (marker-position marker)) (md5
> (buffer-substring-no-properties (org-entry-beginning-position)
> (org-entry-end-position)
>   org-caldav-generate-md5-for-org-entry("emacs207412372310441120")
>   (let* ((uid (org-caldav-rewrite-uid-in-event)) (md5
> (org-caldav-generate-md5-for-org-entry uid)) (event
> (org-caldav-search-event uid))) (cond ((null event)
> (org-caldav-debug-print (format "Org UID %s: New" uid))
> (org-caldav-add-event uid md5 nil nil (quote new-in-org))) ((not
> (string= md5 (org-caldav-event-md5 event))) (org-caldav-debug-print
> (format "Org UID %s: Changed" uid)) (org-caldav-event-set-md5 event
> md5) (org-caldav-event-set-status event (quote changed-in-org))) ((eq
> (org-caldav-event-status event) (quote new-in-org))
> (org-caldav-debug-print (format "Org UID %s: Error. Double entry."
> uid)) (push (list uid (quote new-in-org) (quote error:double-entry))
> org-caldav-sync-result)) (t (org-caldav-debug-print (format "Org UID
> %s: Synced" uid)) (org-caldav-event-set-status event (quote
> in-org)
>   (while (org-caldav-narrow-next-event) (let* ((uid
> (org-caldav-rewrite-uid-in-event)) (md5
> (org-caldav-generate-md5-for-org-entry uid)) (event
> (org-caldav-search-event uid))) (cond ((null event)
> (org-caldav-debug-print (format "Org UID %s: New" uid))
> (org-caldav-add-event uid md5 nil nil (quote new-in-org))) ((not
> (string= md5 (org-caldav-event-md5 event))) (org-caldav-debug-print
> (format "Org UID %s: Changed" uid)) (org-caldav-event-set-md5 event
> md5) (org-caldav-event-set-status event (quote changed-in-org))) ((eq
> (org-caldav-event-status event) (quote new-in-org))
> (org-caldav-debug-print (format "Org UID %s: Error. Double entry."
> uid)) (push (list uid (quote new-in-org) (quote error:double-entry))
> org-caldav-sync-result)) (t (org-caldav-debug-print (format "Org UID
> %s: Synced" uid)) (org-caldav-event-set-status event (quote
> in-org))
>   (save-current-buffer (set-buffer buf) (goto-char (point-min)) (while
> (org-caldav-narrow-next-event) (let* ((uid
> (org-caldav-rewrite-uid-in-event)) (md5
> (org-caldav-generate-md5-for-org-entry uid)) (event
> (org-caldav-search-event uid))) (cond ((null event)
> (org-caldav-debug-print (format "Org UID %s: New" uid))
> (org-caldav-add-event uid md5 nil nil (quote new-in-org))) ((not
> (string= md5 (org-caldav-event-md5 event))) (org-caldav-debug-print
> (format "Org UID %s: Changed" uid)) (org-caldav-event-set-md5 event
> md5) (org-caldav-event-set-status event (quote changed-in-org))) ((eq
> (org-caldav-event-status event) (quote new-in-org))
> (org-caldav-debug-print (format "Org UID %s: Error. Double entry."
> uid)) (push (list uid (quote new-in-org) (quote error:double-entry))
> org-caldav-sync-result)) (t (org-caldav-debug-print (format "Org UID
> %s: Synced" uid)) (org-caldav-event-set-status event (quote
> in-org)) (dolist (cur (org-caldav-filter-events nil))
> (org-caldav-debug-print (format "Cal UID %s: Deleted i

Re: [O] Problems with org-caldav (wrong-type-argument stringp 47)

2013-01-27 Thread Sven Bretfeld
Hi David

David Engster  writes:

> Sven Bretfeld writes:
>> - progn: Could not find UID emacs207403667799062360.
>
> I'm currently struck with a nasty cold, so I have trouble thinking. 

Sorry to hear that. I wish you get better soon.

> But this means that it tries to find this ID in your Org files, and it
> does not seem to be there. You can try to go there by calling
>
> M-x org-id-goto
>
> and yank the above ID. Does this get you anywhere?

No, doesn't work.

> If not, could you grep through your Org files and see if there's maybe
> an ID which at least is similar? Maybe some special character was
> stripped while putting the event.

I deleted all IDs in all org-files as well as
.emacs.d/.org-id-locations. No result. The error-message remains. New
entries in GoogleCalendar are not synced to the inbox. I guess this
depends on the ID error. I have updated to Emacs 24. So this cannot be
the problem.

> Also, the *org-caldav-debug* buffer might contain more information.

Here is a debug report. The first call of org-caldav-sync always
produces this error. When called a second time with "resume last sync"
syncing from org to google works, but not the other way round.

Debugger entered--Lisp error: (error "Could not find UID 
emacs207412372310441120.")
  signal(error ("Could not find UID emacs207412372310441120."))
  error("Could not find UID %s." "emacs207412372310441120")
  (progn (error "Could not find UID %s." uid))
  (if (null marker) (progn (error "Could not find UID %s." uid)))
  (when (null marker) (error "Could not find UID %s." uid))
  (let ((marker (org-id-find uid t))) (when (null marker) (error "Could not 
find UID %s." uid)) (with-current-buffer (marker-buffer marker) (goto-char 
(marker-position marker)) (md5 (buffer-substring-no-properties 
(org-entry-beginning-position) (org-entry-end-position)
  org-caldav-generate-md5-for-org-entry("emacs207412372310441120")
  (let* ((uid (org-caldav-rewrite-uid-in-event)) (md5 
(org-caldav-generate-md5-for-org-entry uid)) (event (org-caldav-search-event 
uid))) (cond ((null event) (org-caldav-debug-print (format "Org UID %s: New" 
uid)) (org-caldav-add-event uid md5 nil nil (quote new-in-org))) ((not (string= 
md5 (org-caldav-event-md5 event))) (org-caldav-debug-print (format "Org UID %s: 
Changed" uid)) (org-caldav-event-set-md5 event md5) 
(org-caldav-event-set-status event (quote changed-in-org))) ((eq 
(org-caldav-event-status event) (quote new-in-org)) (org-caldav-debug-print 
(format "Org UID %s: Error. Double entry." uid)) (push (list uid (quote 
new-in-org) (quote error:double-entry)) org-caldav-sync-result)) (t 
(org-caldav-debug-print (format "Org UID %s: Synced" uid)) 
(org-caldav-event-set-status event (quote in-org)
  (while (org-caldav-narrow-next-event) (let* ((uid 
(org-caldav-rewrite-uid-in-event)) (md5 (org-caldav-generate-md5-for-org-entry 
uid)) (event (org-caldav-search-event uid))) (cond ((null event) 
(org-caldav-debug-print (format "Org UID %s: New" uid)) (org-caldav-add-event 
uid md5 nil nil (quote new-in-org))) ((not (string= md5 (org-caldav-event-md5 
event))) (org-caldav-debug-print (format "Org UID %s: Changed" uid)) 
(org-caldav-event-set-md5 event md5) (org-caldav-event-set-status event (quote 
changed-in-org))) ((eq (org-caldav-event-status event) (quote new-in-org)) 
(org-caldav-debug-print (format "Org UID %s: Error. Double entry." uid)) (push 
(list uid (quote new-in-org) (quote error:double-entry)) 
org-caldav-sync-result)) (t (org-caldav-debug-print (format "Org UID %s: 
Synced" uid)) (org-caldav-event-set-status event (quote in-org))
  (save-current-buffer (set-buffer buf) (goto-char (point-min)) (while 
(org-caldav-narrow-next-event) (let* ((uid (org-caldav-rewrite-uid-in-event)) 
(md5 (org-caldav-generate-md5-for-org-entry uid)) (event 
(org-caldav-search-event uid))) (cond ((null event) (org-caldav-debug-print 
(format "Org UID %s: New" uid)) (org-caldav-add-event uid md5 nil nil (quote 
new-in-org))) ((not (string= md5 (org-caldav-event-md5 event))) 
(org-caldav-debug-print (format "Org UID %s: Changed" uid)) 
(org-caldav-event-set-md5 event md5) (org-caldav-event-set-status event (quote 
changed-in-org))) ((eq (org-caldav-event-status event) (quote new-in-org)) 
(org-caldav-debug-print (format "Org UID %s: Error. Double entry." uid)) (push 
(list uid (quote new-in-org) (quote error:double-entry)) 
org-caldav-sync-result)) (t (org-caldav-debug-print (format "Org UID %s: 
Synced" uid)) (org-caldav-event-set-status event (quote in-org)) (dolist 
(cur (org-caldav-filter-events nil)) (org-caldav-debug-print (format "Cal UID 
%s: Deleted in Org" (car cur))) (org-caldav-event-set-status cur (quote 
deleted-in-org
  (with-current-buffer buf (goto-char (point-min)) (while 
(org-caldav-narrow-next-event) (let* ((uid (org-caldav-rewrite-uid-in-event)) 
(md5 (org-caldav-generate-md5-for-org-entry uid)) (event 
(org-caldav-search-event uid))) (cond ((null event) (org-caldav-debug-print 
(format "Org UID 

Re: [O] Problems with org-caldav (wrong-type-argument stringp 47)

2013-01-27 Thread David Engster
Sven Bretfeld writes:
> - progn: Could not find UID emacs207403667799062360.

I'm currently struck with a nasty cold, so I have trouble thinking. But
this means that it tries to find this ID in your Org files, and it does
not seem to be there. You can try to go there by calling

M-x org-id-goto

and yank the above ID. Does this get you anywhere?

If not, could you grep through your Org files and see if there's maybe
an ID which at least is similar? Maybe some special character was
stripped while putting the event.

Also, the *org-caldav-debug* buffer might contain more information.

> - void-function pop-to-buffer-same-window
>
> Could the last one be a function not implemented in my 23 version of
> Emacs?

Yes. I will have to add some compatibility code for older Emacsen.

-David



Re: [O] org-tree-slide: some small changes

2013-01-27 Thread Takaaki ISHIKAWA
Dear Eric,

Thank you for your feedback!
And I'm so glad to hear you like org-tree-slide.el.

I've just updated my code in Github.
The code includes the two hooks. On the other hand,
I deleted =org-mode-slide-mode-hook= because it did not work well.
I had to check the typo more carefully, sorry for that.

If you don't mind, I would like to add your name into the source code
as a contributor.

I Hope for the success of your talk ;-)

Best
Takaaki


On 2013/01/27, at 15:08, Eric S Fraga  wrote:

> Dear Takaaki,
> 
> I have been playing with your org tree slide mode.  I really like it.
> 
> It didn't quite do what I wanted so I have played around with it.  I've
> made a couple of simple changes which you may wish to consider
> incorporating.  Specifically, I have added two hooks, one run just
> before playing the slide show and one run when the slide show is
> stopped.  This allows me to, for instance, turn off flyspell mode,
> increase the text scale etc. for the actual slide show but revert these
> back after I am finished showing the slides.
> 
> I realise that the play hook may duplicate the mode-hook you already had
> defined but I couldn't get the latter to work.  It turns out that there
> was a typographical error in =org-tree-slide-mode= in that it tried to
> run the wrong hook (=org-mode-slide-mode-hook= instead of
> =org-tree-slide-mode-hook=) but I only figured that out once I had added
> my own hooks.  I have fixed that error as well but decided to leave the
> hooks in place for the moment (I have to work on an actual talk now...).
> 
> Please see attached the slightly modified version of your code and an
> example slide show which shows a couple of example hooks.  Please feel
> free to incorporate any of the changes you wish, if any.
> 
> Thanks for an excellent little tool that is proving to be very useful to
> me!
> 
> eric


--
Takaaki ISHIKAWA 
GITI, Waseda University
( ' -')b http://about.me/takaxp







[O] Cannot get exported a correctly-recalculated table generated by org-babel

2013-01-27 Thread Miguel Ruiz
Problem: I cannot get exported a correctly-recalculated table generated by 
org-babel.

Hi,

0. Windoze 7 x64, Emacs 24.pre3 r99, Org-mode 7.9.3d (commit 08f5b0ad)
(I cannot show the results with Emacs 24.1release or Emacs 24.2release because 
of the Windoze heap bug#13065

 
http://emacs.1067599.n5.nabble.com/bug-13065-Bug-in-x-file-dialog-with-GetOpenFileName-td271410.html)

1. Load:

# start-of-org-file

#+name: table1
| C1 | C2 | C3 |
|++|
| A  |  1 |  1 |
| B  |  2 |  2 |
| C  |  3 |  3 |


#+name: table2
| C1 | C4 | C5 |
|++|
| A  |  1 |  1 |
| B  |  2 |  2 |
| C  |  3 |  3 |


#+call: table-operations-combine-merge(table1,table2) :colnames yes
#+tblfm: $6=$5+$4+$3+$2


# end-of-org-file

2. M-: (require 'cl) RET

3. M-: (org-babel-lob-ingest 'path/to/lob-table-operations.org') RET

4. M-x org-babel-execute-buffer RET yes RET yes RET

5. M-x org-table-recalculate-buffer-tables RET

Results: tables merged and new column calculated correctly.

--
Now let's export the file:

6. M-x org-export RET b yes RET yes RET

Results: tables merged correctly and new column empty

I presume that org-export re-execute babel but does not recalculate tables.

How can I get recalculated tables through org-export:

a) Switch-off org-babel-execute-buffer in org-export?
b) Switch-on org-tables recalculate-buffer-tables AFTER 
org-babel-execute-buffer?

I cannot figure out the sequence in org-export or the multiple hooks available.

Thanks for this wonderful piece of software.

Miguel Ruiz.
Sevilla, Spain.




Re: [O] About range references in the spreadsheet

2013-01-27 Thread H. Dieter Wilhelm
Eric S Fraga  writes:
> Bastien  writes:
>
>> Hi Xue,
>>
>> Xue Fuqiao  writes:
>>
>>> In (info "(org) References"), there is an example explaining the range
>>> references:
>>>
>>>  @-1$-2..@-1   3 numbers from the column to the left, 2 up to
>>> current row
>>>
>>> What does `2 up to current row' mean?  I don't understand.  IIRC `@'
>>> represents row, it should be `1 up to current row'.
>>
>> No.  The whole sentence expands to this: 
>>
>>   This range takes 3 numbers: the first one from the column to the
>>   left (and the row above), the 2 others up to current row.
>>
>> I agree this might not be obvious but I don't have a better proposal.
>> Maybe a native english speaker can help here.
>>
>> Best,
>
>
> I think the current description is wrong and that rows and columns have
> been interchanged?  The entries defined by this range are all in the row
> above (@-1) the current row.  The columns chosen are two to the left of
> the current column up to the current column.

Right. The formulation above would only be logical with:

  This range takes 3 numbers: the first one from TWO columns to the
  left (and the row above), the 2 others up to current row.

But still not easy to understand.

> If you wish to re-word, maybe:
>
> This range expands to three elements, all on the row above the current
> row, starting with the column two to the left of the current column.

Would be much better, I think.

More precisely: The manual speaks about `field references' and `column'-
and `row' specifications.  So I would write:

  The three SPECIFICATIONS expand to a field range from the row above
  the current row, starting with two columns to the left up to the
  current column.

(I would avoid the ambiguous expression "column two" since it is a
relative specification) alternatively

  The TWO REFERENCES expand to a field range from the row above the
  current row, starting with two columns to the left up to the current
  column.

  Dieter

-- 
Best wishes

H. Dieter Wilhelm
Darmstadt
Germany



[O] testing/README: need to enable sh and org for the current test

2013-01-27 Thread Yasushi SHOJI
Hello,

With the current HEAD(release_7.9.3d-894-gfe805ed), it seems we need
to load "sh" and "org" for babel language to run the test sucessfully.

#+BEGIN_SRC elisp
  (org-babel-do-load-languages
   'org-babel-load-languages
   '((emacs-lisp . t)
 (sh . t)
 (org . t)))
  (setq org-confirm-babel-evaluate nil)
#+END_SRC

Am I missing something? Does it work as documented in testing/README
for everyone?

if not, should we patch the README like this? (just an idea, not completed)

diff --git a/testing/README b/testing/README
index 8ce7a19..9601ea7 100644
--- a/testing/README
+++ b/testing/README
@@ -15,12 +15,16 @@ The simplest way to run the Org-mode test suite is from the 
command
 line with the following invocation.  Note that the paths below are
 relative to the base of the Org-mode directory.
 
+Also note that many of the current tests uses babel evaluation...
+
 #+BEGIN_SRC sh :dir (expand-file-name "..")
   # For Emacs earlier than 24, add -L /path/to/ert
   emacs -Q --batch \
 -L lisp/ -L testing/ -L testing/lisp -l lisp/org.el \
 -l lisp/org-id.el -l testing/org-test.el \
---eval "(progn (org-reload) (setq org-confirm-babel-evaluate nil))" \
+--eval "(progn (org-reload) (setq org-confirm-babel-evaluate nil) \
+(org-babel-do-load-languages 'org-babel-load-languages \
+'((emacs-lisp . t) (sh . t) (org . t" \
 -f org-test-run-batch-tests
 #+END_SRC
 
@@ -43,7 +47,12 @@ load and run the test suite with the following commands.
  (require 'org-test)
#+END_SRC
 
-2) Then run the test suite,
+2) Disable babel evaluation confirmation
+   #+BEGIN_SRC emacs-lisp
+ (setq org-confirm-babel-evaluate)
+   #+END_SRC
+
+3) Then run the test suite,
#+BEGIN_SRC emacs-lisp
  (org-test-run-all-tests)
#+END_SRC
-- 
   yashi





[O] [Bug] test-org-export/before-parsing-hook

2013-01-27 Thread Achim Gratz

Testing current Org fails with this backtrace (the culprit seems to be
calling looking-at with an argument of nil):

Test test-org-export/before-parsing-hook backtrace:
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((i 6) (fram
  (block nil (let* ((i 6) (frame nil) (--cl-var-- nil)) (while (progn 
  (loop for i from 6 for frame = (backtrace-frame i) while frame colle
  ert--record-backtrace()
  (let* ((condition (first more-debugger-args)) (type (case (car condi
  (cond ((member* first-debugger-arg (quote (lambda debug t exit nil))
  (case first-debugger-arg ((lambda debug t exit nil) (apply (ert--tes
  (ecase first-debugger-arg ((lambda debug t exit nil) (apply (ert--te
  (let* ((more-debugger-args debugger-args) (first-debugger-arg (if mo
  (progn (let* ((more-debugger-args debugger-args) (first-debugger-arg
  (destructuring-bind (first-debugger-arg &rest more-debugger-args) de
  ert--run-test-debugger([cl-struct-ert--test-execution-info [cl-struc
  (lambda (G37863 &rest debugger-args) (ert--run-test-debugger (symbol
  apply((lambda (G37863 &rest debugger-args) (ert--run-test-debugger (
  (lambda (&rest --cl-rest--) (apply (quote (lambda (G37863 &rest debu
  looking-at(nil)
  org-agenda-skip()
…
  call-interactively(org-test-run-batch-tests nil nil)
  command-execute(org-test-run-batch-tests)
  command-line-1(("--eval" "(add-to-list 'load-path \"testing/ert\")" 
  command-line()
  normal-top-level()
Test test-org-export/before-parsing-hook condition:
(wrong-type-argument stringp nil)
   FAILED  286/423  test-org-export/before-parsing-hook



Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

Factory and User Sound Singles for Waldorf rackAttack:
http://Synth.Stromeko.net/Downloads.html#WaldorfSounds




[O] Bug: C-c C-c does not handle dynamic blocks correctly [7.9.3d (release_7.9.3d-894-gfe805e)]

2013-01-27 Thread Stefan-W. Hahn
Hello,

if trying to update a dynamic clocktable with "C-c C-c", point on "#+BEGIN",
I get the error message:

"user-error: C-c C-c can do nothing useful at this location"

The clocktable looks like:

#+BEGIN: clocktable
#+END: clocktable

This is the definition describe in the manual. I tracked this down to

#+begin_src emacs-lisp

(defun org-element-dynamic-block-parser (limit affiliated)
  "Parse a dynamic block.
...

  (let ((case-fold-search t))
(if (not (save-excursion
   (re-search-forward "^[ \t]*#\\+END:?[ \t]*$" limit t)))
   ^^ 
;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit affiliated)
  (let ((block-end-line (match-beginning 0)))
...
#+end_src

If clocktable is defined with "+END: clocktable" the parser recognizes it
as a paragraph, not a clocktable.

If I write

#+BEGIN: clocktable
#+END:

than the evaluation with "C-c C-c" will work. 

This behaviour has been changed, perhaps this is a bug.
(In the org-versin delivered with Emacs 24.2.50.1 the parser code
from org-element.el is not used; this version works like described
in the manual wwith "#+END: clocktable".)

My installation:

Emacs  : GNU Emacs 24.2.50.1 (i486-pc-linux-gnu, GTK+ Version 2.20.1)
 of 2012-10-13 on cw-bkp0, modified by Debian
Package: Org-mode version 7.9.3d (release_7.9.3d-894-gfe805e)

Kind regards,
Stefan

-- 
Stefan-W. Hahn  It is easy to make things.
It is hard to make things simple.



Re: [O] Agenda optimization: new option `org-agenda-inhibit-startup'

2013-01-27 Thread Bastien
Hi Carsten,

Carsten Dominik  writes:

> Maybe it would be useful to exempt initializing org-indent-mode from this.
> I think (Nicolas?) that this will cost no time as long as the buffer is not
> visible, but it will help to make the buffer look "right" when the user
> gets to it.

Mhh.. that's right.  I'll check that (org-indent-mode 1) does not cost
any time when the buffer is not visible.

-- 
 Bastien



Re: [O] [PATCH] fix polluting minibuffer-local-map

2013-01-27 Thread Carsten Dominik
Ouch what a bad bug.  Thanks for finding it Leo!

- Carsten

On 27.1.2013, at 09:31, Leo Liu  wrote:

> a/org.el
> b/org.el
> @@ -15578,57 +15578,57 @@
> (defvar org-read-date-minibuffer-local-map
>   (let ((map (make-sparse-keymap)))
> (set-keymap-parent map minibuffer-local-map)
> -(org-defkey minibuffer-local-map [(meta shift left)]
> +(org-defkey map [(meta shift left)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-backward-month 1
> -(org-defkey minibuffer-local-map [(meta shift right)]
> +(org-defkey map [(meta shift right)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-forward-month 1
> -(org-defkey minibuffer-local-map [(meta shift up)]
> +(org-defkey map [(meta shift up)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-backward-year 1
> -(org-defkey minibuffer-local-map [(meta shift down)]
> +(org-defkey map [(meta shift down)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-forward-year 1
> -(org-defkey minibuffer-local-map [?\e (shift left)]
> +(org-defkey map [?\e (shift left)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-backward-month 1
> -(org-defkey minibuffer-local-map [?\e (shift right)]
> +(org-defkey map [?\e (shift right)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-forward-month 1
> -(org-defkey minibuffer-local-map [?\e (shift up)]
> +(org-defkey map [?\e (shift up)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-backward-year 1
> -(org-defkey minibuffer-local-map [?\e (shift down)]
> +(org-defkey map [?\e (shift down)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-forward-year 1
> -(org-defkey minibuffer-local-map [(shift up)]
> +(org-defkey map [(shift up)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-backward-week 1
> -(org-defkey minibuffer-local-map [(shift down)]
> +(org-defkey map [(shift down)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-forward-week 1
> -(org-defkey minibuffer-local-map [(shift left)]
> +(org-defkey map [(shift left)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-backward-day 1
> -(org-defkey minibuffer-local-map [(shift right)]
> +(org-defkey map [(shift right)]
> (lambda () (interactive)
>   (org-eval-in-calendar '(calendar-forward-day 1
> -(org-defkey minibuffer-local-map "?"
> +(org-defkey map "?"
> (lambda () (interactive)
>   (org-eval-in-calendar '(diary-view-entries))
>   (message "")))
> -(org-defkey minibuffer-local-map ">"
> +(org-defkey map ">"
> (lambda () (interactive)
>   (org-eval-in-calendar '(scroll-calendar-left 1
> -(org-defkey minibuffer-local-map "<"
> +(org-defkey map "<"
> (lambda () (interactive)
>   (org-eval-in-calendar '(scroll-calendar-right 1
> -(org-defkey minibuffer-local-map "\C-v"
> +(org-defkey map "\C-v"
> (lambda () (interactive)
>   (org-eval-in-calendar
>'(calendar-scroll-left-three-months 1
> -(org-defkey minibuffer-local-map "\M-v"
> +(org-defkey map "\M-v"
> (lambda () (interactive)
>   (org-eval-in-calendar
>'(calendar-scroll-right-three-months 1
> 
> Diff finished.  Sun Jan 27 16:29:52 2013
> 
> 




Re: [O] Agenda optimization: new option `org-agenda-inhibit-startup'

2013-01-27 Thread Bastien
Eric S Fraga  writes:

> Seems to work fine and it does seem to speed things up significantly
> (although this is a non-quantitative assessment).

Thanks for confirming!

-- 
 Bastien



Re: [O] [PATCH] fix polluting minibuffer-local-map

2013-01-27 Thread Bastien
Hi Leo,

Leo Liu  writes:

> a/org.el
> b/org.el

Fixed, thanks.  

Please read this page on how to contribute patches:
http://orgmode.org/worg/org-contribute.html

-- 
 Bastien



Re: [O] Agenda optimization: new option `org-agenda-inhibit-startup'

2013-01-27 Thread Carsten Dominik
Hi Bastien,

yes, this will lead to a speedup of the first agenda in an Emacs session.  Once 
the buffers have been pulled in, this should not make a difference anymore.

Maybe it would be useful to exempt initializing org-indent-mode from this.  I 
think (Nicolas?) that this will cost no time as long as the buffer is not 
visible, but it will help to make the buffer look "right" when the user gets to 
it.

- Carsten

On 26.1.2013, at 16:40, Bastien  wrote:

> Hi all,
> 
> in the maint and master branch, there is `org-agenda-inhibit-startup',
> a new option defaulting to t which prevent the agenda buffers to run
> some startup initialization when called for generating an agenda --
> e.g. opening the buffer with a specific cycling state is not honored.
> 
> This will speed up agenda generation *a lot*, especially for people
> who have lots of agenda files.
> 
> Please check and let me know.
> 
> For those who want the previous behavior, simply set it to nil.
> 
> I want the default to be t so newbies enjoy a fast agenda early on.
> 
> All best,
> 
> -- 
> Bastien
> 
> 




[O] [PATCH] fix polluting minibuffer-local-map

2013-01-27 Thread Leo Liu
a/org.el
b/org.el
@@ -15578,57 +15578,57 @@
 (defvar org-read-date-minibuffer-local-map
   (let ((map (make-sparse-keymap)))
 (set-keymap-parent map minibuffer-local-map)
-(org-defkey minibuffer-local-map [(meta shift left)]
+(org-defkey map [(meta shift left)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-backward-month 1
-(org-defkey minibuffer-local-map [(meta shift right)]
+(org-defkey map [(meta shift right)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-forward-month 1
-(org-defkey minibuffer-local-map [(meta shift up)]
+(org-defkey map [(meta shift up)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-backward-year 1
-(org-defkey minibuffer-local-map [(meta shift down)]
+(org-defkey map [(meta shift down)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-forward-year 1
-(org-defkey minibuffer-local-map [?\e (shift left)]
+(org-defkey map [?\e (shift left)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-backward-month 1
-(org-defkey minibuffer-local-map [?\e (shift right)]
+(org-defkey map [?\e (shift right)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-forward-month 1
-(org-defkey minibuffer-local-map [?\e (shift up)]
+(org-defkey map [?\e (shift up)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-backward-year 1
-(org-defkey minibuffer-local-map [?\e (shift down)]
+(org-defkey map [?\e (shift down)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-forward-year 1
-(org-defkey minibuffer-local-map [(shift up)]
+(org-defkey map [(shift up)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-backward-week 1
-(org-defkey minibuffer-local-map [(shift down)]
+(org-defkey map [(shift down)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-forward-week 1
-(org-defkey minibuffer-local-map [(shift left)]
+(org-defkey map [(shift left)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-backward-day 1
-(org-defkey minibuffer-local-map [(shift right)]
+(org-defkey map [(shift right)]
 (lambda () (interactive)
   (org-eval-in-calendar '(calendar-forward-day 1
-(org-defkey minibuffer-local-map "?"
+(org-defkey map "?"
 (lambda () (interactive)
   (org-eval-in-calendar '(diary-view-entries))
   (message "")))
-(org-defkey minibuffer-local-map ">"
+(org-defkey map ">"
 (lambda () (interactive)
   (org-eval-in-calendar '(scroll-calendar-left 1
-(org-defkey minibuffer-local-map "<"
+(org-defkey map "<"
 (lambda () (interactive)
   (org-eval-in-calendar '(scroll-calendar-right 1
-(org-defkey minibuffer-local-map "\C-v"
+(org-defkey map "\C-v"
 (lambda () (interactive)
   (org-eval-in-calendar
'(calendar-scroll-left-three-months 1
-(org-defkey minibuffer-local-map "\M-v"
+(org-defkey map "\M-v"
 (lambda () (interactive)
   (org-eval-in-calendar
'(calendar-scroll-right-three-months 1

Diff finished.  Sun Jan 27 16:29:52 2013




Re: [O] [BUG] org-mode fontification error [11 times]

2013-01-27 Thread Bastien
Hi Leo,

Leo Liu  writes:

> In an empty org buffer, type
>
> #+tit
>
> Then M-TAB to complete. You should observe:
>
> org-mode fontification error
>
> Org-mode version 7.9.3d (release_7.9.3d-892-gdfa07a)

Fixed, thanks.

-- 
 Bastien