Add src/sill-create-latest-xml.clj script

Author: bzg

README.md

@@ -34,6 +34,12 @@ Fusionner les données des prestataires SILL venant de l'ADULLACT et du CNLL.
 
 `bbin install https://git.sr.ht/~codegouvfr/codegouvfr-outils/blob/main/src/sill-prestataires.clj`
 
+## `sill-create-latest-xml.clj`
+
+Exporter le flux RSS `latest-sill.xml` à partir de https://code.gouv.fr/sill/api/sill.json.
+
+`bbin install https://git.sr.ht/~codegouvfr/codegouvfr-outils/blob/main/src/sill-create-latest-xml.clj`
+
 ## `annuaire-service-public-enrichi`
 
 Enrichi le `.json` de l'annuaire des services publics en ajoutant les

bb.edn

@@ -2,4 +2,5 @@
  :description "Utilitaires pour code.gouv.fr"
  :url         "https://git.sr.ht/~codegouvfr/codegouvfr-outils"
  :license     {:name "Eclipse Public License - v 2.0"
-               :url  "http://www.eclipse.org/legal/epl-v20.html"}}
+               :url  "http://www.eclipse.org/legal/epl-v20.html"}
+ :deps        {clj-rss/clj-rss {:mvn/version "0.4.0"}}}

src/sill-create-latest-xml.clj

@@ -0,0 +1,25 @@
+#!/usr/bin/env bb
+
+(require '[clj-rss.core :as rss])
+
+(if-let [sill (try (:body (curl/get "https://code.gouv.fr/sill/api/sill.json"))
+                   (catch Exception e (println (.getMessage e))))]
+  (do (->> sill
+           json/parse-string
+           (sort-by #(java.util.Date. (get % "referencedSinceTime")))
+           reverse
+           (take 10)
+           (map (fn [item]
+                  (let [link (str "https://code.gouv.fr/sill/detail?name=" (get item "name"))]
+                    {:title       (str "Nouveau logiciel au SILL : " (get item "name"))
+                     :link        link
+                     :guid        link
+                     :description (get item "function")
+                     :pubDate     (.toInstant (java.util.Date. (get item "referencedSinceTime")))})))
+           (rss/channel-xml
+            {:title       "code.gouv.fr - Nouveaux logiciels libres au SILL - New SILL entries"
+             :link        "https://code.gouv.fr/data/latest-sill.xml"
+             :description "code.gouv.fr - Nouveaux logiciels libres au SILL - New SILL entries"})
+           (spit "latest-sill.xml"))
+      (println "Exported latest-sill.xml"))
+  (println "Count not get SILL data"))