correctif(a11y): #8105, pour les callout, utilise un div wrappant du contenu html

app/components/dsfr/callout_component.rb

@@ -1,6 +1,7 @@
 # see: https://www.systeme-de-design.gouv.fr/elements-d-interface/composants/mise-en-avant
 class Dsfr::CalloutComponent < ApplicationComponent
   renders_one :body
+  renders_one :html_body
   renders_one :bottom
 
   attr_reader :title, :theme, :icon, :extra_class_names

app/components/dsfr/callout_component/callout_component.html.haml

@@ -1,5 +1,8 @@
 %div{ class: callout_class }
   - if title.present?
     %h3.fr-callout__title= title
-  %p.fr-callout__text= body
+  - if html_body?
+    .fr-callout__text= html_body
+  - if body?
+    %p.fr-callout__text= body
   = bottom

app/components/editable_champ/explication_component/explication_component.html.haml

@@ -1,5 +1,5 @@
 = render Dsfr::CalloutComponent.new(title: @champ.libelle, extra_class_names: ['fr-mb-2w', 'fr-callout--blue-cumulus']) do |c|
-  - c.with_body do
+  - c.with_html_body do
 
     = render SimpleFormatComponent.new(@champ.description, allow_a: true)
 

app/views/instructeurs/dossiers/show.html.haml

@@ -6,12 +6,12 @@
 - if @dossier.etablissement&.as_degraded_mode?
   .container
     = render Dsfr::CalloutComponent.new(title: "Données de l’entreprise non vérifiées", theme: :warning, icon: "fr-icon-feedback-fill") do |c|
-      - c.with_body do
-        Les services de l’INSEE sont indisponibles, nous ne pouvons pas
-        vérifier les informations liées à l’établissement de ce dossier.
-        %strong Il n’est pas possible d’accepter ou de refuser un dossier sans cette étape.
-        %br
-        %br
-        Les informations sur l'entreprise arriveront d’ici quelques heures.
+      - c.with_html_body do
+        %p
+          Les services de l’INSEE sont indisponibles, nous ne pouvons pas vérifier les informations liées à l’établissement de ce dossier.
+          %strong
+            Il n’est pas possible d’accepter ou de refuser un dossier sans cette étape.
+        %p
+          Les informations sur l'entreprise arriveront d’ici quelques heures.
 
 = render partial: "shared/dossiers/demande", locals: { dossier: @dossier, demande_seen_at: @demande_seen_at, profile: 'instructeur' }

app/views/prefill_descriptions/_json_description.html.haml

@@ -1,6 +1,6 @@
 = render Dsfr::CalloutComponent.new(title: t("views.prefill_descriptions.edit.json_description_title"), theme: :success, icon: "fr-icon-layout-grid-fill") do |c|
-  - c.with_body do
-    = t("views.prefill_descriptions.edit.json_description_info")
+  - c.with_html_body do
+    %p= t("views.prefill_descriptions.edit.json_description_info")
     %pre
       %code.code-block
         = prefill_json_description_url(procedure.path)

app/views/prefill_descriptions/_prefill_link.html.haml

@@ -5,8 +5,8 @@
 
   - if prefill_description.prefilled_champs.any?
     = render Dsfr::CalloutComponent.new(title: t("views.prefill_descriptions.edit.prefill_link_title"), theme: theme, icon: icon) do |c|
-      - c.with_body do
-        = body
+      - c.with_html_body do
+        %p= body
         %pre
           %code.code-block
             = prefill_description.prefill_link

app/views/prefill_descriptions/_prefill_query.html.haml

@@ -3,8 +3,8 @@
   - if prefill_description.prefilled_champs.any?
 
     = render Dsfr::CalloutComponent.new(title: t("views.prefill_descriptions.edit.prefill_query_title"), theme: :success, icon: "fr-icon-code-box-fill") do |c|
-      - c.with_body do
-        = t("views.prefill_descriptions.edit.prefill_query_info")
+      - c.with_html_body do
+        %p= t("views.prefill_descriptions.edit.prefill_query_info")
         %pre
           %code.code-block
             = prefill_description.prefill_query