rosenthal: Add custom CI build for guix/dolly tarball.

modules/rosenthal/ci/tarball.scm

@@ -0,0 +1,39 @@
+;;; SPDX-FileCopyrightText: 2025 Hilton Chain <hako@ultrarare.space>
+;;;
+;;; SPDX-License-Identifier: GPL-3.0-or-later
+
+(define-module (rosenthal ci tarball)
+  #:use-module (guix derivations)
+  #:use-module (guix gexp)
+  #:use-module (guix monads)
+  #:use-module (guix packages)
+  #:use-module (guix profiles)
+  #:use-module (guix store)
+  #:use-module (guix scripts pack)
+  #:use-module (gnu ci)
+  #:use-module (gnu compression)
+  #:use-module (rosenthal packages package-management)
+  #:export (cuirass-jobs))
+
+;; Adapted from (@@ (gnu ci) tarball-jobs).
+(define (cuirass-jobs store arguments)
+  "Return jobs to build the self-contained Guix binary tarball."
+  (define (->job name drv)
+    (let ((name (string-append name "." system)))
+      (parameterize ((%graft? #f))
+        (derivation->job name drv))))
+
+  (map (lambda (system)
+         (->job "binary-tarball"
+                (run-with-store store
+                  (mbegin %store-monad
+                    (set-guile-for-build (default-guile))
+                    (>>= (profile-derivation (packages->manifest (list guix/dolly)))
+                         (lambda (profile)
+                           (self-contained-tarball "guix-binary" profile
+                                                   #:profile-name "current-guix"
+                                                   #:localstatedir? #t
+                                                   #:compressor
+                                                   (lookup-compressor "xz")))))
+                  #:system system)))
+       (arguments->systems arguments)))

modules/rosenthal/packages/ci.scm

@@ -10,8 +10,8 @@
   #:use-module (gnu packages ci))
 
 (define-public cuirass/dolly
-  (let ((commit "6ea7d8d94010a00548968fcc3dd493af383c4000")
-        (revision "1"))
+  (let ((commit "1de99f730b34853930fa5bc5127db4203bb12211")
+        (revision "2"))
     (package
       (inherit cuirass)
       (name "cuirass-dolly")
@@ -24,4 +24,4 @@
                 (file-name (git-file-name name version))
                 (sha256
                  (base32
-                  "1clzkzclzqfivv7cpwh8r20j8j5nzfnzbf1rrnhcyc1gvlds7blb")))))))
+                  "10anvrd532m01lsdq6hnjn6b15bf19k4drb3igyfnp038r6dfp2z")))))))