Skip to content

Instantly share code, notes, and snippets.

View swannodette's full-sized avatar

David Nolen swannodette

View GitHub Profile
(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]
#!/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})
@swannodette
swannodette / om_data.cljs
Last active January 9, 2021 16:09
Om + DataScript
(ns om-data.core
(:require [om.core :as om :include-macros true]
[om.dom :as dom :include-macros true]
[datascript :as d]))
(enable-console-print!)
(def schema {})
(def conn (d/create-conn schema))
(ns hello-world.core)
(.log js/console "Hello world!")
~/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 #<
(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"]
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)
(defun browser-repl ()
(interactive)
(run-lisp "/usr/local/bin/lein trampoline cljsbuild repl-listen"))
(declare numbero*)
(defn symbolo* [x]
(reify
IConstraintStep
(-step [this s]
(reify
clojure.lang.IFn
(invoke [_ s]
(let [x (walk s x)]
@swannodette
swannodette / project.clj
Last active December 15, 2015 19:11 — forked from hsestupin/project.clj
(defproject cljs-gwt "0.1.0-SNAPSHOT"
:description "FIXME: write this!"
:url "http://example.com/FIXME"
:dependencies [[org.clojure/clojure "1.5.1"]
[org.clojure/clojurescript "0.0-2138"]
[compojure "1.0.4"]
[hiccup "1.0.0"]]
:plugins [[lein-cljsbuild "1.0.1"]