@@ -9,4 +9,4 @@

 (defpackage :git

   (:use)

-  (:export #:show #:branch))

\ No newline at end of file

+  (:export #:show #:branch #:branches #:commit-parents #:in-repository))

\ No newline at end of file

@@ -5,10 +5,29 @@

 (defvar *git-encoding* :utf-8

   "The encoding to use when parsing git objects")

-(defun git-show (object)

-  (elt (sp-ob

-        (babel:octets-to-string

-         (extract-object (repository *git-repository*)

-                         object)

-         :encoding *git-encoding*))

-       1))

+(defun git:in-repository (root)

+  (setf *git-repository*

+        (truename root)))

+

+(defun git:show (object)

+  (babel:octets-to-string

+   (extract-object (repository *git-repository*)

+                   object)

+   :encoding *git-encoding*))

+

+(defun git:branch (&optional (branch "master"))

+  (let ((branches (branches (repository *git-repository*))))

+    (nth-value 0 (serapeum:assocadr branch branches

+                                    :test 'equal))))

+

+(defun git:branches ()

+  (branches (repository *git-repository*)))

+

+(defun git:commit-parents (commit)

+  (map 'list #'cadr

+       (remove-if-not (serapeum:op

+                        (string= "parent" _))

+                      (nth-value 1

+                                 (fwoar.cl-git::parse-commit

+                                  (git:show commit)))

+                      :key #'car)))