adding remote.clj

TODO

@@ -1,3 +1,6 @@
+* add the ability for construct to take a seq of maps for a node entry, and then
+when pointed to in edges have an edge created per node.
+
 * start using transactions
 
 * Add a (graph-event-channel [g]) which will publish an event any time the graph

src/plasma/construct.clj

@@ -39,6 +39,7 @@
 ; * map       (a new node's properties)
 ; * keyword   (a new node's :label property)
 ; * path expression  (select nodes to link with other nodes)
+; * a seq of node UUIDs or node maps
 
 (defn- make-nodes
   "Convert a node-spec to a node-id map."
@@ -48,7 +49,9 @@
                       [sym (cond
                              (uuid? props) props
                              (q/query? props) (map :id (q/query props))
-                             (map? props)  (make-node props))])
+                             (map? props)  (make-node props)
+                             (or (seq? props)
+                                 (vector? props)) (map make-node props))])
                     (:nodes spec))
         node-map (into {} id-mapped)
         node-map (assoc node-map 'ROOT-ID ROOT-ID)]

src/plasma/remote.clj

@@ -0,0 +1,19 @@
+(ns plasma.remote)
+
+(defn- url-map [url]
+  (let [match (re-find #"(.*)://([0-9a-zA-Z-_.]*)(:([0-9]+))?(.*)" url)
+        [_ proto host _ port path] match]
+    {:proto proto
+     :host host
+     :port (if port
+             (Integer. port)
+             nil)
+     :path path}))
+
+(defmulti remote-query-fn
+  "Given a URL, return a function that accepts a query plan and returns a query channel
+  onto which the results will be enqueued.  This is the mechanism used to traverse
+  from one graph to another, possibly over the network.  Dispatch is based on the
+  protocol as a keyword (e.g. :http, :plasma, :jiraph, etc...)"
+  (fn [url]
+    (keyword (:proto (url-map url)))))

src/plasma/viz.clj

@@ -116,7 +116,7 @@
        (str "-Nfontsize=" node-font-size)
        "-o" out))))
 
-(def APP "evince")
+(def APP "open")
 
 (defn show-dot-graph
   ([g] (show-dot-graph g {}))
@@ -126,15 +126,17 @@
          out (str "/tmp/plasma-graph." out-format)]
      (save-dot-graph g "/tmp/plasma-graph.dot" options)
      (save-graph-image "/tmp/plasma-graph.dot" out options)
-     (sh app out))))
+     (if-let [sub-app (:sub-app options)]
+       (sh app sub-app out)
+       (sh app out)))))
 
 (defn graph->ps
   [g & [options]]
    (show-dot-graph g options))
 
 (defn graph->browser
   [g & [options]]
-  (show-dot-graph g (merge options {:out-format "svg" :app "chromium-browser"})))
+  (show-dot-graph g (merge options {:out-format "svg" :app "open" :sub-app "/Applications/Google\\ Chrome.app"})))
 
 (defn- label-table
   [top bottom]