Formatting: had to be done

Author: tonsky

src/datascript/built_ins.cljc

@@ -1,9 +1,9 @@
 (ns datascript.built-ins
   (:require
-   [clojure.string :as str]
-   [datascript.db :as db]
-   [datascript.impl.entity :as de]
-   [datascript.util :as util]))
+    [clojure.string :as str]
+    [datascript.db :as db]
+    [datascript.impl.entity :as de]
+    [datascript.util :as util]))
 
 (defn- -differ? [& xs]
   (let [l (count xs)]
@@ -20,11 +20,11 @@
 (defn- -get-some
   [db e & as]
   (reduce
-   (fn [_ a]
-     (when-some [datom (first (db/-search db [(db/entid db e) a]))]
-       (reduced [(:a datom) (:v datom)])))
-   nil
-   as))
+    (fn [_ a]
+      (when-some [datom (first (db/-search db [(db/entid db e) a]))]
+        (reduced [(:a datom) (:v datom)])))
+    nil
+    as))
 
 (defn- -missing?
   [db e a]
@@ -80,23 +80,23 @@
 
 (def query-fns
   {'= =, '== ==, 'not= not=, '!= not=,
-  '< less, '> greater, '<= less-equal, '>= greater-equal,
-  '+ +, '- -, '* *, '/ /,
-  'quot quot, 'rem rem, 'mod mod, 'inc inc, 'dec dec, 'max max, 'min min,
-  'zero? zero?, 'pos? pos?, 'neg? neg?, 'even? even?, 'odd? odd?, 'compare compare,
-  'rand rand, 'rand-int rand-int,
-  'true? true?, 'false? false?, 'nil? nil?, 'some? some?, 'not not, 'and and-fn, 'or or-fn,
-  'complement complement, 'identical? identical?,
-  'identity identity, 'keyword keyword, 'meta meta, 'name name, 'namespace namespace, 'type type,
-  'vector vector, 'list list, 'set set, 'hash-map hash-map, 'array-map array-map,
-  'count count, 'range range, 'not-empty not-empty, 'empty? empty?, 'contains? contains?,
-  'str str, 'subs, subs, 'get get,
-  'pr-str pr-str, 'print-str print-str, 'println-str println-str, 'prn-str prn-str,
-  're-find re-find, 're-matches re-matches, 're-seq re-seq, 're-pattern re-pattern,
-  '-differ? -differ?, 'get-else -get-else, 'get-some -get-some, 'missing? -missing?, 'ground identity,
-  'clojure.string/blank? str/blank?, 'clojure.string/includes? str/includes?,
-  'clojure.string/starts-with? str/starts-with?, 'clojure.string/ends-with? str/ends-with?
-  'tuple vector, 'untuple identity})
+   '< less, '> greater, '<= less-equal, '>= greater-equal,
+   '+ +, '- -, '* *, '/ /,
+   'quot quot, 'rem rem, 'mod mod, 'inc inc, 'dec dec, 'max max, 'min min,
+   'zero? zero?, 'pos? pos?, 'neg? neg?, 'even? even?, 'odd? odd?, 'compare compare,
+   'rand rand, 'rand-int rand-int,
+   'true? true?, 'false? false?, 'nil? nil?, 'some? some?, 'not not, 'and and-fn, 'or or-fn,
+   'complement complement, 'identical? identical?,
+   'identity identity, 'keyword keyword, 'meta meta, 'name name, 'namespace namespace, 'type type,
+   'vector vector, 'list list, 'set set, 'hash-map hash-map, 'array-map array-map,
+   'count count, 'range range, 'not-empty not-empty, 'empty? empty?, 'contains? contains?,
+   'str str, 'subs, subs, 'get get,
+   'pr-str pr-str, 'print-str print-str, 'println-str println-str, 'prn-str prn-str,
+   're-find re-find, 're-matches re-matches, 're-seq re-seq, 're-pattern re-pattern,
+   '-differ? -differ?, 'get-else -get-else, 'get-some -get-some, 'missing? -missing?, 'ground identity,
+   'clojure.string/blank? str/blank?, 'clojure.string/includes? str/includes?,
+   'clojure.string/starts-with? str/starts-with?, 'clojure.string/ends-with? str/ends-with?
+   'tuple vector, 'untuple identity})
 
 ;; Aggregates
 
