Skip to content

Instantly share code, notes, and snippets.

(let [url "datomic:mem://test-bigint" #_ "datomic:sql://test-bigint?jdbc:postgresql://192.168.99.100:5432/datomic?user=datomic&password=datomic"
_ (d/delete-database url)
_ (d/create-database url)
test-conn (d/connect url)
]
@(d/transact test-conn [{:db/ident :test/bigint
:db/cardinality :db.cardinality/one
:db/valueType :db.type/bigint
:db/unique :db.unique/identity}])
@(d/transact test-conn [{:test/bigint 1N} {:test/bigint (biginteger 2)} {:test/bigint 73018638354N} {:test/bigint (biginteger 73018638355)}])
@cmcfarlen
cmcfarlen / wrapped-migrate-merge.clj
Last active May 16, 2017 02:40
Wrap default merge migrate to default to compassus route queries
(defn my-merge
[routes]
(fn
[reconciler state res query]
(om/default-merge reconciler state res (or query
(om/get-query (get routes (:compassus.core/route state)))))))
;; also pass the wrapper component for the compassus app
(defn my-migrate
[routes wrapper]
@cmcfarlen
cmcfarlen / route_params.cljs
Last active June 21, 2016 18:55
compassus example with query param attempt
(ns route-params.core
(:require
[goog.dom :as gdom]
[om.dom :as dom]
[om.next :as om :refer-macros [defui ui]]
[compassus.core :as compassus]
[bidi.bidi :as bidi]
[pushy.core :as pushy]))
(enable-console-print!)
@cmcfarlen
cmcfarlen / Example.java
Created December 6, 2015 03:48
Simple animation example using a timer.
import javax.swing.JFrame;
import java.awt.Component;
import java.awt.event.ComponentAdapter;
import java.awt.event.ComponentEvent;
import java.awt.Graphics;
import java.awt.Dimension;
import java.util.Timer;
import java.util.TimerTask;
class Example