Make graph threadable.

davidrupp · Mar 10, 2013 · 5103e40 · 5103e40
1 parent ac0cc27
commit 5103e40
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 7 deletions.
diff --git a/README.md b/README.md
@@ -5,10 +5,15 @@ Simple graph representation and manipulation in Clojure.
 ## Usage
 
 ```clojure
-(let [g (make-graph)]
-  (add-edge g :a :b)
-  (add-edge g :a :c)
-  g)
+  (let [g (make-graph)]
+    (add-edge g :a :b)
+    (add-edge g :a :c))
+  (-> (make-graph)
+      (add-edge :a :b)
+      (add-edge :a :c))
+  (doto (make-graph)
+    (add-edge :a :b)
+    (add-edge :a :c))
 ```
 
 ## License

diff --git a/src/graffy/core.clj b/src/graffy/core.clj
@@ -14,12 +14,18 @@
         (add-node this s)
         (add-node this d)
         (swap! state update-in [s] conj d)
-        (swap! state update-in [d] conj s))
+        (swap! state update-in [d] conj s)
+        this)
       (toString [_]
         (.toString @state)))))
 
 (comment
   (let [g (make-graph)]
     (add-edge g :a :b)
-    (add-edge g :a :c)
-    g))
+    (add-edge g :a :c))
+  (-> (make-graph)
+      (add-edge :a :b)
+      (add-edge :a :c))
+  (doto (make-graph)
+    (add-edge :a :b)
+    (add-edge :a :c)))