ref.lisp

(in-package :fwoar.cl-git.ref)

(defclass ref ()
  ((%repo :initarg :repo :reader ref-repo)
   (%hash :initarg :hash :reader ref-hash)))
(defclass loose-ref (ref)
  ((%file :initarg :file :reader loose-ref-file)))

(defmethod print-object ((obj ref) s)
  (print-unreadable-object (obj s :type t :identity t)
    (format s "~a of ~a"
            (subseq (ref-hash obj) 0 6)
            (ref-repo obj)
            #+(or)
            (serapeum:string-replace (namestring (user-homedir-pathname))
                                     (root-of (ref-repo obj))
                                     "~/"))))

(defmethod fwoar.cl-git:component ((component (eql :hash)) (object ref))
  (ref-hash object))