Skip to main content

notebooks - How to group cell type A under cell type B?


My notebook's groupings for "Subsection" and "SubitemNumbered" are broken:



enter image description here


And by broken, I mean I wanted it to automatically group like this which I did manually (with lots of control+shift+g)


enter image description here


Here's my stylesheet:


Cell[StyleData[StyleDefinitions -> "Default.nb"]]

Cell[StyleData["ItemNumbered"],
CellGroupingRules->{"SectionGrouping", 10}
]


Cell[StyleData["Item"],
CellGroupingRules->{"InputGrouping", 10},
CounterIncrements->"Item",
CounterAssignments->{{"Section", 0}, {"Subsection", 0}},
FontSize->14,
]

Cell[StyleData["Section"], CellGroupingRules->{"SectionGrouping", 1}]

Cell[StyleData["Subsubsection"], "Subsubsection",

CellGroupingRules->{"SectionGrouping", 1}]

Cell[StyleData["SubitemNumbered"], "Subsubsection",
CellGroupingRules->{"SubsectionGrouping", 1}]

I've read all the posts on Cell Grouping but I still can't find a straight answer to this question. Here are the posts I've consulted so far:



... and I'm still utterly confused.



Answer



Ok so I fixed it:



Cell[StyleData[StyleDefinitions -> "Default.nb"],
CellMargins->{{21, 3}, {4, 4}}]

Cell[StyleData[All],
ShowGroupOpener->False,
FontFamily->"Avenir"]

Cell[StyleData["Title"],
CellMargins->{{10, 3}, {4, 4}},
FontColor-> RGBColor[0,0.0,0.6],

CellGroupingRules->{"SectionGrouping", 9}]

Cell[StyleData["Section"],
CellFrame->{{.5, 0}, {0, .5}},
CellFrameMargins->8,
CellFrameColor->RGBColor[0, 0.4, 0.9, 1],
CellMargins->{{17, 3}, {Inherited, Inherited}},
CellGroupingRules->{"SectionGrouping", 10},
WholeCellGroupOpener->True,
FontColor->RGBColor[0, 0.4, 0.9, 1]]


Cell[StyleData["Subsection"],
CellFrame->{{.1, .1}, {.1, .1}},
Background->GrayLevel[0.95],
CellFrameMargins->10,
CellFrameColor->GrayLevel[0.8],
CellMargins->{{30, Inherited}, {5, 2}},
CellGroupingRules->{"SectionGrouping", 20},
WholeCellGroupOpener->True,
FontColor-> RGBColor[0,0.5,0.8]

]

Cell[StyleData["Subsubsection"],
CellFrame->{{.1, .1}, {.1, 01}},
Background->RGBColor[0, 0, 0.6, 0.05],
CellFrameMargins->8,
CellFrameColor->GrayLevel[0.8],
CellMargins->{{48, 3}, {0, 0}},
CellGroupingRules->{"SectionGrouping", 30},
FontColor->RGBColor[0, 0, 0.6, 1],

WholeCellGroupOpener->True,
FontWeight -> "Light"
]

Cell[StyleData["ItemNumbered"],
CellGroupingRules->{"SectionGrouping", 40}]

Cell[StyleData["Input"],
CellGroupingRules->(CellGroupingRules -> {"SectionGrouping", 60})]


Cell[StyleData["Output"],
CellGroupingRules->(CellGroupingRules -> {"SectionGrouping", 60})]

Cell[StyleData["Code"],
CellGroupingRules->(CellGroupingRules -> {"SectionGrouping", 60})]

Cell[StyleData["Program"],
CellGroupingRules->(CellGroupingRules -> {"SectionGrouping", 60})]

Cell[StyleData["Text"],

CellGroupingRules->(CellGroupingRules -> {"SectionGrouping", 60})]

Cell[StyleData["Item"],
CellDingbat->StyleBox["\[FilledSmallSquare]", Alignment -> Baseline,
RGBColor[0.0, 0.73, 1]],
CellGroupingRules->(CellGroupingRules -> {"SectionGrouping", 60})]

Cell[StyleData["SubitemNumbered"],
CellGroupingRules->{"SectionGrouping", 50}]


Cell[StyleData["Subitem"],
CellDingbat->StyleBox["\[FilledSmallSquare]", Alignment -> Baseline,
RGBColor[0.0, 0.2, 1]],
CellGroupingRules->(CellGroupingRules -> {"SectionGrouping", 60})]

But I still can't find a description of what behavior each of the built in cell grouping types provides.


Comments

Popular posts from this blog

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...

plotting - How to draw lines between specified dots on ListPlot?

I would like to create a plot where I have unconnected dots and some connected. So far, I have figured out how to draw the dots. My code is the following: ListPlot[{{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4,13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full] I have thought using ListLinePlot command, but I don't know how to specify to the command to draw only selected lines between the dots. Do have any suggestions/hints on how to do that? Thank you. Answer One possibility would be to use Epilog with Line : ListPlot[ {{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4, 13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full, Epilog -> { Line[ ...