fix(M4): pronote_url + account_type et parsing iCal (STATUS:CANCELLED + blocs multi-dates)

Configuration (D1+D3) :
- PronoteSettings : ajout pronote_url (str | None) et account_type
  (Literal student/parent, défaut parent)

Parsing iCal (Fix 4+7) :
- parse_ical : détection STATUS:CANCELLED en plus de CATEGORIES
- parse_body : list[tuple[date, str]] au lieu de dict[date, str]
  pour préserver les blocs multiples à la même date
- parse_homework_blocks : adapté aux listes

Co-authored-by: opencode/coder <coder@agents.invalid>

pronote_sync/sources/pronote/ical.py

@@ -218,21 +218,23 @@ def _parse_french_date(value: str) -> date | None:
         return None
 
 
-def parse_body(body: str) -> tuple[str | None, dict[date, str], dict[date, str]]:
+def parse_body(body: str) -> tuple[str | None, list[tuple[date, str]], list[tuple[date, str]]]:
     """Parse le corps HTML pour extraire contenu pédagogique et devoirs.
 
     Le contenu est extrait de la section ``<strong>Contenu pédagogique :</strong>``.
     Les devoirs à faire sont extraits des sections ``<strong>Pour le JJ/MM/AAAA :</strong>``
-    (dict date → texte) et les devoirs donnés des sections
-    ``<strong>Donné le JJ/MM/AAAA :</strong>`` (dict date → texte).
+    (liste de tuples ``(date, texte)`` dans l'ordre du flux) et les devoirs donnés
+    des sections ``<strong>Donné le JJ/MM/AAAA :</strong>`` (liste de tuples
+    ``(date, texte)``). Les listes préservent tous les blocs, même lorsque plusieurs
+    sections partagent la même date.
 
     :param body: Corps HTML (à partir du premier ``<strong>``).
     :return: Tuple ``(contenu pédagogique, devoirs dus, devoirs donnés)``.
-    :rtype: tuple[str | None, dict[date, str], dict[date, str]]
+    :rtype: tuple[str | None, list[tuple[date, str]], list[tuple[date, str]]]
     """
     content: str | None = None
-    due_blocks: dict[date, str] = {}
-    assigned_blocks: dict[date, str] = {}
+    due_blocks: list[tuple[date, str]] = []
+    assigned_blocks: list[tuple[date, str]] = []
 
     content_match = _CONTENT_PATTERN.search(body)
     if content_match is not None:
@@ -241,34 +243,35 @@ def parse_body(body: str) -> tuple[str | None, dict[date, str], dict[date, str]]
     for match in _DUE_PATTERN.finditer(body):
         due_date = _parse_french_date(match.group(1))
         if due_date is not None:
-            due_blocks[due_date] = _strip_html(match.group(2))
+            due_blocks.append((due_date, _strip_html(match.group(2))))
 
     for match in _ASSIGNED_PATTERN.finditer(body):
         assigned_date = _parse_french_date(match.group(1))
         if assigned_date is not None:
-            assigned_blocks[assigned_date] = _strip_html(match.group(2))
+            assigned_blocks.append((assigned_date, _strip_html(match.group(2))))
 
     return content, due_blocks, assigned_blocks
 
 
 def parse_homework_blocks(
-    due_blocks: dict[date, str],
-    assigned_blocks: dict[date, str],
+    due_blocks: list[tuple[date, str]],
+    assigned_blocks: list[tuple[date, str]],
 ) -> tuple[HomeworkBlock, ...]:
-    """Construit les :class:`HomeworkBlock` depuis les dicts de devoirs.
+    """Construit les :class:`HomeworkBlock` depuis les listes de devoirs.
 
     Les blocs dus (``kind="due"``) précèdent les blocs donnés
-    (``kind="assigned"``), dans l'ordre d'insertion des dicts.
+    (``kind="assigned"``), dans l'ordre des listes. Tous les blocs
+    sont préservés, y compris lorsque plusieurs partagent la même date.
 
-    :param due_blocks: Dict date → texte des devoirs à faire.
-    :param assigned_blocks: Dict date → texte des devoirs donnés.
+    :param due_blocks: Liste de tuples ``(date, texte)`` des devoirs à faire.
+    :param assigned_blocks: Liste de tuples ``(date, texte)`` des devoirs donnés.
     :return: Tuple de blocs de devoirs pour le cours.
     :rtype: tuple[HomeworkBlock, ...]
     """
     blocks: list[HomeworkBlock] = []
-    for due_date, text in due_blocks.items():
+    for due_date, text in due_blocks:
         blocks.append(HomeworkBlock(kind="due", date=due_date, text=text, html=text))
-    for assigned_date, text in assigned_blocks.items():
+    for assigned_date, text in assigned_blocks:
         blocks.append(HomeworkBlock(kind="assigned", date=assigned_date, text=text, html=text))
     return tuple(blocks)
 
@@ -360,9 +363,10 @@ def parse_ical(raw_ical: str) -> tuple[list[Lesson], list[Homework], list[School
 
     Les VEVENT de vacances/congés (tout le jour) deviennent des
     :class:`SchoolEvent` de type ``holiday``. Les VEVENT horodatés
-    deviennent des :class:`Lesson` dont le statut dérive de la
-    catégorie (``Cours - Cours annulé`` → ``CANCELLED``,
-    ``Cours - Cours déplacé`` → ``MOVED``). Les UID sont normalisés ;
+    deviennent des :class:`Lesson` dont le statut dérive de la propriété
+    ``STATUS`` (``CANCELLED`` → ``CANCELLED``) et de la catégorie
+    (``Cours - Cours annulé`` → ``CANCELLED``, ``Cours - Cours déplacé`` →
+    ``MOVED``). Les UID sont normalisés ;
     un événement sans UID reçoit un UID déterministe généré à partir
     de ses champs clés (début, fin, matière, enseignants, salles, groupe).
 
@@ -416,11 +420,14 @@ def parse_ical(raw_ical: str) -> tuple[list[Lesson], list[Homework], list[School
         if not isinstance(start, datetime) or not isinstance(end, datetime):
             continue
 
-        status = LessonStatus.NORMAL
-        if "Cours - Cours annulé" in categories:
+        status_obj = component.get("status")
+        status_value = str(status_obj).strip().upper() if status_obj is not None else ""
+        if status_value == "CANCELLED" or "Cours - Cours annulé" in categories:
             status = LessonStatus.CANCELLED
         elif "Cours - Cours déplacé" in categories:
             status = LessonStatus.MOVED
+        else:
+            status = LessonStatus.NORMAL
 
         description = component.get("description")
         description_str = str(description) if description is not None else ""