Jared314’s gists

Jared314 / core.cljs

Created February 18, 2014 21:05

Om with core.async cleanup

	(ns processtest.core
	(:require [cljs.core.async :refer [<! >! chan timeout]]
	[om.core :as om :include-macros true]
	[om.dom :as dom :include-macros true])
	(:require-macros [cljs.core.async.macros :refer [go]]))

	(defn cell1 [data owner]
	(reify
	om/IInitState
	(init-state [_] {:value 0 :class ""})

Jared314 / core.cljs

Created February 18, 2014 19:11

Om with core.async (1 channel per target)

	(ns processtest.core
	(:require [cljs.core.async :as async
	:refer [<! >! chan put! timeout]]
	[om.core :as om :include-macros true]
	[om.dom :as dom :include-macros true])
	(:require-macros [cljs.core.async.macros :refer [go]]))

	(defn cell1 [data owner]
	(reify
	om/IInitState

Jared314 / core.cljs

Created February 18, 2014 07:44

Om with core.async

	(ns processtest.core
	(:require [cljs.core.async :as async
	:refer [<! >! chan put! timeout]]
	[om.core :as om :include-macros true]
	[om.dom :as dom :include-macros true])
	(:require-macros [cljs.core.async.macros :refer [go]]))

	(defn cell1 [data owner]
	(reify
	om/IInitState

Jared314 / pbpl_example.html

Last active August 29, 2015 13:56

	<!DOCTYPE html>
	<html>
	<head>
	<title></title>
	<style type="text/css">
	#fixednode { background-color: red; color: white; }
	#item1 { background-color: blue; color: white; }
	</style>

	<style type="text/x-pbpl">

Jared314 / nand2tetris-hdl-parse.clj

Created December 28, 2013 03:39

nand2tetris HDL parser using Instaparse

	(ns stuff
	(:require [instaparse.core :as insta]))

	(def hdl-parse
	(insta/parser
	"CHIP = <'CHIP'> <SPACE+> NAME <SPACE> <'{'> <SPACE> INSPEC <SPACE> OUTSPEC <SPACE> PARTS <SPACE*> <'}'>
	INSPEC = <'IN'> <SPACE+> (SPECITEM <SPACE> <','?> <SPACE>)* <';'>
	OUTSPEC = <'OUT'> <SPACE+> (SPECITEM <SPACE> <','?> <SPACE>)* <';'>
	PARTS = <'PARTS:'> <SPACE> (PART <SPACE>)*
	PART = NAME <'('> (<SPACE*> PARTIO <','>?)+ <');'>

Jared314 / markov-chain.clj

Last active December 31, 2015 11:59

Clojure Markov Chain Example

	(ns markov-chain
	(:require [clojure.string :as string]))

	(defn simple-weighted-rand-nth [m]
	(let [ks (keys m)
	vs (map m ks) ; Ensure map value ordering
	ranges (reductions + vs)
	x (rand-int (last ranges))
	i (count (take-while #(<= % x) ranges))
	k (nth ks i)]

Jared314 / consec-product.clj

Created October 26, 2013 19:35

Project Euler #8: Find the greatest product, of 5 consecutive digits, in a string

Jared314 / custom-lang.clj

Last active December 26, 2015 04:39

	(ns stuff
	(:require [instaparse.core :as insta]
	[clojure.walk :as walk]))

	(defn hiccup->sexp [sym-ns data]
	(let [sym-ns-fn #(symbol sym-ns %)]
	(walk/postwalk (fn [x] (if (and (vector? x) (keyword? (first x)))
	(conj (rest x) (-> x first name sym-ns-fn))
	x))
	data)))

Jared314 / remove-node.clj

Last active December 23, 2015 10:08

Remove nodes

-(require '[net.cgrand.enlive-html :as e])
-(defn gen-transform [target]
-  [[(cond
-     (string? target) e/text-node
-     (map? target) (:tag target)
-     :else e/any-node)]
-   #(when (not= target %) %)])
-(defn remove-node [coll & nodes]

Jared314 / testdata.txt

Last active December 26, 2020 04:25

Adventures in Validating Email Addresses with Clojure

Jared Lobberecht Jared314