Adds default filtering and sorting

src/clj/auto_ap/datomic.clj

@@ -790,9 +790,10 @@
    (:sort args)))
 
 (defn apply-sort-3 [args results]
-  
   (let [sort-bys (conj (:sort args)
-                       {:sort-key "default" :asc true})
+                       {:sort-key "default" :asc (if (contains? args :default-asc?)
+                                                   (:default-asc? args)
+                                                   true)})
         length (count sort-bys)
         comparator (fn [xs ys]
                      (reduce