Dan danneu

Moving from jQuery

Events

// jQuery
$(document).ready(function() {
  // code
})

Each of these commands will run an ad hoc http static server in your current (or specified) directory, available at http://localhost:8000. Use this power wisely.

Discussion on reddit.

Python 2.x

$ python -m SimpleHTTPServer 8000

	;; Datomic example code

	;; make in memory database
	(use '[datomic.api :only (q db) :as d])
	(def uri "datomic:mem://matches")
	(d/create-database uri)
	(def conn (d/connect uri))

	;; add the match attribute
	(d/transact

	;; Some example error messages resulting from common mistakes
	;; using Datomic 0.8.4138

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

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

	(d/create-database uri)

	(use '[datomic.api :only (q db) :as d])
	(def uri "datomic:mem://user-groups3")
	(d/create-database uri)
	(def conn (d/connect uri))

	(d/transact
	conn
	[{:db.install/_attribute :db.part/db
	:db/id #db/id[:db.part/db]
	:db/ident :user/name

	<html>
	<head>
	</head>
	<body>
	</body>
	</html>

	(ns user
	(:require [clojure.java.io :as io]
	[datomic.api :as d]))

	(defn order-schema []
	(read-string (slurp (io/resource "schema.edn"))))

	(defn start-datomic! [uri schema]
	(d/create-database uri)
	(let [conn (d/connect uri)]

	(defn words-proc [words button interval interval-control scrub]
	(go (loop [idx 0]
	(show-word! words idx)
	(let [[v c] (alts! [button interval scrub])
	(condp = c
	button (do (>! interval-control v)
	(recur idx))
	interval (recur (inc idx))
	scrub (do (>! interval-control :stop)
	(recur v)))))))

	(ns blog.errors.core
	(:require-macros
	[cljs.core.async.macros :refer [go]]
	[blog.utils.macros :refer [<?]])
	(:require
	[cljs.core.async :refer [>! <! chan close!]]))

	;; convert Node.js async function into a something
	;; that returns a value or error on a channel
	(defn run-task [f & args]

	(def history (Html5History.))
	(.setUseFragment history false)
	(.setPathPrefix history "")
	(.setEnabled history true)

	(let [navigation (listen history EventType/NAVIGATE)]
	(go
	(while true
	(let [token (.-token (<! navigation))]
	(secretary/dispatch! token)))))