Merge branch 'version-1.0.1'

This commit is contained in:
Ludovic Courtès 2019-05-20 11:48:57 +02:00
commit 99f47b53f7
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
13 changed files with 8597 additions and 8476 deletions

View file

@ -324,6 +324,7 @@ EXAMPLES = \
gnu/system/examples/beaglebone-black.tmpl \
gnu/system/examples/desktop.tmpl \
gnu/system/examples/lightweight-desktop.tmpl \
gnu/system/examples/docker-image.tmpl \
gnu/system/examples/vm-image.tmpl
GOBJECTS = $(MODULES:%.scm=%.go) guix/config.go $(dist_noinst_DATA:%.scm=%.go)

50
NEWS
View file

@ -11,6 +11,56 @@ Copyright © 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
Please send Guix bug reports to bug-guix@gnu.org.
* Changes in 1.0.1 (since 1.0.0)
** Package management
*** The https_proxy environment variable is now honored
** Distribution
*** guix system docker-image now produces images with an entry point
*** New --network option for guix system container
*** gcc package is now hidden; gcc-toolchain is what users want
*** mcron service now logs to /var/log/mcron.log
*** Dovecot: auth-verbose-passwords? renamed from auth-verbose-passwords
*** slim service now allows for multiple instances on different VTs
*** 70 new packages
*** 483 package updates
Noteworthy updates:
gdb 8.3, ghc 8.4.3, glibc 2.28, gnupg 2.2.15, go 1.12.1, guile 2.2.4,
icecat 60.6.2-guix1, icedtea 3.7.0, linux-libre 5.1.2, python 3.7.0,
rust 1.34.1, shepherd 0.6.1
** Programming interfaces
*** New (guix lzlib) module, to be used eventually for substitute compression
** Noteworthy bug fixes
*** Installer appends packages to %base-packages
(<https://bugs.gnu.org/35541>)
*** Installer allows for arbitrary-long passphrases and passwords
(<https://bugs.gnu.org/35716>)
*** network-manager-applet is provided as part of %desktop-services
(<https://bugs.gnu.org/35554>)
*** Installer can create Btrfs file systems
(<https://bugs.gnu.org/35655>)
*** Installer password entry visibility can be toggled
(<https://bugs.gnu.org/35540>)
*** guix-daemon.service file for systemd selects a valid UTF-8 locale
(<https://bugs.gnu.org/35671>)
*** gnome-tweak-tool starts correctly
(<https://bugs.gnu.org/35597>)
*** getlogin C function now works as expected
(<https://bugs.gnu.org/35553>)
*** Leading zeros are preserved when serializing FAT UUIDs
(<https://bugs.gnu.org/35582>)
*** guix search now searches output names
(<https://bugs.gnu.org/35588>)
*** guix environment in non ad-hoc mode honors package transformations
(<https://bugs.gnu.org/35618>)
*** guix refresh correctly determines the latest version for GitHub
(<https://bugs.gnu.org/35684>)
** Native language support
*** New preliminary translation of the manual to Russian
*** Updated translations: da, de, es, fr
* Changes in 1.0.0 (since 0.16.0)
** Package management
*** New -v/--verbosity option for all commands

View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -24,17 +24,37 @@
(guix grafts)
(guix packages)
(guix derivations)
(gnu packages)
(gnu packages certs)
(gnu packages emacs)
(gnu packages make-bootstrap)
(gnu packages ssh)
(srfi srfi-1)
(srfi srfi-26)
(ice-9 format))
(define (packages-for-system system)
"Return the list of packages to check for SYSTEM."
(let ((base (list %bootstrap-tarballs emacs nss-certs openssh)))
;; On Intel systems, make sure key packages proposed by the installer are
;; available.
(if (member system '("x86_64-linux" "i686-linux"))
(append (map specification->package
'("xfce" "gnome" "mate" "enlightenment"
"openbox" "awesome" "i3-wm" "ratpoison"
"network-manager-applet" "xlockmore"
"linux-libre" "grub-hybrid" "xorg-server"
"libreoffice"
;; FIXME: Add IceCat when Rust is available on i686.
#;"icecat"))
base)
base)))
(with-store store
(parameterize ((%graft? #f))
(let* ((native (append-map (lambda (system)
(map (cut package-derivation store <> system)
(list %bootstrap-tarballs emacs)))
(packages-for-system system)))
%hydra-supported-systems))
(cross (map (cut package-cross-derivation store
%bootstrap-tarballs <>)

View file

@ -751,12 +751,8 @@ (define (run-page devices)
(disk (mklabel device label)))
(disk-commit disk)
disk)))
(initial-partitions (disk-partitions disk))
(scheme (symbol-append method '- (run-scheme-page)))
(user-partitions (append
(auto-partition! disk #:scheme scheme)
(create-special-user-partitions
initial-partitions))))
(user-partitions (auto-partition! disk #:scheme scheme)))
(run-disk-page (list disk) user-partitions
#:guided? #t)))
((eq? method 'manual)

View file

@ -895,7 +895,10 @@ (define* (auto-partition! disk
desired partitioning scheme. It can be 'entire-root or
'entire-root-home. 'entire-root will create a swap partition and a root
partition occupying all the remaining space. 'entire-root-home will create a
swap partition, a root partition and a home partition."
swap partition, a root partition and a home partition.
Return the complete list of partitions on DISK, including the ESP when it
exists."
(let* ((device (disk-device disk))
(disk-type (disk-disk-type disk))
(has-extended? (disk-type-check-feature
@ -1001,10 +1004,13 @@ (define* (auto-partition! disk
(mount-point "/home")))))))
(new-partitions* (force-user-partitions-formatting
new-partitions)))
(create-adjacent-partitions! disk
new-partitions*
#:last-partition-end
(or end-esp-partition 0)))))
(append (if esp-partition
(list (partition->user-partition esp-partition))
'())
(create-adjacent-partitions! disk
new-partitions*
#:last-partition-end
(or end-esp-partition 0))))))
;;

View file

@ -117,7 +117,11 @@ (define-public js-mathjax
(let ((minified (open-pipe* OPEN_READ "uglify-js" file)))
(call-with-output-file installed
(lambda (port)
(dump-port minified port)))))
(dump-port minified port)))
(let ((exit (close-pipe minified)))
(unless (zero? exit)
(error "dear, uglify-js failed" exit)))))
(else
(install-file file (dirname installed))))))
(find-files "."))

View file

@ -110,8 +110,8 @@ (define-public guix
;; Latest version of Guix, which may or may not correspond to a release.
;; Note: the 'update-guix-package.scm' script expects this definition to
;; start precisely like this.
(let ((version "1.0.0")
(commit "326dcbf1b3c30aa525185fda435c34cb9495dd04")
(let ((version "1.0.1")
(commit "820429517f9cc8333704a839b4346ac4b02468c4")
(revision 1))
(package
(name "guix")
@ -128,7 +128,7 @@ (define-public guix
(commit commit)))
(sha256
(base32
"0k9v9lh69q353x055id1sq1gx4p8idg8ifrgidv5s73wdil2cflm"))
"1vfp7ps1k1cwn8p0gsgarlxcy982hzyvb7zqnj66jqd258a1qfgh"))
(file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system)
(arguments

View file

@ -92,14 +92,18 @@ root ALL=(ALL) ALL
;; Use the DHCP client service rather than NetworkManager.
(service dhcp-client-service-type))
;; Remove GDM, NetworkManager, and wpa-supplicant, which don't make
;; sense in a VM.
;; Remove GDM, ModemManager, NetworkManager, and wpa-supplicant,
;; which don't make sense in a VM.
(remove (lambda (service)
(let ((type (service-kind service)))
(memq type (list gdm-service-type
wpa-supplicant-service-type
cups-pk-helper-service-type
network-manager-service-type))))
(or (memq type
(list gdm-service-type
wpa-supplicant-service-type
cups-pk-helper-service-type
network-manager-service-type
modem-manager-service-type))
(eq? 'network-manager-applet
(service-type-name type)))))
(modify-services %desktop-services
(login-service-type config =>
(login-configuration

File diff suppressed because it is too large Load diff

View file

@ -10,7 +10,7 @@ msgstr ""
"Project-Id-Version: guix 1.0.1-pre1\n"
"Report-Msgid-Bugs-To: ludo@gnu.org\n"
"POT-Creation-Date: 2019-05-10 20:54+0200\n"
"PO-Revision-Date: 2019-05-11 15:32+0200\n"
"PO-Revision-Date: 2019-05-16 15:43+0200\n"
"Last-Translator: Miguel Ángel Arruga Vivas <rosen644835@gmail.com>\n"
"Language-Team: Spanish <es@tp.org.es>\n"
"Language: es\n"
@ -4393,10 +4393,9 @@ msgstr "error: ~a: variable sin asignar"
msgid "entering debugger; type ',bt' for a backtrace\n"
msgstr "entrando en el depurador; teclee ',bt' para ver la pila de llamadas\n"
# FUZZY
#: guix/ui.scm:405
msgid "hint: "
msgstr "indicación: "
msgstr "consejo: "
#: guix/ui.scm:422
msgid "Did you forget a @code{use-modules} form?"
@ -4690,8 +4689,8 @@ msgstr[1] "~:[Se realizarían los siguientes injertos:~%~{ ~a~%~}~;~]"
#, scheme-format
msgid "~:[The following profile hook would be built:~%~{ ~a~%~}~;~]"
msgid_plural "~:[The following profile hooks would be built:~%~{ ~a~%~}~;~]"
msgstr[0] "~:[Se construiría el siguiente procedimiento de extensión del perfil:~%~{ ~a~%~}~;~]"
msgstr[1] "~:[Se construirían los siguientes procedimientos de extensión del perfil:~%~{ ~a~%~}~;~]"
msgstr[0] "~:[Se construiría la siguiente extensión del perfil:~%~{ ~a~%~}~;~]"
msgstr[1] "~:[Se construirían los siguientes extensiones del perfil:~%~{ ~a~%~}~;~]"
#: guix/ui.scm:1041
#, scheme-format
@ -4724,8 +4723,8 @@ msgstr[1] "~:[Se realizarán los siguientes injertos:~%~{ ~a~%~}~;~]"
#, scheme-format
msgid "~:[The following profile hook will be built:~%~{ ~a~%~}~;~]"
msgid_plural "~:[The following profile hooks will be built:~%~{ ~a~%~}~;~]"
msgstr[0] "~:[Se construirá el siguiente procedimiento de extensión del perfil:~%~{ ~a~%~}~;~]"
msgstr[1] "~:[Se construirán los siguientes procedimientos de extensión del perfil:~%~{ ~a~%~}~;~]"
msgstr[0] "~:[Se construirá la siguiente extensión del perfil:~%~{ ~a~%~}~;~]"
msgstr[1] "~:[Se construirán las siguientes extensiones del perfil:~%~{ ~a~%~}~;~]"
#: guix/ui.scm:1124
#, scheme-format
@ -4920,7 +4919,7 @@ msgstr[1] "injertando ~a paquetes en ~a..."
#: guix/status.scm:484
#, scheme-format
msgid "running profile hook of type '~a'..."
msgstr "ejecutando el procedimiento de extensión del perfil del tipo '~a'..."
msgstr "ejecutando la extensión del perfil del tipo '~a'..."
#: guix/status.scm:487
#, scheme-format
@ -5197,12 +5196,12 @@ msgstr "URLS"
# FUZZY
#: nix/nix-daemon/guix-daemon.cc:115
msgid "use URLS as the default list of substitute providers"
msgstr "usa URLS como la lista predeterminada de proveedoras de sustituciones"
msgstr "usa URLS como lista predeterminada de proveedoras de sustituciones"
# FUZZY
#: nix/nix-daemon/guix-daemon.cc:117
msgid "do not use the 'build hook'"
msgstr "no usa el procedimiento de extensión de construcción"
msgstr "no se usa el procedimiento de extensión de construcción (build-hook)"
#: nix/nix-daemon/guix-daemon.cc:119
msgid "cache build failures"

View file

@ -52,7 +52,7 @@ (define c-compiler
(or (not dyninfo) ;static executable
(lset<= string=?
(list (string-append "libguile-" (effective-version))
"libgc" "libunistring" "libffi")
"libc")
(map (lambda (lib)
(string-take lib (string-contains lib ".so")))
(elf-dynamic-info-needed dyninfo))))))
@ -79,7 +79,7 @@ (define c-compiler
(lambda (port)
(display "int main () { puts(\"hello\"); }" port)))
(invoke c-compiler "t.c"
"-Wl,-rpath=/foo" "-Wl,-rpath=/bar")
"-Wl,--enable-new-dtags" "-Wl,-rpath=/foo" "-Wl,-rpath=/bar")
(let* ((dyninfo (elf-dynamic-info
(parse-elf (call-with-input-file "a.out"
get-bytevector-all))))

View file

@ -1,5 +1,5 @@
# GNU Guix --- Functional package management for GNU
# Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
# Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
#
# This file is part of GNU Guix.
#
@ -27,8 +27,9 @@ guix pack --version
# the test in the user's global store if possible, on the grounds that
# binaries may already be there or can be built or downloaded inexpensively.
NIX_STORE_DIR="`guile -c '(use-modules (guix config))(display %storedir)'`"
storedir="`guile -c '(use-modules (guix config))(display %storedir)'`"
localstatedir="`guile -c '(use-modules (guix config))(display %localstatedir)'`"
NIX_STORE_DIR="$storedir"
GUIX_DAEMON_SOCKET="$localstatedir/guix/daemon-socket/socket"
export NIX_STORE_DIR GUIX_DAEMON_SOCKET

View file

@ -27,8 +27,9 @@ guix pack --version
# run it on the user's global store if possible, on the grounds that binaries
# may already be there or can be built or downloaded inexpensively.
NIX_STORE_DIR="`guile -c '(use-modules (guix config))(display %storedir)'`"
storedir="`guile -c '(use-modules (guix config))(display %storedir)'`"
localstatedir="`guile -c '(use-modules (guix config))(display %localstatedir)'`"
NIX_STORE_DIR="$storedir"
GUIX_DAEMON_SOCKET="$localstatedir/guix/daemon-socket/socket"
export NIX_STORE_DIR GUIX_DAEMON_SOCKET