Код, который вы используете (:id (first (git-log my-repo :max-count 1)))
, вернет экземпляр класса RevCommit , который наследует класс AnyObjectId , имеющий метод .getName (), который вернет значение ha sh git commit.
;; for getting the hash
(.getName (:id (first (git-log my-repo :max-count 1))))
Теперь для получения текущего имени ветки есть еще одна функция git -branch-current в ns clj-j git .porcelain пространство имен:
;; for getting the current branch name
(git-branch-current my-repo)