Default cell type in Slide Show

Question

For slide show, the default cell style (when it is created) is Text. However, I would like to change that default style to Input. How can I change this?

Answer 1

Quick fix is to use

SetOptions[ EvaluationNotebook[], DefaultNewCellStyle -> "Input"]

if you want to restrict changes only to SlideShow environment put or edit your stylesheet with:

Cell[StyleData["Notebook","SlideShow"],
   DefaultNewCellStyle->"Section"
]

assuming your StyleDefinitions are in form of a _String/FileName not a Notebook you can set DefaultNewCellStyle for given environment:

SetOptions[
    EvaluationNotebook[],
    StyleDefinitions - >Notebook[{
        Cell[StyleData[StyleDefinitions -> CurrentValue[ 
           EvaluationNotebook[],StyleDefinitions]
        ]],
        Cell[StyleData["Notebook","SlideShow"],
           DefaultNewCellStyle->"Section"
        ]
    }]
]

Evaluate it in that notebook or replace EvaluationNotebook[] with a _NotebookObject pointing to your notebook.