(* ::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.                                                         *)
(************************************************************************)



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]
]
];


sources={"WKO4.tex", "abstract.tex", "intro.tex", "El.tex", "comp.tex"};
target="WordCloud.png";


MakeWC[]:= Module[{words,dict},
words=Flatten[TextWords[ReadString[#]]& /@ sources];
dict=Complement[
DeleteStopwords[DictionaryLookup[]],
{"begin", "end","left","right", "equation", "item","em"}
];
words =Select[words, MemberQ[dict,#]&];
WordCloud[words, ImageSize->400]
]


Make[target, Join[sources,{"index.nb"}], Hold[Export[target, MakeWC[]]]]


{
"TitleNotes" -> StringJoin["<div style=\"clear: right; float: right; padding: 8px; width: 400px;\"><img width=400px src=Logo.png></div>This is the construction / computation page for my paper <b>Finite Type Invariants of w-Knotted Objects IV: Some Computations</b> (<a href=WKO4.pdf>PDF here</a>). <p>Click to download the main Mathematica packages used within: <a href=FreeLie.m><tt>FreeLie.m</tt></a> and <a href=AwCalculus.m><tt>AwCalculus.m</tt></a>. <p><b>Abstract.</b> ",
Import["abstract.txt"],
"\n<p><b>Front page links:</b> <a href=WKO4.pdf>WKO4.pdf</a>, <a href=FreeLie.m><tt>FreeLie.m</tt></a>, <a href=AwCalculus.m><tt>AwCalculus.m</tt></a>, ",
Riffle[
StringReplace[
"  NB (<a href=NB.nb>nb</a>, <a href=nb/NB.pdf>pdf</a>)",
"NB"->#
]& /@ StringSplit["WKO4Session bch 817 Borromean VCapSolution KVDirect dims dims1 Phi"],
",\n"
],
".\n<p>"
]
}
