swannodette · Jul 1, 2014 · Mar 10, 2015 · Mar 12, 2015 · Mar 12, 2015 · Mar 16, 2015
Showing with 33 additions and 5 deletions.

+2 −0 README.md

+2 −1 project.clj

+29 −4 src/mori/mori.cljs
diff --git a/README.md b/README.md
@@ -1,3 +1,5 @@
+**Note: this project has moved to [adzerk-oss/splint](https://github.com/adzerk-oss/splint)**
+
 # mori
 
 <img src="http://cloud.github.com/downloads/swannodette/mori/mori.png" alt="Mori" title="Mori"/>

diff --git a/project.clj b/project.clj
@@ -2,7 +2,8 @@
   :description "Persistent Data Structures for JavaScript"
 
   :dependencies [[org.clojure/clojure "1.6.0"]
-                 [org.clojure/clojurescript "0.0-2665"]]
+                 [org.clojure/clojurescript "0.0-2665"]
+                 [tailrecursion/javelin "3.7.2"]]
 
   :plugins [[lein-cljsbuild "1.0.4"]
             [cider/cider-nrepl "0.8.1"]]

diff --git a/src/mori/mori.cljs b/src/mori/mori.cljs
@@ -1,6 +1,6 @@
 (ns mori
   (:refer-clojure :exclude
-   [count distinct empty first second next rest seq conj cons find nth last assoc dissoc
+   [atom count deref distinct empty first second next rest seq conj cons find nth last assoc dissoc
     get-in update-in assoc-in fnil disj pop peek hash get empty? reverse
     take drop take-nth partition partition-all partition-by iterate
     into merge merge-with subvec
@@ -12,15 +12,16 @@
     transduce eduction sequence dedupe completing
     range repeat repeatedly sort sort-by
     into-array
-    partial comp juxt
+    partial comp complement juxt
     identity constantly
     list vector vec array-map hash-map zipmap set sorted-set keyword symbol
     sorted-set-by sorted-map sorted-map-by
     sum inc dec even? odd? subseq compare
     meta with-meta vary-meta
     apply])
   (:use-macros [mori.macros :only [make-inspectable mori-export]])
-  (:require [clojure.set :as set]))
+  (:require [clojure.set :as set]
+            tailrecursion.javelin))
 
 (mori-export apply cljs.core/apply)
 (mori-export count cljs.core/count)
@@ -68,6 +69,22 @@
 (mori-export interleave cljs.core/interleave)
 (mori-export concat cljs.core/concat)
 
+;; Reference types, functions
+
+(mori-export addWatch  cljs.core/add-watch)
+(mori-export reset     cljs.core/reset!)
+(mori-export atom      cljs.core/atom)
+(mori-export swap      cljs.core/swap!)
+(mori-export deref     cljs.core/deref)
+
+;; Javelin
+
+(mori-export cell        tailrecursion.javelin/cell)
+(mori-export formula     tailrecursion.javelin/formula)
+(mori-export destroyCell tailrecursion.javelin/destroy-cell!)
+(mori-export isCell      tailrecursion.javelin/cell?)
+(mori-export isInput     tailrecursion.javelin/input?)
+
 (defn sequential-or-array? [x]
   (or (array? x)
       (sequential? x)))
@@ -173,10 +190,17 @@
 (mori-export lte cljs.core/<=)
 (mori-export compare cljs.core/compare)
 
+(defn ^:export truth [x]
+  (if x true false))
+
+(defn ^:export isNull [x]
+  (= x nil))
+
 ;; HOFs
 
 (mori-export partial cljs.core/partial)
 (mori-export comp cljs.core/comp)
+(mori-export complement cljs.core/complement)
 
 (defn ^:export pipeline [& args]
   (reduce #(%2 %1) args))
@@ -253,4 +277,5 @@
   cljs.core.Keyword
   cljs.core.Symbol
   cljs.core.PersistentQueue
-  cljs.core.PersistentQueueSeq)
+  cljs.core.PersistentQueueSeq
+  tailrecursion.javelin.Cell)