Merge pull request #1014 from WolframResearch/bugfix/455056

Links to expression URIs will open the expression in a new notebook

Author: rhennigan

Assets/DisplayFunctions.wxf

@@ -1515,6 +1515,28 @@ Cell[
 ]
 
 
+
+(* ::Subsection::Closed:: *)
+(*TextExpressionLink*)
+
+
+Cell[
+    StyleData[ "TextExpressionLink" ],
+    TemplateBoxOptions -> {
+        DisplayFunction -> Function @ ButtonBox[
+            #1,
+            Appearance       -> None,
+            BaseStyle        -> { "Text", "Hyperlink" },
+            ButtonFunction   :> CreateDocument @ BinaryDeserialize @ BaseDecode @ #2,
+            DefaultBaseStyle -> { },
+            Evaluator        -> Automatic,
+            Method           -> "Queued"
+        ]
+    }
+]
+
+
+
 (* ::Section::Closed:: *)
 (*Package Footer*)
 

Developer/Resources/Styles.wl

@@ -11,7 +11,7 @@ Notebook[
   Cell["Chatbook Core.nb Extensions", "Title"],
   Cell[
    StyleData["ChatStyleSheetInformation"],
-   TaggingRules -> <|"StyleSheetVersion" -> "2.0.8.3943617669"|>
+   TaggingRules -> <|"StyleSheetVersion" -> "2.0.15.3945149906"|>
   ],
   Cell[
    StyleData["NotebookAssistant`Text"],
@@ -14078,6 +14078,24 @@ Notebook[
       ]
      ])
    }
+  ],
+  Cell[
+   StyleData["TextExpressionLink"],
+   TemplateBoxOptions -> {
+    DisplayFunction ->
+     (Function[
+      ButtonBox[
+       #1,
+       Appearance -> None,
+       BaseStyle -> {"Text", "Hyperlink"},
+       ButtonFunction :>
+        CreateDocument[BinaryDeserialize[BaseDecode[#2]]],
+       DefaultBaseStyle -> { },
+       Evaluator -> Automatic,
+       Method -> "Queued"
+      ]
+     ])
+   }
   ]
  },
  StyleDefinitions -> "Default.nb"

FrontEnd/Assets/Extensions/CoreExtensions.nb

@@ -824,7 +824,7 @@ Notebook[
   ],
   Cell[
    StyleData["ChatStyleSheetInformation"],
-   TaggingRules -> <|"StyleSheetVersion" -> "2.0.8.3943617669"|>
+   TaggingRules -> <|"StyleSheetVersion" -> "2.0.15.3945149906"|>
   ],
   Cell[
    StyleData["NotebookAssistant`Text"],
@@ -14957,6 +14957,24 @@ Notebook[
       ]
      ])
    }
+  ],
+  Cell[
+   StyleData["TextExpressionLink"],
+   TemplateBoxOptions -> {
+    DisplayFunction ->
+     (Function[
+      ButtonBox[
+       #1,
+       Appearance -> None,
+       BaseStyle -> {"Text", "Hyperlink"},
+       ButtonFunction :>
+        CreateDocument[BinaryDeserialize[BaseDecode[#2]]],
+       DefaultBaseStyle -> { },
+       Evaluator -> Automatic,
+       Method -> "Queued"
+      ]
+     ])
+   }
   ]
  },
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"

FrontEnd/StyleSheets/Chatbook.nb

@@ -83,7 +83,7 @@ Notebook[
   Cell[StyleData["CellExpression"], Selectable -> True],
   Cell[
    StyleData["WorkspaceChatStyleSheetInformation"],
-   TaggingRules -> <|"WorkspaceChatStyleSheetVersion" -> "2.0.8.3943617669"|>
+   TaggingRules -> <|"WorkspaceChatStyleSheetVersion" -> "2.0.15.3945149906"|>
   ],
   Cell[
    StyleData["AttachedCell"],

FrontEnd/StyleSheets/Wolfram/WorkspaceChat.nb

@@ -989,13 +989,6 @@ $useRasterizationCompatibility := Enclose[
         ]
 ];
 
-(* ::**************************************************************************************************************:: *)
-(* ::Subsubsection::Closed:: *)
-(*expressionURIQ*)
-expressionURIQ // beginDefinition;
-expressionURIQ[ uri_String ] := KeyExistsQ[ $attachments, StringDelete[ uri, StartOfString ~~ __ ~~ "://" ] ];
-expressionURIQ // endDefinition;
-
 (* ::**************************************************************************************************************:: *)
 (* ::Subsubsection::Closed:: *)
 (*graphicsURIQ*)

Source/Chatbook/ChatMessages.wl

@@ -158,6 +158,7 @@ BeginPackage[ "Wolfram`Chatbook`Common`" ];
 `exportDataURI;
 `expressionURIKey;
 `expressionURIKeyQ;
+`expressionURIQ;
 `extractBodyChunks;
 `fakeOpenerView;
 `fastFileHash;

Source/Chatbook/CommonSymbols.wl

@@ -2778,6 +2778,17 @@ $embeddedImageTemplate = "<div style=\"margin: -8px;\"><img src=\"`1`\" width=\"
 (*hyperlink*)
 hyperlink // beginDefinition;
 
+hyperlink[ label_String, uri_String? expressionURIQ ] :=
+    If[ TrueQ @ $dynamicText,
+        StyleBox[ label, "Hyperlink" ],
+        With[ { b = BaseEncode @ BinarySerialize[ GetExpressionURI @ uri, PerformanceGoal -> "Size" ] },
+            Cell[
+                BoxData @ TemplateBox[ { ToBoxes @ label, b }, "TextExpressionLink" ],
+                Background -> None
+            ]
+        ]
+    ];
+
 hyperlink[ label_String | { label_String }, uri_String ] /; StringStartsQ[ uri, "paclet:" ] :=
     Cell @ BoxData @ TemplateBox[
         {

Source/Chatbook/Formatting.wl

@@ -180,7 +180,7 @@ expressionURIKey // beginDefinition;
 
 expressionURIKey[ str_String ] := expressionURIKey[ str ] = FixedPoint[
     StringDelete @ {
-        StartOfString ~~ "![" ~~ __ ~~ "](",
+        StartOfString ~~ ("!["|"[") ~~ __ ~~ "](",
         StartOfString ~~ LetterCharacter.. ~~ "://",
         ")"~~EndOfString
     },