Extract git ref from the version for github projects.

fukamachi · Nov 19, 2024 · 6075636 · 6075636
1 parent ddd87c5
commit 6075636
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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))