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)))