Groups | Search | Server Info | Login | Register

Groups > comp.text.interleaf > #10

Re: Creating TOC/Index using a lisp script

Show all headers | View raw

On 7/16/2012 1:21 PM, RalfN wrote:
> Am Montag, 16. Juli 2012 18:28:14 UTC+2 schrieb Dick Margulis:
>> On 7/16/2012 10:57 AM, RalfN wrote:
>> >
>> > (defun create-toc-for-all (container)
>> > ;creates a TOC for all docs in the conainer
>> >     (let (children child)
>> >       ;get all the unselected children
>> >       (setq children (dt-children container :not-selected))
>> >       ;select them
>> >       (while (setq child (pop children))
>> >         (tell child mid:set-props :selected t))
>> >       ;create table of contents for all chidren
>> >       (toc-create-selected container)
>> > ))
>> >
>> > Unfortunately it does not work. It seems that there happens nothing.
>> > Are there any ideas to make it work?
>> >
>>
>> If you actually copied and pasted your script into your post (rather
>> than rekeying it), it's possible that the typo in the third line from
>> the bottom  ("chidren" instead of "children") is the cause of your problem.
>
>
> Anything following a semicolon is a comment, so the typo will not take effect.
> I didn't expect such a fast response! :-)
>

Sorry, I'm an editor and book designer, not a Lisp programmer. I failed 
to take note of the semicolon, but my eye was drawn to the typo. Please 
ignore my irrelevant suggestion.

Back to comp.text.interleaf | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Creating TOC/Index using a lisp script RalfN <ralfnausi@aol.com> - 2012-07-16 07:57 -0700
  Re: Creating TOC/Index using a lisp script Dick Margulis <margulisd@comcast.net> - 2012-07-16 12:28 -0400
    Re: Creating TOC/Index using a lisp script RalfN <ralfnausi@aol.com> - 2012-07-16 10:21 -0700
      Re: Creating TOC/Index using a lisp script Dick Margulis <margulisd@comcast.net> - 2012-07-18 08:38 -0400
        Re: Creating TOC/Index using a lisp script RalfN <ralfnausi@aol.com> - 2012-07-18 11:44 -0700
  Re: Creating TOC/Index using a lisp script RalfN <ralfnausi@aol.com> - 2012-08-02 11:04 -0700

csiph-web