(* ::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:: *)
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={"PPSA.tex", "abstract.tex", "refs.tex"};
target="WordCloud.png";


(* ::Input::Initialization:: *)
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]
]


(* ::Input::Initialization:: *)
Make[target, Join[sources,{"index.nb"}], Hold[Export[target, MakeWC[]]]]


(* ::Input::Initialization:: *)
{
"TitleNotes" -> StringJoin["<div style=\"clear: right; float: right; padding: 8px; width: 400px;\"><img width=400px src=WordCloud.png></div>This is the 170103 backup construction / computation page for my joint paper with <a class=external href=\"http://www.rolandvdv.nl/\">Roland van der Veen</a>, <b>A Poly-Time Knot Polynomial Via Solvable Approximation</b> (<a href=PPSA.pdf>PDF here</a>). <p><b>Abstract.</b> ",
StringReplace[ReadString["abstract.tex"], {
"~"->"&nbsp;",
"\\cite[1928]{Alexander:TopologicalInvariants}" -> "(1928)"
}]
]
}
