Zusätzliche Informationen für subsection im Header von beamer

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
\documentclass[12pt]{beamer}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[ngerman]{babel}
\usepackage{refcount}% Wenn man die auskommentierte Zeile mit \getrefnumber verwenden will.
\usetheme{AnnArbor}
\makeatletter
\newcommand*{\additionalinfoof}[1]{%
  \expandafter\ifx\csname additionalinfo@#1\endcsname\relax\else
    \expandafter\ifx\csname additionalinfo@#1\endcsname\@empty\else
      : \@nameuse{additionalinfo@#1}%
  \fi\fi
}
\newcommand*{\additionalinfo}[2][\thesection.\thesubsection]{%
  \global\@namedef{additionalinfo@#1}{#2}%
}
\makeatother
\usepackage{xpatch}
\makeatletter
\xpatchcmd\beamer@subsectionintoc{#3}{#3\additionalinfoof{#1.#2}}{}{\FailED}
\makeatother
\setbeamertemplate{headline}% Definition aus beamerouterthemeinfolines.sty geändert
{
  \leavevmode%
  \hbox{%
  \begin{beamercolorbox}[wd=.5\paperwidth,ht=2.65ex,dp=1.5ex,right]{section in head/foot}%
    \usebeamerfont{section in head/foot}\insertsectionhead\hspace*{2ex}
  \end{beamercolorbox}%
  \begin{beamercolorbox}[wd=.5\paperwidth,ht=2.65ex,dp=1.5ex,left]{subsection in head/foot}%
    \usebeamerfont{subsection in head/foot}\hspace*{2ex}\insertsubsectionhead\additionalinfoof{\thesection.\thesubsection}
  \end{beamercolorbox}}%
  \vskip0pt%
}
\begin{document}
\section{Thema A}
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX