diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-05-22 23:20:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-22 23:24:13 +0200 |
| commit | c9384945984c393ef1a15efb5c07e272a27a2215 (patch) | |
| tree | 090a2bb367ecb404225cb04afeaeeb6e18c11e6e /gnu.scm | |
| parent | f19c6e5fe79c8bbd3c9ea25cd0380681bd99ce13 (diff) | |
Add (gnu) module.
* gnu.scm: New file.
* gnu-system.am (GNU_SYSTEM_MODULES): Add it.
* build-aux/hydra/demo-os.scm: Use (gnu) and strip import list
accordingly.
* doc/guix.texi (Using the Configuration System): Adjust example
accordingly.
Diffstat (limited to 'gnu.scm')
| -rw-r--r-- | gnu.scm | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/gnu.scm b/gnu.scm new file mode 100644 index 00000000000..e573de65318 --- /dev/null +++ b/gnu.scm | |||
| @@ -0,0 +1,46 @@ | |||
| 1 | ;;; GNU Guix --- Functional package management for GNU | ||
| 2 | ;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org> | ||
| 3 | ;;; | ||
| 4 | ;;; This file is part of GNU Guix. | ||
| 5 | ;;; | ||
| 6 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | ||
| 7 | ;;; under the terms of the GNU General Public License as published by | ||
| 8 | ;;; the Free Software Foundation; either version 3 of the License, or (at | ||
| 9 | ;;; your option) any later version. | ||
| 10 | ;;; | ||
| 11 | ;;; GNU Guix is distributed in the hope that it will be useful, but | ||
| 12 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 13 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 14 | ;;; GNU General Public License for more details. | ||
| 15 | ;;; | ||
| 16 | ;;; You should have received a copy of the GNU General Public License | ||
| 17 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | ||
| 18 | |||
| 19 | (define-module (gnu)) | ||
| 20 | |||
| 21 | ;;; Commentary: | ||
| 22 | ;;; | ||
| 23 | ;;; This composite module re-exports core parts the (gnu …) public modules. | ||
| 24 | ;;; | ||
| 25 | ;;; Code: | ||
| 26 | |||
| 27 | (eval-when (eval load compile) | ||
| 28 | (begin | ||
| 29 | (define %public-modules | ||
| 30 | '((gnu system) | ||
| 31 | (gnu system file-systems) | ||
| 32 | (gnu system grub) ; 'grub-configuration' | ||
| 33 | (gnu system linux) ; 'base-pam-services' | ||
| 34 | (gnu system shadow) ; 'user-account' | ||
| 35 | (gnu system linux-initrd) | ||
| 36 | (gnu services) | ||
| 37 | (gnu services base) | ||
| 38 | (gnu packages) | ||
| 39 | (gnu packages base))) | ||
| 40 | |||
| 41 | (for-each (let ((i (module-public-interface (current-module)))) | ||
| 42 | (lambda (m) | ||
| 43 | (module-use! i (resolve-interface m)))) | ||
| 44 | %public-modules))) | ||
| 45 | |||
| 46 | ;;; gnu.scm ends here | ||
