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 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.
#

abp

; very basic example of driving a listbox with binding in Seesaw
(use 'seesaw.core)
(require '[seesaw.bind :as b])

; create a text box and a listbox next to each other
(defn make-ui []
  (frame
    :size [400 :by 400]
    :content (left-right-split
               (scrollable (text :id :text :multi-line? true))

abp

(extend-type js/RegExp
  cljs.core.IFn
  (-invoke ([this s] (re-matches this s))))

(#"foo.*" "foobar") ;=> "foobar"
(#"zoo.*" "foobar") ;=> nil

(filter #".*foo.*" ["foobar" "goobar" "foobaz"]) ;=> ("foobar" "foobaz")