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

Re: more documentation finder palettes

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76188] Re: [mg76120] more documentation finder palettes
  • From: Selwyn Hollis <sh2.7183 at earthlink.net>
  • Date: Thu, 17 May 2007 06:07:59 -0400 (EDT)
  • References: <845718.1179133087873.JavaMail.root@m35> <200705150856.EAA17018@smc.vnet.net> <20467413.1179319928628.JavaMail.root@m35> <op.tsfoj7h4qu6oor@monster.ma.dl.cox.net>

Okay, I think I've made this thing platform-independent now. Get it  
here:

      http://www.math.armstrong.edu/faculty/hollis/HelpHelperPalette.nb

Selwyn


On May 16, 2007, at 3:03 PM, DrMajorBob wrote:

> This fails. The slashes are backward.
>
> SetDirectory[$InstallationDirectory <>
>   "/Documentation/English/Packages/Compatibility/Documentation/
>   English/Guides"]
>
> Bobby
>
> On Wed, 16 May 2007 04:41:42 -0500, Selwyn Hollis  
> <sh2.7183 at earthlink.net> wrote:
>
>>
>> (* 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}]
>>
>>
>>
>>
>>
>
>
>
> -- 
> DrMajorBob at bigfoot.com



  • Prev by Date: Re: Graphics3D of the official "arbitrary surface"
  • Next by Date: Re: more documentation finder palettes
  • Previous by thread: Re: more documentation finder palettes
  • Next by thread: Re: Re: more documentation finder palettes