abp

core.async example thing

To run:

• checkout https://github.com/clojure/core.async and install it using lein install
• make a project directory for this code
• put omgcoreasync.cljs in a src subdirectory, project.clj and index.html in the root
• go lein cljsbuild once to build
• load index.html in a browser and watch it go

abp

;;Support for simple constraints on lvars during unification was added in 76fd4d7c:
;;
;;    https://github.com/clojure/core.logic/commit/76fd4d7c155161d74ad5cd8d87955148eece1fe0
;;
;;but these constraints apply to a single lvar only.
;;The unifier could support more general constraints if it accepted an explicit predicate function.

;;For instance, given this `data-numeric?` predicate and `spec` data:

(defn data-numeric? [data dimension]

abp

(require '[datomic.api :as d])
(require '[clojure.pprint :refer [pprint]])
(def uri "datomic:free://localhost:4334/git")
(def conn (d/connect uri))
(def db (d/db conn))

;; committers
(d/q '[:find ?email
       :where
       [_ :commit/committer ?u]

abp

;; A basic Ring handler

(defn handler [request]
  {:status 200
   :headers {}
   :body "Hello World"})

;; Which can also be written:

(def handler

abp

;; Here is a spike of a lightweight in-process pubsub mechanism that allows pure ;; functional consumers, both blocking and asynchronous. 

;; This defines the event stream, in this case just a series of numbers,
;; a new one produced each second
(defn timer []
  (lazy-seq
    (do
      (Thread/sleep 1000)
      (cons (System/nanoTime) (timer)))))

abp

(use '[datomic.api :only [db q] :as d])


(def schema
  [{:db/doc "A programming language"
    :db/id (d/tempid :db.part/db)
    :db/ident :lang
    :db/valueType :db.type/string
    :db/cardinality :db.cardinality/one
    :db.install/_attribute :db.part/db}

abp

(ns dj.plurality)

(defmacro defplural-body [pluralfn-name arg-list & resolver-body]
  `(def ~pluralfn-name (let [implementations# ~(if (resolve pluralfn-name)
						 `(atom (or @(:dj.plurality/implementations (meta ~pluralfn-name))
							    []))
						 `(atom []))]
			 (with-meta (fn ~pluralfn-name ~(into [] (rest arg-list))
				      (let [~(first arg-list) @implementations#]
					~@resolver-body))

abp

(ns overtone.examples.internal-sequencer
  (:use [overtone.live]))

;; A fully server-side sample sequencer.
;; =====================================

;; This example demonstrates some of the benefits of moving all synth
;; triggers inside the server itself. For example, it allows you to
;; modify the synthesis with *immediate* effect (rather than waiting for
;; the next bar/chunk to be scheduled) and you can use a global pulse to

abp

(use '[datomic.api :only [q db] :as d])

(def uri "datomic:mem://accounts")

;; create database
(d/create-database uri)

;; connect to database
(def conn (d/connect uri))

abp

(ns crossfilter.busses
  (:use-macros [c2.util :only [p pp]]
               [clojure.core.match.js :only [match]]
               [crossfilter.macros :only [subscribe!]])
  (:require [clojure.string :as str]
            [goog.pubsub.PubSub :as goog.pubsub.PubSub]
            [goog.object :as gobj]))


(set! *print-fn* #(.log js/console %))