latexBeamerblock

当前block环境的样式是下面这样的

如果在block环境中使用了列表环境，把字体设置比较大之后，列表的标号会从左边突出到block的外面，所以需要在\raggedright环境的左边增加一些缩进。
另外，我还想设置一些其它样式的环境。
使用的代码如下

\renewcommand{\raggedright}{\leftskip=0.5cm \rightskip=0pt plus 0cm}%如果在block环境中使用了列表环境，把字体设置比较大之后，列表的标号会从左边突出到block的外面，所以需要在\raggedright环境的左边增加一些缩进
\defbeamertemplate{block begin}{myrounded}[1][shadow=false]
	{
	  \par\vskip\medskipamount%
	  \begin{beamerboxesrounded}[upper=block title,lower=block body,#1]%
	    {
	    	\usebeamerfont*{block title}\insertblocktitle}%
	    	\usebeamerfont{block body}%
	    	\parindent1cm
		}
\setbeamertemplate{block begin}[myrounded]

\defbeamertemplate{block end}{myrounded}[1][]
	{
		\end{beamerboxesrounded}
		\vskip\smallskipamount
	}
\setbeamertemplate{block end}[myrounded]

\newenvironment{homework}
	{
		\begin{beamerboxesrounded}{\textcolor{red}{\HandPencilLeft\HandPencilLeft} 作业}
	}
	{
		\end{beamerboxesrounded}
	}
\newenvironment{thinkabout}
	{
		\begin{beamerboxesrounded}{\bcquestion\bcquestion 思考}
	}
	{
		\end{beamerboxesrounded}
	}

产生的效果如下

enter description here