use moloch instead of metropolis (#4)

projektor.sty

@@ -27,14 +27,11 @@
     \MakeOuterQuote{"}
 \fi
 
-\RequirePackage{microtype} % Police
-
-% Metropolis + barre de progression + numéro de page
+% Moloch avec barre de progression
 \usetheme[
     progressbar=frametitle,
-    numbering=fraction,
-    block=fill
-]{metropolis}
+    block=fill,
+]{moloch}
 
 % Renomme la table des matières
 \AtBeginDocument{
@@ -75,12 +72,15 @@
     \setbeamercolor*{palette primary}{use=structure,fg=structure.fg}
 \else
     % Augmente l'épaisseur de la barre de progression sur les diapos
-    \setlength{\metropolis@progressinheadfoot@linewidth}{0.8pt}
+    \setlength{\moloch@progressinheadfoot@linewidth}{0.8pt}
 \fi
 
 % Point au lieu de carré dans les listes
 \setbeamertemplate{itemize items}[circle]
 
+% Numéros de pages
+\setbeamertemplate{page number in head/foot}[appendixframenumber]
+
 % Métadonnées
 \hypersetup{
     pdfsubject={Présentation},
@@ -102,10 +102,10 @@
 \setbeamertemplate{section in toc}[sections numbered]
 
 % Police
+\RequirePackage{microtype}
 \RequirePackage{lmodern}
 
 % Inverse titre court/titre long dans le plan
-\RequirePackage{etoolbox}
 \makeatletter
 \patchcmd{\beamer@section}{{#2}{\the\c@page}}{{#1}{\the\c@page}}{}{}
 \patchcmd{\beamer@section}{{\the\c@section}{\secname}}{{\the\c@section}{#1}}{}{}
@@ -117,50 +117,8 @@
 % Pas de préfix pour les figures
 \RequirePackage[figurename=]{caption}
 
-% Support des sous-titres
-\makeatletter
-\newcommand\startsubtitle{
-    \renewcommand{\metropolis@frametitlestrut@start}{
-        \rule{0pt}{1ex +
-            \totalheightof{
-                \ifcsdef{metropolis@frametitleformat}{\metropolis@frametitleformat X}{X}
-            }
-        }
-    }
-    \renewcommand{\metropolis@frametitlestrut@end}{
-        \rule[-3ex]{0pt}{\metropolis@frametitle@padding}
-    }
-}
-
-\newcommand\stopsubtitle{
-    \renewcommand{\metropolis@frametitlestrut@start}{
-        \rule{0pt}{\metropolis@frametitle@padding +
-            \totalheightof{
-                \ifcsdef{metropolis@frametitleformat}{\metropolis@frametitleformat X}{X}
-            }
-        }
-    }
-    \renewcommand{\metropolis@frametitlestrut@end}{
-        \rule[-\metropolis@frametitle@padding]{0pt}{\metropolis@frametitle@padding}
-    }
-}
-\makeatother
-
-\setbeamercolor{framesubtitle}{fg=white}
+% Sous-titres
 \setbeamerfont{framesubtitle}{series=\mdseries}
-\addtobeamertemplate{frametitle}{
-    \ifx\insertframesubtitle\empty\else
-        \startsubtitle
-    \fi
-}{
-    \ifx\insertframesubtitle\empty\else
-        \vspace{-4ex}
-        \usebeamerfont{framesubtitle}
-        \usebeamercolor[fg]{framesubtitle}
-        \insertframesubtitle
-        \stopsubtitle
-    \fi
-}
 
 % Souligne mieux les mots
 \newcommand{\ul}[1]{\underline{\smash{#1}}}