Skip to content

Instantly share code, notes, and snippets.

(defmacro with-temp-dir [dir & body]
`(when-let [temp-file# (java.io.File/createTempFile (.toString (java.util.UUID/randomUUID)) "")]
(.delete temp-file#)
(.mkdirs temp-file#)
(when-let [temp-dir# (.getAbsolutePath temp-file#)]
((fn [~dir]
(let [res# (do ~@body)]
(clojure.contrib.io/delete-file-recursively temp-dir#)
res#)) temp-dir#))))
@zk
zk / 10
Created September 7, 2010 22:50
trammel :: Import Library Task
=========================================
1 projects, 1 namespaces, 10 vars.
trammel (project)
fogus.me.trammel (ns) Ok
all-negative? (var) Ok
all-numbers? (var) Ok
@zk
zk / gist:605416
Created September 30, 2010 22:11
Clojure Core :: Import Library Task
=========================================
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/core_deftype.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/core_print.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/core_proxy.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/genclass.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/gvec.clj>
Warning: couldn't resolve ns clojure.parallel
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/pprint/cl_format.clj>
@zk
zk / gist:605424
Created September 30, 2010 22:14
Clojure Contrib :: Import Library Task
=========================================
Warning: couldn't resolve ns clojure.contrib.javadoc
EOF encountered: #<File /Users/zkim/clojurelibs/clojure-contrib/src/main/clojure/clojure/contrib/jmx/client.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure-contrib/src/main/clojure/clojure/contrib/jmx/data.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure-contrib/src/main/clojure/clojure/contrib/jmx/server.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure-contrib/src/main/clojure/clojure/contrib/lazy_xml/with_pull.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure-contrib/src/main/clojure/clojure/contrib/pprint/cl_format.clj>
Warning: couldn't resolve ns clojure.contrib.priority-map
EOF encountered: #<File /Users/zkim/clojurelibs/clojure-contrib/src/main/clojure/clojure/contrib/repl_utils/javadoc.clj>
clojuredocs-analyzer zkim$ java -cp "src:test:classes:lib/*:lib/dev/*" lazytest.watch src test
======================================================================
At #<Date Fri Oct 01 15:35:37 MDT 2010>
Reloading cd-analyzer.clojurecore, cd-analyzer.core-test, cd-analyzer.core, cd-analyzer.util, cd-analyzer.language-test, cd-analyzer.runner, cd-analyzer.language, cd-analyzer.runner-test, cd-analyzer.database, cd-analyzer.libs, main
......................
Namespaces
cd-analyzer.core-test
#'cd-analyzer.core/to-var-map
gives the correct values
Clojure Core :: Import Library Task
=========================================
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/core_deftype.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/core_print.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/core_proxy.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/genclass.clj>
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/gvec.clj>
Warning: couldn't resolve ns clojure.parallel
EOF encountered: #<File /Users/zkim/clojurelibs/clojure/src/clj/clojure/pprint/cl_format.clj>
{:name "Clojure Core"
:repo "http://github.com/clojure"
:commit "a339e..."
:version "1.3.0-alpha1"
:namespaces [{:full-name
:short-name
:doc
:author
:members
:subspaces
;;
;; Queries
;;
(def users (table db :users))
(to-sql users)
;;-> ["SELECT `users`.* FROM `users`"]
(to-sql (select users (where (< :id 3)))))
;; project.clj
(defproject caketest "0.0.1-SNAPSHOT"
:description "TODO: add summary of your project"
:dependencies [[clojure "1.2.0"]
[clojure-contrib "1.2.0"]
[clj-ssh "0.2.0"]]
:dev-dependencies [[swank-clojure "1.2.0"]
[clj-ssh "0.2.0"]]
:deploy {:hosts ["jd.getdillo.com"]
;; project.clj
(defproject caketest "0.0.1-SNAPSHOT"
:description "TODO: add summary of your project"
:dependencies [[clojure "1.2.0"]
[clojure-contrib "1.2.0"]
[clj-ssh "0.2.0"]]
:dev-dependencies [[swank-clojure "1.2.0"]
[clj-ssh "0.2.0"]]
:deploy {:hosts ["jd.getdillo.com"]
:username "root"