diff --git a/Developer/Resources/FrontEndResources/Common/InsertChatCell.wl b/Developer/Resources/FrontEndResources/Common/InsertChatCell.wl
new file mode 100644
index 00000000..5225c985
--- /dev/null
+++ b/Developer/Resources/FrontEndResources/Common/InsertChatCell.wl
@@ -0,0 +1,43 @@
+(* Created with the Wolfram Language : www.wolfram.com *)
+RawBoxes @ ToBoxes @
+Graphics[{Thickness[0.06617782981861016], 
+  Style[{FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{12.77199935913086, 1.7160000801086426}, {13.812999725341797, 
+        1.7160000801086426}, {13.812999725341797, 8.301000595092773}, 
+       {12.77199935913086, 8.301000595092773}, {12.77199935913086, 
+        1.7160000801086426}}}]}, FaceForm[RGBColor[0.6470588235294118, 
+     0.7529411764705882, 0.8117647058823529, 1.]]], 
+  Style[{FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{10.692900657653809, 10.008000373840332}, {10.692900657653809, 
+        0.008000373840332031}, {15.11090087890625, 0.008000373840332031}, 
+       {15.11090087890625, 0.9569997787475586}, {11.692900657653809, 
+        0.9569997787475586}, {11.692900657653809, 9.008000373840332}, 
+       {15.11090087890625, 9.008000373840332}, {15.11090087890625, 
+        10.008000373840332}, {10.692900657653809, 10.008000373840332}}}]}, 
+   FaceForm[RGBColor[0.27450980392156865, 0.6196078431372549, 
+     0.796078431372549, 1.]]], 
+  Style[{FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, 
+      {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{8.583999633789062, 9.}, {0.4459991455078125, 9.}, 
+       {0.20099925994873047, 9.}, {0., 8.800999999046326}, 
+       {0., 8.555999994277954}, {0., 2.443999767303467}, 
+       {0., 2.1989998817443848}, {0.20099925994873047, 2.}, 
+       {0.4459991455078125, 2.}, {2.0059995651245117, 2.}, 
+       {2.0059995651245117, 0.}, {5.014999628067017, 2.}, 
+       {8.583999633789062, 2.}, {8.829999640583992, 2.}, 
+       {9.028999626636505, 2.1989998817443848}, {9.028999626636505, 
+        2.443999767303467}, {9.028999626636505, 8.555999994277954}, 
+       {9.028999626636505, 8.800999999046326}, {8.829999640583992, 9.}, 
+       {8.583999633789062, 9.}}, {{8.028999626636505, 8.}, 
+       {8.028999626636505, 3.}, {5.014999628067017, 3.}, 
+       {4.7129998207092285, 3.}, {4.460999965667725, 2.8330001831054688}, 
+       {3.0059995651245117, 1.864999771118164}, {3.0059995651245117, 2.}, 
+       {3.0059995651245117, 3.}, {2.0059995651245117, 3.}, 
+       {0.9999995231628418, 3.}, {0.9999995231628418, 8.}, 
+       {8.028999626636505, 8.}}}]}, FaceForm[RGBColor[0.27450980392156865, 
+     0.6196078431372549, 0.796078431372549, 1.]]]}, ImageSize -> {17., 12.}, 
+ PlotRange -> {{-0.5, 15.610800743103027}, {-0.5, 10.508200645446777}}, 
+ AspectRatio -> Automatic, BaselinePosition -> (Center -> Center)]
diff --git a/Developer/Resources/FrontEndResources/Common/InsertChatCellActive.wl b/Developer/Resources/FrontEndResources/Common/InsertChatCellActive.wl
new file mode 100644
index 00000000..77547227
--- /dev/null
+++ b/Developer/Resources/FrontEndResources/Common/InsertChatCellActive.wl
@@ -0,0 +1,41 @@
+(* Created with the Wolfram Language : www.wolfram.com *)
+RawBoxes @ ToBoxes @
+Graphics[{Thickness[0.06617782981861016], 
+  Style[{FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{12.77199935913086, 1.7160000801086426}, {13.812999725341797, 
+        1.7160000801086426}, {13.812999725341797, 8.301000595092773}, 
+       {12.77199935913086, 8.301000595092773}, {12.77199935913086, 
+        1.7160000801086426}}}]}, FaceForm[RGBColor[0.8274509803921568, 
+     0.8745098039215686, 0.9019607843137255, 1.]]], 
+  Style[{FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{10.692900657653809, 10.008000373840332}, {10.692900657653809, 
+        0.008000373840332031}, {15.11090087890625, 0.008000373840332031}, 
+       {15.11090087890625, 0.9569997787475586}, {11.692900657653809, 
+        0.9569997787475586}, {11.692900657653809, 9.008000373840332}, 
+       {15.11090087890625, 9.008000373840332}, {15.11090087890625, 
+        10.008000373840332}, {10.692900657653809, 10.008000373840332}}}]}, 
+   FaceForm[RGBColor[1., 1., 1., 1.]]], 
+  Style[{FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, 
+      {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{8.583999633789062, 9.}, {0.4459991455078125, 9.}, 
+       {0.20099925994873047, 9.}, {0., 8.800999999046326}, 
+       {0., 8.555999994277954}, {0., 2.443999767303467}, 
+       {0., 2.1989998817443848}, {0.20099925994873047, 2.}, 
+       {0.4459991455078125, 2.}, {2.0059995651245117, 2.}, 
+       {2.0059995651245117, 0.}, {5.014999628067017, 2.}, 
+       {8.583999633789062, 2.}, {8.829999640583992, 2.}, 
+       {9.028999626636505, 2.1989998817443848}, {9.028999626636505, 
+        2.443999767303467}, {9.028999626636505, 8.555999994277954}, 
+       {9.028999626636505, 8.800999999046326}, {8.829999640583992, 9.}, 
+       {8.583999633789062, 9.}}, {{8.028999626636505, 8.}, 
+       {8.028999626636505, 3.}, {5.014999628067017, 3.}, 
+       {4.7129998207092285, 3.}, {4.460999965667725, 2.8330001831054688}, 
+       {3.0059995651245117, 1.864999771118164}, {3.0059995651245117, 2.}, 
+       {3.0059995651245117, 3.}, {2.0059995651245117, 3.}, 
+       {0.9999995231628418, 3.}, {0.9999995231628418, 8.}, 
+       {8.028999626636505, 8.}}}]}, FaceForm[RGBColor[1., 1., 1., 1.]]]}, 
+ ImageSize -> {17., 12.}, PlotRange -> {{-0.5, 15.610800743103027}, 
+   {-0.5, 10.508200645446777}}, AspectRatio -> Automatic, BaselinePosition -> (Center -> Center)]
diff --git a/Developer/Resources/FrontEndResources/Common/NewChat.wl b/Developer/Resources/FrontEndResources/Common/NewChat.wl
new file mode 100644
index 00000000..cb7e1315
--- /dev/null
+++ b/Developer/Resources/FrontEndResources/Common/NewChat.wl
@@ -0,0 +1,32 @@
+(* Created with the Wolfram Language : www.wolfram.com *)
+RawBoxes @ ToBoxes @
+Graphics[{Thickness[0.09057068177375761], 
+  Style[{FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{0., 10.}, {11.041000366210938, 10.}, {11.041000366210938, 11.}, 
+       {0., 11.}, {0., 10.}}}]}, FaceForm[RGBColor[0.2784313725490196, 
+     0.6235294117647059, 0.796078431372549, 1.]]], 
+  Style[{FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, 
+      {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{9.589900016784668, 9.}, {1.451899528503418, 9.}, 
+       {1.206899642944336, 9.}, {1.0059003829956055, 8.800999999046326}, 
+       {1.0059003829956055, 8.555999994277954}, {1.0059003829956055, 
+        2.443999767303467}, {1.0059003829956055, 2.1989998817443848}, 
+       {1.206899642944336, 2.}, {1.451899528503418, 2.}, 
+       {3.011899948120117, 2.}, {3.011899948120117, 0.}, 
+       {6.020900011062622, 2.}, {9.589900016784668, 2.}, 
+       {9.835900023579597, 2.}, {10.03490000963211, 2.1989998817443848}, 
+       {10.03490000963211, 2.443999767303467}, {10.03490000963211, 
+        8.555999994277954}, {10.03490000963211, 8.800999999046326}, 
+       {9.835900023579597, 9.}, {9.589900016784668, 9.}}, 
+      {{9.03490000963211, 8.}, {9.03490000963211, 3.}, 
+       {6.020900011062622, 3.}, {5.718900203704834, 3.}, 
+       {5.46690034866333, 2.8330001831054688}, {4.011899948120117, 
+        1.864999771118164}, {4.011899948120117, 2.}, {4.011899948120117, 3.}, 
+       {3.011899948120117, 3.}, {2.0058999061584473, 3.}, 
+       {2.0058999061584473, 8.}, {9.03490000963211, 8.}}}]}, 
+   FaceForm[RGBColor[0.2784313725490196, 0.6235294117647059, 
+     0.796078431372549, 1.]]]}, ImageSize -> {13., 12.}, 
+ PlotRange -> {{-0.5, 11.54110050201416}, {-0.5, 11.5}}, 
+ AspectRatio -> Automatic, BaselinePosition -> (Center -> Center)]
diff --git a/Developer/Resources/FrontEndResources/Common/NewChatActive.wl b/Developer/Resources/FrontEndResources/Common/NewChatActive.wl
new file mode 100644
index 00000000..f842aaf8
--- /dev/null
+++ b/Developer/Resources/FrontEndResources/Common/NewChatActive.wl
@@ -0,0 +1,30 @@
+(* Created with the Wolfram Language : www.wolfram.com *)
+RawBoxes @ ToBoxes @
+Graphics[{Thickness[0.09057068177375761], 
+  Style[{FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{0., 10.}, {11.041000366210938, 10.}, {11.041000366210938, 11.}, 
+       {0., 11.}, {0., 10.}}}]}, FaceForm[RGBColor[1., 1., 1., 1.]]], 
+  Style[{FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, 
+      {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, 
+       {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, 
+     {{{9.589900016784668, 9.}, {1.451899528503418, 9.}, 
+       {1.206899642944336, 9.}, {1.0059003829956055, 8.800999999046326}, 
+       {1.0059003829956055, 8.555999994277954}, {1.0059003829956055, 
+        2.443999767303467}, {1.0059003829956055, 2.1989998817443848}, 
+       {1.206899642944336, 2.}, {1.451899528503418, 2.}, 
+       {3.011899948120117, 2.}, {3.011899948120117, 0.}, 
+       {6.020900011062622, 2.}, {9.589900016784668, 2.}, 
+       {9.835900023579597, 2.}, {10.03490000963211, 2.1989998817443848}, 
+       {10.03490000963211, 2.443999767303467}, {10.03490000963211, 
+        8.555999994277954}, {10.03490000963211, 8.800999999046326}, 
+       {9.835900023579597, 9.}, {9.589900016784668, 9.}}, 
+      {{9.03490000963211, 8.}, {9.03490000963211, 3.}, 
+       {6.020900011062622, 3.}, {5.718900203704834, 3.}, 
+       {5.46690034866333, 2.8330001831054688}, {4.011899948120117, 
+        1.864999771118164}, {4.011899948120117, 2.}, {4.011899948120117, 3.}, 
+       {3.011899948120117, 3.}, {2.0058999061584473, 3.}, 
+       {2.0058999061584473, 8.}, {9.03490000963211, 8.}}}]}, 
+   FaceForm[RGBColor[1., 1., 1., 1.]]]}, ImageSize -> {13., 12.}, 
+ PlotRange -> {{-0.5, 11.54110050201416}, {-0.5, 11.5}}, 
+ AspectRatio -> Automatic, BaselinePosition -> (Center -> Center)]
diff --git a/FrontEnd/TextResources/ChatbookResources.tr b/FrontEnd/TextResources/ChatbookResources.tr
index 87fcb6c4..770a2873 100644
--- a/FrontEnd/TextResources/ChatbookResources.tr
+++ b/FrontEnd/TextResources/ChatbookResources.tr
@@ -7253,7 +7253,136 @@ qvmGcPth+lHdh3A/ADVIfz0=
      "]]}},
   AspectRatio->Automatic,
   ImageSize->{20., 20.},
