utils: Add %binary-source.

* modules/rosenthal/utils/packages.scm (%binary-source): New variable.
This commit is contained in:
Hilton Chain 2026-02-07 20:52:39 +08:00
parent b5e08762c4
commit bf6937ec63
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292

View File

@ -17,6 +17,7 @@
#:use-module (guix ui) #:use-module (guix ui)
;; Guix packages ;; Guix packages
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages base)
#:replace (%patch-path #:replace (%patch-path
search-patch) search-patch)
#:export (rosenthal-patches #:export (rosenthal-patches
@ -29,7 +30,9 @@
spec->pkg spec->pkg
spec->pkg+out spec->pkg+out
specs->pkgs specs->pkgs
specs->pkgs+out)) specs->pkgs+out
%binary-source))
(define %rosenthal-root-directory (define %rosenthal-root-directory
;; This is like %distro-root-directory from (gnu packages), with adjusted ;; This is like %distro-root-directory from (gnu packages), with adjusted
@ -132,3 +135,14 @@ packages, excluding superseded packages."
(define-deprecated/public-alias pkg+out spec->pkg+out) (define-deprecated/public-alias pkg+out spec->pkg+out)
(define-deprecated/public-alias pkgs specs->pkgs) (define-deprecated/public-alias pkgs specs->pkgs)
(define-deprecated/public-alias pkgs+out specs->pkgs+out) (define-deprecated/public-alias pkgs+out specs->pkgs+out)
;;;
;;; Binary packages.
;;;
(define %binary-source
(hidden-package
(package
(inherit hello)
(supported-systems '()))))