(in-package :fwoar.cl-git)

(defgeneric -extract-object-of-type (type s repository &key &allow-other-keys)
  (:method ((type (eql :blob)) s repository &key)
    s)

  (:method ((type (eql :tag)) s repository &key)
    s))

(defgeneric component (component object)
  (:argument-precedence-order object component)
  (:method (component (object git-ref))
    (component component (extract-object object)))
  (:method ((component sequence) object)
    (reduce (lambda (cur next)
              (component next cur))
            component
            :initial-value object)))