From 6075636b51cf60edb2a0de9869140b07210baeea Mon Sep 17 00:00:00 2001
From: Eitaro Fukamachi <e.arrows@gmail.com>
Date: Tue, 19 Nov 2024 13:55:26 +0000
Subject: [PATCH] Extract git ref from the version for `github` projects.

---
 src/source/github.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/source/github.lisp b/src/source/github.lisp
index fda9827..dceaea4 100644
--- a/src/source/github.lisp
+++ b/src/source/github.lisp
@@ -61,6 +61,12 @@
                      :tag tag
                      :project-name project-name))))
 
+(defmethod defrost-source :after ((source source-github))
+  (when (slot-boundp source 'qlot/source/base::version)
+    (setf (source-github-ref source)
+          (subseq (source-version source)
+                  (length (source-version-prefix source))))))
+
 (defmethod source-identifier ((source source-github))
   (source-github-repos source))