\NeedsTeXFormat{LaTeX2e}
\ProvidesClass{paulslides}[2013/09/01 Paul Koester]  % adapted from jackslides, by Jack Schmidt
\DeclareOption*{\PassOptionsToClass{\CurrentOption}{beamer}}
\ProcessOptions\relax
\LoadClass{beamer}
\mode<presentation>
{
\useinnertheme[shadow=true]{rounded}
\usecolortheme{whale}  % UK colors
%\usecolortheme{seagull}
%\usecolortheme{seahorse}
\setbeamercovered{invisible}
\setbeamertemplate{navigation symbols}{}
}

\hypersetup{pdfpagemode=FullScreen}
\hypersetup{colorlinks,urlcolor=blue,citecolor=blue,linkcolor=blue}
\newcommand{\bulletlist}[1]{\let\OldItem=\item\renewcommand{\item}{\ifx\VSkipItem\Undefined\def\VSkipItem{1}\vfill\else\vfill\fi\OldItem}\leftmargini=0em\vspace{-1.5em}\begin{itemize}#1\end{itemize}}
\newcommand{\stdframe}[2]{\begin{frame}\frametitle{#1}\bulletlist{#2}\end{frame}}

\let\oldmaketitle=\maketitle

\def\maketitle{
  \titlegraphic{%
    \scriptsize\flushleft\rightskip=0pt{\scshape Schedule:}
    \begin{itemize}\paulslides@announcements\end{itemize}
    \paulslides@today
  }
  \oldmaketitle
}

\def\todaywe#1{\def\paulslides@today{#1}}
\def\announcements#1{\def\paulslides@announcements{#1}}
\def\paulslides@today{}
\def\paulslides@announcements{\item[]}
