Only Clojure and contrib. Either modify build.xml or use -Dclojure.jar=...
and -Dclojure.contrib.jar=... when running ant.
At runtime this library requires git to be on the path.
This is a Clojure front-end to git. Right now only low-level operations are
included; this is enough to allow very basic serialization of data into Git's
object store.
user=> (use 'com.twinql.clojure.git)
nil
;; List refs and their commits -- returns a map.
;; with-repo is only necessary if your working directory is not the
;; repo you want to access.
user=> (with-repo "." (refs->commits))
{"refs/remotes/origin/master" "eca2ada9fb79c50a0404e9fef4c0255f2fbe8a30",
"refs/heads/master" "eca2ada9fb79c50a0404e9fef4c0255f2fbe8a30"}
;; Fetch the commit for a single ref.
user=> (ref->commit "refs/remotes/origin/master")
"eca2ada9fb79c50a0404e9fef4c0255f2fbe8a30"
user=> (object-type "eca2ada9fb79c50a0404e9fef4c0255f2fbe8a30")
"commit"
user=> (object-size "eca2ada9fb79c50a0404e9fef4c0255f2fbe8a30")
235
;; Let's write in an object.
user=> (with-repo "/tmp/raw"
(hash-object-from-string "Hello, world!" nil :write false))
"5dd01c177f5d7d1be5346a5bc18a569a7410c2ef"
user=> (with-repo "/tmp/raw"
(cat-object "5dd01c177f5d7d1be5346a5bc18a569a7410c2ef"))
"Hello, world!"
;; Make a tree and commit it.
user=> (with-repo "/tmp/raw"
(make-tree [[nil "blob" "5dd01c177f5d7d1be5346a5bc18a569a7410c2ef" "some-file"]]))
"1a4d231af53de9164b03296a4dcc18e2fcd715c6"
user=> (with-repo "/tmp/raw"
(commit-tree *1 (ref->commit "refs/heads/master") "Author" "Committer" "Test commit."))
"f8455ab747e18e8bba7b14acbd92dcbf8c15b5fa"
;; Now update the ref.
user=> (with-repo "/tmp/raw"
(update-ref "refs/heads/master" *1))
""
;; TADA!
user=> (with-repo "/tmp/raw" (ref->commit "refs/heads/master"))
"f8455ab747e18e8bba7b14acbd92dcbf8c15b5fa"
;; Fetch file contents for the tree identified by the head.
user=> (with-repo "/tmp/raw"
(tree-contents
((comp commit->tree ref->commit) "refs/heads/master")
blob?))
{"some-file" "Hello, world!"}