seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-03-12 21:04:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

utils: Add ‘mapping-for-system’ and ‘binary-package’.

Browse Source 
* modules/rosenthal/utils/packages.scm (system-mapping, binary-package): New
procedures.
This commit is contained in:
Hilton Chain 2026-02-13 15:23:22 +08:00
parent 9c244cfe3b
commit 2db419232a
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
modules/rosenthal/utils/packages.scm
View File

@ -11,10 +11,13 @@
#:use-module (guix deprecation) #:use-module (guix deprecation)
#:use-module (guix diagnostics) #:use-module (guix diagnostics)
#:use-module (guix discovery) #:use-module (guix discovery)
#:use-module (guix gexp)
#:use-module (guix i18n) #:use-module (guix i18n)
#:use-module (guix memoization) #:use-module (guix memoization)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix platform)
#:use-module (guix ui) #:use-module (guix ui)
#:use-module (guix utils)
;; Guix packages ;; Guix packages
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages base) #:use-module (gnu packages base)
@ -32,7 +35,9 @@
specs->pkgs specs->pkgs
specs->pkgs+out specs->pkgs+out
%binary-source)) %binary-source
binary-package
mapping-for-system))
(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
@ -150,3 +155,28 @@ packages, excluding superseded packages."
(synopsis "Binary package source (internal use)") (synopsis "Binary package source (internal use)")
(description "") (description "")
(license #f)))) (license #f))))
(define* (mapping-for-system mapping #:optional (default-system "x86_64-linux"))
(let ((system
(or (and=> (%current-target-system) platform-target->system)
(%current-system))))
(or (assoc-ref mapping system)
(assoc-ref mapping default-system))))
(define* (binary-package source-mapping p #:optional (default-system "x86_64-linux"))
(package
(inherit p)
(version (package-version (assoc-ref source-mapping default-system)))
(source #f)
(arguments
(substitute-keyword-arguments (package-arguments p)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(replace 'unpack
(lambda _
((assoc-ref %standard-phases 'unpack)
#:source
#+(package-source (mapping-for-system source-mapping)))))))))
(properties
(cons '(disable-updater? . #t)
(package-properties p)))))