mirror of
https://gitlab.com/nonguix/nonguix.git
synced 2026-01-25 03:54:58 -06:00
nonguix: Re-report bindings from modules commonly used in system setup.
* nonguix.scm: New file.
This commit is contained in:
parent
a0bb4541ba
commit
67bfb5b37b
1 changed files with 22 additions and 0 deletions
22
nonguix.scm
Normal file
22
nonguix.scm
Normal file
|
|
@ -0,0 +1,22 @@
|
||||||
|
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
||||||
|
;;; Copyright © 2026 Hilton Chain <hako@ultrarare.space>
|
||||||
|
|
||||||
|
(define-module (nonguix)
|
||||||
|
#:use-module (srfi srfi-26))
|
||||||
|
|
||||||
|
;; Re-export commonly-used modules for system setup.
|
||||||
|
|
||||||
|
(eval-when (eval load compile)
|
||||||
|
(begin
|
||||||
|
(define %public-modules
|
||||||
|
'((nonguix transformations)
|
||||||
|
(nongnu packages linux)
|
||||||
|
(nongnu system linux-initrd)))
|
||||||
|
|
||||||
|
(for-each (let ((i (module-public-interface (current-module))))
|
||||||
|
(lambda (m)
|
||||||
|
;; Ignore non-existent modules, so that we can split the
|
||||||
|
;; channel without breaking this module in the future.
|
||||||
|
(and=> (false-if-exception (resolve-interface m))
|
||||||
|
(cut module-use! i <>))))
|
||||||
|
%public-modules)))
|
||||||
Loading…
Add table
Reference in a new issue