Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Stylesheets

  • To: mathgroup at smc.vnet.net
  • Subject: [mg96746] Re: Stylesheets
  • From: Simon <simonjtyler at gmail.com>
  • Date: Mon, 23 Feb 2009 05:04:24 -0500 (EST)
  • References: <gnm1nl$hg7$1@smc.vnet.net>

and of course, using cascaded style sheets, a kludge like the
following works:

ssDir = HomeDirectory[] <>
   "/.Mathematica/SystemFiles/FrontEnd/StyleSheets/";
ss = Get[ssDir <> "/MySlideShow.nb"] /.
   Cell[StyleData[StyleDefinitions -> "MyBase.nb"]] ->
    Sequence@@Get[ssDir <> "/MyBase.nb"][[1, 1]];
SetOptions[EvaluationNotebook[], StyleDefinitions -> ss]

of course, one could write a procedure which would follow the
StyleDefinitions->"*.nb" links all the way down to "default.nb" or
"base.nb"  if need be.

Thanks again for your help!


  • Prev by Date: Re: no message from Minimize[] on a weird function(x^x) !?!
  • Next by Date: Re: Division by zero, despite strong hint
  • Previous by thread: Re: Stylesheets
  • Next by thread: Latin Hypercube and other sampling algorithm