You know those clickable synonym networks?
https://www.visualthesaurus.com/app/view
We got rudimentary WL version with clickable vertices - somewhere in comments here:
http://community.wolfram.com/groups/-/m/t/227651
Basically....
SetAttributes[SynonymNetworkNew, HoldFirst]
SynonymNetworkNew[word_, depth_Integer, labels_: Tooltip] :=
Module[{ed, sz, g, vlist},(*list of edges*)
ed = Union[
Sort /@ Flatten[
Rest[NestList[
Union[Flatten[
Thread[# <-> WordData[#, "Synonyms", "List"]] & /@ #[[All,