-  PlotRange->{{0., 20.}, {0., 20.}}]
+  PlotRange->{{0., 20.}, {0., 20.}}],
+
+"InsertChatCellActive" -> GraphicsBox[
+  {Thickness[0.06617782981861016], 
+   {FaceForm[{RGBColor[
+    0.8274509803921568, 0.8745098039215686, 0.9019607843137255], Opacity[
+    1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
+     12.77199935913086, 1.7160000801086426`}, {13.812999725341797`, 
+     1.7160000801086426`}, {13.812999725341797`, 8.301000595092773}, {
+     12.77199935913086, 8.301000595092773}, {12.77199935913086, 
+     1.7160000801086426`}}}]}, 
+   {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], 
+    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.692900657653809`, 
+     10.008000373840332`}, {10.692900657653809`, 0.008000373840332031}, {
+     15.11090087890625, 0.008000373840332031}, {15.11090087890625, 
+     0.9569997787475586}, {11.692900657653809`, 0.9569997787475586}, {
+     11.692900657653809`, 9.008000373840332}, {15.11090087890625, 
+     9.008000373840332}, {15.11090087890625, 10.008000373840332`}, {
+     10.692900657653809`, 10.008000373840332`}}}]}, 
+   {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], 
+    FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
+1:eJxTTMoPSmViYGAQAWIQDQJM2ooOEJYSmHbovmOPzI/YdRKFDwVrZGYpIvM5
+1sig8A/49zIj8x16pzOimceAZh+Y3+DJw+CAgw8CAjH8IsjySO4H8Ru2fV2B
+zGfguskHdjfMfhgf5j4YH+Z+GB/qP2TzlNDsU3IAAGMLKnM=
+      "], {{8.028999626636505, 8.}, {8.028999626636505, 3.}, {
+      5.014999628067017, 3.}, {4.7129998207092285`, 3.}, {4.460999965667725, 
+      2.8330001831054688`}, {3.0059995651245117`, 1.864999771118164}, {
+      3.0059995651245117`, 2.}, {3.0059995651245117`, 3.}, {
+      2.0059995651245117`, 3.}, {0.9999995231628418, 3.}, {0.9999995231628418,
+       8.}, {8.028999626636505, 8.}}}]}},
+  AspectRatio->Automatic,
+  BaselinePosition->(Center -> Center),
+  ImageSize->{17., 12.},
+  PlotRange->{{-0.5, 15.610800743103027`}, {-0.5, 10.508200645446777`}}],
+
+"InsertChatCell" -> GraphicsBox[
+  {Thickness[0.06617782981861016], 
+   {FaceForm[{RGBColor[
+    0.6470588235294118, 0.7529411764705882, 0.8117647058823529], Opacity[
+    1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
+     12.77199935913086, 1.7160000801086426`}, {13.812999725341797`, 
+     1.7160000801086426`}, {13.812999725341797`, 8.301000595092773}, {
+     12.77199935913086, 8.301000595092773}, {12.77199935913086, 
+     1.7160000801086426`}}}]}, 
+   {FaceForm[{RGBColor[
+    0.27450980392156865`, 0.6196078431372549, 0.796078431372549], Opacity[
+    1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.692900657653809`, 
+     10.008000373840332`}, {10.692900657653809`, 0.008000373840332031}, {
+     15.11090087890625, 0.008000373840332031}, {15.11090087890625, 
+     0.9569997787475586}, {11.692900657653809`, 0.9569997787475586}, {
+     11.692900657653809`, 9.008000373840332}, {15.11090087890625, 
+     9.008000373840332}, {15.11090087890625, 10.008000373840332`}, {
+     10.692900657653809`, 10.008000373840332`}}}]}, 
+   {FaceForm[{RGBColor[
+    0.27450980392156865`, 0.6196078431372549, 0.796078431372549], Opacity[
+    1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
+     3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
+
+1:eJxTTMoPSmViYGAQAWIQDQJM2ooOEJYSmHbovmOPzI/YdRKFDwVrZGYpIvM5
+1sig8A/49zIj8x16pzOimceAZh+Y3+DJw+CAgw8CAjH8IsjySO4H8Ru2fV2B
+zGfguskHdjfMfhgf5j4YH+Z+GB/qP2TzlNDsU3IAAGMLKnM=
+      "], {{8.028999626636505, 8.}, {8.028999626636505, 3.}, {
+      5.014999628067017, 3.}, {4.7129998207092285`, 3.}, {4.460999965667725, 
+      2.8330001831054688`}, {3.0059995651245117`, 1.864999771118164}, {
+      3.0059995651245117`, 2.}, {3.0059995651245117`, 3.}, {
+      2.0059995651245117`, 3.}, {0.9999995231628418, 3.}, {0.9999995231628418,
+       8.}, {8.028999626636505, 8.}}}]}},
+  AspectRatio->Automatic,
+  BaselinePosition->(Center -> Center),
+  ImageSize->{17., 12.},
+  PlotRange->{{-0.5, 15.610800743103027`}, {-0.5, 10.508200645446777`}}],
+
+"NewChatActive" -> GraphicsBox[
+  {Thickness[0.09057068177375761], 
+   {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], 
+    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0., 
+     10.}, {11.041000366210938`, 10.}, {11.041000366210938`, 11.}, {0., 
+     11.}, {0., 10.}}}]}, 
+   {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], 
+    FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
+1:eJxTTMoPSmViYGAQAWIQDQQJ7HrKDhCmEpj+bfXdHplf5v8Zha8t8QHEXyMz
+SxGZz7FGBoV/wL+XGZnv0DudEc08BjT7IPx4CQ4HHHwQuJAmKoEsj+R+EL9B
+7PdqZD5D1j1BFQck+2F8mPtgfJj7YXyo/5DNU0KzT8kBAHlvMuM=
+      "], {{9.03490000963211, 8.}, {9.03490000963211, 3.}, {6.020900011062622,
+       3.}, {5.718900203704834, 3.}, {5.46690034866333, 
+      2.8330001831054688`}, {4.011899948120117, 1.864999771118164}, {
+      4.011899948120117, 2.}, {4.011899948120117, 3.}, {3.011899948120117, 
+      3.}, {2.0058999061584473`, 3.}, {2.0058999061584473`, 8.}, {
+      9.03490000963211, 8.}}}]}},
+  AspectRatio->Automatic,
+  BaselinePosition->(Center -> Center),
+  ImageSize->{13., 12.},
+  PlotRange->{{-0.5, 11.54110050201416}, {-0.5, 11.5}}],
+
+"NewChat" -> GraphicsBox[
+  {Thickness[0.09057068177375761], 
+   {FaceForm[{RGBColor[
+    0.2784313725490196, 0.6235294117647059, 0.796078431372549], Opacity[1.]}],
+     FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0., 
+     10.}, {11.041000366210938`, 10.}, {11.041000366210938`, 11.}, {0., 
+     11.}, {0., 10.}}}]}, 
+   {FaceForm[{RGBColor[
+    0.2784313725490196, 0.6235294117647059, 0.796078431372549], Opacity[1.]}],
+     FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
+1:eJxTTMoPSmViYGAQAWIQDQQJ7HrKDhCmEpj+bfXdHplf5v8Zha8t8QHEXyMz
+SxGZz7FGBoV/wL+XGZnv0DudEc08BjT7IPx4CQ4HHHwQuJAmKoEsj+R+EL9B
+7PdqZD5D1j1BFQck+2F8mPtgfJj7YXyo/5DNU0KzT8kBAHlvMuM=
+      "], {{9.03490000963211, 8.}, {9.03490000963211, 3.}, {6.020900011062622,
+       3.}, {5.718900203704834, 3.}, {5.46690034866333, 
+      2.8330001831054688`}, {4.011899948120117, 1.864999771118164}, {
+      4.011899948120117, 2.}, {4.011899948120117, 3.}, {3.011899948120117, 
+      3.}, {2.0058999061584473`, 3.}, {2.0058999061584473`, 8.}, {
+      9.03490000963211, 8.}}}]}},
+  AspectRatio->Automatic,
+  BaselinePosition->(Center -> Center),
+  ImageSize->{13., 12.},
+  PlotRange->{{-0.5, 11.54110050201416}, {-0.5, 11.5}}]
 }
 @|
 @|
