X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fhaskell-symposium-talk.git;a=blobdiff_plain;f=beamerinnerthemecaes.sty;fp=beamerinnerthemecaes.sty;h=580fe3c1a9d39824afb4a8209fec0af3c5ccd905;hp=664af83ef222dab983b56551b571354494186264;hb=d514bd151f4bd5bbb5ae6828902a778222de9738;hpb=bb178ef5c75d6adf38295303902670365634319c

diff --git a/beamerinnerthemecaes.sty b/beamerinnerthemecaes.sty
index 664af83..580fe3c 100644
--- a/beamerinnerthemecaes.sty
+++ b/beamerinnerthemecaes.sty
@@ -29,6 +29,34 @@
 
 \makeatletter
 
+%
+%
+% The \committee command
+%
+%
+\def\committee{\@dblarg\beamer@committee}
+\long\def\beamer@committee[#1]#2{%
+  \def\beamer@temp{#2}%
+  \ifx\beamer@temp\@empty
+    \def\insertcommittee{}
+  \else
+    \def\insertcommittee{\def\inst{\beamer@committee}\def\and{\beamer@andcommittee}#2}%
+  \fi
+ \def\beamer@shortcommittee{#1}}
+\committee{}
+
+\def\beamer@instcommittee#1{{\donotcoloroutermaths$^{#1}$}\ignorespaces}
+\def\beamer@andcommittee{\\[1em]}
+
+\newcommand\insertshortcommittee[1][]{%
+  {%
+    \let\thanks=\@gobble%
+    \def\inst{\beamer@committeeother}\def\and{\beamer@andcommittee}%
+    \beamer@setupshort{#1}%
+    \beamer@insertshort{\beamer@shortcommittee}%
+  }}
+
+
 \setbeamertemplate{title page}
 {
 	\begin{centering}
@@ -51,7 +79,7 @@
 	    \end{beamercolorbox}
 		\fi
     \begin{beamercolorbox}[sep=4pt,center]{date}
-      \usebeamerfont{date}\insertdate
+      \usebeamerfont{date}\insertcommittee
     \end{beamercolorbox}
 %    {\usebeamercolor[fg]{titlegraphic}\inserttitlegraphic\par}
     \vfill