%% Informations générales
%% Dernière modification le 2025-06-30 at 11:25
\NeedsTeXFormat{LaTeX2e}[1999/01/01]%
\ProvidesPackage{cahierprof}%
  [2025-06-30 v1.2 Les commandes pour le cahier Professeur]%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Chargement des extensions
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\RequirePackage{geometry}%
\RequirePackage{tikz}%
  \usetikzlibrary{math}%  
  \usetikzlibrary{calc}%
\RequirePackage[babel=true,kerning=true]{microtype}%
\RequirePackage{ifthen}%
\RequirePackage{nicematrix}%
\RequirePackage{xparse}%
\RequirePackage{xstring}%
\RequirePackage{listofitems}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Options 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Option samedi pour un emploi du temps du lundi au samedi 
\newboolean{Samedi}%
\setboolean{Samedi}{false}%
\tikzmath{\LastDay=int(5);}%
\DeclareOption{samedi}{%
  \setboolean{Samedi}{true}%
  \tikzmath{\LastDay=int(6);}%
}%
\ProcessOptions%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Définitions des compteurs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Compteurs day/month/year pour la date courante
\newcounter{day}%
\newcounter{month}%
\newcounter{year}%
%% Compteurs pour la rentrée
\newcounter{lundiRentree}%
\newcounter{monthRentree}%
\newcounter{yearRentree}%
%% Compteur pour la fin Février
\newcounter{FinFevrier}%
%% Compteurs pour les vacances scolaires
% Toussaint
\newcounter{dayToussaint}%
\newcounter{monthToussaint}%
\newcounter{dayToussaintFin}%
\newcounter{monthToussaintFin}%
% Noel
\newcounter{dayNoel}%
\newcounter{monthNoel}%
% Hiver
\newcounter{dayHiver}%
\newcounter{monthHiver}%
% Printemps
\newcounter{dayPrintemps}%
\newcounter{monthPrintemps}%
%% Compteurs pour les Jours Fériés 
\newcounter{dayPaques}%
\newcounter{monthPaques}%
\newcounter{dayAscension}%
\newcounter{dayAscensionPont}%
\newcounter{monthAscension}%
\newcounter{dayPentecote}%
\newcounter{monthPentecote}%
%% Compteurs pour les Examens
\newcounter{dayDNBDebut}%
\newcounter{dayDNBFin}%
\newcounter{monthDNB}%
\newcounter{dayBacDebut}%
\newcounter{dayBacFin}%
\newcounter{monthBac}%
\newcounter{dayBacPhilo}%
\newcounter{monthBacPhilo}%
\newcounter{dayBacFrancais}%
\newcounter{monthBacFrancais}%
\newcounter{dayGODebut}%
\newcounter{dayGOFin}%
\newcounter{monthGO}%
% Compteurs pour le dernier jours de classe
\newcounter{dayFin}\setcounter{dayFin}{32}%
\newcounter{monthFin}\setcounter{monthFin}{13}%
%% Définition de compteurs pour gérer l'affichage de la semaine (\getWeek) 
\newcounter{dayRemember}%
\newcounter{monthRemember}%
\newcounter{yearRemember}%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Commande pour un calendrier du lundi au samedi 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% - \setSamedi : Déclare le samedi dans l'emploi du temps.
\newcommand{\setSamedi}{%
  \setboolean{Samedi}{true}%
  \tikzmath{\LastDay=int(6);}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Liste des macros pour le calendrier.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% - \nextday : pour passer au jour d'après
% - \weekend : pour passer les week-ends ou les vacances scolaires
% - \isFerie : Si le jour est ferié alors, on affiche *Férié*
% - \isExamen: Si le jour est un jour d'examen, on affiche *Examen*
% - \getdate : afficher la date au format day/month/year
% - \getWeek : afficher la semaine au format Du Lundi au Vendredi/Samedi
%%%% Passer au jour d'après
\newcommand{\nextday}{%
  % Les mois à 30 jours : Avril, Juin, Septembre, Novembre
  % Les mois à 31 jours : Janvier, Mars, Mai, Juillet, Août, Octobre, Décembre
  % Février à \theFinFevrier jours.
  \ifthenelse{%
      \(\theday=30 \and \(\themonth=4 \or \themonth=6 \or \themonth=9 \or \themonth=11\)\)%
  \or \(\theday=31 \and \(\themonth=1 \or \themonth=3 \or \themonth=5 \or \themonth=7 \or%
        \themonth=8 \or \themonth=10 \or\themonth=12\)\) %
  \or \(\theday=\theFinFevrier \and \themonth=2\)}%
  {%
    % Si on est en décembre, on change d'année et month=1, day=1%
    \ifthenelse{\themonth=12}{%
      \stepcounter{year}%
      \setcounter{month}{1}%
      \setcounter{day}{1}%
    }{%
      % Dans les autres cas, on change de mois et on recommence à day=1%
      \stepcounter{month}%
      \setcounter{day}{1}%
    }%
  }{%
    % Sinon, on augmente juste le compteur jour%
    \stepcounter{day}%
  }%
}%
%%%% Gestions des vacances et week-end
\newcommand{\weekend}{%
  \ifthenelse{\theday=\thedayToussaint \and \themonth=\themonthToussaint}{%
    % Vacances de Toussaint : 15 jours de vacances, bien mérités !
    \foreach \jour in {1,...,16}{\nextday}%
    Vacances de la Toussaint%
  }{%
    \ifthenelse{\theday=\thedayNoel \and \themonth=\themonthNoel}{%
      % Vacances de Noël : 15 jours de vacances, bien mérités !
      \foreach \jour in {1,...,16}{\nextday}%
      Vacances de Noël%
    }{%
      \ifthenelse{\theday=\thedayHiver \and \themonth=\themonthHiver}{%
        % Vacances d'Hiver : 15 jours de vacances, bien mérités !
        \foreach \jour in {1,...,16}{\nextday}%
        Vacances d'hiver%
      }{
        \ifthenelse{\theday=\thedayPrintemps \and \themonth=\themonthPrintemps}{%
          % Vacances de Printemps : 15 jours de vacances, bien mérités !
          \foreach \jour in {1,...,16}{\nextday}%
          Vacances de printemps%
        }{
          % sinon c'est juste un week-end
          \nextday\nextday%
        }%
      }%
    }%
  }%
}%
%%%% Gestion des jours fériés
\newcommand{\isFerie}{%
  \ifthenelse{% Jour de l'an, 1er janvier
        \(\theday=1 \and \themonth=1\)%
    \or% Lundi de Pâques
        \(\theday=\thedayPaques \and \themonth=\themonthPaques\)%
    \or% Fête du travail, le 1er mai
        \(\theday=1 \and \themonth=5\)%
    \or% Victoire 1945, le 8 mai
        \(\theday=8 \and \themonth=5\)%
    \or% Jeudi de l'ascension
        \(\theday=\thedayAscension \and \themonth=\themonthAscension\)%
    \or% Pont du vendredi de l'ascension
        \(\theday=\thedayAscensionPont \and \themonth=\themonthAscension\)%
    \or% Lundi de Pentecôte
        \(\theday=\thedayPentecote \and \themonth=\themonthPentecote\)%
    \or% Fête Nationale, le 14 juillet
        \(\theday=14 \and \themonth=7\)%
    \or% Assomption, le 15 août
        \(\theday=15 \and \themonth=8\)%
    \or% Toussaint, le 1er novembre
        \(\theday=1 \and \themonth=11\)%
    \or% Armistice 1914-1918, le 11 novembre
        \(\theday=11 \and \themonth=11\)%
    \or% Noël, le 25 décembre
      \(\theday=25 \and \themonth=12\)%
  }{% Si le jour est férié : la colonne est grisée
    \columncolor{lightgray}%
    \Block[r]{1-1}{$\star$Ferié$\star$}%
  }{}% Sinon, on ne fait rien.
}%
%%%% Gestion des jours d'examens 
\newcommand{\isExamen}{%
  \ifthenelse{% Les jours du DNB
    \(\theday=\thedayDNBDebut \or \theday>\thedayDNBDebut\)%
    \and\(\theday<\thedayDNBFin \or \theday=\thedayDNBFin\)%
    \and \themonth=\themonthDNB%
  }{% Couleur du fond de la colonne du DNB
    \bgDNB%
    \Block[r]{1-1}{$\star$DNB$\star$}%
  }{}%
  \ifthenelse{% Les jours du Bac
    \(\theday=\thedayBacDebut \or \theday>\thedayBacDebut\)%
    \and\(\theday<\thedayBacFin \or \theday=\thedayBacFin\)%
    \and \themonth=\themonthBac%
  }{% Couleur du fond de la colonne du bac
    \bgBac%
    \Block[r]{1-1}{$\star$Spé$\star$}%
  }{}%
  % Le jour du Bac Philo
  \ifthenelse{\theday=\thedayBacPhilo \and \themonth=\themonthBacPhilo%
  }{% Couleur du fond de la colonne du bac philo
    \bgBacPhilo% 
    \Block[r]{1-1}{$\star$Philo$\star$}%
  }{}%
  % Le jour du Bac Français
  \ifthenelse{\theday=\thedayBacFrancais \and \themonth=\themonthBacFrancais%
  }{% Couleur du fond de la colonne Bac Français
    \bgBacFrancais%
    \Block[r]{1-1}{$\star$EAF$\star$}
  }{}%
  % Les jours du GO
  \ifthenelse{%
    \(\theday=\thedayGODebut \or \theday>\thedayGODebut\)%
    \and\(\theday<\thedayGOFin \or \theday=\thedayGOFin\)%
    \and \themonth=\themonthGO%
  }{% Couleur du fond de la colonne du Grand Oral
    \bgGO%
    \Block[r]{1-1}{$\star$GO$\star$}%
  }{}%
}%
%%%% Obtenir la date dans la première ligne du tableau
\newcommand{\getDate}{%
  \theday/\themonth/\theyear% On affiche la date
  \isFerie%  Est-ce que le jour \theday/\themonth est férié?
  \isExamen% Est-ce que le jour \theday/\themonth est un jour d'examen?
}%
%%%% Affichage de la semaine.
\newcommand{\getWeek}{%
  \setcounter{dayRemember}{\theday}%
  \setcounter{monthRemember}{\themonth}%
  \setcounter{yearRemember}{\theyear}%
  Du lundi \theday{}
  \IfStrEqCase{\themonth}{%
    {1}{janvier}%
    {2}{Février}%
    {3}{mars}%
    {4}{avril}%
    {5}{mai}%
    {6}{juin}%
    {7}{juillet}%
    {8}{août}%
    {9}{septembre}%
    {10}{octobre}%
    {11}{novembre}%
    {12}{décembre}%
  }\space\theyear{}
  au 
  \nextday\nextday\nextday\nextday%
  \ifthenelse{\boolean{Samedi}}{samedi\nextday}{vendredi}
  \theday{}
  \IfStrEqCase{\themonth}{%
    {1}{janvier}%
    {2}{Février}%
    {3}{mars}%
    {4}{avril}%
    {5}{mai}%
    {6}{juin}%
    {7}{juillet}%
    {8}{août}%
    {9}{septembre}%
    {10}{octobre}%
    {11}{novembre}%
    {12}{décembre}%
  }\space\theyear
  \setcounter{day}{\thedayRemember}%
  \setcounter{month}{\themonthRemember}%
  \setcounter{year}{\theyearRemember}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Liste des macros pour les jours spéciaux
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% - \setLundiRentree[3]   : définir le lundi de rentrée au format DD-MM-YYYY
% - \setDebutToussaint[2] : définir le début (samedi) des vacances de Toussaint
% - \setDebutNoel[2]      : définir le début (samedi) des vacances de Noel
% - \setDebutHiver[2]     : définir le début (samedi) des vacances d'hiver
% - \setDebutPrintemps[2] : définir le début (samedi) des vacances de Printemps
% - \setLundiPaques[2]    : définir le lundi de Pâques au format DD-MM
% - \setJoursFeries       : définir les dates de l'ascension, du pont de
%                           l'ascension et de la Pentecôte à partir de la date
%                           du lundi de Pâques.
% - \setDNB[3]            : Définir les dates de début et fin des épreuves du DNB
% - \setBac[3]            : Définir les dates de début et fin des épreuves du Bac 
% - \setBacPhilo[2]       : Définir le jour du Bac philo
% - \setBacFrancais[2]    : Définir le jour du Bac français
% - \setGO[3]             : Définir les dates de début et fin du Grand Oral
%%%% Définir le lundi de la rentrée
% \setLundiRentree a 3 arguments :
% - #1 Le jour de la rentrée
% - #2 Le Mois de la rentrée
% - #3 L'annéede la rentrée
\newcommand{\setLundiRentree}[3]{%
  \setcounter{lundiRentree}{#1}%
  \setcounter{monthRentree}{#2}%
  \setcounter{yearRentree}{#3}%
  % Gestion des années bissextiles.
  \setcounter{year}{\theyearRentree}%
  % Si la rentrée est après la fin de Février, alors on prend en compte l'année suivante.
  \ifthenelse{\themonthRentree>2}{\stepcounter{year}}{}
  % Est-ce que l'année est bissextile?%
  \pgfmathparse{int(mod(\theyear,4))}%
  \ifthenelse{\pgfmathresult>0}{%
    % if (year is not divisible by 4) then (it is a common year)%
    \setcounter{FinFevrier}{28}%
  }{% else if (year is not divisible by 100) then (it is a leap year)%
    \pgfmathparse{int(mod(\theyear,100))}%
    \ifthenelse{\pgfmathresult>0}{%
      \setcounter{FinFevrier}{29}%
    }{% else if (year is not divisible by 400) then (it is a common year)%
      \pgfmathparse{int(mod(\theyear,400))}%
      \ifthenelse{\pgfmathresult>0}{%
        \setcounter{FinFevrier}{28}%
      }{% else (it is a leap year)%
        \setcounter{FinFevrier}{29}%
      }%
    }%
  }%
}%
%%%% Définir le début des vacances de Toussaint, de noël, d'hiver et de printemps
% Les commandes \setDebut*Vacances* ont 2 arguments :
% - #1 Le jour de la rentrée
% - #2 Le Mois de la rentrée
\newcommand{\setDebutToussaint}[2]{%
  \setcounter{dayToussaint}{#1}%
  \setcounter{monthToussaint}{#2}%
}%
%%%% Définir le début des vacances de Noel
\newcommand{\setDebutNoel}[2]{%
  \setcounter{dayNoel}{#1}%
  \setcounter{monthNoel}{#2}%
}%
%%%% Définir le début des vacances d'hiver
\newcommand{\setDebutHiver}[2]{%
  \setcounter{dayHiver}{#1}%
  \setcounter{monthHiver}{#2}%
}%
%%%% Définir le début des vacances de Printemps
\newcommand{\setDebutPrintemps}[2]{%
  \setcounter{dayPrintemps}{#1}%
  \setcounter{monthPrintemps}{#2}%
}%
%%%% Définir le Lundi de Paques
\newcommand{\setLundiPaques}[2]{%
  \setcounter{dayPaques}{#1}%
  \setcounter{monthPaques}{#2}%
}%
%%%% Trouver les dates des jours fériés variables 
\newcommand{\setJoursFeries}{%
  \ifthenelse{\thedayPaques=0}{
    \setcounter{year}{\theyearRentree}%
    \stepcounter{year}%
    % Calcul du Dimanche de Pâques, par la méthode de Butcher-Meeus.
    \tikzmath{%
      \n=int(mod(\theyear,19));           % cycle de Méton
      \c=int(div(\theyear,100));          % centaine l'année
      \u=int(mod(\theyear,100));          % rang de l'année
      \s=int(div(\c,4));                  % siècle bissextile
      \t=int(mod(\c,4));                  % siècle bissextile
      \p=int(div(\c+8,25));               % cycle de proemptose
      \q=int(div(\c-\p+1,3));             % proemptose
      \e=int(mod(19*\n+\c-\s-\q+15,30));  % épacte
      \b=int(div(\u,4));                  % année bissextile
      \d=int(mod(\u,4));                  % année bissextile
      \LL=int(mod(2*\t+2*\b-\e-\d+32,7)); % lettre dominicale
      \h=int(div(\n+11*\e+22*\LL,451));   % correction
      \m=int(div(\e+\LL-7*\h+114,31));    % mois du dimanche de Pâques
      \j=int(mod(\e+\LL-7*\h+114,31)+1);  % jour du dimanche de Pâques
    }%
    % Dimanche de Pâques
    \setcounter{day}{\j}%
    \setcounter{month}{\m}%
    % lundi de Pâques, immédiatement après le dimanche de Pâques.
    \nextday%
    \setcounter{dayPaques}{\theday}%
    \setcounter{monthPaques}{\themonth}%
  }{}
  % Jeudi de l'ascension = 38 jours après le lundi de Pâques
  \foreach \jour in {1,...,38}{\nextday}%
  \setcounter{dayAscension}{\theday}%
  \setcounter{monthAscension}{\themonth}%
  % Vendredi, pont de l'ascension
  \nextday%
  \setcounter{dayAscensionPont}{\theday}%
  % Lundi de Pentecôte = 10 jours après le vendredi de l'ascension
  \foreach \jour in {1,...,10}{\nextday}%
  \setcounter{dayPentecote}{\theday}%
  \setcounter{monthPentecote}{\themonth}%
  % Remettre la date au jour de la rentrée
  \setcounter{day}{\thelundiRentree}%
  \setcounter{month}{\themonthRentree}%
  \setcounter{year}{\theyearRentree}%
}%
%%%% Définir le début et la fin du DNB 
% \setcounter{monthDNB}{13}% Utile pour arrêter \ListeJour après le DNB
\newcommand{\setDNB}[4][lightgray]{%
  \def\bgDNB{\columncolor{#1}}
  \setcounter{dayDNBDebut}{#2}%
  \setcounter{dayDNBFin}{#3}%
  \setcounter{monthDNB}{#4}%
}%
%%%% Définir le jour du Bac Français 
% \setcounter{monthBacFrancais}{13}% utile pour arrêter \ListeJour après le bac fr.
\newcommand{\setBacFrancais}[3][lightgray]{%
  \def\bgBacFrancais{\columncolor{#1}}
  \setcounter{dayBacFrancais}{#2}%
  \setcounter{monthBacFrancais}{#3}%
}%
%%%% Définir le jour du Bac Philo 
\newcommand{\setBacPhilo}[3][lightgray]{%
  \def\bgBacPhilo{\columncolor{#1}}
  \setcounter{dayBacPhilo}{#2}%
  \setcounter{monthBacPhilo}{#3}%
}%
%%%% Définir le début et la fin du Bac 
\newcommand{\setBac}[4][lightgray]{%
  \def\bgBac{\columncolor{#1}}
  \setcounter{dayBacDebut}{#2}%
  \setcounter{dayBacFin}{#3}%
  \setcounter{monthBac}{#4}%
}%
%%%%%%% Définir le début et la fin du Grand Oral 
\newcommand{\setGO}[4][lightgray]{%
  \def\bgGO{\columncolor{#1}}
  \setcounter{dayGODebut}{#2}%
  \setcounter{dayGOFin}{#3}%
  \setcounter{monthGO}{#4}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Liste des macros pour l'affichage de la semaine
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \Semaine : afficher la première ligne du tableau du cahier de texte 
% de la fome Lundi day/month, Mardi day/month, etc.
\newcommand{\Semaine}{%
  & Lundi \getDate\nextday%
  & Mardi \getDate\nextday%
  & Mercredi \getDate\nextday%
  & Jeudi \getDate\nextday%
  & Vendredi \getDate\nextday%
  \ifthenelse{\boolean{Samedi}}{& Samedi\ \getDate}{}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Liste des macros pour l'emploi du temps
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% - \setNombreSemaines[1] : définir le nombre N de semaines à afficher.
% - \EmploiDuTemps[1]     : afficher N fois le tableau #1.
% - \Sem[2]               : Séances bimensuelle.
% - \DeuxH[1]             : Bloc de 2h de cours avec la classe #1.
% - \Heures[2]            : Bloc de #1 heures de cours avec la classe #2.
%%% Nombre de semaine à afficher 
% Par défaut on affiche 36 semaines.
\tikzmath{\NbSem=int(36);}%
% Si on définit \setNombreSemaines, alors on affiche #1 semaine.
\newcommand{\setNombreSemaines}[1]{%
  \tikzmath{\NbSem=int(#1);}%
}%
%%%% Affichage de l'emploi du temps
\newcommand{\EmploiDuTemps}[1]{%
  \foreach \n in {1,...,\NbSem}{%
    {\Large\textsc{Semaine \no\n{} --- \getWeek}}%
    \vfil%
    \begin{NiceTabularX}{\linewidth}{l||*{\LastDay}{X}}[hvlines]%
      \Semaine \\%
      #1%
    \end{NiceTabularX}%
    \vfil%
    \hfil \weekend \hfil%
    \newpage%
  }%
}%
% \Sem[2] affiche les seances bimestrielles:
% - Affiche #1 si le numéro de la semaine est impair.
% - Affiche #2 si le numéro de la semaine est pair.
\newcommand{\Sem}[2]{%
  \pgfmathparse{int(mod(\n,2))}%
  \ifthenelse{\pgfmathresult=1}{#1}{#2}%
}%
%%%% Heures de cours multiples 
% \DeuxH[1] affiche un bloc de 2 heures contenant #1
\newcommand{\DeuxH}[1]{%
  \Block[t,l]{2-1}{#1}%
}%
% \Heure[2] affiche un bloc de #1 heures contenant #2
\newcommand{\Heures}[2]{%
  \Block[t,l]{#1-1}{#2}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Au début du doucment 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\AtBeginDocument{% 
  %%% Stocker le nom des élèves dans un fichier externe.
  \newwrite\tempfile%
  \immediate\openout\tempfile=\jobname.aux_LE%
  %%% Création de la liste \ListeJours qui contient les jours de l'année 
  \setJoursFeries% les jours fériés sont définis
  \setcounter{day}{\thelundiRentree}% On fixe les compteurs à la rentrée.
  \setcounter{month}{\themonthRentree}%
  \setcounter{year}{\theyearRentree}%
  %%% Commande locale pour savoir si #3-#4 est un jour ouvré 
  \newcommand\isJourOuvre[4]{% 
    \IfStrEqCase{#3-#4}{% Si la date est un jour férié, on ne fait rien.
      {1-1}{}% 1er janvier
      {\thedayPaques-\themonthPaques}{}% Lundi de Pâques
      {1-5}{}% 1er mai
      {1-8}{}% 8 mai
      {\thedayAscension-\themonthAscension}{}% Ascension
      {\thedayAscensionPont-\themonthAscension}{}% Pont de l'ascension
      {\thedayPentecote-\themonthPentecote}{}% Pentecôte
      {14-17}{}% 14 juillet
      {15-8}{}% 15 août
      {1-11}{}% 1er novembre
      {11-11}{}% 11 novembre
      {25-12}{}% 25 décembre
      {\thedayFin-\themonthFin}{}% Jours de la fin des cours
    }% 
    [\ifthenelse{\(\themonthFin<13\) \AND%
      \(% Si la date est après \thedayFin-\themonthFin, on ne fait rien.
      \(#3>\thedayFin \and #4=\themonthFin\) \OR \(#4>\themonthFin \and #4<\themonthRentree\)%
      \)% Sinon, on ajoute le jour à la liste des jours...
    }{}{\xdef\ListeJours{\ListeJours #1/#2/#3-#4,}}]%
  }%
  %%% Définition de \ListeJours 
  \gdef\ListeJours{}%
  \foreach \n in {1,...,\NbSem}{%
    \pgfmathtruncatemacro\parite{int(mod(\n,2))}% Calcul de la parité de la semaine
    \isJourOuvre{L}{\parite}{\theday}{\themonth}\nextday% Lundi
    \isJourOuvre{M}{\parite}{\theday}{\themonth}\nextday% Mardi
    \isJourOuvre{W}{\parite}{\theday}{\themonth}\nextday% Mercredi
    \isJourOuvre{J}{\parite}{\theday}{\themonth}\nextday% Jeudi
    \isJourOuvre{V}{\parite}{\theday}{\themonth}\nextday% Vendredi
    \isJourOuvre{S}{\parite}{\theday}{\themonth}% Samedi
    \ifthenelse{% Si on est au samedi de vacances 
      \(\theday=\thedayToussaint \and \themonth=\themonthToussaint\)%
      \OR \(\theday=\thedayNoel \and \themonth=\themonthNoel\)%
      \OR \(\theday=\thedayNoel \and \themonth=\themonthNoel\)%
      \OR \(\theday=\thedayHiver \and \themonth=\themonthHiver\)%
      \OR \(\theday=\thedayPrintemps \and \themonth=\themonthPrintemps\)%
    }{% On avance de 15 jours
      \foreach \m in {1,...,16}{\nextday}%
    }{% Sinon C'est un week-end
      \nextday\nextday%
    }%
  }%
  \StrGobbleRight{\ListeJours}{1}[\ListeJours]% Suppression de la dernière virgule
  \setcounter{day}{\thelundiRentree}% On fixe les compteurs à la rentrée.
  \setcounter{month}{\themonthRentree}%
  \setcounter{year}{\theyearRentree}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% À la fin du doucment 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\AtEndDocument{%
  \immediate\closeout\tempfile% Close the temp file
  % Copy the temp file to ListeEleves.tex
  \newwrite\copyfile% open the file to write to
  \immediate\openout\copyfile=ListeEleves.tex%
  \newread\file% open the file to read from
  \openin\file=\jobname.aux_LE
  \begingroup\endlinechar=-1%
  \loop\unless\ifeof\file%
    \read\file to\fileline% Read one line and store it into \fileline
    % print the content to copy.txt
    \immediate\write\copyfile{\unexpanded\expandafter{\fileline}}%
  \repeat%
  \endgroup%
  \closein\file%
  \closeout\tempfile%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Liste des macros pour les tableaux des classes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% - \setFinCours[2]       : Fixe la fin des cours
% - \setNombreColonnes[1] : Le nombre de colonne par tableau de classe.
% - \Classe[3]            : Afficher les tableaux de classe.
%%%%% Ficer la fin des cours
\newcommand{\setFinCours}[2]{%
  \setcounter{dayFin}{#1}%
  \setcounter{monthFin}{#2}%
}%
%%%%% Fixer le nombre de colonne
% Par défaut 18 colonnes
\tikzmath{\NbColonnes=18;}%
% Mais on peut fixer le nombre de colonne que l'on veut...
\newcommand{\setNombreColonnes}[1]{%
  \tikzmath{\NbColonnes=int(#1);}%
}%
%%%%% Réaliser les tableaux de classe.
%% \Classe a 4 arguments: 
%% #1 : (optionnel) un argument qui indique si on voit des classes 1 semaine sur 2
%% #2 : Le nom de la classe 
%% #3 : - Soit un entier qui correspond au nombre de fois où l'on voit la classe
%%        dans la semaine, 
%%      - Soit une liste qui correspond aux jours où l'on voit la classe dans la
%%        semaine (par exemple L,L,M pour Lundi, Lundi et Mardi).
%% #4 : la liste des élèves
%%% Commande pour repliquer le nombre de colonnes dans le tableau.
\ExplSyntaxOn%
\newcommand*\replicate{\prg_replicate:nn}%
\ExplSyntaxOff%
%%% Compteur pour la position de la date dans le tableau
\newcounter{ypos}%
%%% Compteur pour le nombre de tableaux à faire (si #3 est une liste). 
\newcounter{NbHebdo}%
%%% Commande Classe.
\makeatletter%
\newcommand\Classe[4][]{%
  %%% Ecrire le nom des élèves dans le fichier ListeEleves.tex :
  \immediate\write\tempfile{\string \subsection*{#2}}% Nom de la classe
  \immediate\write\tempfile{\string \begin{enumerate}}% 
    \foreach \i in {#4}{%
      \immediate\write\tempfile{\string\item\space \i}% Liste des élèves
    }%
  \immediate\write\tempfile{\string \end{enumerate}}%
  %%% Imprimer les tableaux d'absences.
  \def\tabledata{}% initialisation du tableau. 
  \foreach[count=\n] \NomPrenom in {#4}{% Corps du tableau avec la liste des élèves
    \protected@xappto\tabledata{{\tiny\n. \NomPrenom} \replicate{\NbColonnes}{&} \\}%
  }%
  % Combien de tableaux à imprimer ?
  \IfDecimal{#3}{% Si #3 est un entier, Le nombre hebdo où l'on voit la classe est #3 
    \pgfmathtruncatemacro\NbTableaux{ceil(#3*\NbSem/\NbColonnes)-1} 
  }{% Sinon #3 est une liste et on compte le nombre de fois où l'on voit la classe
    \readlist{\listeJours}{#3}%
    \if\relax\detokenize{#1}\relax% Si la liste #1 est vide
      \readlist{\listeJours}{#3}%
      \pgfmathtruncatemacro\NbTableaux{ceil(\listeJourslen*\NbSem/\NbColonnes)-1}%
    \else% Si la liste #1 n'est pas vide, il faut compter la parité
      \pgfmathsetmacro{\p}{0}%
      \foreach \J/\P in{#3}{% On va calculer Les parités de la liste
        % 0 --> Toutes les semaines ; 1 ou 2 --> 0,5 semaine.
        % \pgfmathparse{\p+1}%
        \ifthenelse{\P=0}{\pgfmathparse{\p+1}}{\pgfmathparse{\p+.5}}%
        \xdef\p{\pgfmathresult}%
      }%
      \pgfmathtruncatemacro\NbTableaux{ceil(\p*\NbSem/\NbColonnes)-1}%
    \fi%
  }%
  \foreach \i in {0,...,\NbTableaux}{% Pour chaque tableau à imprimer
    % Si on imprime les dates, savoir où commencer et où finir.
    \pgfmathtruncatemacro\debut{1+\i*\NbColonnes}%
    \pgfmathtruncatemacro\fin{2+\NbColonnes+\i*\NbColonnes}%
    % La postion de la date est initialisée à 1
    \setcounter{ypos}{1}%
    % Corps du tableau.
    \begin{NiceTabularX}{\linewidth}{l*{\NbColonnes}{X|}}[hvlines]%
      \CodeBefore%
      \rowcolors{2}{lightgray}{}% Alternance des couleurs du tableau blanc/gris.
      \Body%
      \rowcolor{lightgray}{\Large\strut #2} \replicate{\NbColonnes}{&\NotEmpty} \\%
      \tabledata%
      \CodeAfter%
      \IfDecimal{#3}{% Si on veut un tableau sans date, la clé #2 est un entier.
        % Le tableau est fini.
      }{% Si on veut un tableau avec les dates la clé #3 est une liste du type L,M,W
        \if\relax\detokenize{#1}\relax% Si la liste #1 est vide
          \foreach \Day/\Parite/\Date in \ListeJours {% On récupère chaque jour de l'année
            \foreach \J/\P in {#3}{% Pour les jours/parité de la liste #3
              \ifthenelse{\equal{\Day}{\J}}{% Si ça correspond à un jour de #2
                \stepcounter{ypos}% On place la date à la bonne position.
                \ifthenelse{\theypos>\debut\AND\theypos<\fin}{%
                  \pgfmathtruncatemacro\position{\theypos-\i*\NbColonnes}%
                \tikz[remember picture,overlay]\path (1-\position) node{\tiny \Date};}{}%
              }{}%
            }%
          }%
        \else% La liste #1 est de la forme L/1,M/2,W0
          \foreach \Day/\Parite/\Date in \ListeJours {% On récupère chaque jour de l'année
            \foreach \J/\P in {#3}{% Pour les jours/Parite de la liste #2
              \ifthenelse{% Si ça correspond à un jour de #1
              \equal{\Day}{\J}\AND\(\equal{\P}{0}\OR\equal{\P}{\Parite}\)}{%
              \stepcounter{ypos}% On place la date à la bonne position.
              \ifthenelse{\theypos>\debut\AND\theypos<\fin}{%
                \pgfmathtruncatemacro\position{\theypos-\i*\NbColonnes}%
              \tikz[remember picture,overlay]\path (1-\position) node{\tiny \Date};}{}%
            }{}%
          }%
        }%
      \fi%
    }%
    \end{NiceTabularX}\par%
    \vspace{4ex}%
  }%
}%
\makeatother%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Liste des élèves
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \ListeEleves[1] : Insère la liste des élèves 
% - Si #1 est défini, alors il insère la liste des élèves
% - Sinon, il va créer un fichier ListeEleves.tex qui contient la liste des
%   élèves puis insère le fichier (compiler deux fois, comme \tableofcontents).
\newcommand{\ListeEleves}[1]{%
  \ifthenelse{\equal{#1}{}}{%
    % S'il n'y a pas de fichier défini, on insère le fichier ListeEleves.tex
    \IfFileExists{ListeEleves.tex}{\input{ListeEleves.tex}}{}%
  }{% Sinon, on utilise le fichier #1 (s'il existe)
    \IfFileExists{#1}{\input{#1}}{}%
  }%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Divers 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Pas d'indentation des paragraphes
\setlength{\parindent}{0pt}%
% Fin du package.
\endinput
