/gnu.scm (f139531ef3ecf56a790ae73934e2d91016c1aba4) (5289 bytes) (mode 100644) (type blob)
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2017, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Joshua S. Grant <jgrant@parenthetical.io>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu)
#:use-module (guix i18n)
#:use-module (guix diagnostics)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (ice-9 match)
#:use-module (guix packages)
#:use-module (gnu packages)
#:use-module (gnu services)
#:export (use-package-modules
use-service-modules
use-system-modules))
;;; Commentary:
;;;
;;; This composite module re-exports core parts the (gnu …) public modules.
;;;
;;; Code:
(eval-when (eval load compile)
(begin
(define %public-modules
'((gnu system)
(gnu system mapped-devices)
(gnu system file-systems)
(gnu bootloader)
(gnu bootloader grub)
(gnu system keyboard)
(gnu system pam)
(gnu system shadow) ; 'user-account'
(gnu system linux-initrd)
(gnu system nss)
(gnu services)
(gnu services base)
(gnu packages)
(gnu packages base)
(guix gexp))) ; so gexps can be used
(for-each (let ((i (module-public-interface (current-module))))
(lambda (m)
(module-use! i (resolve-interface m))))
%public-modules)))
(define (%try-use-modules modules location make-hint)
"Attempt to load all of MODULES. Report errors as coming from LOCATION, a
<location> record, and use MAKE-HINT to produce a fix hint."
(define (location->string loc)
(match loc
(#f "")
(($ <location> file line column)
(format #f "~a:~a:~a: " file line column))))
(for-each (lambda (module)
(catch 'misc-error
(lambda ()
(process-use-modules `((,module))))
(lambda _
(raise
(apply
make-compound-condition
(formatted-message (G_ "module ~a not found")
module)
(condition
(&error-location (location location)))
(or (and=> (make-hint module) list)
'()))))))
modules))
(define (package-module-hint module)
(define last-name
(match module
((_ ... last)
(symbol->string last))))
(match (find-packages-by-name last-name)
(()
(condition
(&fix-hint
(hint (G_ "\
You may use @command{guix package --show=foo | grep location} to search
for the location of package @code{foo}.
If you get the line @code{location: gnu/packages/bar.scm:174:2},
add @code{bar} to the @code{use-package-modules} form.")))))
((package _ ...)
(condition
(&fix-hint
(hint (format #f (G_ "\
Try adding @code{(use-package-modules ~a)}.")
(basename (location-file (package-location package))
".scm"))))))))
(define (service-module-hint module)
(define last-name
(match module
((_ ... last)
last)))
(match (lookup-service-types last-name)
(()
(condition
(&fix-hint
(hint (format #f (G_ "\
You may use @command{guix system search ~a} to search for a service
matching @code{~a}.
If you get the line @code{location: gnu/services/foo.scm:188:2},
add @code{foo} to the @code{use-service-modules} form.")
last-name last-name)))))
((package _ ...)
(condition
(&fix-hint
(hint (format #f (G_ "\
Try adding @code{(use-service-modules ~a)}.")
(basename (location-file (service-type-location package))
".scm"))))))))
(define-syntax-rule (try-use-modules hint modules ...)
(eval-when (expand load eval)
(%try-use-modules '(modules ...)
(source-properties->location
(current-source-location))
hint)))
(define-syntax-rule (use-package-modules module ...)
(try-use-modules package-module-hint
(gnu packages module) ...))
(define-syntax-rule (use-service-modules module ...)
(try-use-modules service-module-hint
(gnu services module) ...))
(define-syntax-rule (use-system-modules module ...)
(try-use-modules (const #f) ;no hint
(gnu system module) ...))
;;; gnu.scm ends here
Mode |
Type |
Size |
Ref |
File |
100644 |
blob |
6139 |
7f310d2612983845551d0a641b730a269a180a3f |
.dir-locals.el |
100644 |
blob |
2533 |
e2f745b42a5a1591a93a3e9a7ccfc107a6178eff |
.gitignore |
100644 |
blob |
6296 |
fc52e3fc198bdb9a1056f4db7d4bf74e370d8729 |
.guix-authorizations |
100644 |
blob |
182 |
b852180cf2563ec7b74b93c954de38d77237f23f |
.guix-channel |
100644 |
blob |
4499 |
146e65184a2f987b0307d0ec7300c93e84110625 |
.mailmap |
100644 |
blob |
472 |
1e30a74a64f51ec735dcc44ff4dfe5fa4fa13c6f |
AUTHORS |
100644 |
blob |
3273 |
ef90330cdacb9ecf7dbf38a03cdb490db131a4ad |
CODE-OF-CONDUCT |
100644 |
blob |
35147 |
94a9ed024d3859793618152ea559a168bbcbb5e2 |
COPYING |
100644 |
blob |
163 |
d6ea6943261fcae51c095ad39fe59140fc62de22 |
ChangeLog |
100644 |
blob |
749 |
aaa673fc93b0bb74feca4783ae427b9ea1b604ea |
HACKING |
100644 |
blob |
33109 |
a75d9c1ffc4237c0478b62a235b9b521fd840517 |
Makefile.am |
100644 |
blob |
359348 |
bb1de1e93802064ff44392db56d05cd0a11fcc15 |
NEWS |
100644 |
blob |
5260 |
5e9069f80f58d3946cdd588f30919a177eaccb55 |
README |
100644 |
blob |
3237 |
2475cb637ceb6eb43f54d080c56e5793041b76e5 |
ROADMAP |
100644 |
blob |
2381 |
af7afd3576f2e6aa5cbafc3c6354bbab1ae00774 |
THANKS |
100644 |
blob |
4360 |
f854f7fa98e09c7b512f3efb702c290b615186a0 |
TODO |
100755 |
blob |
906 |
a47269d87f1d6fd27bbaf634ac7439b38b32cca3 |
bootstrap |
040000 |
tree |
- |
b15b9ede344760715e240528bc322c7b0194bbe7 |
build-aux |
100644 |
blob |
4808 |
50ead355a81edebf5c9419bd76a1dd69e85f5adf |
config-daemon.ac |
100644 |
blob |
8760 |
6861112eafaed85e107f8976f12e0ddb795571b7 |
configure.ac |
100644 |
blob |
339545 |
d234c4ec8668cead20279d903589d29c513b4cb6 |
d3.v3.js |
040000 |
tree |
- |
a0dad2b27584bf82fb755403205ba8ed31a934ec |
doc |
040000 |
tree |
- |
7f3c5b3c9841663f42a8275e8d1dd9f11040bae3 |
etc |
100644 |
blob |
5289 |
f139531ef3ecf56a790ae73934e2d91016c1aba4 |
gnu.scm |
040000 |
tree |
- |
7239408eaabb43b02bfc403aa6148ad640fe3bf0 |
gnu |
100644 |
blob |
4207 |
ad8279395d8eb1fe5a836d54ec563a4577f4d135 |
graph.js |
100644 |
blob |
1357 |
8753c21e423f880e7a6d9f7f6f6ff1139f8b7254 |
guix.scm |
040000 |
tree |
- |
229c01ff8f84f0f1c709f225703ae91b2b41f75a |
guix |
040000 |
tree |
- |
8df9aaabfb400159e2559fd4331fb861cb0a5adc |
m4 |
040000 |
tree |
- |
d0ec05821e49fa1536a9c19a33ad13b5ba3ea0c2 |
nix |
040000 |
tree |
- |
f3f7e89363a260b8bcbdfb31d8f8384b21f99cb9 |
po |
040000 |
tree |
- |
8c4db11917d51c4d71a841813cf8951000b76687 |
scripts |
040000 |
tree |
- |
f284abae7ee6e17f37f6ca942999e84bd2ac74e3 |
tests |
Hints:
Before first commit, do not forget to setup your git environment:
git config --global user.name "your_name_here"
git config --global user.email "your@email_here"
Clone this repository using HTTP(S):
git clone https://rocketgit.com/user/maav/guix-mirror
Clone this repository using ssh (do not forget to upload a key first):
git clone ssh://rocketgit@ssh.rocketgit.com/user/maav/guix-mirror
Clone this repository using git:
git clone git://git.rocketgit.com/user/maav/guix-mirror
You are allowed to anonymously push to this repository.
This means that your pushed commits will automatically be transformed into a
merge request:
... clone the repository ...
... make some changes and some commits ...
git push origin main