1
0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-06-12 05:55:57 +00:00
Rosenthal/modules/rosenthal/utils/cargo.scm
Hilton Chain cf5fc0ef73
rosenthal: rosenthal-cargo-inputs: Move to (rosenthal utils cargo).
* modules/rosenthal/packages/rust-crates.scm (rosenthal-cargo-inputs): Move
to...
* modules/rosenthal/utils/cargo.scm (rosenthal-cargo-inputs): ...here.
* modules/rosenthal/packages/rust-apps.scm: Adjust module import.
* modules/rosenthal/packages/wm.scm: Likewise.
* modules/rosenthal/packages/xorg.scm: Likewise.

Fixes: https://codeberg.org/hako/Rosenthal/issues/12
2025-05-15 19:47:20 +08:00

18 lines
638 B
Scheme

;;; SPDX-FileCopyrightText: 2025 Hilton Chain <hako@ultrarare.space>
;;;
;;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal utils cargo)
#:use-module (guix diagnostics)
#:use-module (guix i18n)
#:export (rosenthal-cargo-inputs))
(define* (rosenthal-cargo-inputs name #:key (module '(rosenthal packages rust-crates)))
"Lookup Cargo inputs for NAME defined in MODULE, return an empty list if
unavailable."
(let ((lookup (module-ref (resolve-interface module) 'lookup-cargo-inputs)))
(or (lookup name)
(begin
(warning (G_ "no Cargo inputs available for '~a'~%") name)
'()))))