diff options
| author | Hilton Chain <hako@ultrarare.space> | 2026-01-17 11:10:54 +0800 |
|---|---|---|
| committer | Hilton Chain <hako@ultrarare.space> | 2026-01-17 15:07:21 +0800 |
| commit | 67bfb5b37b6614bf903220d6287685fbab92e2f6 (patch) | |
| tree | 0e0f6c35dda120c951fc3bd08d260d089a6ca8fb /nonguix.scm | |
| parent | a0bb4541ba52cb0cfb47da7ce1097e305c8386b3 (diff) | |
nonguix: Re-report bindings from modules commonly used in system setup.
* nonguix.scm: New file.
Diffstat (limited to 'nonguix.scm')
| -rw-r--r-- | nonguix.scm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/nonguix.scm b/nonguix.scm new file mode 100644 index 0000000..695382c --- /dev/null +++ b/nonguix.scm | |||
| @@ -0,0 +1,22 @@ | |||
| 1 | ;;; SPDX-License-Identifier: GPL-3.0-or-later | ||
| 2 | ;;; Copyright © 2026 Hilton Chain <hako@ultrarare.space> | ||
| 3 | |||
| 4 | (define-module (nonguix) | ||
| 5 | #:use-module (srfi srfi-26)) | ||
| 6 | |||
| 7 | ;; Re-export commonly-used modules for system setup. | ||
| 8 | |||
| 9 | (eval-when (eval load compile) | ||
| 10 | (begin | ||
| 11 | (define %public-modules | ||
| 12 | '((nonguix transformations) | ||
| 13 | (nongnu packages linux) | ||
| 14 | (nongnu system linux-initrd))) | ||
| 15 | |||
| 16 | (for-each (let ((i (module-public-interface (current-module)))) | ||
| 17 | (lambda (m) | ||
| 18 | ;; Ignore non-existent modules, so that we can split the | ||
| 19 | ;; channel without breaking this module in the future. | ||
| 20 | (and=> (false-if-exception (resolve-interface m)) | ||
| 21 | (cut module-use! i <>)))) | ||
| 22 | %public-modules))) | ||
