Re: Adding current style name to window title or status area
- To: mathgroup at smc.vnet.net
- Subject: [mg81285] Re: Adding current style name to window title or status area
- From: Norbert Marxer <marxer at mec.li>
- Date: Tue, 18 Sep 2007 00:46:37 -0400 (EDT)
- References: <fclbec$fi7$1@smc.vnet.net>
On 17 Sep., 09:47, chuck009 <dmili... at comcast.com> wrote: > I'd like to know the current style my notebook is using. Would be nice I think if the style name would appear in the window title or maybe in the status area. Here's what I have so far which only extracts a string containing the style name but I can't figure out how to get it in the window any way. I realize there's a WindowStatusArea command but I don't know how to use it yet. > > nb = Options[EvaluationNotebook[], StyleDefinitions]; > myStyle = StyleDefinitions /. nb > my2 = myStyle[[1, 1]] Hello The following command (evaluated in the appropriate notebook) writes the file name of the style sheet in the status area of the window: SetOptions[EvaluationNotebook[],WindowStatusArea- >ToString[StyleDefinitions/.Options[EvaluationNotebook[],StyleDefinitions]]] Best Regards Norbert Marxer