(in-package :fwoar.cl-git)

(defun root-of (repo)
  (typecase repo
    (repository (root repo))
    ((or pathname string) (namestring
                           (truename repo)))))

(defun ref (repo id)
  "Given a REPOsitory and a ref ID return the ref-id object."
  (let ((repo-root (root-of repo)))
    (or (alexandria:when-let ((object-file (loose-object repo id)))
          (make-instance 'loose-ref
                         :repo repo-root
                         :hash id
                         :file object-file))
        (multiple-value-bind (pack offset) (find-object-in-pack-files repo-root id)
          (when pack
            (make-instance 'packed-ref
                           :hash id
                           :repo repo-root
                           :offset offset
                           :pack pack))))))