Skip to content

Instantly share code, notes, and snippets.

View michaelsbradleyjr's full-sized avatar
💭
Dip trip, flip fantasia 🎺

Michael Bradley michaelsbradleyjr

💭
Dip trip, flip fantasia 🎺
175 followers · 155 following
View GitHub Profile
@michaelsbradleyjr
michaelsbradleyjr / gist:2927586
Created June 14, 2012 01:31
;; doesn't work
(map #([(% 0) (% 2)]) [[1 2 3] ["a" "b" "c"]])
;; throws...
;; Wrong number of args (0) passed to: PersistentVector
;; [Thrown class clojure.lang.ArityException]
;; works
(map #(vector (% 0) (% 2)) [[1 2 3] ["a" "b" "c"]])
@michaelsbradleyjr
michaelsbradleyjr / gist:3455905
Created August 24, 2012 21:36
defcrudo macro
(defmacro defcrudo
[name & forms]
(let [forms (if (vector? (first forms))
(list forms)
forms)]
`(defn ~name
~@(map (fn [form]
(let [args (first form)]
`(~args (oc/with-db
(apply og/open-graph-db! orient-rconn-info)
@michaelsbradleyjr
michaelsbradleyjr / gist:3725267
Created September 14, 2012 22:15
Absolute URIs for "rel" attributes - valid HTML5 per RFC 5988?
<!DOCTYPE html>
<html>
<head>
<meta content="text/html;charset=UTF-8" http-equiv="Content-Type">
<title>Example</title>
<link rel="http://example.com/example-rel-1" href="/example-1">
</head>
<body>
<a rel="http://example.com/example-rel-2" href="/example-2">example2</a>
</body>
@michaelsbradleyjr
michaelsbradleyjr / gist:3989325
Created October 31, 2012 19:39
hacking maybe-monad in protocol-monads
#_(defn plus [[mv & mvs]]
(plus-step mv mvs))
(defmacro plus [mvs]
`(let [mvs# (quote ~mvs)
mv# (eval (first mvs#))]
(monads.core/plus-step mv# (rest mvs#))))
(deftype maybe-monad [v]
clojure.lang.IDeref
@michaelsbradleyjr
michaelsbradleyjr / gist:3990584
Created October 31, 2012 23:20
plus-maybe
(defmacro plus-maybe [mvs]
`(let [mvs# (quote ~mvs)
mv# (eval (first mvs#))
mvs# (clojure.core/map (fn [mv#]
(if (= (class mv#) maybe-monad)
mv#
(eval mv#)))
(rest mvs#))]
(monads.core/plus-step mv# mvs#)))
@michaelsbradleyjr
michaelsbradleyjr / gist:4050049
Created November 10, 2012 05:44
Monadic plus for list transformer with set monad
(require '[clojure.algo.monads :as am])
(require '[monads.core :as m])
;-------------- algo.monads version #1 ---------------;
(def set-sequence-m (am/sequence-t am/set-m))
(am/with-monad set-sequence-m
(am/m-plus #{(list 1 2)} #{(list)} #{(list 3 4)}))
@michaelsbradleyjr
michaelsbradleyjr / gist:4050099
Created November 10, 2012 05:59
Monadic plus for list transformer with list monad
(require '[clojure.algo.monads :as am])
(require '[monads.core :as m])
;-------------- algo.monads version #1 ---------------;
(def sequence-sequence-m (am/sequence-t am/sequence-m))
(am/with-monad sequence-sequence-m
(am/m-plus (list (list 1 2 )) (list (list)) (list (list 3 4))))
@michaelsbradleyjr
michaelsbradleyjr / index.html
Created December 5, 2012 00:45
r2d3 experiment
<!DOCTYPE html>
<meta charset="utf-8">
<head>
<title>Line Example</title>
<!--[if lte IE 9]><script src="https://raw.github.com/mhemesath/r2d3/master/r2d3.v2.js"></script><![endif]-->
<!--[if gte IE 10]><!-->
<script src="http://d3js.org/d3.v2.js"></script>
<!--<![endif]-->
</head>
<body>
@michaelsbradleyjr
michaelsbradleyjr / index.html
Created December 5, 2012 01:06
<!DOCTYPE html>
<meta charset="utf-8">
<head>
<title>Line Example</title>
</head>
<body>
<!--[if lte IE 8]><script src="http://192.168.177.105:3000/javascripts/r2d3.v2.js"></script><![endif]-->
<!--[if gte IE 9]><!-->
<script src="http://192.168.177.105:3000/javascripts/d3.v2.js"></script>
<!--<![endif]-->
@michaelsbradleyjr
michaelsbradleyjr / index.html
Created December 5, 2012 01:25
<!DOCTYPE html>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="chrome=1">
<head>
<title>Line Example</title>
<!--[if lte IE 8]><script src="https://raw.github.com/mhemesath/r2d3/master/r2d3.v2.js"></script><![endif]-->
<!--[if gte IE 9]><!-->
<script src="http://d3js.org/d3.v2.js"></script>
<!--<![endif]-->
</head>