      '[[toxi author fabric]
        [fabric type project]
        [toxi type person]])
-    (info :inf-vertices (get-in inf1 [:query :result :id]) (get-in inf1 [:inf :id]))
-    {:g   g
-     :ctx ctx
-     :all all
-     :toxi toxi
-     :types types
-     :knows knows
+    ;;(info :inf-vertices (get-in inf1 [:query :result :id]) (get-in inf1 [:inf :id]))
+    {:g        g
+     :ctx      ctx
+     :all      all
+     :toxi     toxi
+     :types    types
+     :knows    knows
      :projects projects
-     :pq pq
-     :jq jq
+     :pq       pq
+     :jq       jq
      :num-projects num-projects
-     :num-types num-types}))
+     :num-types num-types
+     }))

                           (fn [r] (not= (r 1) (r 2))))
    :else                (constantly true)))

(defn param-query
  [g id [s p o]]
  (let [vs?        (qvar? s), vp? (qvar? p), vo? (qvar? o)
        vmap       (bind-translator vs? vp? vo? s p o)

(defn score-collect-join
  [vertex] (if (== (count (::f/signal-map @(:state vertex))) 2) 1 0))

(defn add-join!
  [g qa qb]
  (let [jv (f/add-vertex!
            g {:val (delay nil)
