Added asc and desc functions for order-by

src/hassium/core.clj

@@ -131,6 +131,16 @@
   (let [order (sorting-order fields)]
     (Cursor. #(as-mongo-> cursor (.sort order)))))
 
+(defn asc
+  "Field to be sorted in ascending order."
+  [field]
+  {field 1})
+
+(defn desc
+  "Field to be sorted in descending order."
+  [field]
+  {field -1})
+
 (defn save
   "Save the map into the collection. The inserted map is returned, with a
   generated :_id key if one has not been already set."

test/hassium/test/core.clj

@@ -46,7 +46,7 @@
 (deftest order-by-test
   (is (= (map :name @(-> people find-all (order-by :sex)))
          ["Alice" "Carol" "Bob"]))
-  (is (= (map :name @(-> people find-all (order-by {:sex -1})))
+  (is (= (map :name @(-> people find-all (order-by (desc :sex))))
          ["Bob" "Alice" "Carol"])))
 
 (deftest delete-test