no wr services patch

Author: JerryI

Common/Patches/NoWR.wl

@@ -0,0 +1,24 @@
+BeginPackage["CoffeeLiqueur`Patches`NoWR`"]
+
+Begin["`Private`"]
+
+With[{
+  words = DeleteDuplicates @ 
+    Select[StringLength[#] > 2 &] @ Flatten @ 
+      Map[
+        StringCases[#, 
+          CharacterRange["A", "Z"] ~~ 
+           Except[CharacterRange["A", "Z"]] ..] &] @ 
+       Select[StringLength[#] > 2 &] @ 
+        Names["System`*"]
+  },
+  Unprotect[RandomWord];
+  ClearAll[RandomWord];
+  
+  RandomWord[] := RandomChoice @ words;
+  RandomWord[n_Integer] := RandomChoice[words, n];
+]
+
+End[]
+
+EndPackage[]

Kernel/LocalKernel.wl

@@ -288,6 +288,10 @@ start[k_LocalKernelObject] := Module[{link},
         LinkWrite[link, Unevaluated[ PacletDirectoryLoad[Directory[] ] ] ];
         LinkWrite[link, Unevaluated[ PacletDirectoryLoad[FileNameJoin[{Directory[], "wl_packages"}] ] ] ];
 
+        If[TrueQ @ Internal`$NoWRServices, 
+             LinkWrite[link, Unevaluated[ Get[FileNameJoin[{Directory[], "Common", "Patches", "NoWR.wl"}] ] ] ];
+        ];
+
         LinkWrite[link, EnterTextPacket["<<KirillBelov`CSockets`"] ];
         LinkWrite[link, EnterTextPacket["<<KirillBelov`Objects`"] ];
         LinkWrite[link, EnterTextPacket["<<KirillBelov`Internal`"] ];

Scripts/start.wls

@@ -198,9 +198,14 @@ WLJSPackages`Load[ AppExtensions`ExtensionsDir ];
 
 {loadSettings, storeSettings}        = Get[FileNameJoin[{"Frontend", "Settings.wl"}] ];
 
-RandomWord[];
-
+(* check if there is internet or connection to WR servers *)
+(* NetworkConnected is not robust enough *)
+Internal`$NoWRServices = !StringQ[RandomWord[]];
 
+If[TrueQ @ Internal`$NoWRServices, 
+  Echo["No WR servers are reachable, we will apply patches to some system symbols..."];
+  Get[FileNameJoin[{Directory[], "Common", "Patches", "NoWR.wl"}]]
+];
 
 WLJSPackages`Includes["js"];
 WLJSPackages`Includes["frontend"];