Creating TOC/Index using a lisp script

Path	csiph.com!newsfeed.hal-mli.net!feeder3.hal-mli.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!69.16.185.21.MISMATCH!npeer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
From	RalfN <ralfnausi@aol.com>
Newsgroups	comp.text.interleaf
Subject	Creating TOC/Index using a lisp script
Date	Mon, 16 Jul 2012 07:57:13 -0700 (PDT)
Organization	http://groups.google.com
Lines	27
Message-ID	<4fdf683c-0d15-4d06-bb14-e9a1ee6fcaa7@googlegroups.com> (permalink)
NNTP-Posting-Host	31.150.83.202
Mime-Version	1.0
Content-Type	text/plain; charset=ISO-8859-1
X-Trace	posting.google.com 1342450634 19670 127.0.0.1 (16 Jul 2012 14:57:14 GMT)
X-Complaints-To	groups-abuse@google.com
NNTP-Posting-Date	Mon, 16 Jul 2012 14:57:14 +0000 (UTC)
Complaints-To	groups-abuse@google.com
Injection-Info	glegroupsg2000goo.googlegroups.com; posting-host=31.150.83.202; posting-account=Z8GX-woAAAA29SCZhFNeDWtejPVYnCAA
User-Agent	G2/1.0
X-Received-Bytes	2055
Xref	csiph.com comp.text.interleaf:7

Show key headers only | View raw

Hello, I'm new to Lisp and programming. 
Currently I'm using a few macro-api functions from QS 2.0 for some smaller tasks.
Some of these tasks have to do with editing index documents.

Now I would like to combine creating the index document and doing the editing tasks.

That means moving away from "Book -> Index..." and instead create an index document using a lisp script. 

I found some code for creating a toc, but for Ileaf 5.
Because I had read somewhere that TOC and Index have similar syntax, I tested the following lines (ILeaf 6 and QS 2.0; the script into "System -> Custom -> Selection"):

(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?

Any help will be greatly appreciated!

Back to comp.text.interleaf | Previous | Next — 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