[Date Index] [Thread Index] [Author Index]

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