Ajoute un compteur sur les champ de type textarea sur l'interface usager

app/assets/stylesheets/dossier_edit.scss

@@ -42,6 +42,11 @@ $dossier-actions-bar-border-width: 1px;
     }
   }
 
+  .characters-count {
+    position: relative;
+    top: -1rem;
+  }
+
   .warning {
     margin-bottom: 20px;
     background-color: #f9b91666;

app/components/editable_champ/textarea_component/textarea_component.en.yml

@@ -0,0 +1,3 @@
+en:
+  remaining_characters: You have %{remaining_words} characters remaining.
+  excess_characters: You have %{excess_words} characters too many.

app/components/editable_champ/textarea_component/textarea_component.fr.yml

@@ -0,0 +1,3 @@
+fr:
+  remaining_characters: Il vous reste %{remaining_words} caractères.
+  excess_characters: Vous avez dépassé la taille conseillée de %{excess_words} caractères.

app/components/editable_champ/textarea_component/textarea_component.html.haml

@@ -1,6 +1,20 @@
+- character_limit = @champ.textarea_character_limit.to_i if !@champ.textarea_character_limit&.empty?
+- character_count = @champ.character_count(@champ.value)
+- analyze_character_count = @champ.analyze_character_count(character_count, character_limit)
+
 ~ @form.text_area :value,
   id: @champ.input_id,
   aria: { describedby: @champ.describedby_id },
   rows: 6,
   required: @champ.required?,
   value: html_to_string(@champ.value)
+
+- if @champ.textarea_character_limit?
+
+  - if analyze_character_count == :info
+    %span.fr-icon-information-fill.fr-text-default--info.characters-count
+      = t('.remaining_characters', remaining_words: @champ.remaining_characters(character_count, character_limit))
+
+  - if analyze_character_count == :warning
+    %span.fr-icon-close-circle-fill.fr-text-default--error.characters-count
+      = t('.excess_characters', excess_words: @champ.excess_characters(character_count, character_limit))

app/components/procedure/revision_changes_component/revision_changes_component.fr.yml

@@ -36,6 +36,8 @@ fr:
     add_condition: Une condition a été ajoutée sur le champ « %{label} ». La nouvelle condition est « %{to} ».
     remove_condition: La condition du champ « %{label} » a été supprimée.
     update_condition: La condition du champ « %{label} » a été modifiée. La nouvelle condition est « %{to} ».
+    update_textarea_character_limit: La limite de caractères du champ texte « %{label} » a été modifiée. La nouvelle limite est « %{to} ».
+    remove_textarea_character_limit: La limite de caractères du champ texte « %{label} » a été supprimée.
   private:
     add: L’annotation privée « %{label} » a été ajoutée.
     remove: L’annotation privée « %{label} » a été supprimée.

app/components/procedure/revision_changes_component/revision_changes_component.html.haml

@@ -130,7 +130,14 @@
             = t(".#{prefix}.update_condition", label: change.label, to: change.to)
             - if !total_dossiers.zero? && !change.can_rebase?
               .fr-alert.fr-alert--warning.fr-mt-1v
-                %p= t('.breaking_change', count: total_dossiers)
+                %p= t('.breakigng_change', count: total_dossiers)
+      - when :textarea_character_limit
+        - if change.to.nil?
+          - list.with_item do
+            = t(".#{prefix}.remove_textarea_character_limit", label: change.label, to: change.to)
+        - else
+          - list.with_item do
+            = t(".#{prefix}.update_textarea_character_limit", label: change.label, to: change.to)
 
   - if @public_move_changes.present?
     - list.with_item do

app/components/types_de_champ_editor/champ_component/champ_component.html.haml

@@ -101,8 +101,11 @@
               = form.label :collapsible_explanation_text, for: dom_id(type_de_champ, :collapsible_explanation_text) do
                 = "Texte à afficher quand l'utiliser a choisi de l'afficher"
               = form.text_area :collapsible_explanation_text, class: "small-margin small", id: dom_id(type_de_champ, :collapsible_explanation_text)
-
+        - if type_de_champ.textarea?
-
+          .cell
+            = form.label :textarea_character_limit, for: dom_id(type_de_champ, :textarea_character_limit) do
+              Spécifier un nombre maximal de caractères (non restrictif) :
+            = form.number_field :textarea_character_limit, min: 400, value: form.object.textarea_character_limit, id: dom_id(type_de_champ, :textarea_character_limit)
 
   - if type_de_champ.block?
     .flex.justify-start.section.ml-1

app/controllers/administrateurs/types_de_champ_controller.rb

@@ -119,28 +119,29 @@ module Administrateurs
 
     def type_de_champ_update_params
       params.required(:type_de_champ).permit(:type_champ,
-                                             :libelle,
+        :libelle,
-                                             :description,
+        :description,
-                                             :mandatory,
+        :mandatory,
-                                             :drop_down_list_value,
+        :drop_down_list_value,
-                                             :drop_down_other,
+        :drop_down_other,
-                                             :drop_down_secondary_libelle,
+        :drop_down_secondary_libelle,
-                                             :drop_down_secondary_description,
+        :drop_down_secondary_description,
-                                             :collapsible_explanation_enabled,
+        :collapsible_explanation_enabled,
-                                             :collapsible_explanation_text,
+        :collapsible_explanation_text,
-                                             :header_section_level,
+        :header_section_level,
-                                             editable_options: [
+        :textarea_character_limit,
-                                               :cadastres,
+        editable_options: [
-                                               :unesco,
+          :cadastres,
-                                               :arretes_protection,
+          :unesco,
-                                               :conservatoire_littoral,
+          :arretes_protection,
-                                               :reserves_chasse_faune_sauvage,
+          :conservatoire_littoral,
-                                               :reserves_biologiques,
+          :reserves_chasse_faune_sauvage,
-                                               :reserves_naturelles,
+          :reserves_biologiques,
-                                               :natura_2000,
+          :reserves_naturelles,
-                                               :zones_humides,
+          :natura_2000,
-                                               :znieff
+          :zones_humides,
-                                             ])
+          :znieff
+        ])
     end
 
     def draft

