brandonbloom

(ns blah
  (:require [com.walmartlabs.lacinia.schema :as schema]
            [com.walmartlabs.lacinia.util :refer [attach-resolvers]]
            [com.walmartlabs.lacinia :as lacinia]))

(defn batch [ctx id]
  (prn 'batch id)
  (swap! (::loader ctx)
         (fn [loader]
           (if (contains? (:cache loader) id)

leobm

(defn contextual-eval [ctx expr]
    (eval                                           
        `(let [~@(mapcat (fn [[k v]] [k `'~v]) ctx)] 
             ~expr)))
(defmacro local-context []
    (let [symbols (keys &env)]
        (zipmap (map (fn [sym] `(quote ~sym)) symbols) symbols)))
(defn readr [prompt exit-code]
    (let [input (clojure.main/repl-read prompt exit-code)]
        (if (= input ::tl)

stuarthalloway

;; Datomic sample code
;; schema query for attribute types in specified namespaces

(q '[:find ?attr
     :in $ [?include-ns ...]                ;; bind ?include-ns once for each item in collection
     :where
     [?e :db/valueType]                     ;; all schema types (must have a valueType)
     [?e :db/ident ?attr]                   ;; schema type name
     [(datomic.Util/namespace ?attr) ?ns]   ;; namespace of name
     [(= ?ns ?include-ns)]]                 ;; must match one of the ?include-ns