Fogus fogus

💭

attempting to learn how to better learn

fogus / cells.clj

Created February 18, 2010 13:59 — forked from richhickey/cells.clj

	; Copyright (c) Rich Hickey. All rights reserved.
	; The use and distribution terms for this software are covered by the
	; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
	; which can be found in the file epl-v10.html at the root of this distribution.
	; By using this software in any fashion, you are agreeing to be bound by
	; the terms of this license.
	; You must not remove this notice, or any other, from this software.

	(set! warn-on-reflection true)

fogus / enlive-template.html

Created March 2, 2010 19:02 — forked from KirinDave/enlive-template.html

	<!DOCTYPE html>
	<html>
	<head>
	<title>BAD DATA</title>
	<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
	<meta content="en-us" http-equiv="Content-Language" />
	</head>
	<body>
	<header><h1>BAD DATA</h1></header>

fogus / index.txt

Created March 8, 2010 03:15 — forked from mmcgrana/index.txt

	For each Ruby module/class, we have Ruby methods on the left and the equivalent
	Clojure functions and/or relevant notes are on the right.

	For clojure functions, symbols indicate existing method definitions, in the
	clojure namespace if none is explicitly given. clojure.contrib./ functions can
	be obtained from http://github.com/kevinoneill/clojure-contrib/tree/master,
	ruby-to-clojure./ functions can be obtained from the source files in this
	gist.

	If no method symbol is given, we use the following notation:

fogus / Clojure Slideshow

Created March 18, 2010 13:16 — forked from candera/Clojure Slideshow

	(ns com.wangdera.slideshow
	(:use [clojure.contrib.test-is])
	(:import (java.io File)
	(javax.imageio ImageIO)
	(javax.swing JFrame JPanel Timer)
	(java.awt Dimension Frame Color)
	(java.awt.event ActionListener WindowAdapter)))

	(def imagelist (atom []))
	(def current-image (atom nil))

fogus / NodeZipper.scala

Created March 28, 2010 00:29 — forked from szeiger/NodeZipper.scala

	import scala.xml.{Node, Elem, Group}

	/**
	* A path to a Node in a Node tree.
	*/
	sealed trait NodePath {
	def depth: Int
	}

	object NodePath {

fogus / promise.clj

Created April 15, 2010 18:55 — forked from swannodette/promise.clj

	(defn tests []
	[{:name 'suiteA
	:total 3
	:passed (promise)
	:failed (promise)
	:success (promise)
	:tests [{:name 'testA :success (promise)}
	{:name 'testB :success (promise)}
	{:name 'testC :success (promise)}]}
	{:name 'suiteB

fogus / gist:420927

Created June 1, 2010 13:10 — forked from juergenhoetzel/gist:418216

fogus / monad.clj

Created June 5, 2010 19:10 — forked from pervognsen/monad.clj

	(ns user
	(:use clojure.set))

	;; core

	(defstruct monad :unit :bind :run :zero :plus)

	(defmacro defmonad [name & fdecl]
	(let [[doc defs]
	(if (string? (first fdecl))

fogus / ref-history-stress.clj

Created August 10, 2010 11:35 — forked from Chouser/ref-history-stress.clj

	; STM history stress-test

	(defn stress [hmin hmax]
	(let [r (ref 0 :min-history hmin :max-history hmax)
	slow-tries (atom 0)]
	(future
	(dosync
	(swap! slow-tries inc)
	(Thread/sleep 200)
	@r)

fogus / core.clj

Created August 16, 2010 18:13 — forked from hiredman/core.clj