Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

13 lines (10 sloc) 499 Bytes
(ns foreclojure.git
(:require [clojure.string :as s])
(:use [ :only [sh]]))
(letfn [(cmd [& args]
(not-empty (s/trim (:out (apply sh args)))))]
;; fetch these at load time rather than on demand, so that it's accurate even
;; if someone checks out a different revision to poke at without restarting
;; the server (eg to diagnose bugs in a release)
(def sha (cmd "git" "rev-parse" "--verify" "HEAD"))
(def tag (cmd "git" "describe" "--abbrev=0" "master")))
Jump to Line
Something went wrong with that request. Please try again.