Groups | Search | Server Info | Login | Register

Groups > comp.text.interleaf > #9

Re: Creating TOC/Index using a lisp script

Show all headers | View raw

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! :-)

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