@@ -113,7 +113,7 @@
     (cond-> (nth terms med)
       (even? size)
       (-> (+ (nth terms (dec med)))
-          (/ 2)))))
+        (/ 2)))))
 
 (defn- aggregate-variance [coll]
   (let [mean (aggregate-avg coll)
@@ -138,11 +138,11 @@
      (reduce (fn [acc x]
                (cond
                  (< (count acc) n)
-                   (sort compare (conj acc x))
+                 (sort compare (conj acc x))
                  (neg? (compare x (last acc)))
-                   (sort compare (conj (butlast acc) x))
+                 (sort compare (conj (butlast acc) x))
                  :else acc))
-             [] coll))))
+       [] coll))))
 
 (defn- aggregate-max
   ([coll]
@@ -152,15 +152,15 @@
          x acc))
      (first coll) (next coll)))
   ([n coll]
-    (vec
-      (reduce (fn [acc x]
-                (cond
-                  (< (count acc) n)
-                    (sort compare (conj acc x))
-                  (pos? (compare x (first acc)))
-                    (sort compare (conj (next acc) x))
-                  :else acc))
-              [] coll))))
+   (vec
+     (reduce (fn [acc x]
+               (cond
+                 (< (count acc) n)
+                 (sort compare (conj acc x))
+                 (pos? (compare x (first acc)))
+                 (sort compare (conj (next acc) x))
+                 :else acc))
+       [] coll))))
 
 (defn- aggregate-rand
   ([coll] (rand-nth coll))

src/datascript/core.cljc

@@ -18,7 +18,8 @@
        [datascript.impl.entity Entity]
        [java.util UUID])))
 
-(def ^:const ^:no-doc tx0 db/tx0)
+(def ^:const ^:no-doc tx0 
+  db/tx0)
 
 
 ; Entities

src/datascript/datafy.cljc

@@ -1,8 +1,9 @@
 (ns datascript.datafy
-  (:require [clojure.core.protocols :as cp]
-            [datascript.pull-api :as dp]
-            [datascript.db :as db]
-            [datascript.impl.entity :as e]))
+  (:require
+    [clojure.core.protocols :as cp]
+    [datascript.pull-api :as dp]
+    [datascript.db :as db]
+    [datascript.impl.entity :as e]))
 
 (declare datafy-entity-seq)
 
@@ -11,23 +12,23 @@
         ref-rattrs (set (map db/reverse-ref ref-attrs))
         many-attrs (:db.cardinality/many (:rschema db-val))]
     (with-meta pulled-entity
-               {`cp/nav (fn [coll k v]
-                          (cond
-                            (or (and (many-attrs k) (ref-attrs k))
-                                (ref-rattrs k))
-                            (datafy-entity-seq db-val v)
-                            (ref-attrs k)
-                            (e/entity db-val (:db/id v))
-                            :else v))})))
+      {`cp/nav (fn [coll k v]
+                 (cond
+                   (or (and (many-attrs k) (ref-attrs k))
+                     (ref-rattrs k))
+                   (datafy-entity-seq db-val v)
+                   (ref-attrs k)
+                   (e/entity db-val (:db/id v))
+                   :else v))})))
 
 (defn- navize-pulled-entity-seq [db-val entities]
   (with-meta entities
-             {`cp/nav (fn [coll k v]
-                        (e/entity db-val (:db/id v)))}))
+    {`cp/nav (fn [coll k v]
+               (e/entity db-val (:db/id v)))}))
 
 (defn- datafy-entity-seq [db-val entities]
   (with-meta entities
-             {`cp/datafy (fn [entities] (navize-pulled-entity-seq db-val entities))}))
+    {`cp/datafy (fn [entities] (navize-pulled-entity-seq db-val entities))}))
 
 (extend-protocol cp/Datafiable
   datascript.impl.entity.Entity