Refactoring des queries

A la lecture de la documentation sur les "find specifications", on trouve de meilleures systèmes que "map first" et
"ffirst" pour générer des résultats plus propres.

+ Fix de la pull query après lecture des "pull patterns"

repl/introduce_datascript.clj

@@ -69,3 +69,9 @@
                   date)))
      (sort-by :nb-jours <)
      (clojure.pprint/print-table))
+
+(d/q
+ '[:find (count ?b) .
+   :where
+   [?u :borrowings ?b]]
+ @conn)

src/library_monkey/core.clj

@@ -64,21 +64,19 @@
 
   (count (map first (d/q '[:find (pull ?r [:pseudo])
                       :where [?r :borrowings ?b]]
-                    @conn)))
+                         @conn))))
 
-  )
 (defn read-aggregates [conn]
   (hash-map
-   :count (ffirst
-           (d/q
-            '[:find (count ?b)
-              :where
-              [?u :borrowings ?b]]
-            @conn))
-   :reports (map first (d/q '[:find (pull ?r [:pseudo :username :borrowings])
-                         :where [?r :borrowings ?b]]
-                       @conn)))
-  )
+   :count (d/q
+           '[:find (count ?b) .
+             :where
+             [?u :borrowings ?b]]
+           @conn)
+   :reports (d/q '[:find [(pull ?r [:pseudo :username
+                                    {:borrowings [:titre :date-de-retour :type-de-document]}]) ...]
+                   :where [?r :borrowings ?b]]
+                 @conn)))
 
 (def amiens-library
   (reify Library