tools: Add relase mail generator.

tools/license.el

@@ -109,3 +109,59 @@
     (mapcar 'pamhyr--insert-license
             (mapcar (lambda (file) (concat root "/" file))
                     files-without-copyright))))
+
+(defvar pamhyr-mail-template "Bonjour,
+
+La version @version de Pamhyr2 est disponible.
+
+<NEWS>
+
+---Change-logs-------------------@version---
+@description
+------------------------------------------
+
+---Liens-utiles---------------------------
+  Télécharger cette version :
+    https://gitlab.irstea.fr/theophile.terraz/pamhyr/-/releases/@version
+
+  La documentation (en anglais) :
+    https://gitlab.irstea.fr/theophile.terraz/pamhyr/-/wikis/home
+
+  Rapporter un problème :
+    https://gitlab.irstea.fr/theophile.terraz/pamhyr/-/issues
+  ou directement par mail à :
+    <pierre-antoine.rouby@inrae.fr>
+------------------------------------------
+
+<FUTURE_WORK>
+
+---/!\--Attention-------------------------
+  Pour les utilisateurs Windows : Certains antivirus peuvent détecter Pamhyr2 comme un virus, c'est un faux positif, le problème est connu et vient de l'exécutable généré par PyInstaller.
+  Nous n'avons pas encore de solution pour régler ce problème.
+  Si c'est votre cas, il faudra ajouter une exception dans votre antivirus si vous voulez utiliser Pamhyr2.
+  Sinon, il est aussi possible de passer par WSL et utiliser la version Linux sous Windows.
+
+  Rapport d'antivirus : <LINK_VIRUSTOTAL>
+------------------------------------------
+
+Bon weekend,
+")
+
+(require 'web)
+(require 'json)
+
+(defun pamhyr-release-mail (release)
+  (interactive "sRelease name: ")
+  (web-http-get
+   (lambda (httpc header my-data)
+     (let* ((data (json-read-from-string my-data))
+            (release (cdr (assoc 'tag_name data)))
+            (description (cdr (assoc 'description data))))
+       (let ((buffer (generate-new-buffer (format "* mail-%s *" release))))
+         (with-current-buffer buffer
+           (insert
+            (string-replace "@description" description
+                            (string-replace "@version" release
+                                            pamhyr-mail-template)))
+           (set-buffer buffer)))))
+   :url (concat "https://gitlab.irstea.fr/api/v4/projects/2779/releases/" release)))