app/models/champ.rb

@@ -75,6 +75,8 @@ class Champ < ApplicationRecord
     :mandatory?,
     :prefillable?,
     :refresh_after_update?,
+    :textarea_character_limit?,
+    :textarea_character_limit,
     to: :type_de_champ
 
   delegate :to_typed_id, :to_typed_id_for_query, to: :type_de_champ, prefix: true

app/models/champs/textarea_champ.rb

@@ -24,4 +24,29 @@ class Champs::TextareaChamp < Champs::TextChamp
   def for_export
     value.present? ? ActionView::Base.full_sanitizer.sanitize(value) : nil
   end
+
+  def character_count(text)
+    return text&.bytesize
+  end
+
+  def analyze_character_count(characters, limit)
+    if characters
+      threshold_75 = limit * 0.75
+
+      if characters >= limit
+        return :warning
+      elsif characters >= threshold_75
+        return :info
+      end
+    end
+  end
+
+  def remaining_characters(characters, limit)
+    threshold_75 = limit * 0.75
+    limit - characters if characters >= threshold_75
+  end
+
+  def excess_characters(characters, limit)
+    characters - limit if characters > limit
+  end
 end

app/models/procedure_revision.rb

@@ -377,6 +377,13 @@ class ProcedureRevision < ApplicationRecord
           from_type_de_champ.piece_justificative_template_filename,
           to_type_de_champ.piece_justificative_template_filename)
       end
+    elsif to_type_de_champ.textarea?
+      if from_type_de_champ.textarea_character_limit != to_type_de_champ.textarea_character_limit
+        changes << ProcedureRevisionChange::UpdateChamp.new(from_type_de_champ,
+          :textarea_character_limit,
+          from_type_de_champ.textarea_character_limit,
+          to_type_de_champ.textarea_character_limit)
+      end
     end
     changes
   end

app/models/type_de_champ.rb

@@ -19,6 +19,7 @@ class TypeDeChamp < ApplicationRecord
 
   FILE_MAX_SIZE = 200.megabytes
   FEATURE_FLAGS = {}
+  MINIMUM_TEXTAREA_CHARACTER_LIMIT_LENGTH = 400
 
   STRUCTURE = :structure
   ETAT_CIVIL = :etat_civil
@@ -118,6 +119,7 @@ class TypeDeChamp < ApplicationRecord
                  :drop_down_secondary_libelle,
                  :drop_down_secondary_description,
                  :drop_down_other,
+                 :textarea_character_limit,
                  :collapsible_explanation_enabled,
                  :collapsible_explanation_text,
                  :header_section_level
@@ -177,6 +179,11 @@ class TypeDeChamp < ApplicationRecord
 
   validates :libelle, presence: true, allow_blank: false, allow_nil: false
   validates :type_champ, presence: true, allow_blank: false, allow_nil: false
+  validates :textarea_character_limit, numericality: {
+    greater_than_or_equal_to: MINIMUM_TEXTAREA_CHARACTER_LIMIT_LENGTH,
+    only_integer: true,
+    allow_nil: true
+  }
 
   before_validation :check_mandatory
   before_validation :normalize_libelle
@@ -235,6 +242,10 @@ class TypeDeChamp < ApplicationRecord
     drop_down_other == "1" || drop_down_other == true
   end
 
+  def textarea_character_limit?
+    textarea_character_limit.present?
+  end
+
   def collapsible_explanation_enabled?
     collapsible_explanation_enabled == "1"
   end
@@ -340,6 +351,10 @@ class TypeDeChamp < ApplicationRecord
     type_champ == TypeDeChamp.type_champs.fetch(:number)
   end
 
+  def textarea?
+    type_champ == TypeDeChamp.type_champs.fetch(:textarea)
+  end
+
   def titre_identite?
     type_champ == TypeDeChamp.type_champs.fetch(:titre_identite)
   end
@@ -539,7 +554,8 @@ class TypeDeChamp < ApplicationRecord
       type_champs.fetch(:multiple_drop_down_list),
       type_champs.fetch(:dossier_link),
       type_champs.fetch(:linked_drop_down_list),
-      type_champs.fetch(:drop_down_list)
+      type_champs.fetch(:drop_down_list),
+      type_champs.fetch(:textarea)
       true
     else
       false