You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

62 lines
2.1 KiB

  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2014, 2015 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. (define-module (gnu)
  20. #:export (use-package-modules
  21. use-service-modules
  22. use-system-modules))
  23. ;;; Commentary:
  24. ;;;
  25. ;;; This composite module re-exports core parts the (gnu …) public modules.
  26. ;;;
  27. ;;; Code:
  28. (eval-when (eval load compile)
  29. (begin
  30. (define %public-modules
  31. '((gnu system)
  32. (gnu system file-systems)
  33. (gnu system grub) ; 'grub-configuration'
  34. (gnu system linux) ; 'base-pam-services'
  35. (gnu system shadow) ; 'user-account'
  36. (gnu system linux-initrd)
  37. (gnu system nss)
  38. (gnu services)
  39. (gnu services base)
  40. (gnu packages)
  41. (gnu packages base)
  42. (guix gexp))) ; so gexps can be used
  43. (for-each (let ((i (module-public-interface (current-module))))
  44. (lambda (m)
  45. (module-use! i (resolve-interface m))))
  46. %public-modules)))
  47. (define-syntax-rule (use-package-modules module ...)
  48. (use-modules (gnu packages module) ...))
  49. (define-syntax-rule (use-service-modules module ...)
  50. (use-modules (gnu services module) ...))
  51. (define-syntax-rule (use-system-modules module ...)
  52. (use-modules (gnu system module) ...))
  53. ;;; gnu.scm ends here