Install KnotTheory` and WikiLink`

Scott's version

\(\(KATPath\  = \ "c:\scott\math.berkeley.edu\Work\Mathematica\KnotAtlas\";\)\)
AppendTo[$Path,  KATPath];
SetDirectory[KATPath];
<<  KnotTheory`
<< KnotTheoryExtra`
<< "WikiLink\\WikiLink.m"
SetJarPath[KATPath <> "WikiLink\\"];
\(CreateWikiConnection["http://katlas.math.toronto.edu/w/index.php", "ScottKnotPageRobot", "foobar"]\)

Definitions

TabularKh[kh_] := TabularKh[kh, {}]
\(TabularKh[kh_, highlight_List] := 
      Module[{out, width, minr, maxr, minj, maxj, j, r, c, critical, chi}, 
        minr = Exponent[kh, t, Min]; 
maxr = 
          Exponent[kh, t, Max]; 
minj = 
          Exponent[kh, q, Min]; 
maxj = 
          Exponent[kh, q, Max]; 
width = 
          N[100/\((maxr - minr + 5)\)]; 
out = 
          StringJoin["<table border=1>
", "<tr align=center>
", "<td width=" <> 
              ToString[
                2  width] <> "%><table cellpadding=0 cellspacing=0>
", "  <tr><td>\</td><td>&nbsp;</td><td>r</td></tr>
", "<tr><td>&nbsp;</td><td>&nbsp;\&nbsp;</td><td>&nbsp;</td></tr>
", "<tr><td>j</td><td>&nbsp;</td><td>\</td></tr>
", "</table></td>


"]; 
Do[
          out = out <> "<td width=" <> ToString[width] <> "%>" <> 
              ToString[r] <> "</td



>", {r, minr, maxr}]; 
out = 
          out <> "<td width=" <> 
            ToString[
              2  width] <> "%>&chi;</td></tr>
"; 
Do[
          out = out <> "<tr align=center><td>" <> 
              ToString[j] <> "</td>"; 
chi = 
            0; 
Do[
            c = Coefficient[Expand[kh*t^\((1 - minr)\)*q^\((1 - minj)\)], 
                t^\((r + 1 - minr)\)*
                  q^\((j + 1 - 
                        minj)\)]; 
chi += \((\(-1\))\)^r*
                c; 
critical = 
              MemberQ[highlight, j - 2  r]; 
out = 
              out <> Which[
                  critical && c ≠ 0, "<td bgcolor=yellow>" <> 
                    ToString[c] <> "</td>", 
                  critical && 
                    c == 
                      0, "<td bgcolor=yellow>&nbsp;</td>", \(! critical\) && c ≠ 0, "<td bgcolor=red>" <> 
                    ToString[c] <> "</td>", \(! critical\) && 
                    c == 0, "<td>&nbsp;</td>"], {r, minr, 
              maxr}]; 
out = 
            out <> "<td>" <> ToString[chi] <> "</td></tr>
", {j, 
            maxj, minj, \(-2\)}]; 
out <> "</table>"]\)

InOut[n_Integer] := (LineCounter = n; "");
\(InOut[s_String] := 
      StringJoin[
"<tr valign=top><td><pre style="color: 


blue; border: 0px; padding: 0em"><nowiki>In[", 
        ToString[\(++LineCounter\)] <> "]:=</nowiki></pre></td>", "<td><pre style="color: red; border: 0px; padding: 0em"><nowiki>" <> 
          s <> "</nowiki></pre></td></tr>
", "<tr valign=top><td><pre 

style="color: blue; border: 0px; padding: 0em"><nowiki>Out[", 
        ToString[
            LineCounter] <> "]=", "&nbsp;&nbsp;</nowiki></pre></td>", "<td><pre style="color: black; border: 0px; padding: 0em"><nowiki>", 
        ToString[ToExpression[s], FormatType -> OutputForm, 
          PageWidth -> 72], "</nowiki></pre></td></tr>"]\)
\(InOut[s_String, parms__] := InOut[ToString[StringForm[s, parms]]]; 
    GraphicsBox[imagename_String, s_String]\  := \ 
      StringReplace[\(++LineCounter\); 
"<tr 
valign=top><td><pre style="color: blue; border: 0px; padding: 
0em"><nowiki>In[##]:=</nowiki></pre></td><td><pre style="color: red; 
border: 0px; padding: 
0em"><nowiki>#2</nowiki></pre></td></tr><tr><td></td><td 
align=left>[[Image:#1]]</td></tr><tr valign=top><td><tt><font 
color=blue>Out[##]=</font></tt><td><tt><font 
color=black>-Graphics-</font></tt></td></tr>", 
{"##"\  -> \ ToString[LineCounter], \ "#1"\  -> \ 
            imagename, \ "#2"\  -> \ 
            s}
];\)
GraphicsBox[imagename_String, s_String, parms__] := 
      GraphicsBox[ToString[StringForm[imagename, parms]], 
        ToString[StringForm[s, parms]]]

\(KnotPageWarning[
        SpliceTemplateFile_String] := 
"<!--                       WARNING! WARNING! WARNING!
" <> 
"<!-- This page was generated from the splice template [[" <> 
        SpliceTemplateFile <> "]]. Please do not edit!
" <> 
"<!-- You probably want to edit the template referred to immediately below. (See [[Category:Knot Page Template]].)
" <> 
"<!-- This page itself was created by running [[Media:KnotPageSpliceRobot.nb]] on [[" <> 
        SpliceTemplateFile <> "]]. -->
"\)

\(WikiSplice[TemplateFile_String\  -> \ KnotList_List]\  := \ 
      Module[
{K, \ pp, \ np, \ ThisKnot, template, \ 
          page, \ marks, \ query, \ exe, \ replacements, \ j, \ \ k, \ 
          in}, 
template = 
          WikiGetPageText[TemplateFile]; 
marks\  = \ 
          Partition[
            Flatten[Transpose[{
StringPosition[
                    template, \ "<*"], 
StringPosition[
                    template, \ "*>"]
}]], \ 
            4]; 
query = "The following Mathematica lines 
were found:
"; 
query = 
          query <> \((StringJoin\  @@ \ \((
\(\((StringTake[
                            template, \ {#[\([2]\)] + 1, \ #[\([3]\)] - 
                                1}] <> "
")\) &\)\  /@ \ 
                    marks
)\))\); 
Print[
          query = query <> "Execute these lines? (Yes/No)"]; 
exe\  = \ InputString[query]; 
If[
          exe\  =!= \ "Yes", \ "Not Done", 
WikiSetPageTexts[
Table[
{
Global`K = 
                  KnotList[[
                    j]]; 
Print[
                  K]; 
NameString[
                  K], 
replacements\  = \ 
                  Table[
in\  = \ 
                      StringTake[
                        template, \ {marks[\([k, 2]\)] + 1, \ 
                          marks[\([k, 3]\)] - 1}]; 
out = 
                      ToExpression[
                        in]; 
{
\ 
                      ToString[out, \ 
                        WikiForm], 
{marks[\([k, 1]\)], \ 
                        marks[\([k, 
                            4]\)]}
}, 
{k, \ 
                      Length[marks]}
]; 
page\  = \ 
                  StringJoin[
KnotPageWarning[
                      TemplateFile], 
StringReplacePart[
                      template, \ First\  /@ \ replacements, \ 
                      Last\  /@ \ 
                        replacements]
]
}, 
{j, \ 1, 
                Length[KnotList]}
]
]
]
]\)

A2Invariant[K_] /; (Crossings[K] > 15) := 
        NotAvailable &;
Kauffman[K_] /; (Crossings[K] > 16) := 
        NotAvailable &;
SetOptions[ColouredJones, Compute -> False];

Splice!

WikiSplice["Torus_Knot_Splice_Base" ->  
        Take[TorusKnots[36], All]]

WikiSplice["Rolfsen_Splice_Base" -> 
        Take[ AllKnots[{0, 10}], All]]

WikiSplice["Hoste-Thistlethwaite_Splice_Base" -> 
        Take[AllKnots[11], All]]

WikiSplice["Link_Splice_Base" -> 
        Take[AllLinks[], All]]