Merge pull request #502 from WolframResearch/501-code-blocks-with-mul…

…tiple-lines-only-parse-and-evaluate-the-last-line-when-evaluating Bugfix: Workaround for multi-line code blocks not parsing correctly in cloud notebooks
WolframResearch · Jan 2, 2024 · 90fdc08 · 90fdc08
2 parents b4e3991 + 1095bb9
commit 90fdc08
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 4 deletions.
diff --git a/FrontEnd/StyleSheets/Chatbook.nb b/FrontEnd/StyleSheets/Chatbook.nb
@@ -1161,7 +1161,7 @@ Notebook[
   ],
   Cell[
    StyleData["ChatStyleSheetInformation"],
-   TaggingRules -> <|"StyleSheetVersion" -> "1.3.4.3910935567"|>
+   TaggingRules -> <|"StyleSheetVersion" -> "1.3.6.3913177292"|>
   ],
   Cell[
    StyleData["Text"],

diff --git a/PacletInfo.wl b/PacletInfo.wl
@@ -1,7 +1,7 @@
 PacletObject[ <|
     "Name"           -> "Wolfram/Chatbook",
     "PublisherID"    -> "Wolfram",
-    "Version"        -> "1.3.5",
+    "Version"        -> "1.3.6",
     "WolframVersion" -> "13.3+",
     "Description"    -> "Wolfram Notebooks + LLMs",
     "License"        -> "MIT",

diff --git a/Source/Chatbook/Formatting.wl b/Source/Chatbook/Formatting.wl
@@ -453,7 +453,7 @@ insertCodeBelow[ cell_Cell, evaluate_ ] :=
     ];
 
 insertCodeBelow[ string_String, evaluate_ ] :=
-    insertCodeBelow[ Cell[ BoxData @ string, "Input" ], evaluate ];
+    insertCodeBelow[ reparseCodeBoxes @ Cell[ BoxData @ string, "Input" ], evaluate ];
 
 insertCodeBelow // endDefinition;
 
@@ -491,7 +491,7 @@ getCodeBlockContent[ TemplateBox[ { boxes_ }, "ChatCodeBlockTemplate", ___ ] ] :
 getCodeBlockContent[ Cell[ BoxData[ boxes_, ___ ] ] ] := getCodeBlockContent @ boxes;
 getCodeBlockContent[ DynamicModuleBox[ _, boxes_, ___ ] ] := getCodeBlockContent @ boxes;
 getCodeBlockContent[ TagBox[ boxes_, _EventHandlerTag, ___ ] ] := getCodeBlockContent @ boxes;
-getCodeBlockContent[ Cell[ boxes_, "ChatCode", "Input", ___ ] ] := Cell[ boxes, "Input" ];
+getCodeBlockContent[ Cell[ boxes_, "ChatCode", "Input", ___ ] ] := reparseCodeBoxes @ Cell[ boxes, "Input" ];
 
 getCodeBlockContent[ Cell[ boxes_, "ExternalLanguage", ___, CellEvaluationLanguage -> lang_, ___ ] ] :=
     Cell[ boxes, "ExternalLanguage", CellEvaluationLanguage -> lang ];
@@ -500,6 +500,19 @@ getCodeBlockContent[ cell: Cell[ _, _String, ___ ] ] := cell;
 
 getCodeBlockContent // endDefinition;
 
+(* ::**************************************************************************************************************:: *)
+(* ::Subsubsection::Closed:: *)
+(*reparseCodeBoxes*)
+reparseCodeBoxes // beginDefinition;
+
+reparseCodeBoxes[ Cell[ BoxData[ s_String ], a___ ] ] /; $cloudNotebooks :=
+    Cell[ BoxData @ UsingFrontEnd @ stringToBoxes @ s, a ];
+
+reparseCodeBoxes[ cell_Cell ] :=
+    cell;
+
+reparseCodeBoxes // endDefinition;
+
 (* ::**************************************************************************************************************:: *)
 (* ::Subsection::Closed:: *)
 (*Boxes*)