Re: Table of Contents
- To: mathgroup at smc.vnet.net
- Subject: [mg85433] Re: Table of Contents
- From: David Reiss <dbreiss at gmail.com>
- Date: Sun, 10 Feb 2008 05:19:21 -0500 (EST)
- References: <foejuo$huu$1@smc.vnet.net> <fogif4$3c1$1@smc.vnet.net>
Sorry... a copy and paste mistake. Here is the corrected code:
TOCForNotebook[] :=
Module[{nbr, data, cells, nb},
nb = EvaluationNotebook[];
SetOptions[nb, System`CreateCellID -> True];
SelectionMove[nb, All, Notebook, AutoScroll -> False];
NotebookWrite[nb, NotebookRead[nb]];
NotebookFind[nb, "Section", All, CellStyle];
nbr = NotebookRead[nb];
data = nbr /. {Cell[x_, "Section", ___,
z : (CellID -> w_), ___] :> {x, w}};
cells = TextCell[
Button[TextCell[#[[1]], "Hyperlink"],
NotebookFind[EvaluationNotebook[], #[[2]], All, CellID],
Appearance -> "Frameless"],
"Text"] & /@ data;
cells = First[ToBoxes[#]] & /@ cells;
SelectionMove[EvaluationNotebook[], Before, Notebook,
AutoScroll -> True];
NotebookWrite[nb, cells];
]
On Feb 7, 10:31=A0pm, David Reiss <dbre... at gmail.com> wrote:
> Here is an example of a function that, when executed in the notebook
> in question, will generate a set fo cells at the top of the notebook
> that are hyperlinks to the section cells:
>
> ClearAll[TOCForNotebook];
>
> TOCForNotebook[] :=
> =A0 Module[{nbr, data, cells, nb},
>
> =A0 =A0nb = EvaluationNotebook[];
>
> =A0 =A0SetOptions[nb, System`CellID -> True];
>
> =A0 =A0SelectionMove[nb, All, Notebook, AutoScroll -> False];
> =A0 =A0NotebookWrite[nb, NotebookRead[nb]];
>
> =A0 =A0NotebookFind[nb, "Section", All, CellStyle];
> =A0 =A0nbr = NotebookRead[nb];
> =A0 =A0data =
> =A0 =A0 nbr /. {Cell[x_, "Section", ___, z : (CellID -> w_), ___] :> {x,
> =A0 =A0 =A0 =A0 w}};
>
> =A0 =A0cells = Function[x,
> =A0 =A0 =A0 =A0 TextCell[
> =A0 =A0 =A0 =A0 =A0Button[TextCell[#[[1]], "Hyperlink"],
> =A0 =A0 =A0 =A0 =A0 NotebookFind[x, #[[2]], All, CellID],
> =A0 =A0 =A0 =A0 =A0 Appearance -> "Frameless"],
> =A0 =A0 =A0 =A0 =A0"Text"]][nb] & /@ data;
>
> =A0 =A0cells = First[ToBoxes[#]] & /@ cells;
>
> =A0 =A0SelectionMove[EvaluationNotebook[], Before, Notebook,
> =A0 =A0 AutoScroll -> True];
>
> =A0 =A0NotebookWrite[nb, cells];
>
> =A0 =A0];
>
> So, first execute this code somewhere in your current Mathematica
> session. =A0Then execute
>
> TOCForNotebook[]
>
> within the notebook in question. =A0If your Section cells have any
> formatting in them then this will not quite work as expected. =A0But it
> gives a start to others that would wish to modify this. =A0The code
> exposes several coding tricks that folks will perhaps find useful....
>
> -David
> A WorkLife FrameWork
> E x t e n d i n g MATHEMATICA's Reach...http://scientificarts.com/worklife=
/
>
> On Feb 7, 4:44=A0am, =8Aer=FDch Jakub <Ser... at panska.cz> wrote:
>
> > I use some notebooks as the collections of many small examples, which I
> > allways start with cell styled as "Section" followed by usually one inpu=
t =
> and
> > one output cell. The "Section" styled cell contains the name of the exam=
pl=
> e.
>
> > Does anybody know, how to create Table of Contents based on these sectio=
n
> > cells? Idealy it would contain interactive hyperlinks directly to the ce=
ll=
> s.
>
> > Thanks in advance
>
> > Jakub