Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

more documentation finder palettes

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76120] more documentation finder palettes
  • From: Selwyn Hollis <sh2.7183 at earthlink.net>
  • Date: Wed, 16 May 2007 05:41:42 -0400 (EDT)
  • References: <845718.1179133087873.JavaMail.root@m35> <200705150856.EAA17018@smc.vnet.net>

(* This is a vastly improved version of the previous palette for  
opening tutorial overviews: *)

columns = 3;
SetDirectory[$InstallationDirectory <>
    "/Documentation/English/System/Tutorials"];
overviewNames =
   StringReplace[#, {".nb" -> ""}] & /@ FileNames["*Overview.nb"];
SetDirectory[$HomeDirectory]; docpaths =
  FileNames[
   "*Overview.nb", {$InstallationDirectory <>
     "/Documentation/English/System/Tutorials"}, Infinity];
CellPrint@Cell[BoxData[GridBox[
     Partition[PadRight[#, columns*Ceiling[Length[#]/columns], " "],
        columns] &[
      ((ButtonBox[((l = StringLength[#];
               If[l < 25, #, StringTake[#, 23] <> "..."]) &)@
            StringReplace[
             First[#], {"Overview" -> "", "And" -> "&",
              StartOfString ~~ "The" -> "", "Administration" -> "Admin",
              "TwoDimensional" -> "2D", "Operations" -> "Ops"} ],
           ButtonFunction :> (NotebookOpen[Last[#]]),
           Evaluator -> Automatic] &) /@
        Transpose[{overviewNames, docpaths}])]]],
   ButtonBoxOptions -> {BaseStyle -> {FontSize -> 9, FontFamily ->  
"Arial",
       Bold}, FrameMargins -> {{2, 2}, {0, 0}},
     Background -> RGBColor[1, 0.96, 0.87]},
   GridBoxOptions -> {RowSpacings -> 0, ColumnSpacings -> 0}]

(* This one opens package guides:  *)

columns = 3;
SetDirectory[$InstallationDirectory <> "/Documentation/English/ 
Packages"];
pkgnames = FileNames[];
SetDirectory[$HomeDirectory]; docpaths =
  FileNames[
   "*", {$InstallationDirectory <>
     "/Documentation/English/Packages/*/Documentation/English/Guides"},
   Infinity];
CellPrint@Cell[BoxData[GridBox[
     Partition[PadRight[#, columns*Ceiling[Length[#]/columns], " "],
        columns] &[
      ((ButtonBox[((l = StringLength[#];
               If[l < 25, #, StringTake[#, 23] <> "..."]) &)@First[#],
           ButtonFunction :> (NotebookOpen[Last[#]]),
           Evaluator -> Automatic] &) /@
        Transpose[{Flatten[pkgnames /. "Compatibility" -> {}],
          Flatten[
           If[Not@StringMatchQ[#, {"*Package.nb"}], {}, #] & /@
            docpaths]}])]]],
   ButtonBoxOptions -> {BaseStyle -> {FontSize -> 9, FontFamily ->  
"Arial",
       Bold}, FrameMargins -> {{2, 2}, {0, 0}},
     Background -> RGBColor[1, 0.96, 0.87]},
   GridBoxOptions -> {RowSpacings -> 0, ColumnSpacings -> 0}]


(* This one opens the compatibility guides: *)

columns = 1;
SetDirectory[$InstallationDirectory <>
    "/Documentation/English/Packages/Compatibility/Documentation/ 
English/\
Guides"];
pkgnames = FileNames[];
SetDirectory[$HomeDirectory]; docpaths =
  FileNames[
   "*", {$InstallationDirectory <>
     "/Documentation/English/Packages/Compatibility/Documentation/ 
English/\
Guides/*"}, Infinity];
CellPrint@Cell[BoxData[GridBox[
     Partition[PadRight[#, columns*Ceiling[Length[#]/columns], " "],
        columns] &[
      ((ButtonBox[((l = StringLength[#];
               If[l < 25, #, StringTake[#, 23] <> "..."]) &)@First[#],
           ButtonFunction :> (NotebookOpen[Last[#]]),
           Evaluator -> Automatic] &) /@ Transpose[{pkgnames,  
docpaths}])]]],
   ButtonBoxOptions -> {BaseStyle -> {FontSize -> 10, FontFamily ->  
"Arial",
       Bold}, FrameMargins -> {{10, 10}, {0, 0}},
     Background -> RGBColor[1, 0.96, 0.87]},
   GridBoxOptions -> {RowSpacings -> 0, ColumnSpacings -> 0}]





  • Prev by Date: Re: Re: Where is the Mathematica Book in Documentation
  • Next by Date: Re: Re: Compatibility woes
  • Previous by thread: Re: Compatibility woes
  • Next by thread: Re: more documentation finder palettes