From db4e8fd5d4a07d3be8ce68fb96722ef7077c0eee Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 21 Sep 2017 22:30:59 +0200 Subject: system: does not use "/dev" device names. Fixes . Reported by Mark H Weaver and Roel Janssen. * gnu/system.scm (read-boot-parameters)[ensure-not-/dev]: New procedure. Use it. --- gnu/system.scm | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) (limited to 'gnu') diff --git a/gnu/system.scm b/gnu/system.scm index b6c087a031..8ab4801b74 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -243,6 +243,11 @@ (define device-sexp->device ((? string? device) device))) + (define (ensure-not-/dev device) + (if (and (string? device) (string-prefix? "/" device)) + #f + device)) + (match (read port) (('boot-parameters ('version 0) ('label label) ('root-device root) @@ -277,17 +282,16 @@ (define device-sexp->device file))) (store-device - (match (assq 'store rest) - (('store ('device #f) _ ...) - root-device) - (('store ('device device) _ ...) - (device-sexp->device device)) - (_ ;the old format - ;; Root might be a device path like "/dev/sda1", which is not a - ;; suitable GRUB device identifier. - (if (string-prefix? "/" root) - #f - root)))) + ;; Linux device names like "/dev/sda1" are not suitable GRUB device + ;; identifiers, so we just filter them out. + (ensure-not-/dev + (match (assq 'store rest) + (('store ('device #f) _ ...) + root-device) + (('store ('device device) _ ...) + (device-sexp->device device)) + (_ ;the old format + root-device)))) (store-mount-point (match (assq 'store rest) -- cgit v1.2.3 From fbc31dc1247d3a494246e69f3cf28476af9eb9d6 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 21 Sep 2017 23:52:45 +0200 Subject: services: Move 'session-environment-service-type' to pam.scm. * gnu/services/base.scm (environment-variables->environment-file) (session-environment-service-type) (session-environment-service): Move to... * gnu/system/pam.scm: ... here. --- gnu/services/base.scm | 43 ------------------------------------------- gnu/system/pam.scm | 47 ++++++++++++++++++++++++++++++++++++++++++++++- 2 files changed, 46 insertions(+), 44 deletions(-) (limited to 'gnu') diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 10c8f1b6a3..64620a9b0a 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -59,8 +59,6 @@ (define-module (gnu services base) user-unmount-service swap-service user-processes-service - session-environment-service - session-environment-service-type host-name-service console-keymap-service %default-console-font @@ -600,47 +598,6 @@ (define* (rngd-service #:key (rng-tools rng-tools) (device device)))) - -;;; -;;; System-wide environment variables. -;;; - -(define (environment-variables->environment-file vars) - "Return a file for pam_env(8) that contains environment variables VARS." - (apply mixed-text-file "environment" - (append-map (match-lambda - ((key . value) - (list key "=" value "\n"))) - vars))) - -(define session-environment-service-type - (service-type - (name 'session-environment) - (extensions - (list (service-extension - etc-service-type - (lambda (vars) - (list `("environment" - ,(environment-variables->environment-file vars))))))) - (compose concatenate) - (extend append) - (description - "Populate @file{/etc/environment} with the specified environment -variables. The value of this service is a list of name/value pairs for -environments variables, such as: - -@example -'((\"TZ\" . \"Canada/Pacific\")) -@end example\n"))) - -(define (session-environment-service vars) - "Return a service that builds the @file{/etc/environment}, which can be read -by PAM-aware applications to set environment variables for sessions. - -VARS should be an association list in which both the keys and the values are -strings or string-valued gexps." - (service session-environment-service-type vars)) - ;;; ;;; Console & co. diff --git a/gnu/system/pam.scm b/gnu/system/pam.scm index eedf933946..13f76a50ed 100644 --- a/gnu/system/pam.scm +++ b/gnu/system/pam.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès +;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -50,6 +50,9 @@ (define-module (gnu system pam) unix-pam-service base-pam-services + session-environment-service + session-environment-service-type + pam-root-service-type pam-root-service)) @@ -276,6 +279,48 @@ (define* (base-pam-services #:key allow-empty-passwords?) '("useradd" "userdel" "usermod" "groupadd" "groupdel" "groupmod")))) + +;;; +;;; System-wide environment variables. +;;; + +(define (environment-variables->environment-file vars) + "Return a file for pam_env(8) that contains environment variables VARS." + (apply mixed-text-file "environment" + (append-map (match-lambda + ((key . value) + (list key "=" value "\n"))) + vars))) + +(define session-environment-service-type + (service-type + (name 'session-environment) + (extensions + (list (service-extension + etc-service-type + (lambda (vars) + (list `("environment" + ,(environment-variables->environment-file vars))))))) + (compose concatenate) + (extend append) + (description + "Populate @file{/etc/environment}, which is honored by @code{pam_env}, +with the specified environment variables. The value of this service is a list +of name/value pairs for environments variables, such as: + +@example +'((\"TZ\" . \"Canada/Pacific\")) +@end example\n"))) + +(define (session-environment-service vars) + "Return a service that builds the @file{/etc/environment}, which can be read +by PAM-aware applications to set environment variables for sessions. + +VARS should be an association list in which both the keys and the values are +strings or string-valued gexps." + (service session-environment-service-type vars)) + + ;;; ;;; PAM root service. -- cgit v1.2.3 From 94d2a25091dc4bcaec319c46da96d588e3e63476 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 22 Sep 2017 00:00:41 +0200 Subject: services: network-manager: Add support for VPN plug-ins. * gnu/services.scm (directory-union): Export. * gnu/services/networking.scm ()[vpn-plugins]: New field. (vpn-plugin-directory, network-manager-environment): New procedure. (network-manager-shepherd-service): Pass #:environment-variables to 'make-forkexec-constructor'. (network-manager-service-type): Add SESSION-ENVIRONMENT-SERVICE-TYPE extension. * doc/guix.texi (Networking Services): Document it. --- doc/guix.texi | 5 +++++ gnu/services.scm | 3 ++- gnu/services/networking.scm | 54 ++++++++++++++++++++++++++++++--------------- 3 files changed, 43 insertions(+), 19 deletions(-) (limited to 'gnu') diff --git a/doc/guix.texi b/doc/guix.texi index 601cf51b37..0369a150f7 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -10125,6 +10125,11 @@ then update @code{resolv.conf} to point to the local nameserver. NetworkManager will not modify @code{resolv.conf}. @end table +@item @code{vpn-plugins} (default: @code{'()}) +This is the list of available plugins for virtual private networks +(VPNs). An example of this is the @code{network-manager-openvpn} +package, which allows NetworkManager to manage VPNs @i{via} OpenVPN. + @end table @end deftp diff --git a/gnu/services.scm b/gnu/services.scm index 2ebd701a59..329b7b1513 100644 --- a/gnu/services.scm +++ b/gnu/services.scm @@ -97,7 +97,8 @@ (define-module (gnu services) %activation-service etc-service - file-union)) ;XXX: for lack of a better place + file-union ;XXX: for lack of a better place + directory-union)) ;;; Comment: ;;; diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index fbedaa5b35..42b96b417e 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -25,6 +25,7 @@ (define-module (gnu services networking) #:use-module (gnu services) #:use-module (gnu services shepherd) #:use-module (gnu services dbus) + #:use-module (gnu services base) #:use-module (gnu system shadow) #:use-module (gnu system pam) #:use-module (gnu packages admin) @@ -909,7 +910,9 @@ (define-record-type* (network-manager network-manager-configuration-network-manager (default network-manager)) (dns network-manager-configuration-dns - (default "default"))) + (default "default")) + (vpn-plugins network-manager-vpn-plugins ;list of + (default '()))) (define %network-manager-activation ;; Activation gexp for NetworkManager. @@ -917,25 +920,38 @@ (define %network-manager-activation (use-modules (guix build utils)) (mkdir-p "/etc/NetworkManager/system-connections"))) +(define (vpn-plugin-directory plugins) + "Return a directory containing PLUGINS, the NM VPN plugins." + (directory-union "network-manager-vpn-plugins" plugins)) + +(define network-manager-environment + (match-lambda + (($ network-manager dns vpn-plugins) + ;; Define this variable in the global environment such that + ;; "nmcli connection import type openvpn file foo.ovpn" works. + `(("NM_VPN_PLUGIN_DIR" + . ,(file-append (vpn-plugin-directory vpn-plugins) + "/lib/NetworkManager/VPN")))))) + (define network-manager-shepherd-service (match-lambda - (($ network-manager dns) - (let - ((conf (plain-file "NetworkManager.conf" - (string-append " -[main] -dns=" dns " -")))) - (list (shepherd-service - (documentation "Run the NetworkManager.") - (provision '(networking)) - (requirement '(user-processes dbus-system wpa-supplicant loopback)) - (start #~(make-forkexec-constructor - (list (string-append #$network-manager - "/sbin/NetworkManager") - (string-append "--config=" #$conf) - "--no-daemon"))) - (stop #~(make-kill-destructor)))))))) + (($ network-manager dns vpn-plugins) + (let ((conf (plain-file "NetworkManager.conf" + (string-append "[main]\ndns=" dns "\n"))) + (vpn (vpn-plugin-directory vpn-plugins))) + (list (shepherd-service + (documentation "Run the NetworkManager.") + (provision '(networking)) + (requirement '(user-processes dbus-system wpa-supplicant loopback)) + (start #~(make-forkexec-constructor + (list (string-append #$network-manager + "/sbin/NetworkManager") + (string-append "--config=" #$conf) + "--no-daemon") + #:environment-variables + (list (string-append "NM_VPN_PLUGIN_DIR=" #$vpn + "/lib/NetworkManager/VPN")))) + (stop #~(make-kill-destructor)))))))) (define network-manager-service-type (let @@ -953,6 +969,8 @@ (define network-manager-service-type (service-extension polkit-service-type config->package) (service-extension activation-service-type (const %network-manager-activation)) + (service-extension session-environment-service-type + network-manager-environment) ;; Add network-manager to the system profile. (service-extension profile-service-type config->package))) (default-value (network-manager-configuration)) -- cgit v1.2.3 From b9ebf1da7a576059668450e65597ec33d726accb Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 21 Sep 2017 18:55:36 -0400 Subject: gnu: linux-libre@4.1: Update to 4.1.44. * gnu/packages/linux.scm (linux-libre-4.1): Update to 4.1.44. --- gnu/packages/linux.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 8a69f0d9c7..600ab44012 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -389,8 +389,8 @@ (define-public linux-libre-4.4 #:configuration-file kernel-config)) (define-public linux-libre-4.1 - (make-linux-libre "4.1.43" - "0ycqmvczj7lm7czilnwpyp14n2lzilyx7m43rsq1qdm2m5rp4q2w" + (make-linux-libre "4.1.44" + "1h1v2n8fxnn98y0jz9pnr4xdmc0v4l5d3hfxa5n5r3xmjksf1xs3" %intel-compatible-systems #:configuration-file kernel-config #:patches -- cgit v1.2.3 From e689192df53c4b7a67060875df239c046efcdacd Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 21 Sep 2017 18:56:25 -0400 Subject: gnu: linux-libre@4.9: Update to 4.9.51. * gnu/packages/linux.scm (linux-libre-4.9): Update to 4.9.51. --- gnu/packages/linux.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 600ab44012..6e68f06efb 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -377,8 +377,8 @@ (define-public linux-libre #:configuration-file kernel-config)) (define-public linux-libre-4.9 - (make-linux-libre "4.9.50" - "1igjb2qr4znvz9p5ix18lbiv8bkfgn7lprn92gdyff4g4r4kzh72" + (make-linux-libre "4.9.51" + "168pyrddkfsmwgk4npnlp2hsxmqv6zpwsspyv2ngr9bdnzh45pvj" %intel-compatible-systems #:configuration-file kernel-config)) -- cgit v1.2.3 From 0920205391133463329406cbbb2782774a95a08b Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 21 Sep 2017 18:56:56 -0400 Subject: gnu: linux-libre: Update to 4.13.3. * gnu/packages/linux.scm (%linux-libre-version): Update to 4.13.3. (%linux-libre-hash): Update hash. --- gnu/packages/linux.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 6e68f06efb..9352b4f65f 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -367,8 +367,8 @@ (define* (make-linux-libre version hash supported-systems (define %intel-compatible-systems '("x86_64-linux" "i686-linux")) -(define %linux-libre-version "4.13.2") -(define %linux-libre-hash "166yy7nah2h2ffxqgb92nfwrvihna3kvdx4ryppf34gmybmmfw36") +(define %linux-libre-version "4.13.3") +(define %linux-libre-hash "011mjm7kz8sf45zj17qldww34q8wh1sv6j0zqrmrlrj39i0xq1a2") (define-public linux-libre (make-linux-libre %linux-libre-version -- cgit v1.2.3 From b43b9acf15ae06e15ee581927056952c7c88c193 Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Fri, 22 Sep 2017 04:01:41 +0200 Subject: build: Do not store two copies of the ISO-9660 superblock anymore. * gnu/build/vm.scm (make-iso9660-image): Do not store two copies of the ISO-9660 superblock anymore. --- gnu/build/vm.scm | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'gnu') diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm index 6da4fa654e..7537f81509 100644 --- a/gnu/build/vm.scm +++ b/gnu/build/vm.scm @@ -406,19 +406,6 @@ (define* (make-iso9660-image grub config-file os-drv target ;; filesystem, so create it. "mnt=/tmp/root/mnt" "--" - ;; Store two copies of the headers. - ;; The resulting ISO-9660 image has a DOS MBR and - ;; one protective partition (with type 0xCD). - ;; Because GuixSD only uses actual partitions - ;; rather than what /proc/partitions returns, work - ;; around it by storing the primary volume - ;; descriptor twice, once where it should be and - ;; once in the partition. - ;; Allegedly, otherwise, many other GNU tools - ;; (automounters etc) would also be confused by - ;; the extra partition so it makes sense to - ;; store two copies in any case. - "-boot_image" "any" "partition_offset=16" "-volid" ,(string-upcase volume-id) ,@(if volume-uuid `("-volume_date" "uuid" -- cgit v1.2.3 From b0a1d7ef7df0b5e080a2e2b0529fe4e0cf25bdd7 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Fri, 22 Sep 2017 11:55:00 +0200 Subject: gnu: Add xxd. * gnu/packages/vim.scm (xxd): New variable. --- gnu/packages/vim.scm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/vim.scm b/gnu/packages/vim.scm index f4416a5c5c..dffd6d96c0 100644 --- a/gnu/packages/vim.scm +++ b/gnu/packages/vim.scm @@ -102,6 +102,27 @@ (define-public vim configuration files.") (license license:vim))) +(define-public xxd + (package (inherit vim) + (name "xxd") + (arguments + `(#:make-flags '("CC=gcc") + #:tests? #f ; there are none + #:phases + (modify-phases %standard-phases + (delete 'configure) + (add-after 'unpack 'chdir + (lambda _ + (chdir "src/xxd"))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((bin (string-append (assoc-ref outputs "out") "/bin"))) + (install-file "xxd" bin) + #t)))))) + (synopsis "Hexdump utility from vim") + (description "This package provides the Hexdump utility xxd that comes +with the editor vim."))) + (define-public vim-full (package ;; This package should share its source with Vim, but it doesn't -- cgit v1.2.3 From 9fc513ad101c802ad46dd65bc5886b6318abc096 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Fri, 22 Sep 2017 12:14:58 +0200 Subject: gnu: Use xxd instead of vim. * gnu/packages/audio.scm (faust-2)[native-inputs]: Replace vim with xxd. * gnu/packages/avr.scm (microscheme)[native-inputs]: Likewise. * gnu/packages/bioinformatics.scm (star)[native-inputs]: Likewise. * gnu/packages/disk.scm (dosfstools)[native-inputs]: Likewise. * gnu/packages/package-management.scm (diffoscope)[inputs]: Likewise. --- gnu/packages/audio.scm | 2 +- gnu/packages/avr.scm | 2 +- gnu/packages/bioinformatics.scm | 2 +- gnu/packages/disk.scm | 2 +- gnu/packages/package-management.scm | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index 1b7950cf00..abbe4553c2 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -1078,7 +1078,7 @@ (define-public faust-2 (native-inputs `(("llvm" ,llvm-with-rtti) ("which" ,which) - ("xxd" ,vim) + ("xxd" ,xxd) ("ctags" ,emacs-minimal) ; for ctags ("pkg-config" ,pkg-config))) (inputs diff --git a/gnu/packages/avr.scm b/gnu/packages/avr.scm index aaa0428041..ecb7cd19a8 100644 --- a/gnu/packages/avr.scm +++ b/gnu/packages/avr.scm @@ -157,7 +157,7 @@ (define-public microscheme (list (string-append "PREFIX=" (assoc-ref %outputs "out"))))) (native-inputs `(("unzip" ,unzip) - ("vim" ,vim))) ; for xxd + ("xxd" ,xxd))) (home-page "http://microscheme.org/") (synopsis "Scheme subset for Atmel microcontrollers") (description diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index 33b58f44bc..764cf8c939 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -5408,7 +5408,7 @@ (define-public star #t)) (delete 'configure)))) (native-inputs - `(("vim" ,vim))) ; for xxd + `(("xxd" ,xxd))) (inputs `(("htslib" ,htslib) ("zlib" ,zlib))) diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm index 463dd3e768..d19f8e873e 100644 --- a/gnu/packages/disk.scm +++ b/gnu/packages/disk.scm @@ -216,7 +216,7 @@ (define-public dosfstools `(#:make-flags (list (string-append "PREFIX=" %output) "CC=gcc"))) (native-inputs - `(("xxd" ,vim))) ; for tests + `(("xxd" ,xxd))) ; for tests (home-page "https://github.com/dosfstools/dosfstools") (synopsis "Utilities for making and checking MS-DOS FAT file systems") (description diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 9f7792dff7..197a7a0142 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -538,7 +538,7 @@ (define-public diffoscope ("python-libarchive-c" ,python-libarchive-c) ("python-tlsh" ,python-tlsh) ("colordiff" ,colordiff) - ("xxd" ,vim) + ("xxd" ,xxd) ;; Below are modules used for tests. ("python-pytest" ,python-pytest) -- cgit v1.2.3 From 3c399e9b607343112643584db9cbeac7fb529b86 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Wed, 13 Sep 2017 22:06:12 +0530 Subject: gnu: Add catcodec. * gnu/packages/game-development.scm (catcodec): New variable. Signed-off-by: Kei Kebreau --- gnu/packages/game-development.scm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/game-development.scm b/gnu/packages/game-development.scm index 5633456d44..9916a1cb3e 100644 --- a/gnu/packages/game-development.scm +++ b/gnu/packages/game-development.scm @@ -11,6 +11,7 @@ ;;; Copyright © 2017 Tobias Geerinckx-Rice ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis ;;; Copyright © 2017 Peter Mikkelsen +;;; Copyright © 2017 Arun Isaac ;;; ;;; This file is part of GNU Guix. ;;; @@ -192,6 +193,31 @@ (define-public grfcodec ;; The MD5 implementation contained in GRFID is under the zlib license. (license (list license:gpl2 license:gpl2+ license:zlib)))) +(define-public catcodec + (package + (name "catcodec") + (version "1.0.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://binaries.openttd.org/extra/catcodec/" + version "/catcodec-" version "-source.tar.xz")) + (sha256 + (base32 + "1qg0c2i4p29sxj0q6qp2jynlrzm5pphz2xhcjqlxa69ycrnlxzs7")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no tests + #:make-flags (list (string-append "prefix=" %output)) + #:phases (modify-phases %standard-phases + (delete 'configure)))) + (home-page "http://dev.openttdcoop.org/projects/catcodec") + (synopsis "Encode/decode OpenTTD sounds") + (description "catcodec encodes and decodes sounds for OpenTTD. These +sounds are not much more than some metadata (description and filename) and raw +PCM data.") + (license license:gpl2))) + (define-public gzochi (package (name "gzochi") -- cgit v1.2.3 From c17b079043ba6dc20b4aa690a7d30eb8d9680f63 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Wed, 13 Sep 2017 22:35:02 +0530 Subject: gnu: Add openttd-opensfx. * gnu/packages/games.scm (openttd-opensfx): New variable. Signed-off-by: Kei Kebreau --- gnu/packages/games.scm | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 7bfd05cc7f..ed386fc843 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -2525,6 +2525,44 @@ (define openttd-opengfx @end enumerate") (license license:gpl2))) +(define openttd-opensfx + (package + (name "openttd-opensfx") + (version "0.2.3") + (source + (origin + (method url-fetch) + (uri (string-append + "https://binaries.openttd.org/extra/opensfx/" + version "/opensfx-" version "-source.tar.gz")) + (sha256 + (base32 + "03jxgp02ks31hmsdh4xh0xcpkb70ds8jakc9pfc1y9vdrdavh4p5")))) + (build-system gnu-build-system) + (native-inputs + `(("catcodec" ,catcodec) + ("python" ,python2-minimal))) + (arguments + `(#:make-flags + (list (string-append "INSTALL_DIR=" %output + "/share/games/openttd/baseset/opensfx")) + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'make-reproducible + (lambda _ + ;; Remove the time dependency of the installed tarball by setting + ;; the modification times if its members to 0. + (substitute* "scripts/Makefile.def" + (("-cf") " --mtime=@0 -cf")) + #t)) + (delete 'configure)))) + (home-page "http://dev.openttdcoop.org/projects/opensfx") + (synopsis "Base sounds for OpenTTD") + (description "OpenSFX is a set of free base sounds for OpenTTD which make +it possible to play OpenTTD without requiring the proprietary sound files from +the original Transport Tycoon Deluxe.") + (license license:cc-sampling-plus-1.0))) + (define-public openttd (package (inherit openttd-engine) -- cgit v1.2.3 From 823e12184883e6f4a7a347a4eba46327f99a5b84 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 14 Sep 2017 04:18:03 +0530 Subject: gnu: Add openttd-openmsx. * gnu/packages/games.scm (openttd-openmsx): New variable. Signed-off-by: Kei Kebreau --- gnu/packages/games.scm | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index ed386fc843..891c17ab15 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -2563,6 +2563,44 @@ (define openttd-opensfx the original Transport Tycoon Deluxe.") (license license:cc-sampling-plus-1.0))) +(define openttd-openmsx + (package + (name "openttd-openmsx") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://binaries.openttd.org/extra/openmsx/" + version "/openmsx-" version "-source.tar.gz")) + (sha256 + (base32 + "0nskq97a6fsv1v6d62zf3yb8whzhqnlh3lap3va3nzvj7csjgf7c")))) + (build-system gnu-build-system) + (native-inputs + `(("python" ,python2-minimal))) + (arguments + `(#:make-flags + (list (string-append "INSTALL_DIR=" %output + "/share/games/openttd/baseset")) + #:phases + (modify-phases %standard-phases + (delete 'configure) + (add-after 'install 'post-install + ;; Rename openmsx-version to openmsx + (lambda* (#:key outputs #:allow-other-keys) + (let ((install-directory (string-append (assoc-ref outputs "out") + "/share/games/openttd/baseset"))) + (rename-file (string-append install-directory "/openmsx-" ,version) + (string-append install-directory "/openmsx")) + #t)))))) + (home-page "http://dev.openttdcoop.org/projects/openmsx") + (synopsis "Music set for OpenTTD") + (description "OpenMSX is a music set for OpenTTD which makes it possible +to play OpenTTD without requiring the proprietary music from the original +Transport Tycoon Deluxe.") + (license license:gpl2))) + (define-public openttd (package (inherit openttd-engine) -- cgit v1.2.3 From 857b2f53bd3c860b422095bc6f8eea4654218d79 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 14 Sep 2017 04:19:26 +0530 Subject: gnu: openttd: Include openttd-openmsx and openttd-opensfx. * gnu/packages/games.scm (openttd-opengfx)[arguments]: Change installation directory from /share/openttd/baseset/opengfx to /share/games/openttd/baseset/opengfx. (openttd-engine)[arguments]: Support #:configure-flags keyword argument in 'configure' phase. (openttd)[inputs]: Add timidity++. [native-inputs]: Add openttd-openmsx and openttd-opensfx. [arguments]: Configure with timidity as MIDI player. Install data from openttd-openmsx and openttd-opensfx. Signed-off-by: Kei Kebreau --- gnu/packages/games.scm | 57 ++++++++++++++++++++++++++------------------------ 1 file changed, 30 insertions(+), 27 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 891c17ab15..022a3ca44f 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -2427,17 +2427,19 @@ (define openttd-engine ;; The build process fails if the configure script is passed the ;; option "--enable-fast-install". (replace 'configure - (lambda* (#:key inputs outputs #:allow-other-keys) + (lambda* (#:key inputs outputs (configure-flags '()) + #:allow-other-keys) (let ((out (assoc-ref outputs "out")) (lzo (assoc-ref inputs "lzo"))) (zero? - (system* "./configure" - (string-append "--prefix=" out) - ;; Provide the "lzo" path. - (string-append "--with-liblzo2=" - lzo "/lib/liblzo2.a") - ;; Put the binary in 'bin' instead of 'games'. - "--binary-dir=bin")))))))) + (apply system* "./configure" + (string-append "--prefix=" out) + ;; Provide the "lzo" path. + (string-append "--with-liblzo2=" + lzo "/lib/liblzo2.a") + ;; Put the binary in 'bin' instead of 'games'. + "--binary-dir=bin" + configure-flags)))))))) (native-inputs `(("pkg-config" ,pkg-config))) (inputs `(("allegro" ,allegro-4) @@ -2464,10 +2466,6 @@ (define openttd-engine ;; different terms. (license (list license:bsd-3 license:gpl2 license:lgpl2.1+ license:zlib)))) -;; TODO Add 'openttd-opengfx' and 'openttd-openmsx' packages and make -;; 'openttd' a wrapper around them. The engine is playable by itself, -;; but it asks a user to download graphics if it's not found. - (define openttd-opengfx (package (name "openttd-opengfx") @@ -2485,7 +2483,7 @@ (define openttd-opengfx '(#:make-flags (list "CC=gcc" (string-append "INSTALL_DIR=" (assoc-ref %outputs "out") - "/share/openttd/baseset")) + "/share/games/openttd/baseset/opengfx")) #:phases (modify-phases %standard-phases (replace 'configure @@ -2606,22 +2604,27 @@ (define-public openttd (inherit openttd-engine) (name "openttd") (arguments - (substitute-keyword-arguments (package-arguments openttd-engine) - ((#:phases phases) - `(modify-phases ,phases - (add-after 'install 'install-data - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* - ((opengfx (assoc-ref inputs "opengfx")) - (out (assoc-ref outputs "out")) - (gfx-dir - (string-append out - "/share/games/openttd/baseset/opengfx"))) - (mkdir-p gfx-dir) - (copy-recursively opengfx gfx-dir)) - #t)))))) + `(#:configure-flags + (list (string-append "--with-midi=" (assoc-ref %build-inputs "timidity++") + "/bin/timidity")) + ,@(substitute-keyword-arguments (package-arguments openttd-engine) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'install 'install-data + (lambda* (#:key inputs outputs #:allow-other-keys) + (for-each + (lambda (input) + (copy-recursively (assoc-ref inputs input) + (assoc-ref outputs "out"))) + (list "opengfx" "openmsx" "opensfx")) + #t))))))) + (inputs + `(("timidity++" ,timidity++) + ,@(package-inputs openttd-engine))) (native-inputs `(("opengfx" ,openttd-opengfx) + ("openmsx" ,openttd-openmsx) + ("opensfx" ,openttd-opensfx) ,@(package-native-inputs openttd-engine))))) (define-public pinball -- cgit v1.2.3 From c0959cc952a1fd78803db35f048e8ea7cdecc163 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 19 Sep 2017 18:10:27 +0530 Subject: gnu: openttd-opengfx: Disable parallel build. * gnu/packages/games.scm (openttd-opengfx)[arguments]: Set #:parallel-build? to #f. Signed-off-by: Kei Kebreau --- gnu/packages/games.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gnu') diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 022a3ca44f..aef6f01215 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -2501,7 +2501,8 @@ (define openttd-opengfx ;; different software versions than upstream does, some of the md5sums ;; are different. However, the package is still reproducible, it's safe ;; to disable this test. - #:tests? #f)) + #:tests? #f + #:parallel-build? #f)) (native-inputs `(("dos2unix" ,dos2unix) ("gimp" ,gimp) ("grfcodec" ,grfcodec) -- cgit v1.2.3 From 60e36bff1f8e11636626f651519d9e4cca903d78 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 22 Sep 2017 11:46:21 +0200 Subject: gnu: r-adaptivesparsity: Add dependency on Armadillo. Fixes a link error whereby -larmadillo would not be found. * gnu/packages/machine-learning.scm (r-adaptivesparsity)[inputs]: New field. --- gnu/packages/machine-learning.scm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/machine-learning.scm b/gnu/packages/machine-learning.scm index 1bdf5f45d8..77f64d5a41 100644 --- a/gnu/packages/machine-learning.scm +++ b/gnu/packages/machine-learning.scm @@ -491,6 +491,8 @@ (define-public r-adaptivesparsity (propagated-inputs `(("r-rcpp" ,r-rcpp) ("r-rcpparmadillo" ,r-rcpparmadillo))) + (inputs + `(("armadillo" ,armadillo))) (home-page "http://cran.r-project.org/web/packages/AdaptiveSparsity") (synopsis "Adaptive sparsity models") (description -- cgit v1.2.3 From 8a7d81a5e23c4d59fbabf2550db32d4ba5572e4b Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 22 Sep 2017 18:25:21 +0200 Subject: uuid: Add a parser for FAT32 UUIDs. * gnu/system/uuid.scm (%fat32-uuid-rx): New variable. (string->fat32-uuid): New procedure. (%uuid-parsers): Add it. * tests/uuid.scm ("uuid, FAT32, format preserved"): New test. --- gnu/system/uuid.scm | 18 ++++++++++++++++++ tests/uuid.scm | 4 ++++ 2 files changed, 22 insertions(+) (limited to 'gnu') diff --git a/gnu/system/uuid.scm b/gnu/system/uuid.scm index 1dd6a11339..6470abb8cc 100644 --- a/gnu/system/uuid.scm +++ b/gnu/system/uuid.scm @@ -41,6 +41,7 @@ (define-module (gnu system uuid) string->ext3-uuid string->ext4-uuid string->btrfs-uuid + string->fat32-uuid iso9660-uuid->string ;; XXX: For lack of a better place. @@ -175,6 +176,22 @@ (define (fat32-uuid->string uuid) (low (bytevector-uint-ref uuid 2 %fat32-endianness 2))) (format #f "~:@(~x-~x~)" low high))) +(define %fat32-uuid-rx + (make-regexp "^([[:xdigit:]]{4})-([[:xdigit:]]{4})$")) + +(define (string->fat32-uuid str) + "Parse STR, which is in FAT32 format, and return a bytevector or #f." + (match (regexp-exec %fat32-uuid-rx str) + (#f + #f) + (rx-match + (uint-list->bytevector (list (string->number + (match:substring rx-match 2) 16) + (string->number + (match:substring rx-match 1) 16)) + %fat32-endianness + 2)))) + ;;; ;;; Generic interface. @@ -198,6 +215,7 @@ (define-syntax vhashq (define %uuid-parsers (vhashq ('dce 'ext2 'ext3 'ext4 'btrfs 'luks => string->dce-uuid) + ('fat32 'fat => string->fat32-uuid) ('iso9660 => string->iso9660-uuid))) (define %uuid-printers diff --git a/tests/uuid.scm b/tests/uuid.scm index c2f15de996..aacce77233 100644 --- a/tests/uuid.scm +++ b/tests/uuid.scm @@ -53,4 +53,8 @@ (define-module (test-uuid) "1970-01-01-17-14-42-99" (uuid->string (uuid "1970-01-01-17-14-42-99" 'iso9660))) +(test-equal "uuid, FAT32, format preserved" + "1234-ABCD" + (uuid->string (uuid "1234-abcd" 'fat32))) + (test-end) -- cgit v1.2.3 From bee98a9f858c41432ff83d2efaacd34634e3a1ba Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Fri, 22 Sep 2017 18:13:06 +0200 Subject: gnu: libsodium: Update to 1.0.14. * gnu/packages/crypto.scm (libsodium): Update to 1.0.14. [source, home-page]: Use HTTPS. --- gnu/packages/crypto.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm index 6b28030dff..9c657cd1f6 100644 --- a/gnu/packages/crypto.scm +++ b/gnu/packages/crypto.scm @@ -58,25 +58,25 @@ (define-module (gnu packages crypto) (define-public libsodium (package (name "libsodium") - (version "1.0.13") + (version "1.0.14") (source (origin (method url-fetch) (uri (list (string-append - "http://download.libsodium.org/libsodium/" + "https://download.libsodium.org/libsodium/" "releases/libsodium-" version ".tar.gz") (string-append "https://download.libsodium.org/libsodium/" "releases/old/libsodium-" version ".tar.gz"))) (sha256 (base32 - "1z93wfg4k5svg8yck6cgdr6ysj91kbpn03nyzwxanncy3b5sq4ww")))) + "1rvylybhxyn6ap3hrcingsl737zrqg12l7r91ns93j7xjz889z1w")))) (build-system gnu-build-system) (synopsis "Portable NaCl-based crypto library") (description "Sodium is a new easy-to-use high-speed software library for network communication, encryption, decryption, signatures, etc.") (license license:isc) - (home-page "http://libsodium.org"))) + (home-page "https://libsodium.org"))) (define-public libmd (package -- cgit v1.2.3 From ee130d0c5f43c29058a447ee45079d79b45f584c Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Fri, 22 Sep 2017 18:14:19 +0200 Subject: gnu: libraw: Update to 0.18.5 [fixes CVE-2017-13735, CVE-2017-14265]. * gnu/packages/photo.scm (libraw): Update to 0.18.5. --- gnu/packages/photo.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/photo.scm b/gnu/packages/photo.scm index f5e43af4f4..410d23a6ab 100644 --- a/gnu/packages/photo.scm +++ b/gnu/packages/photo.scm @@ -65,14 +65,14 @@ (define-module (gnu packages photo) (define-public libraw (package (name "libraw") - (version "0.18.4") + (version "0.18.5") (source (origin (method url-fetch) (uri (string-append "https://www.libraw.org/data/LibRaw-" version ".tar.gz")) (sha256 (base32 - "15qc7g5y1m6yi6w9ia79cd6yk0836z7lqw5yigl62n768qdr7x7a")))) + "0y519nlvl4bfnnxbwry35f6gbcv6jbbpd2lmiwv6pbyzv4a7saps")))) (build-system gnu-build-system) (home-page "https://www.libraw.org") (synopsis "Raw image decoder") -- cgit v1.2.3 From 12ae25db458a09d657e1b3410996b6bfb99ee5c4 Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Fri, 22 Sep 2017 18:59:38 +0200 Subject: gnu: bitcoin-core: Update to 0.15.0.1. * gnu/packages/finance.scm (bitcoin-core): Update to 0.15.0.1. --- gnu/packages/finance.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm index 06b8f1c5ba..823eabf5a8 100644 --- a/gnu/packages/finance.scm +++ b/gnu/packages/finance.scm @@ -57,7 +57,7 @@ (define-module (gnu packages finance) (define-public bitcoin-core (package (name "bitcoin-core") - (version "0.14.2") + (version "0.15.0.1") (source (origin (method url-fetch) (uri @@ -65,7 +65,7 @@ (define-public bitcoin-core version "/bitcoin-" version ".tar.gz")) (sha256 (base32 - "1jp8vdc25gs46gj1d9mraqa1xnampffpa7mdy0fw80xca77fbi0s")))) + "16si3skhm6jhw1pkniv2b9y1kkdhjmhj392palphir0qc1srwzmm")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) -- cgit v1.2.3 From 0193812a3d44cf982f868e2171386204fa7dbda6 Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Fri, 22 Sep 2017 19:00:08 +0200 Subject: gnu: bitcoin-core: Build with modular Qt. * gnu/packages/finance.scm (bitcoin-core)[native-inputs]: Add QTTOOLS. [inputs]: Remove QT. Add QTBASE. [arguments]: Specify paths to "lrelease" and "lupdate" in #:configure-flags. --- gnu/packages/finance.scm | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm index 823eabf5a8..9e346a6625 100644 --- a/gnu/packages/finance.scm +++ b/gnu/packages/finance.scm @@ -70,7 +70,8 @@ (define-public bitcoin-core (native-inputs `(("pkg-config" ,pkg-config) ("python" ,python) ; for the tests - ("util-linux" ,util-linux))) ; provides the hexdump command for tests + ("util-linux" ,util-linux) ; provides the hexdump command for tests + ("qttools" ,qttools))) (inputs `(("bdb" ,bdb-5.3) ; with 6.2.23, there is an error: ambiguous overload ("boost" ,boost) @@ -78,8 +79,7 @@ (define-public bitcoin-core ("miniupnpc" ,miniupnpc) ("openssl" ,openssl) ("protobuf" ,protobuf) - ;; TODO Build with the modular Qt. - ("qt" ,qt))) + ("qtbase" ,qtbase))) (arguments `(#:configure-flags (list @@ -87,7 +87,16 @@ (define-public bitcoin-core "--with-incompatible-bdb" ;; Boost is not found unless specified manually. (string-append "--with-boost=" - (assoc-ref %build-inputs "boost"))) + (assoc-ref %build-inputs "boost")) + ;; XXX: The configure script looks up Qt paths by + ;; `pkg-config --variable=host_bins Qt5Core`, which fails to pick + ;; up executables residing in 'qttools', so we specify them here. + (string-append "ac_cv_path_LRELEASE=" + (assoc-ref %build-inputs "qttools") + "/bin/lrelease") + (string-append "ac_cv_path_LUPDATE=" + (assoc-ref %build-inputs "qttools") + "/bin/lupdate")) #:phases (modify-phases %standard-phases (add-before 'check 'set-home -- cgit v1.2.3 From 6e83592affb72c3dac5298735b2c88f08fdfc981 Mon Sep 17 00:00:00 2001 From: Rutger Helling Date: Thu, 21 Sep 2017 08:30:51 +0200 Subject: gnu: xpra: Update to 2.1.2. * gnu/packages/xorg.scm (xpra): Update to 2.1.2. Signed-off-by: Marius Bakke --- gnu/packages/xorg.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm index 57ba8a2db0..ec8678b614 100644 --- a/gnu/packages/xorg.scm +++ b/gnu/packages/xorg.scm @@ -5894,7 +5894,7 @@ (define-public xcompmgr (define-public xpra (package (name "xpra") - (version "2.1.1") + (version "2.1.2") (source (origin (method url-fetch) @@ -5902,7 +5902,7 @@ (define-public xpra version ".tar.xz")) (sha256 (base32 - "0fgdddhafxnpjlw5nhfyfyimxp43hdn4yhp1vbsjrz3ypfsfhxq7")))) + "0a5ffs6gm7j7vzqdbhfmjn9z8qxm9m9as7a1vjmjx63yxv9jqihn")))) (build-system python-build-system) (inputs `(("ffmpeg", ffmpeg) ("flac", flac) -- cgit v1.2.3 From a4314af5e6dacab2d6a313016733720e3839c948 Mon Sep 17 00:00:00 2001 From: Feng Shu Date: Fri, 22 Sep 2017 20:40:32 +0800 Subject: gnu: you-get: Update to 0.4.915. * gnu/packages/video.scm (you-get): Update to 0.4.915. Signed-off-by: Marius Bakke --- gnu/packages/video.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index 199f4142be..aa7542b714 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -1228,7 +1228,7 @@ (define-public youtube-dl-gui (define-public you-get (package (name "you-get") - (version "0.4.803") + (version "0.4.915") (source (origin (method url-fetch) (uri (string-append @@ -1237,7 +1237,7 @@ (define-public you-get (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1rjy809x67dadzvj3midkhcda2kp6rqmbj6rbhjd5f16rvqgn7jp")))) + "147qf8kdxjv9003fgx50ws0rmjjq98sv11q6c3sdwd29zylaj1ql")))) (build-system python-build-system) (arguments ;; no tests -- cgit v1.2.3 From 8c864901b6bda70c4c6966f07d5c2d5cd4b4abf1 Mon Sep 17 00:00:00 2001 From: Ben Woodcroft Date: Sat, 23 Sep 2017 18:10:14 +1000 Subject: gnu: proteinortho: Update to 5.16b. * gnu/packages/bioinformatics.scm (proteinortho): Update to 5.16b. --- gnu/packages/bioinformatics.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index 764cf8c939..5e98aea91f 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -4063,7 +4063,7 @@ (define-public prank (define-public proteinortho (package (name "proteinortho") - (version "5.16") + (version "5.16b") (source (origin (method url-fetch) @@ -4073,7 +4073,7 @@ (define-public proteinortho version "_src.tar.gz")) (sha256 (base32 - "0z4f5cg0cs8ai62hfvp4q6w66q2phcc55nhs4xj5cyhxxivjv2ai")))) + "1wl0dawpssqwfjvr651r4wlww8hhjin8nba6xh71ks7sbypx886j")))) (build-system gnu-build-system) (arguments `(#:test-target "test" -- cgit v1.2.3 From c37f58b75a534275b3ce2ee39f69f7a513234750 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sat, 23 Sep 2017 14:11:36 +0200 Subject: gnu: python-unidecode: Update to 0.04.21. * gnu/packages/python.scm (python-unidecode): Update to 0.04.21. --- gnu/packages/python.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 223a308fb4..71d3fac622 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -2840,13 +2840,13 @@ (define-public python2-kitchen (define-public python-unidecode (package (name "python-unidecode") - (version "0.04.20") + (version "0.04.21") (source (origin (method url-fetch) (uri (pypi-uri "Unidecode" version)) (sha256 (base32 - "1q00i8gpsq3d9r0q8wk4b290fxl0kqlsdk7iadvli45in6s1hi7d")))) + "0lfhp9c5xrbpjvbpr12ji52g1lx04404bzzdg6pvabhzisw6l2i8")))) (build-system python-build-system) (home-page "https://pypi.python.org/pypi/Unidecode") (synopsis "ASCII transliterations of Unicode text") -- cgit v1.2.3 From a0b80a57183a7a94b094df113eefaee3b730e61e Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sat, 23 Sep 2017 14:12:10 +0200 Subject: gnu: python-unidecode: Fix typo in description. * gnu/packages/python.scm (python-unidecode)[description]: Fix typo. --- gnu/packages/python.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gnu') diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 71d3fac622..5dcb5a05c5 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -2855,7 +2855,7 @@ (define-public python-unidecode useful when integrating with legacy code that doesn't support Unicode, or for ease of entry of non-Roman names on a US keyboard, or when constructing ASCII machine identifiers from human-readable Unicode strings that should still be -somewhat intelligeble.") +somewhat intelligible.") (license license:gpl2+))) (define-public python2-unidecode -- cgit v1.2.3 From a35e00336b1abd8ceb09c674a21fa277a60e5cbd Mon Sep 17 00:00:00 2001 From: ng0 Date: Thu, 21 Sep 2017 14:59:43 +0000 Subject: gnu: gnurl: Update to 7.55.1-4. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/gnunet.scm (gnurl): Update to 7.55.1-4. (native-inputs): Remove 'autoconf' and 'automake'. (arguments)[phases]: Remove 'autoconf' phase. Signed-off-by: Ludovic Courtès --- gnu/packages/gnunet.scm | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/gnunet.scm b/gnu/packages/gnunet.scm index 426d0eec49..82702e4e84 100644 --- a/gnu/packages/gnunet.scm +++ b/gnu/packages/gnunet.scm @@ -186,14 +186,14 @@ (define-public libmicrohttpd (define-public gnurl (package (name "gnurl") - (version "7.55.1-3") + (version "7.55.1-4") (source (origin (method url-fetch) (uri (string-append "https://gnunet.org/sites/default/files/" name "-" version ".tar.bz2")) (sha256 (base32 - "1p2qdh44hgsxjlzh4d3n51xr66cg2z517vpr818flvcrmpq2vxpq")))) + "09c1bfwiwxqlh0dl839lslwhvkf98bvpyg9x4pcn3sagz0i8hxfl")))) (build-system gnu-build-system) (outputs '("out" "doc")) ; 1.5 MiB of man3 pages @@ -201,9 +201,7 @@ (define-public gnurl ("libidn" ,libidn) ("zlib" ,zlib))) (native-inputs - `(("autoconf" ,autoconf) - ("automake" ,automake) - ("libtool" ,libtool) + `(("libtool" ,libtool) ("groff" ,groff) ("perl" ,perl) ("pkg-config" ,pkg-config) @@ -234,10 +232,6 @@ (define-public gnurl (rename-file (string-append out "/share/man/man3") (string-append doc "/share/man/man3")) #t))) - (add-after 'unpack 'autoconf - ;; Clear artifacts left (shebangs) from release preparation. - (lambda _ - (zero? (system* "sh" "buildconf")))) (replace 'check (lambda _ ;; It is unclear why test1026 fails, however the content of it -- cgit v1.2.3 From 468d2a2a0061191239e4db74322791fc16aa6387 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 22 Sep 2017 16:04:05 +0100 Subject: gnu: Add opensm. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/fabric-management.scm: New file. * gnu/local.mk: Add it. Signed-off-by: Ludovic Courtès --- gnu/local.mk | 1 + gnu/packages/fabric-management.scm | 74 ++++++++++++++++++++++++++++++++++++++ 2 files changed, 75 insertions(+) create mode 100644 gnu/packages/fabric-management.scm (limited to 'gnu') diff --git a/gnu/local.mk b/gnu/local.mk index 68c4852d93..d7a881eb5a 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -140,6 +140,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/enlightenment.scm \ %D%/packages/entr.scm \ %D%/packages/erlang.scm \ + %D%/packages/fabric-management.scm \ %D%/packages/fcitx.scm \ %D%/packages/figlet.scm \ %D%/packages/file.scm \ diff --git a/gnu/packages/fabric-management.scm b/gnu/packages/fabric-management.scm new file mode 100644 index 0000000000..8731877691 --- /dev/null +++ b/gnu/packages/fabric-management.scm @@ -0,0 +1,74 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2017 Dave Love +;;; +;;; 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 . + +(define-module (gnu packages fabric-management) + #:use-module (guix packages) + #:use-module (guix licenses) + #:use-module (guix download) + #:use-module (guix utils) + #:use-module (guix build-system gnu) + #:use-module (gnu packages) + #:use-module (gnu packages bison) + #:use-module (gnu packages flex) + #:use-module (gnu packages linux)) + +;; Fixme: Done for the library, but needs support for running the daemon +;; (shepherd definition). +;; We should probably have a lib output, but that currently generates +;; a cycle. +(define-public opensm + (package + (name "opensm") + (version "3.3.20") + (source + (origin + (method url-fetch) + (uri + (string-append "https://www.openfabrics.org/downloads/management/opensm-" + version ".tar.gz")) + (sha256 (base32 "162sg1w7kgy8ayl8a4dcbrfacmnfy2lr9a2yjyq0k65rmd378zg1")))) + (build-system gnu-build-system) + (native-inputs + `(("flex" ,flex) + ("bison" ,bison))) + (inputs + `(("rdma-core" ,rdma-core))) + (arguments + `(#:configure-flags '("--disable-static") + #:phases + (modify-phases %standard-phases + (add-after 'install 'doc + (lambda* (#:key outputs #:allow-other-keys) + (let* ((base (assoc-ref outputs "out")) + (doc (string-append base "/share/doc/" + ,name "-" ,version))) + (for-each (lambda (file) + (install-file file doc)) + (append (list "AUTHORS" "COPYING" "ChangeLog") + (find-files "doc"))) + #t)))))) + (home-page "https://www.openfabrics.org/") + (synopsis "OpenIB InfiniBand Subnet Manager and management utilities") + (description "\ +OpenSM is the OpenIB project's Subnet Manager for Infiniband networks. +The subnet manager is run as a system daemon on one of the machines in +the infiniband fabric to manage the fabric's routing state. This package +also contains various tools for diagnosing and testing Infiniband networks +that can be used from any machine and do not need to be run on a machine +running the opensm daemon.") + (license (list gpl2 bsd-2)))) -- cgit v1.2.3 From 3f82586aa33a8878031840f4ba9db873c4b9cf47 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 22 Sep 2017 16:04:06 +0100 Subject: gnu: Add infiniband-diags. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/fabric-management.scm (infiniband-diags): New variable. Signed-off-by: Ludovic Courtès --- gnu/packages/fabric-management.scm | 67 +++++++++++++++++++++++++++++++++++++- 1 file changed, 66 insertions(+), 1 deletion(-) (limited to 'gnu') diff --git a/gnu/packages/fabric-management.scm b/gnu/packages/fabric-management.scm index 8731877691..edb058842c 100644 --- a/gnu/packages/fabric-management.scm +++ b/gnu/packages/fabric-management.scm @@ -23,9 +23,13 @@ (define-module (gnu packages fabric-management) #:use-module (guix utils) #:use-module (guix build-system gnu) #:use-module (gnu packages) + #:use-module (gnu packages autotools) #:use-module (gnu packages bison) #:use-module (gnu packages flex) - #:use-module (gnu packages linux)) + #:use-module (gnu packages glib) + #:use-module (gnu packages linux) + #:use-module (gnu packages perl) + #:use-module (gnu packages pkg-config)) ;; Fixme: Done for the library, but needs support for running the daemon ;; (shepherd definition). @@ -72,3 +76,64 @@ (define-public opensm that can be used from any machine and do not need to be run on a machine running the opensm daemon.") (license (list gpl2 bsd-2)))) + +(define-public infiniband-diags + (package + (name "infiniband-diags") + (version "2.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/linux-rdma/infiniband-diags/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "1ns9sjwvxnklhi47d6k5x8kxdk1n7f5362y45xwxqmr7gwfvpmwa")))) + (build-system gnu-build-system) + (inputs + `(("rdma-core" ,rdma-core) + ("opensm" ,opensm) + ("glib" ,glib))) + (outputs '("out" "lib")) + (native-inputs + ;; FIXME: needs rst2man for man pages + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("libtool" ,libtool) + ("perl" ,perl) + ("pkg-config" ,pkg-config))) + (arguments + '(#:configure-flags + (list (string-append "CPPFLAGS=-I" (assoc-ref %build-inputs "opensm") + "/include/infiniband") + (string-append "--with-perl-installdir=" (assoc-ref %outputs "lib") + "/lib/perl5/vendor_perl") + "--disable-static") + #:phases + (modify-phases %standard-phases + (add-before 'configure 'autotools + (lambda _ + (zero? (system "./autogen.sh")))) + (add-after 'install 'licence + (lambda _ + (let ((doc (string-append (assoc-ref %outputs "lib") "/share/doc"))) + (mkdir-p doc) + (install-file "COPYING" doc)))) + (add-after 'install-file 'move-perl + ;; Avoid perl in lib closure + (lambda _ + (let ((perlout (string-append (assoc-ref %outputs "out") "/lib")) + (perlin (string-append (assoc-ref %outputs "lib") + "/lib/perl5"))) + (mkdir-p perlout) + (rename-file perlin perlout) + #t)))))) + (home-page "https://github.com/linux-rdma/infiniband-diags") + (synopsis "Infiniband diagnotic tools") + (description "This is a set of command-line utilities to help configure, +debug, and maintain Infiniband (IB) fabrics. + +In addition to the utilities, a sub-library, @file{libibnetdisc}, is provided +to scan an entire IB fabric and return data structures representing it. The +interface to this library is not guaranteed to be stable.") + (license (list gpl2 bsd-2)))) ; dual -- cgit v1.2.3 From 8a001de8b73f1f0138ba80dd146bff183a185872 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 22 Sep 2017 16:04:07 +0100 Subject: gnu: Add ibutils. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/fabric-management.scm (ibutils): New variable. Signed-off-by: Ludovic Courtès --- gnu/packages/fabric-management.scm | 36 +++++++++++++++++++++++++++++++++++- 1 file changed, 35 insertions(+), 1 deletion(-) (limited to 'gnu') diff --git a/gnu/packages/fabric-management.scm b/gnu/packages/fabric-management.scm index edb058842c..76ef9eef2e 100644 --- a/gnu/packages/fabric-management.scm +++ b/gnu/packages/fabric-management.scm @@ -27,9 +27,12 @@ (define-module (gnu packages fabric-management) #:use-module (gnu packages bison) #:use-module (gnu packages flex) #:use-module (gnu packages glib) + #:use-module (gnu packages graphviz) #:use-module (gnu packages linux) #:use-module (gnu packages perl) - #:use-module (gnu packages pkg-config)) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages swig) + #:use-module (gnu packages tcl)) ;; Fixme: Done for the library, but needs support for running the daemon ;; (shepherd definition). @@ -137,3 +140,34 @@ (define-public infiniband-diags to scan an entire IB fabric and return data structures representing it. The interface to this library is not guaranteed to be stable.") (license (list gpl2 bsd-2)))) ; dual + +(define-public ibutils + (package + (name "ibutils") + (version "1.5.7-0.2.gbd7e502") + (source + (origin + (method url-fetch) + (uri (string-append "https://www.openfabrics.org/downloads/ibutils/ibutils-" + version ".tar.gz")) + (sha256 + (base32 "00x7v6cf8l5y6g9xwh1sg738ch42fhv19msx0h0090nhr0bv98v7")))) + (build-system gnu-build-system) + (inputs `(("graphviz" ,graphviz) + ("tcl" ,tcl) + ("tk" ,tk) + ("infiniband-diags" ,infiniband-diags) + ("rdma-core" ,rdma-core) + ("opensm" ,opensm) + ("perl" ,perl))) + (native-inputs `(("swig" ,swig))) + (arguments + `(#:configure-flags + (list (string-append "--with-osm=" (assoc-ref %build-inputs "opensm")) + (string-append "--with-tk-lib=" (assoc-ref %build-inputs "tk") "/lib") + "--disable-static"))) + (synopsis "InfiniBand network utilities") + (description "These command-line utilities allow for diagnosing and +testing InfiniBand networks.") + (home-page "https://www.openfabrics.org/downloads/ibutils/") + (license bsd-2))) -- cgit v1.2.3 From 1d3fcf944a0a7eb187f8edf2ba59d6e9497d2d98 Mon Sep 17 00:00:00 2001 From: Mohammed Sadiq Date: Fri, 22 Sep 2017 21:28:53 +0530 Subject: gnu: libgweather: Enable vala support. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/gnome.scm (libgweather)[native-inputs]: Add vala. (libgweather)[arguments]: Install vala bindings into out. Signed-off-by: Ludovic Courtès --- gnu/packages/gnome.scm | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'gnu') diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index bee1f3bc93..ebfc844aab 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -26,6 +26,7 @@ ;;; Copyright © 2017 Hartmut Goebel ;;; Copyright © 2017 nee ;;; Copyright © 2017 Chris Marusich +;;; Copyright © 2017 Mohammed Sadiq ;;; ;;; This file is part of GNU Guix. ;;; @@ -2963,11 +2964,20 @@ (define-public libgweather (substitute* "data/Locations.xml" (("Asia/Rangoon") "Asia/Yangon")) - #t))))) + #t)) + (replace 'install + (lambda _ + (zero? + (system* "make" + ;; Install vala bindings into $out. + (string-append "vapidir=" %output + "/share/vala/vapi") + "install"))))))) (native-inputs `(("glib:bin" ,glib "bin") ; for glib-mkenums ("gobject-introspection" ,gobject-introspection) ("pkg-config" ,pkg-config) + ("vala" ,vala) ("intltool" ,intltool))) (propagated-inputs ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and -- cgit v1.2.3 From 0ec171ecb4d3ee253210dca1dc778383cd0fc400 Mon Sep 17 00:00:00 2001 From: Mohammed Sadiq Date: Fri, 22 Sep 2017 21:29:34 +0530 Subject: gnu: Add gsound. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/gnome.scm (gsound): New public variable. Signed-off-by: Ludovic Courtès --- gnu/packages/gnome.scm | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index ebfc844aab..c0b5a8a41a 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -5967,6 +5967,34 @@ (define-public byzanz (home-page "https://git.gnome.org/browse/byzanz") (license license:gpl2+)))) +(define-public gsound + (package + (name "gsound") + (version "1.0.2") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/" name "/" + (version-major+minor version) "/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v")))) + (build-system glib-or-gtk-build-system) + (native-inputs + `(("pkg-config" ,pkg-config) + ("gobject-introspection" ,gobject-introspection) + ("vala" ,vala))) + (inputs + `(("glib" ,glib) + ("libcanberra" ,libcanberra))) + (home-page "https://wiki.gnome.org/Projects/GSound") + (synopsis "GObject wrapper for libcanberra") + (description + "GSound is a small library for playing system sounds. It's designed to be +used via GObject Introspection, and is a thin wrapper around the libcanberra C +library.") + (license license:lgpl2.1+))) + (define-public libzapojit (package (name "libzapojit") -- cgit v1.2.3 From 60e2a9ae0f4cc28b9c69cb53bc7ff8f051210e70 Mon Sep 17 00:00:00 2001 From: Mohammed Sadiq Date: Fri, 22 Sep 2017 21:38:44 +0530 Subject: gnu: Add gnome-clocks. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/gnome.scm (gnome-clocks): New public variable. Signed-off-by: Ludovic Courtès --- gnu/packages/gnome.scm | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index c0b5a8a41a..8380771243 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -52,6 +52,7 @@ (define-module (gnu packages gnome) #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system glib-or-gtk) + #:use-module (guix build-system meson) #:use-module (guix build-system trivial) #:use-module (gnu packages) #:use-module (gnu packages admin) @@ -6023,6 +6024,44 @@ (define-public libzapojit Microsoft SkyDrive and Hotmail, using their REST protocols.") (license license:lgpl2.1+))) +(define-public gnome-clocks + (package + (name "gnome-clocks") + (version "3.26.0") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/" name "/" + (version-major+minor version) "/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "00a5bqi1hbyb9kbl4p393l1g6rddl2y6ljxjby9c5j3k1qka0c0g")))) + (build-system meson-build-system) + (arguments + '(#:glib-or-gtk? #t)) + (native-inputs + `(("vala" ,vala) + ("pkg-config" ,pkg-config) + ("glib" ,glib "bin") ; for glib-compile-resources + ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache + ("desktop-file-utils" ,desktop-file-utils) + ("gettext" ,gettext-minimal) + ("itstool" ,itstool))) + (inputs + `(("glib" ,glib) + ("gtk+" ,gtk+) + ("gsound" ,gsound) + ("geoclue" ,geoclue) + ("geocode-glib" ,geocode-glib) + ("libgweather" ,libgweather) + ("gnome-desktop" ,gnome-desktop))) + (home-page "https://wiki.gnome.org/Apps/Clocks") + (synopsis "GNOME's clock application") + (description + "GNOME Clocks is a simple clocks application designed to fit the GNOME +desktop. It supports world clock, stop watch, alarms, and count down timer.") + (license license:gpl3+))) + (define-public gnome-calendar (package (name "gnome-calendar") -- cgit v1.2.3 From faccaa8916789d8b69bbbd28aae4e4c0f26ff24c Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sat, 23 Sep 2017 18:37:46 +0200 Subject: gnu: weechat: Update to 1.9.1 [security fix]. * gnu/packages/irc.scm (weechat): Update to 1.9.1. --- gnu/packages/irc.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/irc.scm b/gnu/packages/irc.scm index 4545a88948..552349247f 100644 --- a/gnu/packages/irc.scm +++ b/gnu/packages/irc.scm @@ -150,14 +150,14 @@ (define-public irssi (define-public weechat (package (name "weechat") - (version "1.9") + (version "1.9.1") (source (origin (method url-fetch) (uri (string-append "https://weechat.org/files/src/weechat-" version ".tar.xz")) (sha256 (base32 - "1zvxz98krq98y7jh3yrjbardg3yxp6y2031rvb7rp5ssk8lyp1fc")) + "1z92hprvgp128svfbr25x8j9kd114j9929bzbqasrcd92v31z6f2")) (patches (search-patches "weechat-python.patch")))) (build-system cmake-build-system) (native-inputs `(("gettext" ,gettext-minimal) -- cgit v1.2.3 From ca5915a6e53dfda99cbd9e44c3e02408ae0d7df8 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sat, 23 Sep 2017 20:50:23 +0200 Subject: gnu: youtube-dl: Update to 2017.09.24. * gnu/packages/video.scm (youtube-dl): Update to 2017.09.24. --- gnu/packages/video.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index aa7542b714..2b9f5aa06c 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -1111,7 +1111,7 @@ (define-public libvpx (define-public youtube-dl (package (name "youtube-dl") - (version "2017.09.15") + (version "2017.09.24") (source (origin (method url-fetch) (uri (string-append "https://yt-dl.org/downloads/" @@ -1119,7 +1119,7 @@ (define-public youtube-dl version ".tar.gz")) (sha256 (base32 - "1kw8pqzvhbpyxcz2jb692j4cgzd3vmd81mra09xvpzkq974jkx7f")))) + "0j2m75j0d1n83i7jzpkcj7ir0bkskj024j9b0yi88zipcg740wbx")))) (build-system python-build-system) (arguments ;; The problem here is that the directory for the man page and completion -- cgit v1.2.3 From 9db7e9be59820190a97de22ba72e71fa25f9d168 Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Thu, 27 Jul 2017 04:01:01 +0300 Subject: gnu: Add rsync service. * doc/guix.texi (Networking Services): Add rsync service documentation. * gnu/services/rsync.scm (): New file. * gnu/tests/rsync.scm: New file. * gnu/local.mk (GNU_SYSTEM_MODULES): Add new files. Signed-off-by: Christopher Baines --- doc/guix.texi | 69 ++++++++++++++++++++ gnu/local.mk | 2 + gnu/services/rsync.scm | 172 +++++++++++++++++++++++++++++++++++++++++++++++++ gnu/tests/rsync.scm | 126 ++++++++++++++++++++++++++++++++++++ 4 files changed, 369 insertions(+) create mode 100644 gnu/services/rsync.scm create mode 100644 gnu/tests/rsync.scm (limited to 'gnu') diff --git a/doc/guix.texi b/doc/guix.texi index 0369a150f7..0462a64190 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -10335,6 +10335,75 @@ In addition, @var{extra-settings} specifies a string to append to the configuration file. @end deffn +The @code{(gnu services rsync)} module provides the following services: + +You might want an rsync daemon if you have files that you want available +so anyone (or just yourself) can download existing files or upload new +files. + +@deffn {Scheme Variable} rsync-service-type +This is the type for the @uref{https://rsync.samba.org, rsync} rsync daemon, +@command{rsync-configuration} record as in this example: + +@example +(service rsync-service-type) +@end example + +See below for details about @code{rsync-configuration}. +@end deffn + +@deftp {Data Type} rsync-configuration +Data type representing the configuration for @code{rsync-service}. + +@table @asis +@item @code{package} (default: @var{rsync}) +@code{rsync} package to use. + +@item @code{port-number} (default: @code{873}) +TCP port on which @command{rsync} listens for incoming connections. If port +is less than @code{1024} @command{rsync} needs to be started as the +@code{root} user and group. + +@item @code{pid-file} (default: @code{"/var/run/rsyncd/rsyncd.pid"}) +Name of the file where @command{rsync} writes its PID. + +@item @code{lock-file} (default: @code{"/var/run/rsyncd/rsyncd.lock"}) +Name of the file where @command{rsync} writes its lock file. + +@item @code{log-file} (default: @code{"/var/log/rsyncd.log"}) +Name of the file where @command{rsync} writes its log file. + +@item @code{use-chroot?} (default: @var{#t}) +Whether to use chroot for @command{rsync} shared directory. + +@item @code{share-path} (default: @file{/srv/rsync}) +Location of the @command{rsync} shared directory. + +@item @code{share-comment} (default: @code{"Rsync share"}) +Comment of the @command{rsync} shared directory. + +@item @code{read-only?} (default: @var{#f}) +Read-write permissions to shared directory. + +@item @code{timeout} (default: @code{300}) +I/O timeout in seconds. + +@item @code{user} (default: @var{"root"}) +Owner of the @code{rsync} process. + +@item @code{group} (default: @var{"root"}) +Group of the @code{rsync} process. + +@item @code{uid} (default: @var{"rsyncd"}) +User name or user ID that file transfers to and from that module should take +place as when the daemon was run as @code{root}. + +@item @code{gid} (default: @var{"rsyncd"}) +Group name or group ID that will be used when accessing the module. + +@end table +@end deftp + Furthermore, @code{(gnu services ssh)} provides the following services. @cindex SSH @cindex SSH server diff --git a/gnu/local.mk b/gnu/local.mk index d7a881eb5a..711f38c6b4 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -452,6 +452,7 @@ GNU_SYSTEM_MODULES = \ %D%/services/shepherd.scm \ %D%/services/herd.scm \ %D%/services/pm.scm \ + %D%/services/rsync.scm \ %D%/services/sddm.scm \ %D%/services/spice.scm \ %D%/services/ssh.scm \ @@ -498,6 +499,7 @@ GNU_SYSTEM_MODULES = \ %D%/tests/mail.scm \ %D%/tests/messaging.scm \ %D%/tests/networking.scm \ + %D%/tests/rsync.scm \ %D%/tests/ssh.scm \ %D%/tests/virtualization.scm \ %D%/tests/web.scm diff --git a/gnu/services/rsync.scm b/gnu/services/rsync.scm new file mode 100644 index 0000000000..621e6c46d4 --- /dev/null +++ b/gnu/services/rsync.scm @@ -0,0 +1,172 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2017 Oleg Pykhalov +;;; +;;; 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 . + +(define-module (gnu services rsync) + #:use-module (gnu services) + #:use-module (gnu services base) + #:use-module (gnu services shepherd) + #:use-module (gnu system shadow) + #:use-module (gnu packages rsync) + #:use-module (gnu packages admin) + #:use-module (guix records) + #:use-module (guix gexp) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:use-module (ice-9 match) + #:export (rsync-configuration + rsync-configuration? + rsync-service-type)) + +;;;; Commentary: +;;; +;;; This module implements a service that to run instance of Rsync, +;;; files synchronization tool. +;;; +;;;; Code: + +(define-record-type* + rsync-configuration + make-rsync-configuration + rsync-configuration? + (package rsync-configuration-package ; package + (default rsync)) + (port-number rsync-configuration-port-number ; integer + (default 873)) + (pid-file rsync-configuration-pid-file ; string + (default "/var/run/rsyncd/rsyncd.pid")) + (lock-file rsync-configuration-lock-file ; string + (default "/var/run/rsyncd/rsyncd.lock")) + (log-file rsync-configuration-log-file ; string + (default "/var/log/rsyncd.log")) + (use-chroot? rsync-configuration-use-chroot? ; boolean + (default #t)) + (share-path rsync-configuration-share-path ; string + (default "/srv/rsyncd")) + (share-comment rsync-configuration-share-comment ; string + (default "Rsync share")) + (read-only? rsync-configuration-read-only? ; boolean + (default #f)) + (timeout rsync-configuration-timeout ; integer + (default 300)) + (user rsync-configuration-user ; string + (default "root")) + (group rsync-configuration-group ; string + (default "root")) + (uid rsync-configuration-uid ; string + (default "rsyncd")) + (gid rsync-configuration-gid ; string + (default "rsyncd"))) + +(define (rsync-account config) + "Return the user accounts and user groups for CONFIG." + (let ((rsync-user (if (rsync-configuration-uid config) + (rsync-configuration-uid config) + (rsync-configuration-user config))) + (rsync-group (if (rsync-configuration-gid config) + (rsync-configuration-gid config) + (rsync-configuration-group config)))) + (list (user-group (name rsync-group) (system? #t)) + (user-account + (name rsync-user) + (system? #t) + (group rsync-group) + (comment "rsyncd privilege separation user") + (home-directory (string-append "/var/run/" + rsync-user)) + (shell #~(string-append #$shadow "/sbin/nologin")))))) + +(define (rsync-activation config) + "Return the activation GEXP for CONFIG." + (with-imported-modules '((guix build utils)) + #~(begin + (let ((share-directory #$(rsync-configuration-share-path config)) + (user (getpw (if #$(rsync-configuration-uid config) + #$(rsync-configuration-uid config) + #$(rsync-configuration-user config)))) + (group (getpw (if #$(rsync-configuration-gid config) + #$(rsync-configuration-gid config) + #$(rsync-configuration-group config))))) + (mkdir-p (dirname #$(rsync-configuration-pid-file config))) + (and=> share-directory mkdir-p) + (chown share-directory + (passwd:uid user) + (group:gid group)))))) + +(define rsync-config-file + ;; Return the rsync configuration file corresponding to CONFIG. + (match-lambda + (($ package port-number pid-file lock-file log-file + use-chroot? share-path share-comment read-only? + timeout user group uid gid) + (if (not (string=? user "root")) + (cond + ((<= port-number 1024) + (error (string-append "rsync-service: to run on port " + (number->string port-number) + ", user must be root."))) + (use-chroot? + (error (string-append "rsync-service: to run in a chroot" + ", user must be root."))) + (uid + (error "rsync-service: to use uid, user must be root.")) + (gid + (error "rsync-service: to use gid, user must be root.")))) + (mixed-text-file + "rsync.conf" + "# Generated by 'rsync-service'.\n\n" + "pid file = " pid-file "\n" + "lock file = " lock-file "\n" + "log file = " log-file "\n" + "port = " (number->string port-number) "\n" + "use chroot = " (if use-chroot? "true" "false") "\n" + (if uid (string-append "uid = " uid "\n") "") + "gid = " (if gid gid "nogroup") "\n" ; no group nobody + "\n" + "[files]\n" + "path = " share-path "\n" + "comment = " share-comment "\n" + "read only = " (if read-only? "true" "false") "\n" + "timeout = " (number->string timeout) "\n")))) + +(define (rsync-shepherd-service config) + "Return a for rsync with CONFIG." + (let* ((rsync (rsync-configuration-package config)) + (pid-file (rsync-configuration-pid-file config)) + (port-number (rsync-configuration-port-number config)) + (user (rsync-configuration-user config)) + (group (rsync-configuration-group config))) + (list (shepherd-service + (provision '(rsync)) + (documentation "Run rsync daemon.") + (start #~(make-forkexec-constructor + (list (string-append #$rsync "/bin/rsync") + "--config" #$(rsync-config-file config) + "--daemon") + #:pid-file #$pid-file + #:user #$user + #:group #$group)) + (stop #~(make-kill-destructor)))))) + +(define rsync-service-type + (service-type + (name 'rsync) + (extensions + (list (service-extension shepherd-root-service-type rsync-shepherd-service) + (service-extension account-service-type rsync-account) + (service-extension activation-service-type rsync-activation))) + (default-value (rsync-configuration)))) diff --git a/gnu/tests/rsync.scm b/gnu/tests/rsync.scm new file mode 100644 index 0000000000..c97836788b --- /dev/null +++ b/gnu/tests/rsync.scm @@ -0,0 +1,126 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2017 Christopher Baines +;;; +;;; 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 . + +(define-module (gnu tests rsync) + #:use-module (gnu packages rsync) + #:use-module (gnu tests) + #:use-module (gnu system) + #:use-module (gnu system file-systems) + #:use-module (gnu system shadow) + #:use-module (gnu system vm) + #:use-module (gnu services) + #:use-module (gnu services rsync) + #:use-module (gnu services networking) + #:use-module (guix gexp) + #:use-module (guix store) + #:export (%test-rsync)) + +(define* (run-rsync-test rsync-os #:optional (rsync-port 873)) + "Run tests in %RSYNC-OS, which has rsync running and listening on +PORT." + (define os + (marionette-operating-system + rsync-os + #:imported-modules '((gnu services herd) + (guix combinators)))) + + (define vm + (virtual-machine + (operating-system os) + (port-forwardings '()))) + + (define test + (with-imported-modules '((gnu build marionette)) + #~(begin + (use-modules (srfi srfi-11) (srfi srfi-64) + (gnu build marionette)) + + (define marionette + (make-marionette (list #$vm))) + + (mkdir #$output) + (chdir #$output) + + (test-begin "rsync") + + ;; Wait for rsync to be up and running. + (test-eq "service running" + 'running! + (marionette-eval + '(begin + (use-modules (gnu services herd)) + (start-service 'rsync) + 'running!) + marionette)) + + ;; Make sure the PID file is created. + (test-assert "PID file" + (marionette-eval + '(file-exists? "/var/run/rsyncd/rsyncd.pid") + marionette)) + + (test-assert "Test file copied to share" + (marionette-eval + '(begin + (call-with-output-file "/tmp/input" + (lambda (port) + (display "test-file-contents\n" port))) + (zero? + (system* "rsync" "/tmp/input" + (string-append "rsync://localhost:" + (number->string #$rsync-port) + "/files/input")))) + marionette)) + + (test-equal "Test file correctly received from share" + "test-file-contents" + (marionette-eval + '(begin + (use-modules (ice-9 rdelim)) + (zero? + (system* "rsync" + (string-append "rsync://localhost:" + (number->string #$rsync-port) + "/files/input") + "/tmp/output")) + (call-with-input-file "/tmp/output" + (lambda (port) + (read-line port)))) + marionette)) + + (test-end) + (exit (= (test-runner-fail-count (test-runner-current)) 0))))) + + (gexp->derivation "rsync-test" test)) + +(define* %rsync-os + ;; Return operating system under test. + (let ((base-os + (simple-operating-system + (dhcp-client-service) + (service rsync-service-type)))) + (operating-system + (inherit base-os) + (packages (cons* rsync + (operating-system-packages base-os)))))) + +(define %test-rsync + (system-test + (name "rsync") + (description "Connect to a running RSYNC server.") + (value (run-rsync-test %rsync-os)))) -- cgit v1.2.3 From 3765f4e6bfcd265526a433388abb444ffb02cf26 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 23 Sep 2017 22:52:37 +0200 Subject: gnu: qtractor: Update to 0.8.4. * gnu/packages/music.scm (qtractor): Update to 0.8.4. --- gnu/packages/music.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 1c3ac71c26..cd354b00d7 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -1894,14 +1894,14 @@ (define-public cursynth (define-public qtractor (package (name "qtractor") - (version "0.8.3") + (version "0.8.4") (source (origin (method url-fetch) (uri (string-append "http://downloads.sourceforge.net/qtractor/" "qtractor-" version ".tar.gz")) (sha256 (base32 - "0ggqp2pz6r0pvapbbil51fh5185rn0i9kgzm9ff8r8y1135zllk8")))) + "17bbjfn94843g5q1h7xh23fwyazpfgg4fw6drrn5wgk2vx7qpkis")))) (build-system gnu-build-system) (arguments `(#:tests? #f)) ; no "check" target (inputs -- cgit v1.2.3 From 95e654ae63af574f88d81f96d2efa714e3fc38b6 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 24 Dec 2016 09:50:29 +0100 Subject: gnu: Add cl-yale-haskell. * gnu/packages/haskell.scm (cl-yale-haskell): New variable. --- gnu/packages/haskell.scm | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/haskell.scm b/gnu/packages/haskell.scm index 4f9e90e552..7e879f4ad5 100644 --- a/gnu/packages/haskell.scm +++ b/gnu/packages/haskell.scm @@ -36,6 +36,7 @@ (define-module (gnu packages haskell) #:use-module (gnu packages ghostscript) #:use-module (gnu packages gl) #:use-module (gnu packages libffi) + #:use-module (gnu packages lisp) #:use-module (gnu packages lua) #:use-module (gnu packages maths) #:use-module (gnu packages multiprecision) @@ -56,6 +57,45 @@ (define-module (gnu packages haskell) #:use-module (guix utils) #:use-module (ice-9 regex)) +(define-public cl-yale-haskell + (let ((commit "85f94c72a16c5f70301dd8db04cde9de2d7dd270") + (revision "1")) + (package + (name "cl-yale-haskell") + (version (string-append "2.0.5-" revision "." (string-take commit 9))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "http://git.elephly.net/software/yale-haskell.git") + (commit commit))) + (file-name (string-append "yale-haskell-" commit "-checkout")) + (sha256 + (base32 + "0bal3m6ryrjamz5p93bhs9rp5msk8k7lpcqr44wd7xs9b9k8w74g")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no tests + ;; Stripping binaries leads to a broken executable lisp system image. + #:strip-binaries? #f + #:make-flags + (list (string-append "PREFIX=" (assoc-ref %outputs "out"))) + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda _ + (setenv "PRELUDE" "./progs/prelude") + (setenv "HASKELL_LIBRARY" "./progs/lib") + (setenv "PRELUDEBIN" "./progs/prelude/clisp") + (setenv "HASKELLPROG" "./bin/clisp-haskell") + #t))))) + (inputs + `(("clisp" ,clisp))) + (home-page "http://git.elephly.net/software/yale-haskell.git") + (synopsis "Port of the Yale Haskell system to CLISP") + (description "This package provides the Yale Haskell system running on +top of CLISP.") + (license license:bsd-4)))) + (define ghc-bootstrap-x86_64-7.8.4 (origin (method url-fetch) -- cgit v1.2.3 From 830383cbaaedf7dd06473f1fbe9766cde7fa1d71 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Sun, 24 Sep 2017 12:09:18 +0300 Subject: gnu: parallel: Update to 20170922. * gnu/packages/parallel.scm (parallel): Update to 20170922. --- gnu/packages/parallel.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/parallel.scm b/gnu/packages/parallel.scm index 5101838d26..739c51e396 100644 --- a/gnu/packages/parallel.scm +++ b/gnu/packages/parallel.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2014 Eric Bavier ;;; Copyright © 2015 Mark H Weaver -;;; Copyright © 2015, 2016 Efraim Flashner +;;; Copyright © 2015, 2016, 2017 Efraim Flashner ;;; Copyright © 2016 Pjotr Prins ;;; Copyright © 2016 Andreas Enge ;;; Copyright © 2016 Ricardo Wurmus @@ -45,7 +45,7 @@ (define-module (gnu packages parallel) (define-public parallel (package (name "parallel") - (version "20170822") + (version "20170922") (source (origin (method url-fetch) @@ -53,7 +53,7 @@ (define-public parallel version ".tar.bz2")) (sha256 (base32 - "0j4i0dfbk1i37mcdl7l5ynsldp8biqnbm32sm0cl26by0nivyjc9")))) + "0r8mdnmimdf4n6q5k0l8zdql83ka5plrb5qm3rcgkcfwmnk0p0k1")))) (build-system gnu-build-system) (arguments `(#:phases -- cgit v1.2.3 From 29457c43bfefaa8f661ea9e4e28c770bfeedac2a Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 24 Sep 2017 11:26:20 +0200 Subject: gnu: r-mgcv: Update to 1.8-22. * gnu/packages/statistics.scm (r-mgcv): Update to 1.8-22. --- gnu/packages/statistics.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index cf88dd2025..e51ca5931b 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -500,14 +500,14 @@ (define-public r-nlme (define-public r-mgcv (package (name "r-mgcv") - (version "1.8-21") + (version "1.8-22") (source (origin (method url-fetch) (uri (cran-uri "mgcv" version)) (sha256 (base32 - "1vgjz4ihms9kch6fadh0hkzgwv34wzbdmdzm6392cql1mx06x0mi")))) + "1546p6aflg3z6xl2mns1n2c3j8q2spr9cjggj9rn33vrrhsv4fss")))) (build-system r-build-system) (propagated-inputs `(("r-matrix" ,r-matrix) -- cgit v1.2.3 From d9400ee46acab6ae54a2cd6bc8ed9933c50f282d Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 24 Sep 2017 11:26:48 +0200 Subject: gnu: r-segmented: Update to 0.5-2.2. * gnu/packages/statistics.scm (r-segmented): Update to 0.5-2.2. --- gnu/packages/statistics.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index e51ca5931b..a66458e583 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -2836,14 +2836,14 @@ (define-public r-futile-logger (define-public r-segmented (package (name "r-segmented") - (version "0.5-2.1") + (version "0.5-2.2") (source (origin (method url-fetch) (uri (cran-uri "segmented" version)) (sha256 (base32 - "1i576xksc761nyv2dmq86nwbgqvp0plz6bjcn69nkdwq2wbizmw8")))) + "1wdjxkgqjqw5q2nywmgkf6y21lb0alhvaqg0m0dr2xyxf1ii79rs")))) (build-system r-build-system) (home-page "http://cran.r-project.org/web/packages/segmented") (synopsis "Regression models with breakpoints estimation") -- cgit v1.2.3 From 91316f31d45eb7b29af4eb667efe214b595998c9 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 24 Sep 2017 11:27:10 +0200 Subject: gnu: r-glmnet: Update to 2.0-13. * gnu/packages/statistics.scm (r-glmnet): Update to 2.0-13. --- gnu/packages/statistics.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index a66458e583..a00dddc728 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -3086,14 +3086,14 @@ (define-public r-irlba (define-public r-glmnet (package (name "r-glmnet") - (version "2.0-12") + (version "2.0-13") (source (origin (method url-fetch) (uri (cran-uri "glmnet" version)) (sha256 (base32 - "1f8j440xi3xq37gvddiq2v610cvpzpg34n43116kixw1zvikm5ra")))) + "1zdqp6wnqxzp5qn2ky47phbkrxv3cpgbwmdp896h3xxjvp58sa7k")))) (build-system r-build-system) (inputs `(("gfortran" ,gfortran))) -- cgit v1.2.3 From b9e9ef44ff487ef9f49b248344687067205cb321 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 24 Sep 2017 12:35:47 +0200 Subject: gnu: libpinyin: Update to 2.1.0. * gnu/packages/ibus.scm (libpinyin): Update to 2.1.0. --- gnu/packages/ibus.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm index 7bbf2d6d7d..bd8d37a42f 100644 --- a/gnu/packages/ibus.scm +++ b/gnu/packages/ibus.scm @@ -190,7 +190,7 @@ (define-public ibus-libpinyin (define-public libpinyin (package (name "libpinyin") - (version "2.0.0") + (version "2.1.0") (source (origin (method url-fetch) (uri (string-append @@ -199,7 +199,7 @@ (define-public libpinyin (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "17fibx9psrxfiznm4yw8klgbnh3ksyisx0pm1n59kxkrq61v8y0b")))) + "1iijpin65cmgawfx7sfdw1anmabljva0af1f9gx8ad6b4slhvknn")))) (build-system gnu-build-system) (arguments `(#:phases -- cgit v1.2.3 From 3943f5ab5ab59ebf01aa6b8ba11dce1e2b9fb6c8 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 24 Sep 2017 12:36:21 +0200 Subject: gnu: python-pyxdg: Disable failing test. * gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Disable theme validation test. --- gnu/packages/freedesktop.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm index 606859771a..e822f390c5 100644 --- a/gnu/packages/freedesktop.scm +++ b/gnu/packages/freedesktop.scm @@ -3,7 +3,7 @@ ;;; Copyright © 2015 Sou Bunnbu ;;; Copyright © 2015, 2017 Andy Wingo ;;; Copyright © 2015, 2016, 2017 Ludovic Courtès -;;; Copyright © 2015 Ricardo Wurmus +;;; Copyright © 2015, 2017 Ricardo Wurmus ;;; Copyright © 2015 David Hashe ;;; Copyright © 2016, 2017 Efraim Flashner ;;; Copyright © 2016 Kei Kebreau @@ -366,7 +366,10 @@ (define-public python-pyxdg (substitute* "test/test-icon.py" (("/usr/share/icons/hicolor/index.theme") (string-append (assoc-ref inputs "hicolor-icon-theme") - "/share/icons/hicolor/index.theme"))) + "/share/icons/hicolor/index.theme")) + ;; FIXME: This test fails because the theme contains the unknown + ;; key "Scale". + (("theme.validate\\(\\)") "#")) ;; One test fails with: ;; AssertionError: 'x-apple-ios-png' != 'png' -- cgit v1.2.3 From 07ad172a2473723cb4480105309015968a759f42 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 24 Sep 2017 12:37:00 +0200 Subject: gnu: ibus-libpinyin: Update to 1.9.2. * gnu/packages/ibus.scm (ibus-libpinyin): Update to 1.9.2. [inputs]: Replace "python-2" with "python" and python2-pyxdg with python-pyxdg. --- gnu/packages/ibus.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm index bd8d37a42f..a74c321a5e 100644 --- a/gnu/packages/ibus.scm +++ b/gnu/packages/ibus.scm @@ -135,7 +135,7 @@ (define-public ibus (define-public ibus-libpinyin (package (name "ibus-libpinyin") - (version "1.9.0") + (version "1.9.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/libpinyin/" @@ -143,15 +143,15 @@ (define-public ibus-libpinyin (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "0gly314z6zn2fv52jw0764k66ry97llk009bk1q1iwf6rr829v68")))) + "0wpgs0m62l4zlis9f11b7xknhgnw2xw485nc2xrzk880s17pp1mr")))) (build-system glib-or-gtk-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'autogen - (lambda _ (and (zero? (system* "intltoolize")) - (zero? (system* "autoreconf" "-vif"))))) - (add-after 'wrap-program 'wrap-with-additional-paths + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'autogen + (lambda _ (and (zero? (system* "intltoolize")) + (zero? (system* "autoreconf" "-vif"))))) + (add-after 'wrap-program 'wrap-with-additional-paths (lambda* (#:key inputs outputs #:allow-other-keys) ;; Make sure 'ibus-setup-libpinyin' runs with the correct ;; PYTHONPATH and GI_TYPELIB_PATH. @@ -170,8 +170,8 @@ (define-public ibus-libpinyin ("libpinyin" ,libpinyin) ("bdb" ,bdb) ("sqlite" ,sqlite) - ("python" ,python-2) - ("pyxdg" ,python2-pyxdg) + ("python" ,python) + ("pyxdg" ,python-pyxdg) ("gtk+" ,gtk+))) (native-inputs `(("pkg-config" ,pkg-config) -- cgit v1.2.3 From 58816c3d3d85515ae1f12dcc3e0ef7af1032c0dd Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Sun, 24 Sep 2017 14:26:46 +0300 Subject: gnu: python-cython: Update to 0.27. * gnu/packages/python.scm (python-cython): Update to 0.27. --- gnu/packages/python.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 5dcb5a05c5..3e266c5ef0 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -3658,14 +3658,14 @@ (define-public python2-rq (define-public python-cython (package (name "python-cython") - (version "0.26") + (version "0.27") (source (origin (method url-fetch) (uri (pypi-uri "Cython" version)) (sha256 (base32 - "0riciynnr0r68cvg6r3gbhi9x7h44pdwb7926m6n5vfs5p1f492c")))) + "02y0pp1nx77b8s1mpxc6da2dccl6wd31pp4ksi9via479qcvacmr")))) (build-system python-build-system) ;; we need the full python package and not just the python-wrapper ;; because we need libpython3.3m.so -- cgit v1.2.3 From 6aab6c27c72140b624ee151f4153eaf48b44fb7c Mon Sep 17 00:00:00 2001 From: Roel Janssen Date: Mon, 25 Sep 2017 16:41:57 +0200 Subject: gnu: Add emacs-olivetti. * gnu/packages/emacs.scm (emacs-olivetti): New variable. --- gnu/packages/emacs.scm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index 7a6f16c1e1..6cc4cfffb4 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -1502,6 +1502,25 @@ (define-public emacs-keyfreq a command.") (license license:gpl3+))) +(define-public emacs-olivetti + (package + (name "emacs-olivetti") + (version "1.5.7") + (source (origin + (method url-fetch) + (uri (string-append + "https://stable.melpa.org/packages/olivetti-" + version ".el")) + (sha256 + (base32 + "1yj2ylg46q0pw1xzlv2b0fv9x8p56x25284s9v2smwjr4vf0nwcj")))) + (build-system emacs-build-system) + (home-page "https://github.com/rnkn/olivetti") + (synopsis "Emacs minor mode for a nice writing environment") + (description "This package provides an Emacs minor mode that puts writing +in the center.") + (license license:gpl3+))) + (define-public emacs-undo-tree (package (name "emacs-undo-tree") -- cgit v1.2.3 From 832fe93d240d4c3749934241782e1a4d6ae709d6 Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Sun, 24 Sep 2017 18:43:15 +0200 Subject: gnu: lvm2: Update to 2.02.174. * gnu/packages/linux.scm (lvm2): Update to 2.02.174. --- gnu/packages/linux.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 9352b4f65f..1c9888fad2 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -2098,14 +2098,14 @@ (define-public eudev-with-hwdb (define-public lvm2 (package (name "lvm2") - (version "2.02.171") + (version "2.02.174") (source (origin (method url-fetch) (uri (string-append "ftp://sources.redhat.com/pub/lvm2/releases/LVM2." version ".tgz")) (sha256 (base32 - "0r4r9fsvpj9hjmf0zz7h4prz12r6y16jhjhsvk1sbfpsl88sf5dq")) + "12qa2yfxnbjdx7kgxqqaglni50b46l5cp1rwjb24mccc830cwvpv")) (modules '((guix build utils))) (snippet '(begin -- cgit v1.2.3 From 030030f4416b54285dcdd58bddb863c0e6bda4c4 Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Sun, 24 Sep 2017 19:00:01 +0200 Subject: gnu: imagemagick: Update to 6.9.9-15. * gnu/packages/imagemagick.scm (imagemagick): Update to 6.9.9-15. --- gnu/packages/imagemagick.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/imagemagick.scm b/gnu/packages/imagemagick.scm index 5f3e3ad96d..7599f87311 100644 --- a/gnu/packages/imagemagick.scm +++ b/gnu/packages/imagemagick.scm @@ -46,14 +46,14 @@ (define-public imagemagick ;; The 7 release series has an incompatible API, while the 6 series is still ;; maintained. Don't update to 7 until we've made sure that the ImageMagick ;; users are ready for the 7-series API. - (version "6.9.9-12") + (version "6.9.9-15") (source (origin (method url-fetch) (uri (string-append "mirror://imagemagick/ImageMagick-" version ".tar.xz")) (sha256 (base32 - "10k63nb1wi5fq1xg1wkjfw7ph46ysy8rndgp18knj2zr06zjjrc5")))) + "0bxgdc1qiyvag6a2iiqcbwp4ak0m1mzi9qhs51fbrvv6syy12m6c")))) (build-system gnu-build-system) (arguments `(#:configure-flags '("--with-frozenpaths" "--without-gcc-arch") -- cgit v1.2.3