diff --git a/Scripts/BuildPaclet.wls b/Scripts/BuildPaclet.wls
index 0e9b90d0..ce743dea 100755
--- a/Scripts/BuildPaclet.wls
+++ b/Scripts/BuildPaclet.wls
@@ -6,6 +6,7 @@ BeginPackage[ "Wolfram`ChatbookScripts`" ];
 (* ::Section::Closed:: *)
 (*Initialization*)
 If[ ! TrueQ @ $loadedDefinitions, Get @ FileNameJoin @ { DirectoryName @ $InputFileName, "Common.wl" } ];
+System`$PublisherID = "Wolfram";
 
 (* ::**************************************************************************************************************:: *)
 (* ::Subsection::Closed:: *)
diff --git a/Source/Chatbook/CloudToolbar.wl b/Source/Chatbook/CloudToolbar.wl
index ecfe46d8..77cd5be4 100644
--- a/Source/Chatbook/CloudToolbar.wl
+++ b/Source/Chatbook/CloudToolbar.wl
@@ -22,6 +22,234 @@ $menuItemIconSize = { 20, 20 };
 
 (* ::**************************************************************************************************************:: *)
 (* ::Section::Closed:: *)
+(*Default Notebook Docked Cell*)
+
+(* ::**************************************************************************************************************:: *)
+(* ::Subsection::Closed:: *)
+
+ToggleCloudNotebookAssistantMenu // beginDefinition
+
+(* Try not to mess up any existing DockedCells *)
+ToggleCloudNotebookAssistantMenu[ ] := (
+    CurrentValue[ EvaluationNotebook[ ], DockedCells ] =
+        Replace[
+            CurrentValue[ EvaluationNotebook[ ], DockedCells ],
+            {
+                (* Remove if it exists *)
+                Cell[ ___, CellTags -> "NotebookAssistantDockedCell", ___ ] -> Inherited,
+                { first___, Cell[ ___, CellTags -> "NotebookAssistantDockedCell", ___ ], last___ } :> { first, last },
+                (* Add if it does not exist *)
+                { existing___ } :> { makeChatCloudDefaultNotebookDockedCell[ ], existing },
+                c_Cell :> { makeChatCloudDefaultNotebookDockedCell[ ], c },
+                _ :> { makeChatCloudDefaultNotebookDockedCell[ ] }
+            }
+        ];
+)
+
+ToggleCloudNotebookAssistantMenu // endDefinition
+
+(* ::**************************************************************************************************************:: *)
+(* ::Subsection::Closed:: *)
+(*makeChatCloudDefaultNotebookDockedCell*)
+makeChatCloudDefaultNotebookDockedCell // beginDefinition;
+
+(* FIXME: if Cloud can support a pressed state, then use Chatbook's mouseDown function with FontColor -> GrayLevel[1] and Background -> RGBColor["#44A2D4"] *)
+makeChatCloudDefaultNotebookDockedCell[ ] := Cell[ BoxData @ ToBoxes @
+    Grid[
+        {
+            {
+                Button[
+                    Framed[
+                        Grid[
+                            { { inlineCloudChatbookIcon[ "NewChat" ], tr[ "WorkspaceToolbarButtonLabelNew" ] } },
+                            Alignment -> { Center, Baseline },
+                            Spacings  -> { 0.3, 0 } ],
+                        FrameMargins -> { { 4, 4 }, { 1, 1 } },
+                        FrameStyle   -> ( Dynamic[ If[ CurrentValue[ "MouseOver" ], #1, #2 ] ]&[ RGBColor["#A1CDE4"], RGBColor["#E9F7FF"] ] )
+                    ],
+                    insertCellStyle @ "ChatDelimiter",
+                    Appearance   -> "Suppressed",
+                    ImageMargins -> { { 0, 0 }, { 2, 3 } },
+                    ImageSize    -> Automatic
+                ],
+                Button[
+                    Framed[
+                        Grid[
+                            { { inlineCloudChatbookIcon[ "InsertChatCell" ], tr[ "ChatToolbarInsertChatCell" ] } },
+                            Alignment -> { Center, Baseline },
+                            Spacings  -> { 0.3, 0 } ],
+                        FrameMargins -> { { 4, 4 }, { 1, 1 } },
+                        FrameStyle   -> ( Dynamic[ If[ CurrentValue[ "MouseOver" ], #1, #2 ] ]&[ RGBColor["#A1CDE4"], RGBColor["#E9F7FF"] ] )
+                    ]                    ,
+                    insertCellStyle @ "ChatInput",
+                    Appearance   -> "Suppressed",
+                    ImageMargins -> { { 0, 0 }, { 2, 3 } },
+                    ImageSize    -> Automatic
+                ]
+            }
+        },
+        Alignment  -> { Left, Center },
+        Spacings   -> { 0.3, 0 },
+        BaseStyle  -> {
+            "Text", FontSize -> 1, (* FontSize sets the Spacing scale *)
+            FrameBoxOptions -> {
+                Background     -> RGBColor["#E9F7FF"],
+                BaseStyle      -> { FontColor -> RGBColor["#333333"], FontFamily -> "Source Sans Pro", FontSize -> 12, FrameMargins -> { { 4, 4 }, { 2, 2 } } },
+                RoundingRadius -> 4
+            }
+        }
+    ],
+    Background       -> RGBColor["#E9F7FF"],
+    CellFrameMargins -> 1,
+    CellTags         -> "NotebookAssistantDockedCell",
+    TextAlignment    -> Center
+]
+
+makeChatCloudDefaultNotebookDockedCell // endDefinition;
+
+(* ::**************************************************************************************************************:: *)
+(* ::Subsection::Closed:: *)
+(*inlineCloudChatbookIcon*)
+inlineCloudChatbookIcon // beginDefinition;
+
+(* We inline these to so we don't have to release a new cloud version.
+    FIXME: when a new cloud is built we can switch usage from inlineCloudChatbookIcon[name] to chatbookIcon[name, False] *)
+inlineCloudChatbookIcon[ name_String ] := RawBoxes @ Lookup[<|
+"InsertChatCellActive" -> GraphicsBox[
+  {Thickness[0.06617782981861016], 
+   {FaceForm[{RGBColor[
+    0.8274509803921568, 0.8745098039215686, 0.9019607843137255], Opacity[
+    1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
+     12.77199935913086, 1.7160000801086426`}, {13.812999725341797`, 
+     1.7160000801086426`}, {13.812999725341797`, 8.301000595092773}, {
+     12.77199935913086, 8.301000595092773}, {12.77199935913086, 
+     1.7160000801086426`}}}]}, 
+   {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], 
+    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.692900657653809`, 
+     10.008000373840332`}, {10.692900657653809`, 0.008000373840332031}, {
+     15.11090087890625, 0.008000373840332031}, {15.11090087890625, 
+     0.9569997787475586}, {11.692900657653809`, 0.9569997787475586}, {
+     11.692900657653809`, 9.008000373840332}, {15.11090087890625, 
+     9.008000373840332}, {15.11090087890625, 10.008000373840332`}, {
+     10.692900657653809`, 10.008000373840332`}}}]}, 
+   {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], 
+    FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
+1:eJxTTMoPSmViYGAQAWIQDQJM2ooOEJYSmHbovmOPzI/YdRKFDwVrZGYpIvM5
+1sig8A/49zIj8x16pzOimceAZh+Y3+DJw+CAgw8CAjH8IsjySO4H8Ru2fV2B
+zGfguskHdjfMfhgf5j4YH+Z+GB/qP2TzlNDsU3IAAGMLKnM=
+      "], {{8.028999626636505, 8.}, {8.028999626636505, 3.}, {
+      5.014999628067017, 3.}, {4.7129998207092285`, 3.}, {4.460999965667725, 
+      2.8330001831054688`}, {3.0059995651245117`, 1.864999771118164}, {
+      3.0059995651245117`, 2.}, {3.0059995651245117`, 3.}, {
+      2.0059995651245117`, 3.}, {0.9999995231628418, 3.}, {0.9999995231628418,
+       8.}, {8.028999626636505, 8.}}}]}},
+  AspectRatio->Automatic,
+  BaselinePosition->(Center -> Center),
+  ImageSize->{17., 12.},
+  PlotRange->{{-0.5, 15.610800743103027`}, {-0.5, 10.508200645446777`}}],
+
+"InsertChatCell" -> GraphicsBox[
+  {Thickness[0.06617782981861016], 
+   {FaceForm[{RGBColor[
+    0.6470588235294118, 0.7529411764705882, 0.8117647058823529], Opacity[
+    1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
+     12.77199935913086, 1.7160000801086426`}, {13.812999725341797`, 
+     1.7160000801086426`}, {13.812999725341797`, 8.301000595092773}, {
+     12.77199935913086, 8.301000595092773}, {12.77199935913086, 
+     1.7160000801086426`}}}]}, 
+   {FaceForm[{RGBColor[
+    0.27450980392156865`, 0.6196078431372549, 0.796078431372549], Opacity[
+    1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.692900657653809`, 
+     10.008000373840332`}, {10.692900657653809`, 0.008000373840332031}, {
+     15.11090087890625, 0.008000373840332031}, {15.11090087890625, 
+     0.9569997787475586}, {11.692900657653809`, 0.9569997787475586}, {
+     11.692900657653809`, 9.008000373840332}, {15.11090087890625, 
+     9.008000373840332}, {15.11090087890625, 10.008000373840332`}, {
+     10.692900657653809`, 10.008000373840332`}}}]}, 
+   {FaceForm[{RGBColor[
+    0.27450980392156865`, 0.6196078431372549, 0.796078431372549], Opacity[
+    1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
+     3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
+
+1:eJxTTMoPSmViYGAQAWIQDQJM2ooOEJYSmHbovmOPzI/YdRKFDwVrZGYpIvM5
+1sig8A/49zIj8x16pzOimceAZh+Y3+DJw+CAgw8CAjH8IsjySO4H8Ru2fV2B
+zGfguskHdjfMfhgf5j4YH+Z+GB/qP2TzlNDsU3IAAGMLKnM=
+      "], {{8.028999626636505, 8.}, {8.028999626636505, 3.}, {
+      5.014999628067017, 3.}, {4.7129998207092285`, 3.}, {4.460999965667725, 
+      2.8330001831054688`}, {3.0059995651245117`, 1.864999771118164}, {
+      3.0059995651245117`, 2.}, {3.0059995651245117`, 3.}, {
+      2.0059995651245117`, 3.}, {0.9999995231628418, 3.}, {0.9999995231628418,
+       8.}, {8.028999626636505, 8.}}}]}},
+  AspectRatio->Automatic,
+  BaselinePosition->(Center -> Center),
+  ImageSize->{17., 12.},
+  PlotRange->{{-0.5, 15.610800743103027`}, {-0.5, 10.508200645446777`}}],
+
+"NewChatActive" -> GraphicsBox[
+  {Thickness[0.09057068177375761], 
+   {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], 
+    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0., 
+     10.}, {11.041000366210938`, 10.}, {11.041000366210938`, 11.}, {0., 
+     11.}, {0., 10.}}}]}, 
+   {FaceForm[{RGBColor[1., 1., 1.], Opacity[1.]}], 
+    FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
+1:eJxTTMoPSmViYGAQAWIQDQQJ7HrKDhCmEpj+bfXdHplf5v8Zha8t8QHEXyMz
+SxGZz7FGBoV/wL+XGZnv0DudEc08BjT7IPx4CQ4HHHwQuJAmKoEsj+R+EL9B
+7PdqZD5D1j1BFQck+2F8mPtgfJj7YXyo/5DNU0KzT8kBAHlvMuM=
+      "], {{9.03490000963211, 8.}, {9.03490000963211, 3.}, {6.020900011062622,
+       3.}, {5.718900203704834, 3.}, {5.46690034866333, 
+      2.8330001831054688`}, {4.011899948120117, 1.864999771118164}, {
+      4.011899948120117, 2.}, {4.011899948120117, 3.}, {3.011899948120117, 
+      3.}, {2.0058999061584473`, 3.}, {2.0058999061584473`, 8.}, {
+      9.03490000963211, 8.}}}]}},
+  AspectRatio->Automatic,
+  BaselinePosition->(Center -> Center),
+  ImageSize->{13., 12.},
+  PlotRange->{{-0.5, 11.54110050201416}, {-0.5, 11.5}}],
+
+"NewChat" -> GraphicsBox[
+  {Thickness[0.09057068177375761], 
+   {FaceForm[{RGBColor[
+    0.2784313725490196, 0.6235294117647059, 0.796078431372549], Opacity[1.]}],
+     FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0., 
+     10.}, {11.041000366210938`, 10.}, {11.041000366210938`, 11.}, {0., 
+     11.}, {0., 10.}}}]}, 
+   {FaceForm[{RGBColor[
+    0.2784313725490196, 0.6235294117647059, 0.796078431372549], Opacity[1.]}],
+     FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2,
+      0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
+     0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
+1:eJxTTMoPSmViYGAQAWIQDQQJ7HrKDhCmEpj+bfXdHplf5v8Zha8t8QHEXyMz
+SxGZz7FGBoV/wL+XGZnv0DudEc08BjT7IPx4CQ4HHHwQuJAmKoEsj+R+EL9B
+7PdqZD5D1j1BFQck+2F8mPtgfJj7YXyo/5DNU0KzT8kBAHlvMuM=
+      "], {{9.03490000963211, 8.}, {9.03490000963211, 3.}, {6.020900011062622,
+       3.}, {5.718900203704834, 3.}, {5.46690034866333, 
+      2.8330001831054688`}, {4.011899948120117, 1.864999771118164}, {
+      4.011899948120117, 2.}, {4.011899948120117, 3.}, {3.011899948120117, 
+      3.}, {2.0058999061584473`, 3.}, {2.0058999061584473`, 8.}, {
+      9.03490000963211, 8.}}}]}},
+  AspectRatio->Automatic,
+  BaselinePosition->(Center -> Center),
+  ImageSize->{13., 12.},
+  PlotRange->{{-0.5, 11.54110050201416}, {-0.5, 11.5}}]
+|>, 
+name, $Failed]
+
+inlineCloudChatbookIcon // endDefinition;
+
+ (* ::**************************************************************************************************************:: *)
+(* ::Section::Closed:: *)
 (*Docked Cell Contents*)
 
 (* ::**************************************************************************************************************:: *)
diff --git a/Source/Chatbook/CommonSymbols.wl b/Source/Chatbook/CommonSymbols.wl
index dce95a9d..f84aacc2 100644
--- a/Source/Chatbook/CommonSymbols.wl
+++ b/Source/Chatbook/CommonSymbols.wl
@@ -217,6 +217,7 @@ BeginPackage[ "Wolfram`Chatbook`Common`" ];
 `llmSynthesizeSubmit;
 `logUsage;
 `makeCellStringBudget;
+`makeChatCloudDefaultNotebookDockedCell;
 `makeChatCloudDockedCellContents;
 `makeChatMessages;
 `makeChatNotebookOptions;
diff --git a/Source/Chatbook/Main.wl b/Source/Chatbook/Main.wl
index 317088fc..7b26d94e 100644
--- a/Source/Chatbook/Main.wl
+++ b/Source/Chatbook/Main.wl
@@ -92,6 +92,7 @@ BeginPackage[ "Wolfram`Chatbook`" ];
 `SourceNotebookObjectInformation;
 `StringToBoxes;
 `ToggleChatInclusion;
+`ToggleCloudNotebookAssistantMenu;
 `WriteChatOutputCell;
 
 (* ::**************************************************************************************************************:: *)
diff --git a/Source/Chatbook/UI.wl b/Source/Chatbook/UI.wl
index b93e3bd6..f86f7d6e 100644
--- a/Source/Chatbook/UI.wl
+++ b/Source/Chatbook/UI.wl
@@ -12,6 +12,7 @@ Needs[ "GeneralUtilities`" -> None ];
 MakeChatInputActiveCellDingbat
 MakeChatInputCellDingbat
 MakeChatDelimiterCellDingbat
+MakeChatCloudDefaultNotebookDockedCell
 MakeChatCloudDockedCellContents
 
 GeneralUtilities`SetUsage[CreatePreferencesContent, "
@@ -42,6 +43,11 @@ $chatMenuWidth = 220;
 (* ::Section::Closed:: *)
 (*Cloud Toolbar*)
 
+(* ::**************************************************************************************************************:: *)
+(* ::Subsection::Closed:: *)
+(*MakeChatCloudDefaultNotebookDockedCell*)
+MakeChatCloudDefaultNotebookDockedCell[] := makeChatCloudDefaultNotebookDockedCell[ ];
+
 (* ::**************************************************************************************************************:: *)
 (* ::Subsection::Closed:: *)
 (*MakeChatCloudDockedCellContents*)