Fix line wrap indentation for inline item cells

WolframResearch · Nov 19, 2024 · cd15dd3 · cd15dd3
1 parent a4b2a77
commit cd15dd3
Show file tree

Hide file tree

Showing 4 changed files with 30 additions and 3 deletions.
diff --git a/Developer/Resources/Styles.wl b/Developer/Resources/Styles.wl
@@ -1168,6 +1168,29 @@ Cell[
 ]
 
 
+
+(* ::Subsection::Closed:: *)
+(*InlineItem*)
+
+
+Cell[
+    StyleData[ "InlineItem" ],
+    ParagraphIndent -> -10
+]
+
+
+
+(* ::Subsection::Closed:: *)
+(*InlineSubitem*)
+
+
+Cell[
+    StyleData[ "InlineSubitem" ],
+    ParagraphIndent -> -16
+]
+
+
+
 (* ::Subsection::Closed:: *)
 (*DropShadowPaneBox*)
 

diff --git a/FrontEnd/Assets/Extensions/CoreExtensions.nb b/FrontEnd/Assets/Extensions/CoreExtensions.nb
@@ -11,7 +11,7 @@ Notebook[
   Cell["Chatbook Core.nb Extensions", "Title"],
   Cell[
    StyleData["ChatStyleSheetInformation"],
-   TaggingRules -> <|"StyleSheetVersion" -> "1.5.2.3940955540"|>
+   TaggingRules -> <|"StyleSheetVersion" -> "1.5.2.3941018585"|>
   ],
   Cell[
    StyleData["NotebookAssistant`Text"],
@@ -13789,6 +13789,8 @@ Notebook[
      ])
    }
   ],
+  Cell[StyleData["InlineItem"], ParagraphIndent -> -10],
+  Cell[StyleData["InlineSubitem"], ParagraphIndent -> -16],
   Cell[
    StyleData["DropShadowPaneBox"],
    TemplateBoxOptions -> {

diff --git a/FrontEnd/StyleSheets/Chatbook.nb b/FrontEnd/StyleSheets/Chatbook.nb
@@ -824,7 +824,7 @@ Notebook[
   ],
   Cell[
    StyleData["ChatStyleSheetInformation"],
-   TaggingRules -> <|"StyleSheetVersion" -> "1.5.2.3940955540"|>
+   TaggingRules -> <|"StyleSheetVersion" -> "1.5.2.3941018585"|>
   ],
   Cell[
    StyleData["NotebookAssistant`Text"],
@@ -14661,6 +14661,8 @@ Notebook[
      ])
    }
   ],
+  Cell[StyleData["InlineItem"], ParagraphIndent -> -10],
+  Cell[StyleData["InlineSubitem"], ParagraphIndent -> -16],
   Cell[
    StyleData["DropShadowPaneBox"],
    TemplateBoxOptions -> {

diff --git a/FrontEnd/StyleSheets/Wolfram/WorkspaceChat.nb b/FrontEnd/StyleSheets/Wolfram/WorkspaceChat.nb
@@ -83,7 +83,7 @@ Notebook[
   Cell[StyleData["CellExpression"], Selectable -> True],
   Cell[
    StyleData["WorkspaceChatStyleSheetInformation"],
-   TaggingRules -> <|"WorkspaceChatStyleSheetVersion" -> "1.5.2.3940955540"|>
+   TaggingRules -> <|"WorkspaceChatStyleSheetVersion" -> "1.5.2.3941018585"|>
   ],
   Cell[
    StyleData[