5
$\begingroup$

I applied the stylesheet JournalArticle to a notebook. When I use the Reference cell style there, it automatically inserts "A.", "B.", etc., to number the cells.

What exactly should one do (presumably using Format > Edit Stylesheet) so as to change that auto-numbering to "1.", "2.", etc.?

I did look at the Private Style Definitions notebook that opens if I use Format > Edit Stylesheet for my notebook. The expression that's the contents of the Reference style cell definition is merely: Cell[StyleData["Reference"]].

Moreover, if I select the Reference cell in the stylesheet, open Option Inspector, search for AutomaticNumbering, and change the option

Formatting Options > Automatic Numbering Options > Counter Display Options > CounterFunction

to Decimal Numbers (in the drop down menu aside this option), it does not change the stylesheet's prototype for this Reference style -- and hence will not change the style of Reference cells in my actual notebook.

$\endgroup$
  • $\begingroup$ This is a good question. I did not notice such a feature before, though I use the JournalArticle a lot. Is it a new Mma 10.0 feature? I recall something of this sort has been discussed about 1/2 to 1 year ago. I did not make any note at that time and cannot find it though. I am also not sure that the discussion I recall answers this question. $\endgroup$ – Alexei Boulbitch Nov 20 '14 at 9:41
  • 1
    $\begingroup$ I think to have outflanked the problem. I just mark the references as EndNotes, make numeration in the list of thee EndNotes by hand, and make then cross-references from the text to the EndNotes, rather than to References. Since I otherwise use no other end notes, this works for automatic cross-references. Since it is not a real solution to the problem, I do not dare to give it as an answer, and still wait eagerly for somebody who might give a real one. $\endgroup$ – Alexei Boulbitch Feb 17 '15 at 14:24
2
$\begingroup$

Check out the default style for "Reference":

CurrentValue[{StyleDefinitions,"Reference", CellFrameLabels}]

{{Cell[TextData[{CounterBox["Reference", CounterFunction :> (CharacterRange["A", "Z"][[#1]] &)], "."}], "Reference", CellBaseline -> Baseline, TextAlignment -> Right], Inherited}, {Inherited, Inherited}}

The CounterFunction overrides the default number output and converts it to letters. Just eliminate the CounterFunction to have numbers:

SetOptions[
    EvaluationNotebook[],
    StyleDefinitions -> Notebook[
        {
        Cell[StyleData[StyleDefinitions->FrontEnd`FileName[{"Article"}, "JournalArticle.nb"]]],
        Cell[StyleData["Reference"],
            CellFrameLabels->{
                {
                Cell[TextData[{CounterBox["Reference"],"."}],"Reference",CellBaseline->Baseline,TextAlignment->Right],
                Inherited
                },
                {Inherited,Inherited}
            }
        ]
        },
        StyleDefinitions->"PrivateStylesheetFormatting.nb"
    ]
]
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

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