Skip to content

Instantly share code, notes, and snippets.

diff --git a/examples/mixin/index.html b/examples/mixin/index.html
index 20a42bc..569ca49 100644
--- a/examples/mixin/index.html
+++ b/examples/mixin/index.html
@@ -1,9 +1,6 @@
<html>
<body>
<div id="example"></div>
- <script src="http://fb.me/react-0.9.0.js"></script>
- <script src="out/goog/base.js" type="text/javascript"></script>
(defn mapv-indexed
[f coll]
(let [v (transient [])]
(loop [idx 0
coll (seq coll)]
(when coll
(conj! v (f idx (first coll)))
(recur (inc idx) (next coll))))
(persistent! v)))
(def +keymap+
(into
{8 :backspace
9 :tab
13 :enter
16 :shift
17 :ctrl
18 :alt
19 :pause
20 :capslock
@loganlinn
loganlinn / core.cljs
Last active August 29, 2015 14:04
2048 with om, om-tools
(ns om-2048.core
(:require-macros
[cljs.core.async.macros :refer [go go-loop]])
(:require
[clojure.string :as str]
[cljs.core.async :as async :refer [<!]]
[dommy.core :as dommy]
[om.core :as om]
[om-tools.core :refer-macros [defcomponentk]]
[om-tools.dom :as dom :include-macros true]))
@loganlinn
loganlinn / core_test.cljs
Last active August 29, 2015 14:07
compiled defcomponent
(ns om-tools.core-test
(:require
[om-tools.core :as om-tools :refer-macros [defcomponent]]
[om-tools.dom :as dom :include-macros true]
[om.core :as om]
[om.dom :as om-dom :include-macros true]))
(defn basic-om-component
[data owner]
(reify
@loganlinn
loganlinn / core.cljs
Created October 30, 2014 18:16
minimal time-travel
(ns qcon.core
(:require
[qcon.state :as state]
[qcon.time-travel :as time-travel]
[om.core :as om :include-macros true]
[om-tools.dom :as dom :include-macros true]
[om-tools.core :refer-macros [defcomponent]]))
(defcomponent compose-view
[pending-item owner {:keys [on-submit]}]
@loganlinn
loganlinn / schema_extensions.clj
Last active August 29, 2015 14:10
variants in schema extensions
(ns schema-client.schema-extensions
"Schemas representing abstract classes and subclasses"
(:use plumbing.core)
(:require
[clojure.string :as str]
[plumbing.map :as map]
[schema.core :as s]
[schema.utils :as utils]
[schema.macros :as sm]))
@loganlinn
loganlinn / a_nucleus_example.cljs
Last active September 21, 2015 06:28
nucleus - a tiny flux-like architecture in clojurescript
(ns a-nucleus-example
(:require-macros
[cljs.core.async.macros :refer [go go-loop]]
[nucleus.action :refer [defaction]])
(:require
[nucleus.core :as nucleus :refer [dispatch! perform!]]
[nucleus.model :as model]
[om.core :as om]
[om-tools.core :refer-macros [defcomponent]]
[om-tools.dom :as dom :include-macros true]
@loganlinn
loganlinn / adapter.js
Last active August 29, 2015 14:15
Using Karma Test Runner with ClojureScript
(function(window) {
window.__karma__.start = cljs_karma.create_start(window.__karma__);
})(window);
@loganlinn
loganlinn / ArrayExtensions.swift
Last active December 11, 2016 09:30
Swift forEach
extension Array {
func forEach(f: (element: T) -> Void) {
for e in self {
f(element: e)
}
}
}