Made ExampleInputs with Visible->False set more invisible

MMA-ForScience · May 9, 2018 · b37da64 · b37da64
1 parent c50a5be
commit b37da64
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 2 deletions.
diff --git a/ForScience/PacletInfo.m b/ForScience/PacletInfo.m
@@ -4,7 +4,7 @@
   Name -> "ForScience",
   Description -> "Contains various utility functions and styling to make it easier to use MMA for scientific plots",
   Creator -> "Lukas Lang & Marc Lehner",
-  Version -> "0.63.5",
+  Version -> "0.63.6",
   MathematicaVersion -> "11.1+",
   Extensions -> {
     { "Documentation", Language -> "English"},

diff --git a/ForScience/PacletUtils/Examples.wl b/ForScience/PacletUtils/Examples.wl
@@ -67,6 +67,14 @@ Attributes[ExamplesSection]={HoldFirst};
 
 $ExampleLevels={"PrimaryExamplesSection","ExampleSection","ExampleSubsection"};
 
+resetInOut[in_,out_]:=(
+  Unprotect@{In,Out};
+  DownValues@In=oldIn;
+  DownValues@Out=oldOut;
+  Protect@{In,Out};
+  Out[$Line]
+)
+
 ExamplesSection[sec_Association,nb_,lev_]:=
   KeyValueMap[
     With[
@@ -97,7 +105,20 @@ ExamplesSection[sec_List,_,_]:=
             #/.ExampleInput[in__,OptionsPattern[]]:>If[
               Visible/.Join[Options[#],Options[ExampleInput]],
               ExampleInput[in],
-              ExampleInput[line=$Line;,in,NotebookDelete@EvaluationCell[];$Line=line-1;]
+              ExampleInput[
+                oldIn=Most@DownValues@In;
+                oldOut=DownValues@Out;
+                oldLine=--$Line;
+                resetInOut[oldIn,oldOut];,
+                in,
+                NotebookDelete@EvaluationCell[];
+                Unprotect@{In,Out};
+                DownValues@In=oldIn;
+                DownValues@Out=oldOut;
+                Protect@{In,Out};
+                $Line=oldLine;
+                resetInOut[oldIn,oldOut];
+              ]
             ],
             {
               s_String:>(MathLink`CallFrontEnd[