improves sorting on ledger.

src/clj/auto_ap/datomic.clj

@@ -630,7 +630,7 @@
                      (conj {:sort-key "default" :asc (if (contains? args :default-asc?)
                                                    (:default-asc? args)
                                                    true)})
-                     (conj {:sort-key "e" :asc true}))
+                     (conj {:sort-key "e" :asc false}))
         length (count sort-bys)
         comparator (fn [xs ys]
                      (reduce

src/clj/auto_ap/datomic/ledger.clj

@@ -3,7 +3,7 @@
    [auto-ap.datomic
     :refer [add-sorter-fields
             apply-pagination
-            apply-sort-3
+            apply-sort-4
             conn
             merge-query
             observable-query
@@ -117,7 +117,7 @@
             true
             (merge-query {:query {:find ['?sort-default '?e]}})))]
     (->> (observable-query query)
-         (apply-sort-3 (update args :sort conj {:sort-key "default-2" :asc true}))
+         (apply-sort-4 (update args :sort conj {:sort-key "default-2" :asc true}))
       (apply-pagination args))))
 
 (defn graphql-results [ids db _]