winamp skins for clojure

winamp.clj

(ns defjam.core)

(defn __verb [__noun __noun_place]
  (filter #{__noun} __noun_place))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(ns defjam.dude
  (:require [clojure.java.io :as io]
            [clojure.string :as str]
            [clojure.pprint :as pp]
            [defjam.roar :as roar]))

(def evald
  (let [template (slurp (io/file "/Users/devn/dev/defjam/src/defjam/core.clj"))]
    (-> template
        (str/replace #"__verb" "snarf")
        (str/replace #"__noun_place" "swamp")
        (str/replace #"__noun" "gold"))))

(defn roar! []
  (with-open [f (io/writer (io/file "/Users/devn/dev/defjam/src/defjam/roar.clj"))]
    (binding [*out* f]
      (println evald))))

(roar/snarf :gold [:armpits :banks :clouds :gold :air :gold])

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(ns defjam.roar)

(defn snarf [gold swamp]
  (filter #{gold} swamp))