(* ::Package:: *)

(************************************************************************)
(* This file was generated automatically by the Mathematica front end.  *)
(* It contains Initialization cells from a Notebook file, which         *)
(* typically will have the same name as this file except ending in      *)
(* ".nb" instead of ".m".                                               *)
(*                                                                      *)
(* This file is intended to be loaded into the Mathematica kernel using *)
(* the package loading commands Get or Needs.  Doing so is equivalent   *)
(* to using the Evaluate Initialization Cells menu command in the front *)
(* end.                                                                 *)
(*                                                                      *)
(* DO NOT EDIT THIS FILE.  This entire file is regenerated              *)
(* automatically each time the parent Notebook file is saved in the     *)
(* Mathematica front end.  Any changes you make to this file will be    *)
(* overwritten.                                                         *)
(************************************************************************)



(* ::Input::Initialization:: *)
BeginPackage["Snips`", {"CellExport`"}]; Begin["`private`"];
SetOptions[$FrontEndSession,PrintingStyleEnvironment->"Working"];


(* ::Input::Initialization:: *)
Make::usage = "Make[targets, sources, Hold[action]] makes a target, or a list of targets, given sources, or a list of sources, in the style of the unix 'make' command.";
Make[target_String, sources_, action_Hold] := Make[Evaluate@{target}, sources, action];
Make[targets_, source_String, action__Hold] := Make[targets, Evaluate@{source}, action];
Make[targets_List, sources_List, action_Hold] := Module[{},
If[
(And @@ ((FileType[#] =!= None)& /@ sources)) &&
Or[
Or @@ ((FileType[#]===None)& /@ targets),
Min[AbsoluteTime[FileDate[#]]& /@ targets] < Max[AbsoluteTime[FileDate[#]]& /@ sources]
],
(*Print["Making ",targets, " ..."];*)
ReleaseHold[action]
]
];


(* ::Input::Initialization:: *)
sources={"ReorderingDemo.nb" (*, "index.nb" *)}; (* The source notebook must be first *)
target="Snips/ReorderingDemo.txt";
Make[target, sources, Hold[
SetOptions[CellExport, ExportFormat -> ".pdf", PageWidth -> 9];
SourceNotebook = Get[First@sources];
DialogTags={"sl2matrices", "Reordering_sl2", "g0matrices", "Reordering_g0"};
tags=Cases[SourceNotebook, (CellTags->tag_) :> tag, Infinity ] // Union;
files=Flatten[Table[
Which[
tag=="817", { (* this is only left here as a demo for how to make an exception *)
CellExport[SourceNotebook, "817", {CellFilter -> First, ExportBaseFilename -> "Snips/817-In"}],
CellExport[SourceNotebook, "817", {CellFilter -> Rest, ExportBaseFilename -> "Snips/817-Out", PageWidth -> 5.5*0.24/0.16}]
},
MemberQ[DialogTags, tag], {
CellExport[SourceNotebook, tag, {CellFilter -> First, ExportBaseFilename -> "Snips/"<>tag<>"-In"}],
CellExport[SourceNotebook, tag, {CellFilter -> Rest, ExportBaseFilename -> "Snips/"<>tag<>"-Out"}]
},
True, CellExport[SourceNotebook, tag, ExportBaseFilename -> "Snips/"<>tag]
],
{tag, tags}]];
PutAppend[DateString[], target]
]]


(* ::Input::Initialization:: *)
End[]; EndPackage[];
