abp

(defn push-wrap [v wrap & args]
  (alter-var-root v #(with-meta (apply wrap % args) {::orig %})))
  
(defn pop-wrap [v]
  (alter-var-root v #(if-let [m (::orig (meta %))] m %)))

(defn post [orig post-printer]
  (fn [& args]
    (let [rtn (apply orig args)]
      (post-printer orig rtn args)

abp

(ns mars-rovers.core)

(def dirs [:N :E :S :W])

(def move-dir {:N [0, 1] :E [1, 0] :S [0, -1] :W [-1, 0]})

(defn turn [dir dirs]
  (second
    (drop-while
      (complement #(= % dir))

abp

(ns mars-rovers.core)

(def dirs [:N :E :S :W])

(def move-dir {:N [0, 1] :E [1, 0] :S [0, -1] :W [-1, 0]})

(defn turn [dir dirs]
  (second
    (drop-while
      (complement #(= % dir))

abp

(ns pharoh.core
  (:import #_(org.drools.compiler DrlParser)
           #_(org.drools.spi Consequence)
           (java.beans PropertyChangeSupport)))

(definterface IBean
  (init [])
  (addPropertyChangeListener [pcl])
  (removePropertyChangeListener [pcl]))

abp

;;; Written when pondering
;;; http://stackoverflow.com/questions/9086926/create-a-proxy-for-an-specific-instance-of-an-object-in-clojure

(defmacro delegating-proxy [o class-and-ifaces ctor-args & impls]
  (let [oname (gensym)]
    (letfn [(delegating-impls [^java.lang.reflect.Method ms]
              (let [mname (symbol (.getName ^java.lang.reflect.Method (first ms)))
                    arity-groups (partition-by #(count (.getParameterTypes ^java.lang.reflect.Method %)) ms)
                    max-arity (max-key #(count (.getParameterTypes ^java.lang.reflect.Method %)) ms)]
                `(~mname

abp

;; lein settings
(defproject foo "1.0.0-SNAPSHOT"
  :description "Test App"
  :dependencies [[com.datomic/datomic "0.1.2678"]
                 [frinj "0.1.2" :exclusions [org.clojure/clojure]]])

;; load libs
(use 'frinj.core 'frinj.calc)
(frinj-init!)
(use '[datomic.api :only (q db) :as d])

abp

(ns pom2proj
  (:require [clojure.xml :as xml]
            [clojure.zip :as zip]
            [clojure.java.io :as io]
            [clojure.data.zip.xml :as zx])
  (:use [clojure.pprint :only [pprint]]))

(defn- text-attrs
  [loc ks]
  (map (fn [k]

abp

Initial thoughts on Datomic

Rich Hickey (of [Clojure][1] fame) has released a cloud-based database called [Datomic][2] that has some interesting properties.

Datomic is an log of assertions and retractions of "facts", much as a DVCS like [Git][3] is a log of code diffs. The state of the database at any one time is the sum of all the assertions and retractions up to that date.

abp

;      Invoke a macro like a function - if you dare.
;                        ______ 
;                     .-"      "-. 
;                    /            \ 
;        _          |              |          _ 
;       ( \         |,  .-.  .-.  ,|         / )
;        > "=._     | )(__/  \__)( |     _.=" <
;       (_/"=._"=._ |/     /\     \| _.="_.="\_)
;              "=._ (_     ^^     _)"_.=" 
;                  "=\__|IIIIII|__/="

abp

#!/usr/bin/env ruby

# giftube – Generates an animated gif from a YouTube url.
#
# Usage:
#
#   giftube [youtube url] [minute:second] [duration]
#
#   ex.
#