10
$\begingroup$

After reading rcollyer's post I'm still not able to understand how grouping rules work. Here is a problem I'm facing. What I want is to create a new title, section and subsection styles. I want the title to group everything below till the next title. The section should group everything below till the next section. To see what I mean, open up a new notebook. Go to Format > Edit Stylesheet....

On this stylesheet make a new cell. Then select this cell and go to Cell > Show Expression.

Here enter the following:

Cell[StyleData["MyTitle"],
 CellGroupingRules->{"MyTitleGrouping", 0},
 CounterIncrements->"MyTitle",
 CounterAssignments->{{"MySection", 0}, {"MySubsection", 0}},
 FontSize->26,
]

Once this has been entered now go to Cell > Show Expression to revert back. Let us create two more cells in the same fashion, one for the section and subsection.

Cell[StyleData["MySection"],
 CellGroupingRules->{"MyTitleGrouping", 10},
 CounterIncrements->"MySection",
 CounterAssignments->{{"MySubsection", 0}},
 CellFrameLabels->{{
    Cell[
     TextData[
      CounterBox["MySection"], " -"], CellBaseline -> Baseline], Inherited}, {
   Inherited, Inherited}},
 FontSize->20,
]

Finally, the subsection:

Cell[StyleData["MySubsection"],
 CellGroupingRules->{"MyTitleGrouping", 20},
 CellFrameLabels->{{
    Cell[
     TextData[
      CounterBox["MySection"], ".", 
      CounterBox["MySubsection"], " -"], CellBaseline -> Baseline], 
    Inherited}, {Inherited, Inherited}},
 CounterIncrements->"MySubsection",
 FontSize->16,
]

After creating those new styles, now we can use them, here is a screenshot of what I obtained if I use the "MyTitle", "MySection" and "MySubsection" styles.

enter image description here

Don't mind the text I entered there. The main point here is that there is no grouping.

How can I make it behave as the regular "Title", "Section" and "Subsection" styles?

enter image description here

Improve this question
$\endgroup$

1 Answer 1

Reset to default
12
$\begingroup$

You are inventing your own grouping types. If you open the Options Inspector and go to Cell Options -> General Properties -> CellGroupingRules the drop-down shows several options available: "NormalGrouping", "TitleGrouping", "SectionGrouping", "InputGrouping", "OutputGrouping", "GraphicsGrouping", "GroupTogetherGrouping", and "GroupTogetherNestedGrouping".

You have used "MyTitleGrouping" which is not part of the list. Per my previous question, what you are looking for is "TitleGrouping" for "MyTitle" and "SectionGrouping" for "MySection" and "MySubSection". Implementing these changes, your code becomes:

Cell[StyleData["MyTitle"],
 CellGroupingRules->{"TitleGrouping", 0},
 CounterIncrements->"MyTitle",
 CounterAssignments->{{"MySection", 0}, {"MySubsection", 0}},
 FontSize->26
]

Cell[StyleData["MySection"],
 CellGroupingRules->{"SectionGrouping", 10},
 CounterIncrements->"MySection",
 CounterAssignments->{{"MySubsection", 0}},
 CellFrameLabels->{{
    Cell[
     TextData[
      {CounterBox["MySection"], " -"}], CellBaseline -> Baseline], Inherited}, {
   Inherited, Inherited}},
 FontSize->20
]

Cell[StyleData["MySubsection"],
 CellGroupingRules->{"SectionGrouping", 20},
 CellFrameLabels->{{
    Cell[
     TextData[{
      CounterBox["MySection"], ".", 
      CounterBox["MySubsection"], " -"}], CellBaseline -> Baseline], 
    Inherited}, {Inherited, Inherited}},
 CounterIncrements->"MySubsection",
 FontSize->16
]

Here's the end result, for a simple notebook:

enter image description here

Improve this answer
$\endgroup$
7
  • $\begingroup$ Thanks you rcollyer. I would have kept making "new" groupings if it wasn't for you pointing it out. Never again. Then again, I shouldn't say never. $\endgroup$
    – jmlopez
    May 25, 2012 at 2:52
  • $\begingroup$ @jmlopez I still have to work out what the others do; I think "InputGrouping" and "OutputGrouping" are obvious, but "GroupTogetherGrouping" and "GroupTogetherNestedGrouping"? Not a clue there. $\endgroup$
    – rcollyer
    May 25, 2012 at 2:53
  • 2
    $\begingroup$ I think that GroupTogetherGrouping is used when you want to do manual grouping. For instance, if you create two input cells in a new notebook and then you go to Cell > Grouping > Group Cells/Group Together then you'll see that grouping. Just look at the expression of each cell by going to Cell > Show Expression. You will see that one there. I'm not sure how to make the other one show up though. Could be when you have a two title cells maybe? since you have nested groups inside a title cell. $\endgroup$
    – jmlopez
    May 25, 2012 at 2:59
  • 2
    $\begingroup$ @jmlopez and @rcollyer, you probably figured it out in the intervening four years but GroupTogetherNestedGrouping is just how "Item*" cells group together, that is, anything tagged with GroupTogetherNestedGrouping will either group in the same group as a previous cell with GroupTogetherNestedGrouping set and the same second value, as a subgroup if the second value is larger than that of the previous, and no grouping if it's larger. It seems GroupTogetherGrouping will only group with cells with the same second value (or none), hence the lack of "Nested". $\endgroup$
    – b3m2a1
    Dec 9, 2016 at 8:12
  • 1
    $\begingroup$ @Rainb as a point of note, this is 8 years old. But, the fix was simple: use a List to contain all the arguments of the TextData. Once that's done, they can be used to create the screenshot. $\endgroup$
    – rcollyer
    Apr 26, 2020 at 16:45

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.