DOSTextFormat->False

Author: JerryI

Kernel/FileFormat.wl

@@ -3,7 +3,7 @@ BeginPackage["CoffeeLiqueur`Notebook`FileFormat`"];
 readNotebook;
 writeNotebook;
 
-endOfLine = If[$OperatingSystem === "Windows", "\r", EndOfLine];
+endOfLine = EndOfLine;
 
 Begin["`Private`"];
 

Kernel/Loader.wl

@@ -77,7 +77,7 @@ BeginPackage["CoffeeLiqueur`Notebook`Loader`", {
         If[OptionValue["Temporal"],
             Module[{r, stream},
 
-                stream = OpenWrite[makeHashPath[dir], BinaryFormat->True];
+                stream = OpenWrite[makeHashPath[dir], DOSTextFormat->False];
                 nb`SerializeToStream[stream, notebook];
                 r = Close[stream];
 
@@ -93,7 +93,7 @@ BeginPackage["CoffeeLiqueur`Notebook`Loader`", {
             With[{h = checkbackups[notebook]}, If[h =!= False, moveBackupSomewhere[h] ] ];
 
             Module[{r, stream},
-                stream = OpenWrite[dir, BinaryFormat->True];
+                stream = OpenWrite[dir, DOSTextFormat->False];
                 nb`SerializeToStream[stream, notebook];
                 r = Close[stream];
                 notebook["FileHash"] = FileHash[dir];

Kernel/Notebook.wl

@@ -62,7 +62,7 @@ LoadCellFromFile[path_, notebook_] := Module[{stream, result, legacyQ},
 
     Echo["Loading cells from file"];
 
-    stream = OpenRead[path, BinaryFormat->True];
+    stream = OpenRead[path, DOSTextFormat->False];
     result = readNotebook[stream, 10];
     Close[stream];
 
@@ -73,7 +73,7 @@ LoadCellFromFile[path_, notebook_] := Module[{stream, result, legacyQ},
     ,
         Echo["Loading failed. Retrying with a legacy .wln parser..."];
 
-        stream = OpenRead[path, BinaryFormat->True];
+        stream = OpenRead[path, DOSTextFormat->False];
         legacyQ = StringMatchQ[ReadLine[stream, TimeConstraint->10], ___~~"<|"~~__];
         Close[stream];
 
@@ -98,7 +98,7 @@ LoadFromFile[path_String | File[path_], opts: OptionsPattern[] ] := Module[{stre
 
     Echo["Loading from file"];
 
-    stream = OpenRead[path, BinaryFormat->True];
+    stream = OpenRead[path, DOSTextFormat->False];
     notebook = DeserializeFromStream[stream, opts];
     Close[stream];
 
@@ -108,7 +108,7 @@ LoadFromFile[path_String | File[path_], opts: OptionsPattern[] ] := Module[{stre
     ,
         Echo["Loading failed. Retrying with a legacy .wln parser..."];
 
-        stream = OpenRead[path, BinaryFormat->True];
+        stream = OpenRead[path, DOSTextFormat->False];
         legacyQ = StringMatchQ[ReadLine[stream, TimeConstraint->10], ___~~"<|"~~__];
         Close[stream];
 
@@ -153,7 +153,7 @@ LoadFromString[string_String, opts: OptionsPattern[] ] := Module[{stream, notebo
 
             (* legacy format. Keep it for backward compatibillity! *)
             (* it does not take that much space! *)
-            With[{n = Deserialize[ ImportString[string, "WL"], NotebookObj[opts] ]},
+            With[{n = Deserialize[ ImportString[string, "WL", DOSTextFormat->False], NotebookObj[opts] ]},
                 If[!MatchQ[n, _NotebookObj], Return[$Failed]; ];
                 notebook = n;
             ];

modules/wljs-editor/src/RemoteCells.wl

@@ -57,7 +57,7 @@ exportNotebook[notebook_, savingPath_, ext: ("md" | "mdx" | "html" | "nb")] := W
     |>];
 ]
 
-exportNotebook[notebook_, savingPath_, "wln"] := With[{stream = OpenWrite[savingPath, BinaryFormat->True]},
+exportNotebook[notebook_, savingPath_, "wln"] := With[{stream = OpenWrite[savingPath, DOSTextFormat->False]},
     notebook["Path"] = savingPath;
     notebook["Directory"] = DirectoryName[savingPath];
 

modules/wljs-editor/src/RemoteCellsKernel.wl

@@ -82,7 +82,7 @@ WLN`WLNImport[filename_String, options___] :=
  Module[{assoc, opts = Association[List[options] ], hash = CreateUUID[], fileHash = FileHash[filename]},
     If[KeyExistsQ[cache, fileHash], Return[cache[fileHash] ] ];
 
-    assoc = Import[filename, "Text"];
+    assoc = Import[filename, "Text", DOSTextFormat->False];
     If[FailureQ[assoc], Return[$Failed] ];
 
     EventFire[Internal`Kernel`CommunicationChannel, "ImportNotebook", <|"Data"->assoc, "Hash"->hash, "FullPath"->FileNameJoin[{DirectoryName[filename], FileNameTake[filename]}], "Path"->DirectoryName[filename],  "Kernel"->Internal`Kernel`Hash|>];