swannodette

(defui Artist
  static IQuery
  (query [cl _]
    [:db/id :artist/name])
  Object
  (render [{:keys [props]}]
    (dom/div nil (:artist/name props))))

(defui ArtistList
  static IQuery

richhickey

(require '[clojure.core.async :as a])

(def xform (comp (map inc)
              (filter even?)
              (dedupe)
              (flatmap range)
              (partition-all 3)
              (partition-by #(< (apply + %) 7))
              (flatmap flatten)
              (random-sample 1.0)

swannodette

(ns react-cljs.core
  (:require-macros [reactjs.macros :refer [pure]])
  (:require React [reactjs.core :as r]))

(enable-console-print!)

(declare render-ui)

(defn render-counter [id state cb]
  (pure state

swannodette

(ns logic-ast.core
  (:refer-clojure :exclude [==])
  (:require [clojure.java.io :as io]
            [clojure.pprint :as pp]
            [cljs.env :as env]
            [cljs.analyzer.utils :as u]
            [cljs.analyzer :as ana]
            [clojure.core.logic
             :refer [run run* conde == fresh lcons partial-map defne] :as l]
            [clojure.core.logic.pldb :as pldb]))

drusellers

input {
  stdin {}
  file {
    type => "iis"
    path => "C:/inetpub/logs/LogFiles/W3SVC*/*.log"
  }
}

filter {

martintrojer

(time
   (def data-thread
     (let [c (chan)
           res (atom [])]
       ;; fetch em all
       (doseq [i (range 10 100)]
         (thread (>!! c (blocking-get (format "http://fssnip.net/%d" i)))))
       ;; gather results
       (doseq [_ (range 10 100)]
         (swap! res conj (<!! c)))

swannodette

;; based on http://talks.golang.org/2012/concurrency.slide#50

(ns robpike
  (:require [cljs.core.async :as async :refer [<! >! chan close!]])
  (:require-macros [cljs.core.async.macros :as m :refer [go alt!]]))

(defn timeout [ms]
  (let [c (chan)]
    (js/setTimeout (fn [] (close! c)) ms)
    c))

swannodette

(ns async-test.core
  (:require [cljs.core.async :refer [chan]]
            [clojure.string :as string])
  (:require-macros
    [cljs.core.async.macros :as m :refer [go alt! alts!]]))

(def c (chan))
(def loc-div (.getElementById js/document "location"))

(.addEventListener js/window "mousemove"

Chouser

(ns n01se.externs-for-cljs
  (:require [clojure.java.io :as io]
            [cljs.compiler :as comp]
            [cljs.analyzer :as ana]))

(defn read-file [file]
  (let [eof (Object.)]
    (with-open [stream (clojure.lang.LineNumberingPushbackReader. (io/reader file))]
      (vec (take-while #(not= % eof)
                       (repeatedly #(read stream false eof)))))))

cgrand

;; I wrote this in the Eurostar on my way back from the last lambdanext.eu clojure course.

(ns comprehensions
  (:refer-clojure :exclude [for doseq])
  (:require [clojure.core.reducers :as r]))

;; borrowed from clojure.core
(defmacro ^{:private true} assert-args
  [& pairs]
  `(do (when-not ~(first pairs)