89b524ab58
This patch moves Guile modules shipped as a Guix channel under the modules directory. The rationale behind this is that we are probably adding unwanted files into Guile's load path, such as the news file and possible scripts that could be added to the channel repository in the future. * guix-channel (channel): Set directory field. * nongnu/*: Move under modules/nongnu. * nonguix/*: Move under modules/nonguix.
24 lines
792 B
Scheme
24 lines
792 B
Scheme
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
;;; Copyright © 2020 Alex Griffin <a@ajgrf.com>
|
|
|
|
(define-module (nonguix modules)
|
|
#:use-module (ice-9 match)
|
|
#:export (import-nonguix-module?))
|
|
|
|
(define (nonguix-module-name? name)
|
|
"Return true if NAME (a list of symbols) denotes a Guix or Nonguix module."
|
|
(match name
|
|
(('guix _ ...) #t)
|
|
(('gnu _ ...) #t)
|
|
(('nonguix _ ...) #t)
|
|
(('nongnu _ ...) #t)
|
|
(_ #f)))
|
|
|
|
;; Since we don't use deduplication support in 'populate-store', don't
|
|
;; import (guix store deduplication) and its dependencies, which
|
|
;; includes Guile-Gcrypt.
|
|
(define (import-nonguix-module? module)
|
|
"Return true if MODULE is not (guix store deduplication)"
|
|
(and (nonguix-module-name? module)
|
|
(not (equal? module '(guix store deduplication)))))
|