Re: Initialization cell appearance
- To: mathgroup at smc.vnet.net
- Subject: [mg74355] Re: Initialization cell appearance
- From: "John Jowett" <John.Jowett at cern.ch>
- Date: Mon, 19 Mar 2007 05:51:07 -0500 (EST)
- References: <etb5c3$k2f$1@smc.vnet.net> <etcoj8$9ub$1@smc.vnet.net> <etg40k$igp$1@smc.vnet.net>
Albert,
Thank you (to the others also) for your suggestions. Your code for
running through the notebook and changing the background of thee
initialization cells is probably the most useful as it means I can avoid
defining a new cell style (I think it is probably a good idea to have only
one class of input cells).
There is a small bug in your code though (the definition of isinit). I copy
it again here with the correction:
SelectionMove[nb, Before, Notebook];
SelectionMove[nb, Next, Cell];
select = NotebookRead[nb];
While[select =!= {},
isinit = InitializationCell /.
AbsoluteOptions[NotebookSelection[nb], InitializationCell];
If[isinit,
SetOptions[NotebookSelection[nb], Background -> Yellow],
SetOptions[NotebookSelection[nb], Background -> Automatic]
];
SelectionMove[nb, Next, Cell];
select = NotebookRead[nb]
];
Typically I would use this with
nb = NotebookOpen[<path to some notebook file>]
and I think I will turn it into a utility function. I suppose it could also
be implemented as a replacement rule on the notebook expression. Would
this be faster, I wonder ?
John Jowett
"Albert" <awnl at arcor.net> wrote in message news:etg40k$igp$1 at smc.vnet.net...
Hi,
> this is the way to go. It works, I am using this all the time. Just make
> a copy of your favourit StyleSheet, in that make a copy of the
> InputCell-Style and change it to be an Initialization Cell. Depending on
> where you put the new definition in your StyleSheet, you can even switch
> between this new style and a regular InputCell...
here the last part of the sentence was missing:
... with a Alt-<N>, N=0...9 keyboard shortcut
to let this message contain some more useful information here is a piece
of code that shows how you could automate the process if you don't like
the StyleSheet-solution:
(* this just creates a new notebook to test the following code, in your
real application you want to set nb to the notebook object you want to
alter ... *)
nb = NotebookPut[
Notebook[{Cell["1+1", "Input"], Cell["2+2", "Input",
InitializationCell -> True]}]
]
(* here comes the code: select each cell of the notebook, check whether
it is an InitializationCell and change the background. The else part of
the if would reset the background to the stylesheet default if it is not
an initialization cell anymore. Of course there are plenty of
possibilities to do this better, just adopt it to your needs... *)
SelectionMove[nb, Before, Notebook];
SelectionMove[nb, Next, Cell];
select = NotebookRead[nb];
While[select =!= {},
isinit = AbsoluteOptions[NotebookSelection[nb],InitializationCell];
If[isinit,
SetOptions[NotebookSelection[nb], Background -> Yellow],
SetOptions[NotebookSelection[nb], Background -> Automatic]
];
SelectionMove[nb, Next, Cell];
select = NotebookRead[nb]
];
hth,
albert