diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 2f58cb3a28..0af43a6c0b 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -499,7 +499,7 @@ connection alive.") (bind-minor-version "9") (bind-patch-version "10") (bind-release-type "-P") ; for patch release, use "-P" - (bind-release-version "2") ; for patch release, e.g. "6" + (bind-release-version "3") ; for patch release, e.g. "6" (bind-version (string-append bind-major-version "." bind-minor-version @@ -615,7 +615,7 @@ connection alive.") "/bind-" bind-version ".tar.gz")) (sha256 (base32 - "19yl7axphmpm4n2ggb7j5irw4c655yifa1bnlckg6qiyv8dr8n7b")))) + "00yh1d5shrq7y0kfwacax4f8dc0akaa2fha430j92n7mshms65m1")))) ;; When cross-compiling, we need the cross Coreutils and sed. ;; Otherwise just use those from %FINAL-INPUTS. diff --git a/gnu/packages/bash.scm b/gnu/packages/bash.scm index 0d0982d438..b8b0ae58f6 100644 --- a/gnu/packages/bash.scm +++ b/gnu/packages/bash.scm @@ -263,7 +263,7 @@ without modification.") (define-public bash-completion (package (name "bash-completion") - (version "2.6") + (version "2.7") (source (origin (method url-fetch) (uri (string-append @@ -271,7 +271,7 @@ without modification.") version "/" name "-" version ".tar.xz")) (sha256 (base32 - "1vx5bjasi0y3iwhgy2v72bdrsprkw8zjc9s8qd1l8rxil0nnbyv1")) + "07j484vb3k90f4989xh1g1x99g01akrp69p3dml4lza27wnqkfj1")) (patches (search-patches "bash-completion-directories.patch")))) (build-system gnu-build-system) diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm index 53cf7741a9..d103c71072 100644 --- a/gnu/packages/bootloaders.scm +++ b/gnu/packages/bootloaders.scm @@ -6,6 +6,7 @@ ;;; Copyright © 2016, 2017 Marius Bakke ;;; Copyright © 2016, 2017 Danny Milosavljevic ;;; Copyright © 2016, 2017 David Craven +;;; Copyright © 2017 Efraim Flashner ;;; ;;; This file is part of GNU Guix. ;;; @@ -263,7 +264,7 @@ tree binary files. These are board description files used by Linux and BSD.") (define u-boot (package (name "u-boot") - (version "2017.03") + (version "2017.07") (source (origin (method url-fetch) (uri (string-append @@ -271,7 +272,7 @@ tree binary files. These are board description files used by Linux and BSD.") "u-boot-" version ".tar.bz2")) (sha256 (base32 - "0gqihplap05dlpwdb971wsqyv01nz2vabwq5g5649gr5jczsyjzm")))) + "1zzywk0fgngm1mfnhkp8d0v57rs51zr1y6rp4p03i6nbibfbyx2k")))) (native-inputs `(("bc" ,bc) ("dtc" ,dtc) @@ -336,3 +337,6 @@ also initializes the boards (RAM etc).") (define-public u-boot-beagle-bone-black (make-u-boot-package "am335x_boneblack" "arm-linux-gnueabihf")) + +(define-public u-boot-odroid-c2 + (make-u-boot-package "odroid-c2" "aarch64-linux-gnu")) diff --git a/gnu/packages/check.scm b/gnu/packages/check.scm index 4b59ac567d..2ab5c01359 100644 --- a/gnu/packages/check.scm +++ b/gnu/packages/check.scm @@ -157,7 +157,7 @@ multi-paradigm automated test framework for C++ and Objective-C.") (define-public cmocka (package (name "cmocka") - (version "1.1.0") + (version "1.1.1") (source (origin (method url-fetch) (uri (string-append "https://cmocka.org/files/" @@ -165,7 +165,7 @@ multi-paradigm automated test framework for C++ and Objective-C.") version ".tar.xz")) (sha256 (base32 - "0c0k8ax16fgh39nsva09q4jsh83g9nxihkwj9d5666763fzx6q79")))) + "1283zi9qf5613g8iadm1fxmjh4rzxqd5np2j3lcpgairf25g8bph")))) (build-system cmake-build-system) (arguments `(#:tests? #f)) ; No test target diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm index 3caada25bd..f5f3af2c05 100644 --- a/gnu/packages/databases.scm +++ b/gnu/packages/databases.scm @@ -769,14 +769,14 @@ is in the public domain.") (define-public tdb (package (name "tdb") - (version "1.3.11") + (version "1.3.14") (source (origin (method url-fetch) (uri (string-append "https://www.samba.org/ftp/tdb/tdb-" version ".tar.gz")) (sha256 (base32 - "0i1l38h0vyck6zkcj4fn2l03spadlmyr1qa1xpdp9dy2ccbm3s1r")))) + "1sfbia8xyaywgx9zy7x618vrvyx9gc3cgqf763shsii9javlnz9s")))) (build-system gnu-build-system) (arguments '(#:phases diff --git a/gnu/packages/dns.scm b/gnu/packages/dns.scm index ccb13d4fec..e29708a3a6 100644 --- a/gnu/packages/dns.scm +++ b/gnu/packages/dns.scm @@ -99,7 +99,7 @@ and BOOTP/TFTP for network booting of diskless machines.") (define-public isc-bind (package (name "bind") - (version "9.11.1-P2") + (version "9.11.1-P3") (source (origin (method url-fetch) (uri (string-append @@ -107,7 +107,7 @@ and BOOTP/TFTP for network booting of diskless machines.") version ".tar.gz")) (sha256 (base32 - "19gyh7yij6cpvk5b199ghhns5wmsz67d2rpgvl91dbkm2m1wclxz")))) + "1x6cfwkcv6nwc0mh5fzv70f38nl04yhgq90gr5nrjiif8dsnwhjj")))) (build-system gnu-build-system) (outputs `("out" "utils")) (inputs diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index cb56439fd5..f8093f590f 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -342,7 +342,7 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration." (kmod (assoc-ref (or native-inputs inputs) "kmod"))) ;; Install kernel image, kernel configuration and link map. (for-each (lambda (file) (install-file file out)) - (find-files "." "^(\\.config|bzImage|zImage|vmlinuz|System\\.map)$")) + (find-files "." "^(\\.config|bzImage|zImage|Image|vmlinuz|System\\.map)$")) ;; Install device tree files (for-each (lambda (file) (install-file file dtbdir)) (find-files "." "\\.dtb$")) @@ -3011,18 +3011,6 @@ applications running on the Linux console. It allows users to select items and copy/paste text in the console and in xterm.") (license license:gpl2+))) -(define-public ncurses/gpm - (package/inherit ncurses - (name "ncurses-with-gpm") - (arguments - (substitute-keyword-arguments (package-arguments ncurses) - ((#:configure-flags cf) - `(cons (string-append "--with-gpm=" - (assoc-ref %build-inputs "gpm") - "/lib/libgpm.so.2") ,cf)))) - (inputs - `(("gpm" ,gpm))))) - (define-public btrfs-progs (package (name "btrfs-progs") diff --git a/gnu/packages/ncurses.scm b/gnu/packages/ncurses.scm index d8b72a12c0..65531ec202 100644 --- a/gnu/packages/ncurses.scm +++ b/gnu/packages/ncurses.scm @@ -32,6 +32,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages swig) + #:use-module (gnu packages linux) #:use-module (guix utils)) (define-public ncurses @@ -189,6 +190,19 @@ ncursesw library provides wide character support.") (license x11) (home-page "https://www.gnu.org/software/ncurses/"))) +(define-public ncurses/gpm + (package/inherit ncurses + (name "ncurses-with-gpm") + (arguments + (substitute-keyword-arguments (package-arguments ncurses) + ((#:configure-flags cf) + `(cons (string-append "--with-gpm=" + (assoc-ref %build-inputs "gpm") + "/lib/libgpm.so.2") + ,cf)))) + (inputs + `(("gpm" ,gpm))))) + (define-public dialog (package (name "dialog") diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 3bd6710667..e9196b949e 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -3945,7 +3945,7 @@ library, libgit2 implements Git plumbing.") (define-public python-pyparsing (package (name "python-pyparsing") - (version "2.0.3") + (version "2.2.0") (source (origin (method url-fetch) @@ -3954,31 +3954,29 @@ library, libgit2 implements Git plumbing.") "/pyparsing-" version ".tar.gz")) (sha256 (base32 - "0kw4py7gn45j93q8r7bzajfrjdc3xlsn2yzln41lf9zmrghjkrq6")))) + "016b9gh606aa44sq92jslm89bg874ia0yyiyb643fa6dgbsbqch8")))) (build-system python-build-system) (outputs '("out" "doc")) (arguments `(#:tests? #f ; no test target - #:modules ((guix build python-build-system) - (guix build utils)) #:phases - (alist-cons-after - 'install 'install-doc - (lambda* (#:key outputs #:allow-other-keys) - (let* ((doc (string-append (assoc-ref outputs "doc") - "/share/doc/" ,name "-" ,version)) - (html-doc (string-append doc "/html")) - (examples (string-append doc "/examples"))) - (mkdir-p html-doc) - (mkdir-p examples) - (for-each - (lambda (dir tgt) - (map (lambda (file) - (install-file file tgt)) - (find-files dir ".*"))) - (list "docs" "htmldoc" "examples") - (list doc html-doc examples)))) - %standard-phases))) + (modify-phases %standard-phases + (add-after 'install 'install-doc + (lambda* (#:key outputs #:allow-other-keys) + (let* ((doc (string-append (assoc-ref outputs "doc") + "/share/doc/" ,name "-" ,version)) + (html-doc (string-append doc "/html")) + (examples (string-append doc "/examples"))) + (mkdir-p html-doc) + (mkdir-p examples) + (for-each + (lambda (dir tgt) + (map (lambda (file) + (install-file file tgt)) + (find-files dir ".*"))) + (list "docs" "htmldoc" "examples") + (list doc html-doc examples)) + #t)))))) (home-page "http://pyparsing.wikispaces.com") (synopsis "Python parsing class library") (description @@ -4121,16 +4119,14 @@ convert between colorspaces like sRGB, XYZ, CIEL*a*b*, CIECAM02, CAM02-UCS, etc. (define-public python-matplotlib (package (name "python-matplotlib") - (version "2.0.0") + (version "2.0.2") (source (origin (method url-fetch) - (uri (string-append - "https://github.com/matplotlib/matplotlib/archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (uri (pypi-uri "matplotlib" version)) (sha256 (base32 - "0w3k5m5qb3wsd7yhvmg042xddvligklvcq2visk2c5wnph3hhsln")))) + "1w8z2a1l7s72p1byfz7g03wqhygqxi8w82619dqb3a1lm97w9yqg")))) (build-system python-build-system) (propagated-inputs ; the following packages are all needed at run time `(("python-cycler" ,python-cycler) @@ -4366,16 +4362,14 @@ functions.") (define-public python-scipy (package (name "python-scipy") - (version "0.18.1") + (version "0.19.1") (source (origin (method url-fetch) - (uri (string-append "https://github.com/scipy/scipy/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (uri (pypi-uri "scipy" version)) (sha256 (base32 - "17slsrfawjp7if6qrlx03zhgp05350ginxx8ddpw9zqx43x905sn")))) + "1rl411bvla6q7qfdb47fpdnyjhfgzl6smpha33n9ar1klykjr6m1")))) (build-system python-build-system) (propagated-inputs `(("python-numpy" ,python-numpy) diff --git a/gnu/packages/samba.scm b/gnu/packages/samba.scm index 4e0121040e..4a7880cfe5 100644 --- a/gnu/packages/samba.scm +++ b/gnu/packages/samba.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2016, 2017 Efraim Flashner ;;; Copyright © 2016 Adonay "adfeno" Felipe Nogueira ;;; Copyright © 2017 Thomas Danckaert +;;; Copyright © 2017 Marius Bakke ;;; ;;; This file is part of GNU Guix. ;;; @@ -29,6 +30,7 @@ #:use-module (gnu packages acl) #:use-module (gnu packages admin) #:use-module (gnu packages autotools) + #:use-module (gnu packages check) #:use-module (gnu packages crypto) #:use-module (gnu packages cups) #:use-module (gnu packages databases) @@ -219,14 +221,14 @@ Desktops into Active Directory environments using the winbind daemon.") (define-public talloc (package (name "talloc") - (version "2.1.9") + (version "2.1.10") (source (origin (method url-fetch) (uri (string-append "https://www.samba.org/ftp/talloc/talloc-" version ".tar.gz")) (sha256 (base32 - "0qhhf4ib9k65sri2ky115iya6j7dgg0dsdi1r03j4cm3i35x9aph")))) + "06gn45if56g81vbj3841fzdjsahrrczwqpfrydm2zv6nxd5yk1f9")))) (build-system gnu-build-system) (arguments '(#:phases @@ -294,14 +296,14 @@ destructors. It is the core memory allocator used in Samba.") (define-public tevent (package (name "tevent") - (version "0.9.31") + (version "0.9.33") (source (origin (method url-fetch) (uri (string-append "https://www.samba.org/ftp/tevent/tevent-" version ".tar.gz")) (sha256 (base32 - "1z1bij9gccps34q8zakr1k7k3gpqs25jas20x1hch16qd8jz44sa")))) + "1p0vxmldk99xpp7i4y6kpb75f8m7hxyv5bzkspy9hhpxh7ljww92")))) (build-system gnu-build-system) (arguments '(#:phases @@ -329,14 +331,14 @@ many event types, including timers, signals, and the classic file descriptor eve (define-public ldb (package (name "ldb") - (version "1.1.27") + (version "1.1.31") (source (origin (method url-fetch) (uri (string-append "https://www.samba.org/ftp/ldb/ldb-" version ".tar.gz")) (sha256 (base32 - "1b1mkl5p8swb67s9aswavhzswlib34hpgsv66zgns009paf2df6d")))) + "0ipbz9m50dkancq0dbz12q815nkknbsp2i3sxpsqhmmknlm3xm84")))) (build-system gnu-build-system) (arguments '(#:phases @@ -351,7 +353,8 @@ many event types, including timers, signals, and the classic file descriptor eve "/lib/ldb/modules") "--bundled-libraries=NONE")))))))) (native-inputs - `(("pkg-config" ,pkg-config) + `(("cmocka" ,cmocka) + ("pkg-config" ,pkg-config) ("python" ,python-2))) (propagated-inputs ;; ldb.pc refers to all these. diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm index 4250f7d16b..6e458bfdef 100644 --- a/gnu/packages/wm.scm +++ b/gnu/packages/wm.scm @@ -14,6 +14,7 @@ ;;; Copyright © 2016 Ivan Vilata i Balaguer ;;; Copyright © 2017 Mekeor Melire ;;; Copyright © 2017 Marius Bakke +;;; Copyright © 2017 Oleg Pykhalov ;;; ;;; This file is part of GNU Guix. ;;; @@ -382,6 +383,39 @@ used on each workspace. Xinerama is fully supported, allowing windows to be tiled on several screens.") (license license:bsd-3))) +(define-public xmobar + (package + (name "xmobar") + (version "0.24.5") + (source (origin + (method url-fetch) + (uri (string-append "mirror://hackage/package/xmobar/" + name "-" version ".tar.gz")) + (sha256 + (base32 + "0sdzfj2wa4wpig1i2i5n9qpwm90jp88qifsmaa7j37yhhs6snfir")))) + (build-system haskell-build-system) + (inputs + `(("ghc-http" ,ghc-http) + ("ghc-parsec" ,ghc-parsec) + ("ghc-regex-compat" ,ghc-regex-compat) + ("ghc-stm" ,ghc-stm) + ("ghc-x11-xft" ,ghc-x11-xft) + ("ghc-hinotify" ,ghc-hinotify) + ("libxpm" ,libxpm) + ("wireless-tools" ,wireless-tools))) + (arguments + `(#:configure-flags + '("--flags=with_utf8 with_xft with_xpm with_inotify with_iwlib"))) + (home-page "http://xmobar.org") + (synopsis "Minimalistic text based status bar") + (description + "@code{xmobar} is a lightweight, text-based, status bar written in +Haskell. It was originally designed to be used together with Xmonad, but it +is also usable with any other window manager. While xmobar is written in +Haskell, no knowledge of the language is required to install and use it.") + (license license:bsd-3))) + (define-public ghc-xmonad-contrib (package (name "ghc-xmonad-contrib") diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm index 846b5cb013..8155b96665 100644 --- a/gnu/packages/xorg.scm +++ b/gnu/packages/xorg.scm @@ -6,7 +6,7 @@ ;;; Copyright © 2015 Eric Dvorsak ;;; Copyright © 2016 Mathieu Lirzin ;;; Copyright © 2015 Cyrill Schenkel -;;; Copyright © 2016 Efraim Flashner +;;; Copyright © 2016, 2017 Efraim Flashner ;;; Copyright © 2016 ng0 ;;; Copyright © 2016 Alex Kost ;;; Copyright © 2016 David Craven @@ -2727,6 +2727,53 @@ framebuffer device.") (license license:x11))) +(define-public xf86-video-freedreno + (let ((commit "ccba8f89995de7d5e1b216e580b789c4cda05035")) + (package + (name "xf86-video-freedreno") + (version (string-append "1.4.0-1-" (string-take commit 7))) + (source + (origin + ;; there's no current tarball + (method git-fetch) + (uri (git-reference + (url (string-append "https://anongit.freedesktop.org/git/xorg/" + "driver/xf86-video-freedreno.git")) + (commit commit))) + (sha256 + (base32 + "0bl9m1agi793lcddv94j8afzw1xc9w810q91mbq0n3dscbbcr9nh")) + (file-name (string-append name "-" version)))) + (build-system gnu-build-system) + (inputs + `(("libdrm" ,libdrm) + ("mesa" ,mesa) + ("udev" ,eudev) + ("xorg-server" ,xorg-server))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("autoconf" ,autoconf) + ("automake" ,automake) + ("libtool" ,libtool))) + ;; This driver is only supported on ARM systems. + (supported-systems '("armhf-linux" "aarch64-linux")) + (arguments + `(#:configure-flags + (list (string-append "--with-xorg-conf-dir=" + (assoc-ref %outputs "out") + "/share/X11/xorg.conf.d")) + #:phases (modify-phases %standard-phases + (add-after 'unpack 'bootstrap + (lambda _ + (zero? (system* "autoreconf" "-vfi"))))))) + (home-page "https://www.x.org/wiki/") + (synopsis "Adreno video driver for X server") + (description + "xf86-video-freedreno is a 2D graphics driver for the Xorg X server. +It supports a variety of Adreno graphics chipsets.") + (license license:x11)))) + + (define-public xf86-video-geode (package (name "xf86-video-geode") diff --git a/gnu/system.scm b/gnu/system.scm index d8f0f0275c..e3cbc0e230 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -392,6 +392,7 @@ from the initrd." (cond ((string-prefix? "arm" (%current-system)) "zImage") ((string-prefix? "mips" (%current-system)) "vmlinuz") + ((string-prefix? "aarch64" (%current-system)) "Image") (else "bzImage"))) (define (operating-system-kernel-file os)