Example of usage git in clojure using shell

(ns git-example
  (:require [clojure.java.shell :as shell]
            [clojure.string :as string]))

(defn run-command [command & {:keys [directory] :or {directory (System/getProperty "user.dir")}}]
  (shell/with-sh-dir directory
    (shell/sh "sh" "-c" command)))

(defn resolve-command [command & [args]]
  (reduce
   (fn [command arg-key]
     (string/replace command (str "%" (name arg-key)) (arg-key args)))
   command
   (keys args)))

(defn wrapper [command]
  (fn [path & [args]]
    (let [result (run-command (resolve-command command args) :directory path)]
      (if (zero? (:exit result))
        (:out result)
        false))))

(defmacro defgit [alias command]
  `(def ~(symbol (str alias)) (wrapper  ~command)))

(defgit pull "git pull")

(defgit commit "git commit -a -m %message")

(pull "/Path/To/My/Repo/")

(commit "/Path/To/My/Repo/" {:message "My commit message"})