Groups | Search | Server Info | Login | Register

Groups > comp.text.interleaf > #8

Re: Creating TOC/Index using a lisp script

Show all headers | View raw

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.

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