gnu.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2015 Joshua S. Grant <jgrant@parenthetical.io>
   4 ;;;
   5 ;;; This file is part of GNU Guix.
   6 ;;;
   7 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   8 ;;; under the terms of the GNU General Public License as published by
   9 ;;; the Free Software Foundation; either version 3 of the License, or (at
  10 ;;; your option) any later version.
  11 ;;;
  12 ;;; GNU Guix is distributed in the hope that it will be useful, but
  13 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 ;;; GNU General Public License for more details.
  16 ;;;
  17 ;;; You should have received a copy of the GNU General Public License
  18 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 (define-module (gnu)
  21   #:export (use-package-modules
  22             use-service-modules
  23             use-system-modules))
  24
  25 ;;; Commentary:
  26 ;;;
  27 ;;; This composite module re-exports core parts the (gnu …) public modules.
  28 ;;;
  29 ;;; Code:
  30
  31 (eval-when (eval load compile)
  32   (begin
  33     (define %public-modules
  34       '((gnu system)
  35         (gnu system mapped-devices)
  36         (gnu system file-systems)
  37         (gnu system grub)                         ; 'grub-configuration'
  38         (gnu system pam)
  39         (gnu system shadow)                       ; 'user-account'
  40         (gnu system linux-initrd)
  41         (gnu system nss)
  42         (gnu services)
  43         (gnu services base)
  44         (gnu packages)
  45         (gnu packages base)
  46         (guix gexp)))                             ; so gexps can be used
  47
  48     (for-each (let ((i (module-public-interface (current-module))))
  49                 (lambda (m)
  50                   (module-use! i (resolve-interface m))))
  51               %public-modules)))
  52
  53 (define-syntax-rule (use-package-modules module ...)
  54   (use-modules (gnu packages module) ...))
  55
  56 (define-syntax-rule (use-service-modules module ...)
  57   (use-modules (gnu services module) ...))
  58
  59 (define-syntax-rule (use-system-modules module ...)
  60   (use-modules (gnu system module) ...))
  61
  62 ;;; gnu.scm ends here