Skip to content

Instantly share code, notes, and snippets.

View swannodette's full-sized avatar

David Nolen swannodette

View GitHub Profile
(defun browser-repl ()
(interactive)
(run-lisp "/usr/local/bin/lein trampoline cljsbuild repl-listen"))
WARNING: unsigned-bit-shift-right already refers to: #'clojure.core/unsigned-bit-shift-right in namespace: cljs.core, being replaced by: #'cljs.core/unsigned-bit-shift-right
Exception in thread "main" java.lang.NullPointerException, compiling:(emit_form.clj:1:1)
at clojure.lang.Compiler$InvokeExpr.eval(Compiler.java:3558)
at clojure.lang.Compiler.compile1(Compiler.java:7226)
at clojure.lang.Compiler.compile1(Compiler.java:7216)
at clojure.lang.Compiler.compile(Compiler.java:7292)
at clojure.lang.RT.compile(RT.java:398)
at clojure.lang.RT.load(RT.java:438)
at clojure.lang.RT.load(RT.java:411)
at clojure.core$load$fn__5066.invoke(core.clj:5641)
(defproject data_analyzer "0.1.0-SNAPSHOT"
:description "FIXME: write description"
:url "http://example.com/FIXME"
:license {:name "Eclipse Public License"
:url "http://www.eclipse.org/legal/epl-v10.html"}
:main analyzer.core
:source-paths ["src/clj" "src/cljs"]
:dependencies [[org.clojure/clojure "1.5.1"]
[org.clojure/data.json "0.2.4"]
[org.clojure/clojurescript "0.0-2173"]
~/development/clojure/session(master) $ lein run
Starting database
Starting database
Exception in thread "main" clojure.lang.ExceptionInfo: Error in component :web-server in system session.system.SessionSystem calling #'com.stuartsierra.component/start {:reason :com.stuartsierra.component/component-function-threw-exception, :function #'com.stuartsierra.component/start, :component #session.webserver.WebServer{:ws-chan #<ManyToManyChannel clojure.core.async.impl.channels.ManyToManyChannel@233789d9>, :port nil}, :system #session.system.SessionSystem{:system-database #session.datomic.Database{:uri "datomic:free://localhost:4334/session-system3", :connection #<Connection {:db-id "session-system3-c954684a-cbe0-41f1-a540-ae9046a95dc6", :unsent-updates-queue 0, :pending-txes 0, :next-t 1004, :basis-t 1002, :index-rev 0}>, :datomic-process {:out #<ProcessPipeInputStream java.lang.UNIXProcess$ProcessPipeInputStream@138b9abe>, :in #<ProcessPipeOutputStream java.lang.UNIXProcess$ProcessPipeOutputStream@35277c6c>, :err #<
(ns hello-world.core)
(.log js/console "Hello world!")
#!/usr/bin/java -jar clojure-1.7.0-master-SNAPSHOT.jar
(let [pom-uber-jar
(str "http://thelibraryofcongress.s3.amazonaws.com/"
"pomegranate-0.0.13-SNAPSHOT-jar-with-dependencies.jar")
cl (java.net.URLClassLoader. (into-array [(java.net.URL. pom-uber-jar)]))
cx (.getContextClassLoader (Thread/currentThread))]
(push-thread-bindings {clojure.lang.Compiler/LOADER cl})
(ns ptv.scratch
(:require
[om.core :as om :include-macros true]
[om.dom :as dom :include-macros true]))
(enable-console-print!)
(def app-state (atom {}))
(defn component-one [data owner opts]
(ns no-rerender.core
(:require [om.core :as om :include-macros true]
[om.dom :as dom :include-macros true]))
(enable-console-print!)
(def app-state (atom [{:group "A" :text "An item of group A" :color "steelblue"}
{:group "B" :text "An item of group B" :color "steelblue"}]))
(def switch-color {"steelblue" "green"
(ns pldb-ex.core
(:refer-clojure :exclude [==])
(:require [clojure.core.logic :as l
:refer [run run* fresh == membero nafc]]
[clojure.core.logic.pldb :as pldb]))
;sku(wun_1). sku(wun_2). sku(wun_3).
;
;booking(wun_1, monday).
;booking(wun_2, monday).
@swannodette
swannodette / oop_transducers.js
Last active August 29, 2015 14:06
Verbose Object Oriented translation of Transducers
if(typeof require != "undefined") {
var lodash = require("lodash"),
_ = require("underscore");
}
var MapTransformer = function(f, nextTransformer) {
this.f = f;
this.nextTransformer = nextTransformer;
};