diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-01-20 22:12:10 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-20 22:12:10 +0100 |
| commit | 3e2d4e69c340c3520f546f8c7e21e52383058d1c (patch) | |
| tree | 0bc92edb753cfdf9a9e7ef763ebc19f0cd2d528c | |
| parent | ad79ae7e2d7505292b11e87302b08f4db0f934e9 (diff) | |
| parent | e5ad2cdf172eecc7edef37a500593b1941af013c (diff) | |
Merge branch 'master' into staging
243 files changed, 39121 insertions, 28631 deletions
@@ -4,6 +4,7 @@ #+STARTUP: content hidestars Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org> +Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright @@ -83,3 +84,38 @@ Problems include that current glibc releases do not build on GNU/Hurd. In addition, there haven’t been stable releases of GNU Mach, MiG, and Hurd, which would be a pre-condition. +* Installer +** Fix impossibility to restart on error after cow-store has been started +See https://lists.gnu.org/archive/html/guix-devel/2018-12/msg00161.html. +- Force reboot upon installer failure +- Unshare the installer process +- Run the installer process in a separate namespace +** Partitioning +*** Add RAID support +*** Add more partitioning schemes +The actual schemes are taken from Debian Installer but some are not +implemented yet: like "Separate partitions for /home /var and /tmp". +*** Replace wait page "Partition formating is in progress, please wait" +Create a new waiting page describing what's being done: + +[ 20% ] +Running mkfs.ext4 on /dev/sda2 ... + +[ 40% ] +Running mkfs.ext4 on /dev/sda3 ... + +** Desktop environments +*** Allow for no desktop environments +Propose to choose between "headless server" and "lightweight X11" in a new +page. +*** Add services selection feature +Add a services page to the configuration. Ask for services to be installed +like SSH, bluetooth, TLP in a checkbox list? +** Locale and keymap +*** Try to guess user locale and keymap by probing BIOS or HW (dmidecode) +** Timezone +*** Regroup everything in one single page +Under the form: +(UTC + 1) Europe/Paris +(UTC + 2) Africa/Cairo +... diff --git a/configure.ac b/configure.ac index 891fce28ae..5d70de4beb 100644 --- a/configure.ac +++ b/configure.ac @@ -135,6 +135,21 @@ if test "x$have_guile_gcrypt" != "xyes"; then AC_MSG_ERROR([Guile-Gcrypt could not be found; please install it.]) fi +dnl Guile-newt is used by the graphical installer. +GUILE_MODULE_AVAILABLE([have_guile_newt], [(newt)]) + +AC_ARG_ENABLE([installer], + AS_HELP_STRING([--enable-installer], [Build the graphical installer sources.])) + +AS_IF([test "x$enable_installer" = "xyes"], [ +if test "x$have_guile_newt" != "xyes"; then + AC_MSG_ERROR([Guile-newt could not be found; please install it.]) +fi +]) + +AM_CONDITIONAL([ENABLE_INSTALLER], + [test "x$enable_installer" = "xyes"]) + dnl Make sure we have a full-fledged Guile. GUIX_ASSERT_GUILE_FEATURES([regex posix socket net-db threads]) diff --git a/doc/guix.texi b/doc/guix.texi index 34d0bf32fa..d6148757fe 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -9328,12 +9328,20 @@ GuixSD in a virtual machine (VM). @subsection Preparing for Installation Once you have successfully booted your computer using the installation medium, -you should end up with a root prompt. Several console TTYs are configured -and can be used to run commands as root. TTY2 shows this documentation, -browsable using the Info reader commands (@pxref{Top,,, info-stnd, -Stand-alone GNU Info}). The installation system runs the GPM mouse -daemon, which allows you to select text with the left mouse button and -to paste it with the middle button. +you should end up with the welcome page of the graphical installer. The +graphical installer is a text-based user interface built upon the newt +library. It shall guide you through all the different steps needed to install +GNU GuixSD. However, as the graphical installer is still under heavy +development, you might want to fallback to the original, shell based install +process, by switching to TTYs 3 to 6 with the shortcuts CTRL-ALT-F[3-6]. The +following sections describe the installation procedure assuming you're using +one of those TTYs. They are configured and can be used to run commands as +root. + +TTY2 shows this documentation, browsable using the Info reader commands +(@pxref{Top,,, info-stnd, Stand-alone GNU Info}). The installation system +runs the GPM mouse daemon, which allows you to select text with the left mouse +button and to paste it with the middle button. @quotation Note Installation requires access to the Internet so that any missing @@ -9660,12 +9668,12 @@ unless your configuration specifies otherwise (@pxref{user-account-password, user account passwords}). @cindex upgrading GuixSD -From then on, you can update GuixSD whenever you want by running -@command{guix pull} as @code{root} (@pxref{Invoking guix pull}), and -then running @command{guix system reconfigure} to build a new system -generation with the latest packages and services (@pxref{Invoking guix -system}). We recommend doing that regularly so that your system -includes the latest security updates (@pxref{Security Updates}). +From then on, you can update GuixSD whenever you want by running @command{guix +pull} as @code{root} (@pxref{Invoking guix pull}), and then running +@command{guix system reconfigure /etc/config.scm}, as @code{root} too, to +build a new system generation with the latest packages and services +(@pxref{Invoking guix system}). We recommend doing that regularly so that +your system includes the latest security updates (@pxref{Security Updates}). Join us on @code{#guix} on the Freenode IRC network or on @email{guix-devel@@gnu.org} to share your experience---good or not so @@ -10848,7 +10856,9 @@ system, you will want to append services to @var{%base-services}, like this: @example -(cons* (avahi-service) (lsh-service) %base-services) +(cons* (service avahi-service-type) + (service openssh-service-type) + %base-services) @end example @end defvr @@ -12634,6 +12644,19 @@ This is a symbol specifying the logging level: @code{quiet}, @code{fatal}, @code{error}, @code{info}, @code{verbose}, @code{debug}, etc. See the man page for @file{sshd_config} for the full list of level names. +@item @code{extra-content} (default: @code{""}) +This field can be used to append arbitrary text to the configuration file. It +is especially useful for elaborate configurations that cannot be expressed +otherwise. This configuration, for example, would generally disable root +logins, but permit them from one specific IP address: + +@example +(openssh-configuration + (extra-content "\ +Match Address 192.168.0.1 + PermitRootLogin yes")) +@end example + @end table @end deftp @@ -12709,31 +12732,54 @@ browsers, from accessing Facebook. The @code{(gnu services avahi)} provides the following definition. -@deffn {Scheme Procedure} avahi-service [#:avahi @var{avahi}] @ - [#:host-name #f] [#:publish? #t] [#:ipv4? #t] @ - [#:ipv6? #t] [#:wide-area? #f] @ - [#:domains-to-browse '()] [#:debug? #f] -Return a service that runs @command{avahi-daemon}, a system-wide +@defvr {Scheme Variable} avahi-service-type +This is the service that runs @command{avahi-daemon}, a system-wide mDNS/DNS-SD responder that allows for service discovery and -"zero-configuration" host name lookups (see @uref{http://avahi.org/}), and -extends the name service cache daemon (nscd) so that it can resolve -@code{.local} host names using -@uref{http://0pointer.de/lennart/projects/nss-mdns/, nss-mdns}. Additionally, -add the @var{avahi} package to the system profile so that commands such as -@command{avahi-browse} are directly usable. - -If @var{host-name} is different from @code{#f}, use that as the host name to +``zero-configuration'' host name lookups (see @uref{http://avahi.org/}). +Its value must be a @code{zero-configuration} record---see below. + +This service extends the name service cache daemon (nscd) so that it can +resolve @code{.local} host names using +@uref{http://0pointer.de/lennart/projects/nss-mdns/, nss-mdns}. @xref{Name +Service Switch}, for information on host name resolution. + +Additionally, add the @var{avahi} package to the system profile so that +commands such as @command{avahi-browse} are directly usable. +@end defvr + +@deftp {Data Type} avahi-configuration +Data type representation the configuration for Avahi. + +@table @asis + +@item @code{host-name} (default: @code{#f}) +If different from @code{#f}, use that as the host name to publish for this machine; otherwise, use the machine's actual host name. -When @var{publish?} is true, publishing of host names and services is allowed; -in particular, avahi-daemon will publish the machine's host name and IP -address via mDNS on the local network. +@item @code{publish?} (default: @code{#t}) +When true, allow host names and services to be published (broadcast) over the +network. -When @var{wide-area?} is true, DNS-SD over unicast DNS is enabled. +@item @code{publish-workstation?} (default: @code{#t}) +When true, @command{avahi-daemon} publishes the machine's host name and IP +address via mDNS on the local network. To view the host names published on +your local network, you can run: -Boolean values @var{ipv4?} and @var{ipv6?} determine whether to use IPv4/IPv6 -sockets. -@end deffn +@example +avahi-browse _workstation._tcp +@end example + +@item @code{wide-area?} (default: @code{#f}) +When true, DNS-SD over unicast DNS is enabled. + +@item @code{ipv4?} (default: @code{#t}) +@itemx @code{ipv6?} (default: @code{#t}) +These fields determine whether to use IPv4/IPv6 sockets. + +@item @code{domains-to-browse} (default: @code{'()}) +This is a list of domains to browse. +@end table +@end deftp @deffn {Scheme Variable} openvswitch-service-type This is the type of the @uref{http://www.openvswitch.org, Open vSwitch} @@ -22339,8 +22385,8 @@ want is to have @code{.local} host lookup working. Note that, in this case, in addition to setting the @code{name-service-switch} of the @code{operating-system} declaration, -you also need to use @code{avahi-service} (@pxref{Networking Services, -@code{avahi-service}}), or @var{%desktop-services}, which includes it +you also need to use @code{avahi-service-type} (@pxref{Networking Services, +@code{avahi-service-type}}), or @var{%desktop-services}, which includes it (@pxref{Desktop Services}). Doing this makes @code{nss-mdns} accessible to the name service cache daemon (@pxref{Base Services, @code{nscd-service}}). diff --git a/gnu/bootloader.scm b/gnu/bootloader.scm index 4f2c71cb5a..a32bf5ec67 100644 --- a/gnu/bootloader.scm +++ b/gnu/bootloader.scm @@ -105,9 +105,7 @@ bootloader-configuration make-bootloader-configuration bootloader-configuration? (bootloader bootloader-configuration-bootloader) ; <bootloader> - (device bootloader-configuration-device ; string - (default #f)) - (target %bootloader-configuration-target ; string + (target bootloader-configuration-target ; string (default #f)) (menu-entries bootloader-configuration-menu-entries ; list of <boot-parameters> (default '())) @@ -128,15 +126,6 @@ (additional-configuration bootloader-configuration-additional-configuration ; record (default #f))) -(define (bootloader-configuration-target config) - (or (%bootloader-configuration-target config) - (let ((device (bootloader-configuration-device config))) - (when device - (warning - (G_ "The 'device' field of bootloader configurations is deprecated.~%")) - (warning (G_ "Use 'target' instead.~%"))) - device))) - ;;; ;;; Bootloaders. diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index e3369d8521..c468144170 100644 --- a/gnu/build/file-systems.scm +++ b/gnu/build/file-systems.scm @@ -42,6 +42,10 @@ find-partition-by-luks-uuid canonicalize-device-spec + read-partition-label + read-partition-uuid + read-luks-partition-uuid + bind-mount mount-flags->bit-mask @@ -435,6 +439,12 @@ partition field reader that returned a value." (define read-partition-uuid (cut read-partition-field <> %partition-uuid-readers)) +(define luks-partition-field-reader + (partition-field-reader read-luks-header luks-header-uuid)) + +(define read-luks-partition-uuid + (cut read-partition-field <> (list luks-partition-field-reader))) + (define (partition-predicate reader =) "Return a predicate that returns true if the FIELD of partition header that was READ is = to the given value." @@ -451,9 +461,7 @@ was READ is = to the given value." (partition-predicate read-partition-uuid uuid=?)) (define luks-partition-uuid-predicate - (partition-predicate - (partition-field-reader read-luks-header luks-header-uuid) - uuid=?)) + (partition-predicate luks-partition-field-reader uuid=?)) (define (find-partition predicate) "Return the first partition found that matches PREDICATE, or #f if none diff --git a/gnu/ci.scm b/gnu/ci.scm index c071f21e0a..943fbb6af6 100644 --- a/gnu/ci.scm +++ b/gnu/ci.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; @@ -24,7 +24,9 @@ #:use-module (guix grafts) #:use-module (guix profiles) #:use-module (guix packages) + #:use-module (guix channels) #:use-module (guix derivations) + #:use-module (guix build-system) #:use-module (guix monads) #:use-module (guix ui) #:use-module ((guix licenses) @@ -188,8 +190,40 @@ system.") "iso9660")))))) '())) -(define (system-test-jobs store system) +(define channel-build-system + ;; Build system used to "convert" a channel instance to a package. + (let* ((build (lambda* (store name inputs + #:key instance #:allow-other-keys) + (run-with-store store + (channel-instances->derivation (list instance))))) + (lower (lambda* (name #:key system instance #:allow-other-keys) + (bag + (name name) + (system system) + (build build) + (arguments `(#:instance ,instance)))))) + (build-system (name 'channel) + (description "Turn a channel instance into a package.") + (lower lower)))) + +(define (channel-instance->package instance) + "Return a package for the given channel INSTANCE." + (package + (inherit guix) + (version (or (string-take (channel-instance-commit instance) 7) + (string-append (package-version guix) "+"))) + (build-system channel-build-system) + (arguments `(#:instance ,instance)) + (inputs '()) + (native-inputs '()) + (propagated-inputs '()))) + +(define* (system-test-jobs store system + #:key source commit) "Return a list of jobs for the system tests." + (define instance + (checkout->channel-instance source #:commit commit)) + (define (test->thunk test) (lambda () (define drv @@ -217,7 +251,13 @@ system.") (cons name (test->thunk test)))) (if (member system %guixsd-supported-systems) - (map ->job (all-system-tests)) + ;; Override the value of 'current-guix' used by system tests. Using a + ;; channel instance makes tests that rely on 'current-guix' less + ;; expensive. It also makes sure we get a valid Guix package when this + ;; code is not running from a checkout. + (parameterize ((current-guix-package + (channel-instance->package instance))) + (map ->job (all-system-tests))) '())) (define (tarball-jobs store system) @@ -343,6 +383,21 @@ valid." ((lst ...) lst) ((? string? str) (call-with-input-string str read)))) + (define checkout + ;; Extract metadata about the 'guix' checkout. Its key in ARGUMENTS may + ;; vary, so pick up the first one that's neither 'subset' nor 'systems'. + (any (match-lambda + ((key . value) + (and (not (memq key '(systems subset))) + value))) + arguments)) + + (define commit + (assq-ref checkout 'revision)) + + (define source + (assq-ref checkout 'file-name)) + (define (cross-jobs system) (define (from-32-to-64? target) ;; Return true if SYSTEM is 32-bit and TARGET is 64-bit. This hack @@ -405,7 +460,9 @@ valid." system)))) (append (filter-map job all) (qemu-jobs store system) - (system-test-jobs store system) + (system-test-jobs store system + #:source source + #:commit commit) (tarball-jobs store system) (cross-jobs system)))) ((core) diff --git a/gnu/installer.scm b/gnu/installer.scm new file mode 100644 index 0000000000..2ae139b13f --- /dev/null +++ b/gnu/installer.scm @@ -0,0 +1,358 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer) + #:use-module (guix discovery) + #:use-module (guix packages) + #:use-module (guix gexp) + #:use-module (guix modules) + #:use-module (guix utils) + #:use-module (guix ui) + #:use-module ((guix self) #:select (make-config.scm)) + #:use-module (gnu packages admin) + #:use-module (gnu packages base) + #:use-module (gnu packages bash) + #:use-module (gnu packages connman) + #:use-module (gnu packages cryptsetup) + #:use-module (gnu packages disk) + #:use-module (gnu packages guile) + #:autoload (gnu packages gnupg) (guile-gcrypt) + #:use-module (gnu packages iso-codes) + #:use-module (gnu packages linux) + #:use-module (gnu packages ncurses) + #:use-module (gnu packages package-management) + #:use-module (gnu packages xorg) + #:use-module (ice-9 match) + #:use-module (srfi srfi-1) + #:export (installer-program)) + +(define not-config? + ;; Select (guix …) and (gnu …) modules, except (guix config). + (match-lambda + (('guix 'config) #f) + (('guix rest ...) #t) + (('gnu rest ...) #t) + (rest #f))) + +(define* (build-compiled-file name locale-builder) + "Return a file-like object that evalutes the gexp LOCALE-BUILDER and store +its result in the scheme file NAME. The derivation will also build a compiled +version of this file." + (define set-utf8-locale + #~(begin + (setenv "LOCPATH" + #$(file-append glibc-utf8-locales "/lib/locale/" + (version-major+minor + (package-version glibc-utf8-locales)))) + (setlocale LC_ALL "en_US.utf8"))) + + (define builder + (with-extensions (list guile-json) + (with-imported-modules (source-module-closure + '((gnu installer locale))) + #~(begin + (use-modules (gnu installer locale)) + + ;; The locale files contain non-ASCII characters. + #$set-utf8-locale + + (mkdir #$output) + (let ((locale-file + (string-append #$output "/" #$name ".scm")) + (locale-compiled-file + (string-append #$output "/" #$name ".go"))) + (call-with-output-file locale-file + (lambda (port) + (write #$locale-builder port))) + (compile-file locale-file + #:output-file locale-compiled-file)))))) + (computed-file name builder)) + +(define apply-locale + ;; Install the specified locale. + #~(lambda (locale-name) + (false-if-exception + (setlocale LC_ALL locale-name)))) + +(define* (compute-locale-step #:key + locales-name + iso639-languages-name + iso3166-territories-name) + "Return a gexp that run the locale-page of INSTALLER, and install the +selected locale. The list of locales, languages and territories passed to +locale-page are computed in derivations named respectively LOCALES-NAME, +ISO639-LANGUAGES-NAME and ISO3166-TERRITORIES-NAME. Those lists are compiled, +so that when the installer is run, all the lengthy operations have already +been performed at build time." + (define (compiled-file-loader file name) + #~(load-compiled + (string-append #$file "/" #$name ".go"))) + + (let* ((supported-locales #~(supported-locales->locales + #$(local-file "installer/aux-files/SUPPORTED"))) + (iso-codes #~(string-append #$iso-codes "/share/iso-codes/json/")) + (iso639-3 #~(string-append #$iso-codes "iso_639-3.json")) + (iso639-5 #~(string-append #$iso-codes "iso_639-5.json")) + (iso3166 #~(string-append #$iso-codes "iso_3166-1.json")) + (locales-file (build-compiled-file + locales-name + #~`(quote ,#$supported-locales))) + (iso639-file (build-compiled-file + iso639-languages-name + #~`(quote ,(iso639->iso639-languages + #$supported-locales + #$iso639-3 #$iso639-5)))) + (iso3166-file (build-compiled-file + iso3166-territories-name + #~`(quote ,(iso3166->iso3166-territories #$iso3166)))) + (locales-loader (compiled-file-loader locales-file + locales-name)) + (iso639-loader (compiled-file-loader iso639-file + iso639-languages-name)) + (iso3166-loader (compiled-file-loader iso3166-file + iso3166-territories-name))) + #~(lambda (current-installer) + (let ((result + ((installer-locale-page current-installer) + #:supported-locales #$locales-loader + #:iso639-languages #$iso639-loader + #:iso3166-territories #$iso3166-loader))) + (#$apply-locale result) + result)))) + +(define apply-keymap + ;; Apply the specified keymap. Use the default keyboard model. + #~(match-lambda + ((layout variant) + (kmscon-update-keymap (default-keyboard-model) + layout variant)))) + +(define* (compute-keymap-step) + "Return a gexp that runs the keymap-page of INSTALLER and install the +selected keymap." + #~(lambda (current-installer) + (let ((result + (call-with-values + (lambda () + (xkb-rules->models+layouts + (string-append #$xkeyboard-config + "/share/X11/xkb/rules/base.xml"))) + (lambda (models layouts) + ((installer-keymap-page current-installer) + layouts))))) + (#$apply-keymap result)))) + +(define (installer-steps) + (let ((locale-step (compute-locale-step + #:locales-name "locales" + #:iso639-languages-name "iso639-languages" + #:iso3166-territories-name "iso3166-territories")) + (keymap-step (compute-keymap-step)) + (timezone-data #~(string-append #$tzdata + "/share/zoneinfo/zone.tab"))) + #~(lambda (current-installer) + (list + ;; Welcome the user and ask him to choose between manual + ;; installation and graphical install. + (installer-step + (id 'welcome) + (compute (lambda _ + ((installer-welcome-page current-installer) + #$(local-file "installer/aux-files/logo.txt"))))) + + ;; Ask the user to choose a locale among those supported by + ;; the glibc. Install the selected locale right away, so that + ;; the user may benefit from any available translation for the + ;; installer messages. + (installer-step + (id 'locale) + (description (G_ "Locale")) + (compute (lambda _ + (#$locale-step current-installer))) + (configuration-formatter locale->configuration)) + + ;; Ask the user to select a timezone under glibc format. + (installer-step + (id 'timezone) + (description (G_ "Timezone")) + (compute (lambda _ + ((installer-timezone-page current-installer) + #$timezone-data))) + (configuration-formatter posix-tz->configuration)) + + ;; The installer runs in a kmscon virtual terminal where loadkeys + ;; won't work. kmscon uses libxkbcommon as a backend for keyboard + ;; input. It is possible to update kmscon current keymap by sending it + ;; a keyboard model, layout and variant, in a somehow similar way as + ;; what is done with setxkbmap utility. + ;; + ;; So ask for a keyboard model, layout and variant to update the + ;; current kmscon keymap. + (installer-step + (id 'keymap) + (description (G_ "Keyboard mapping selection")) + (compute (lambda _ + (#$keymap-step current-installer)))) + + ;; Run a partitioning tool allowing the user to modify + ;; partition tables, partitions and their mount points. + (installer-step + (id 'partition) + (description (G_ "Partitioning")) + (compute (lambda _ + ((installer-partition-page current-installer)))) + (configuration-formatter user-partitions->configuration)) + + ;; Ask the user to input a hostname for the system. + (installer-step + (id 'hostname) + (description (G_ "Hostname")) + (compute (lambda _ + ((installer-hostname-page current-installer)))) + (configuration-formatter hostname->configuration)) + + ;; Provide an interface above connmanctl, so that the user can select + ;; a network susceptible to acces Internet. + (installer-step + (id 'network) + (description (G_ "Network selection")) + (compute (lambda _ + ((installer-network-page current-installer))))) + + ;; Prompt for users (name, group and home directory). + (installer-step + (id 'user) + (description (G_ "User creation")) + (compute (lambda _ + ((installer-user-page current-installer)))) + (configuration-formatter users->configuration)) + + ;; Ask the user to choose one or many desktop environment(s). + (installer-step + (id 'services) + (description (G_ "Services")) + (compute (lambda _ + ((installer-services-page current-installer)))) + (configuration-formatter + desktop-environments->configuration)) + + (installer-step + (id 'final) + (description (G_ "Configuration file")) + (compute + (lambda (result prev-steps) + ((installer-final-page current-installer) + result prev-steps)))))))) + +(define (installer-program) + "Return a file-like object that runs the given INSTALLER." + (define init-gettext + ;; Initialize gettext support, so that installer messages can be + ;; translated. + #~(begin + (bindtextdomain "guix" (string-append #$guix "/share/locale")) + (textdomain "guix"))) + + (define set-installer-path + ;; Add the specified binary to PATH for later use by the installer. + #~(let* ((inputs + '#$(append (list bash ;start subshells + connman ;call connmanctl + cryptsetup + dosfstools ;mkfs.fat + e2fsprogs ;mkfs.ext4 + kbd ;chvt + guix ;guix system init call + util-linux ;mkwap + shadow) + (map canonical-package (list coreutils))))) + (with-output-to-port (%make-void-port "w") + (lambda () + (set-path-environment-variable "PATH" '("bin" "sbin") inputs))))) + + (define steps (installer-steps)) + (define modules + (scheme-modules* + (string-append (current-source-directory) "/..") + "gnu/installer")) + + (define installer-builder + (with-extensions (list guile-gcrypt guile-newt + guile-parted guile-bytestructures + guile-json) + (with-imported-modules `(,@(source-module-closure + `(,@modules + (guix build utils)) + #:select? not-config?) + ((guix config) => ,(make-config.scm))) + #~(begin + (use-modules (gnu installer record) + (gnu installer keymap) + (gnu installer steps) + (gnu installer final) + (gnu installer hostname) + (gnu installer locale) + (gnu installer parted) + (gnu installer services) + (gnu installer timezone) + (gnu installer user) + (gnu installer newt) + (guix i18n) + (guix build utils) + (ice-9 match)) + + ;; Initialize gettext support so that installers can use + ;; (guix i18n) module. + #$init-gettext + + ;; Add some binaries used by the installers to PATH. + #$set-installer-path + + (let* ((current-installer newt-installer) + (steps (#$steps current-installer))) + ((installer-init current-installer)) + + (catch #t + (lambda () + (run-installer-steps + #:rewind-strategy 'menu + #:menu-proc (installer-menu-page current-installer) + #:steps steps)) + (const #f) + (lambda (key . args) + (let ((error-file "/tmp/last-installer-error")) + (call-with-output-file error-file + (lambda (port) + (display-backtrace (make-stack #t) port) + (print-exception port + (stack-ref (make-stack #t) 1) + key args))) + ((installer-exit-error current-installer) + error-file key args)) + (primitive-exit 1))) + + ((installer-exit current-installer))))))) + + (program-file + "installer" + #~(begin + ;; Set the default locale to install unicode support. For + ;; some reason, unicode support is not correctly installed + ;; when calling this in 'installer-builder'. + (setenv "LANG" "en_US.UTF-8") + (system #$(program-file "installer-real" installer-builder))))) diff --git a/gnu/installer/aux-files/SUPPORTED b/gnu/installer/aux-files/SUPPORTED new file mode 100644 index 0000000000..24aae1e089 --- /dev/null +++ b/gnu/installer/aux-files/SUPPORTED @@ -0,0 +1,484 @@ +aa_DJ.UTF-8 UTF-8 +aa_DJ ISO-8859-1 +aa_ER UTF-8 +aa_ER@saaho UTF-8 +aa_ET UTF-8 +af_ZA.UTF-8 UTF-8 +af_ZA ISO-8859-1 +agr_PE UTF-8 +ak_GH UTF-8 +am_ET UTF-8 +an_ES.UTF-8 UTF-8 +an_ES ISO-8859-15 +anp_IN UTF-8 +ar_AE.UTF-8 UTF-8 +ar_AE ISO-8859-6 +ar_BH.UTF-8 UTF-8 +ar_BH ISO-8859-6 +ar_DZ.UTF-8 UTF-8 +ar_DZ ISO-8859-6 +ar_EG.UTF-8 UTF-8 +ar_EG ISO-8859-6 +ar_IN UTF-8 +ar_IQ.UTF-8 UTF-8 +ar_IQ ISO-8859-6 +ar_JO.UTF-8 UTF-8 +ar_JO ISO-8859-6 +ar_KW.UTF-8 UTF-8 +ar_KW ISO-8859-6 +ar_LB.UTF-8 UTF-8 +ar_LB ISO-8859-6 +ar_LY.UTF-8 UTF-8 +ar_LY ISO-8859-6 +ar_MA.UTF-8 UTF-8 +ar_MA ISO-8859-6 +ar_OM.UTF-8 UTF-8 +ar_OM ISO-8859-6 +ar_QA.UTF-8 UTF-8 +ar_QA ISO-8859-6 +ar_SA.UTF-8 UTF-8 +ar_SA ISO-8859-6 +ar_SD.UTF-8 UTF-8 +ar_SD ISO-8859-6 +ar_SS UTF-8 +ar_SY.UTF-8 UTF-8 +ar_SY ISO-8859-6 +ar_TN.UTF-8 UTF-8 +ar_TN ISO-8859-6 +ar_YE.UTF-8 UTF-8 +ar_YE ISO-8859-6 +ayc_PE UTF-8 +az_AZ UTF-8 +az_IR UTF-8 +as_IN UTF-8 +ast_ES.UTF-8 UTF-8 +ast_ES ISO-8859-15 +be_BY.UTF-8 UTF-8 +be_BY CP1251 +be_BY@latin UTF-8 +bem_ZM UTF-8 +ber_DZ UTF-8 +ber_MA UTF-8 +bg_BG.UTF-8 UTF-8 +bg_BG CP1251 +bhb_IN.UTF-8 UTF-8 +bho_IN UTF-8 +bho_NP UTF-8 +bi_VU UTF-8 +bn_BD UTF-8 +bn_IN UTF-8 +bo_CN UTF-8 +bo_IN UTF-8 +br_FR.UTF-8 UTF-8 +br_FR ISO-8859-1 +br_FR@euro ISO-8859-15 +brx_IN UTF-8 +bs_BA.UTF-8 UTF-8 +bs_BA ISO-8859-2 +byn_ER UTF-8 +ca_AD.UTF-8 UTF-8 +ca_AD ISO-8859-15 +ca_ES.UTF-8 UTF-8 +ca_ES ISO-8859-1 +ca_ES@euro ISO-8859-15 +ca_ES@valencia UTF-8 +ca_FR.UTF-8 UTF-8 +ca_FR ISO-8859-15 +ca_IT.UTF-8 UTF-8 +ca_IT ISO-8859-15 +ce_RU UTF-8 +chr_US UTF-8 +cmn_TW UTF-8 +crh_UA UTF-8 +cs_CZ.UTF-8 UTF-8 +cs_CZ ISO-8859-2 +csb_PL UTF-8 +cv_RU UTF-8 +cy_GB.UTF-8 UTF-8 +cy_GB ISO-8859-14 +da_DK.UTF-8 UTF-8 +da_DK ISO-8859-1 +de_AT.UTF-8 UTF-8 +de_AT ISO-8859-1 +de_AT@euro ISO-8859-15 +de_BE.UTF-8 UTF-8 +de_BE ISO-8859-1 +de_BE@euro ISO-8859-15 +de_CH.UTF-8 UTF-8 +de_CH ISO-8859-1 +de_DE.UTF-8 UTF-8 +de_DE ISO-8859-1 +de_DE@euro ISO-8859-15 +de_IT.UTF-8 UTF-8 +de_IT ISO-8859-1 +de_LI.UTF-8 UTF-8 +de_LU.UTF-8 UTF-8 +de_LU ISO-8859-1 +de_LU@euro ISO-8859-15 +doi_IN UTF-8 +dv_MV UTF-8 +dz_BT UTF-8 +el_GR.UTF-8 UTF-8 +el_GR ISO-8859-7 +el_GR@euro ISO-8859-7 +el_CY.UTF-8 UTF-8 +el_CY ISO-8859-7 +en_AG UTF-8 +en_AU.UTF-8 UTF-8 +en_AU ISO-8859-1 +en_BW.UTF-8 UTF-8 +en_BW ISO-8859-1 +en_CA.UTF-8 UTF-8 +en_CA ISO-8859-1 +en_DK.UTF-8 UTF-8 +en_DK ISO-8859-1 +en_GB.UTF-8 UTF-8 +en_GB ISO-8859-1 +en_HK.UTF-8 UTF-8 +en_HK ISO-8859-1 +en_IE.UTF-8 UTF-8 +en_IE ISO-8859-1 +en_IE@euro ISO-8859-15 +en_IL UTF-8 +en_IN UTF-8 +en_NG UTF-8 +en_NZ.UTF-8 UTF-8 +en_NZ ISO-8859-1 +en_PH.UTF-8 UTF-8 +en_PH ISO-8859-1 +en_SC.UTF-8 UTF-8 +en_SG.UTF-8 UTF-8 +en_SG ISO-8859-1 +en_US.UTF-8 UTF-8 +en_US ISO-8859-1 +en_ZA.UTF-8 UTF-8 +en_ZA ISO-8859-1 +en_ZM UTF-8 +en_ZW.UTF-8 UTF-8 +en_ZW ISO-8859-1 +eo UTF-8 +es_AR.UTF-8 UTF-8 +es_AR ISO-8859-1 +es_BO.UTF-8 UTF-8 +es_BO ISO-8859-1 +es_CL.UTF-8 UTF-8 +es_CL ISO-8859-1 +es_CO.UTF-8 UTF-8 +es_CO ISO-8859-1 +es_CR.UTF-8 UTF-8 +es_CR ISO-8859-1 +es_CU UTF-8 +es_DO.UTF-8 UTF-8 +es_DO ISO-8859-1 +es_EC.UTF-8 UTF-8 +es_EC ISO-8859-1 +es_ES.UTF-8 UTF-8 +es_ES ISO-8859-1 +es_ES@euro ISO-8859-15 +es_GT.UTF-8 UTF-8 +es_GT ISO-8859-1 +es_HN.UTF-8 UTF-8 +es_HN ISO-8859-1 +es_MX.UTF-8 UTF-8 +es_MX ISO-8859-1 +es_NI.UTF-8 UTF-8 +es_NI ISO-8859-1 +es_PA.UTF-8 UTF-8 +es_PA ISO-8859-1 +es_PE.UTF-8 UTF-8 +es_PE ISO-8859-1 +es_PR.UTF-8 UTF-8 +es_PR ISO-8859-1 +es_PY.UTF-8 UTF-8 +es_PY ISO-8859-1 +es_SV.UTF-8 UTF-8 +es_SV ISO-8859-1 +es_US.UTF-8 UTF-8 +es_US ISO-8859-1 +es_UY.UTF-8 UTF-8 +es_UY ISO-8859-1 +es_VE.UTF-8 UTF-8 +es_VE ISO-8859-1 +et_EE.UTF-8 UTF-8 +et_EE ISO-8859-1 +et_EE.ISO-8859-15 ISO-8859-15 +eu_ES.UTF-8 UTF-8 +eu_ES ISO-8859-1 +eu_ES@euro ISO-8859-15 +fa_IR UTF-8 +ff_SN UTF-8 +fi_FI.UTF-8 UTF-8 +fi_FI ISO-8859-1 +fi_FI@euro ISO-8859-15 +fil_PH UTF-8 +fo_FO.UTF-8 UTF-8 +fo_FO ISO-8859-1 +fr_BE.UTF-8 UTF-8 +fr_BE ISO-8859-1 +fr_BE@euro ISO-8859-15 +fr_CA.UTF-8 UTF-8 +fr_CA ISO-8859-1 +fr_CH.UTF-8 UTF-8 +fr_CH ISO-8859-1 +fr_FR.UTF-8 UTF-8 +fr_FR ISO-8859-1 +fr_FR@euro ISO-8859-15 +fr_LU.UTF-8 UTF-8 +fr_LU ISO-8859-1 +fr_LU@euro ISO-8859-15 +fur_IT UTF-8 +fy_NL UTF-8 +fy_DE UTF-8 +ga_IE.UTF-8 UTF-8 +ga_IE ISO-8859-1 +ga_IE@euro ISO-8859-15 +gd_GB.UTF-8 UTF-8 +gd_GB ISO-8859-15 +gez_ER UTF-8 +gez_ER@abegede UTF-8 +gez_ET UTF-8 +gez_ET@abegede UTF-8 +gl_ES.UTF-8 UTF-8 +gl_ES ISO-8859-1 +gl_ES@euro ISO-8859-15 +gu_IN UTF-8 +gv_GB.UTF-8 UTF-8 +gv_GB ISO-8859-1 +ha_NG UTF-8 +hak_TW UTF-8 +he_IL.UTF-8 UTF-8 +he_IL ISO-8859-8 +hi_IN UTF-8 +hif_FJ UTF-8 +hne_IN UTF-8 +hr_HR.UTF-8 UTF-8 +hr_HR ISO-8859-2 +hsb_DE ISO-8859-2 +hsb_DE.UTF-8 UTF-8 +ht_HT UTF-8 +hu_HU.UTF-8 UTF-8 +hu_HU ISO-8859-2 +hy_AM UTF-8 +hy_AM.ARMSCII-8 ARMSCII-8 +ia_FR UTF-8 +id_ID.UTF-8 UTF-8 +id_ID ISO-8859-1 +ig_NG UTF-8 +ik_CA UTF-8 +is_IS.UTF-8 UTF-8 +is_IS ISO-8859-1 +it_CH.UTF-8 UTF-8 +it_CH ISO-8859-1 +it_IT.UTF-8 UTF-8 +it_IT ISO-8859-1 +it_IT@euro ISO-8859-15 +iu_CA UTF-8 +ja_JP.EUC-JP EUC-JP +ja_JP.UTF-8 UTF-8 +ka_GE.UTF-8 UTF-8 +ka_GE GEORGIAN-PS +kab_DZ UTF-8 +kk_KZ.UTF-8 UTF-8 +kk_KZ PT154 +kl_GL.UTF-8 UTF-8 +kl_GL ISO-8859-1 +km_KH UTF-8 +kn_IN UTF-8 +ko_KR.EUC-KR EUC-KR +ko_KR.UTF-8 UTF-8 +kok_IN UTF-8 +ks_IN UTF-8 +ks_IN@devanagari UTF-8 +ku_TR.UTF-8 UTF-8 +ku_TR ISO-8859-9 +kw_GB.UTF-8 UTF-8 +kw_GB ISO-8859-1 +ky_KG UTF-8 +lb_LU UTF-8 +lg_UG.UTF-8 UTF-8 +lg_UG ISO-8859-10 +li_BE UTF-8 +li_NL UTF-8 +lij_IT UTF-8 +ln_CD UTF-8 +lo_LA UTF-8 +lt_LT.UTF-8 UTF-8 +lt_LT ISO-8859-13 +lv_LV.UTF-8 UTF-8 +lv_LV ISO-8859-13 +lzh_TW UTF-8 +mag_IN UTF-8 +mai_IN UTF-8 +mai_NP UTF-8 +mfe_MU UTF-8 +mg_MG.UTF-8 UTF-8 +mg_MG ISO-8859-15 +mhr_RU UTF-8 +mi_NZ.UTF-8 UTF-8 +mi_NZ ISO-8859-13 +miq_NI UTF-8 +mjw_IN UTF-8 +mk_MK.UTF-8 UTF-8 +mk_MK ISO-8859-5 +ml_IN UTF-8 +mn_MN UTF-8 +mni_IN UTF-8 +mr_IN UTF-8 +ms_MY.UTF-8 UTF-8 +ms_MY ISO-8859-1 +mt_MT.UTF-8 UTF-8 +mt_MT ISO-8859-3 +my_MM UTF-8 +nan_TW UTF-8 +nan_TW@latin UTF-8 +nb_NO.UTF-8 UTF-8 +nb_NO ISO-8859-1 +nds_DE UTF-8 +nds_NL UTF-8 +ne_NP UTF-8 +nhn_MX UTF-8 +niu_NU UTF-8 +niu_NZ UTF-8 +nl_AW UTF-8 +nl_BE.UTF-8 UTF-8 +nl_BE ISO-8859-1 +nl_BE@euro ISO-8859-15 +nl_NL.UTF-8 UTF-8 +nl_NL ISO-8859-1 +nl_NL@euro ISO-8859-15 +nn_NO.UTF-8 UTF-8 +nn_NO ISO-8859-1 +nr_ZA UTF-8 +nso_ZA UTF-8 +oc_FR.UTF-8 UTF-8 +oc_FR ISO-8859-1 +om_ET UTF-8 +om_KE.UTF-8 UTF-8 +om_KE ISO-8859-1 +or_IN UTF-8 +os_RU UTF-8 +pa_IN UTF-8 +pa_PK UTF-8 +pap_AW UTF-8 +pap_CW UTF-8 +pl_PL.UTF-8 UTF-8 +pl_PL ISO-8859-2 +ps_AF UTF-8 +pt_BR.UTF-8 UTF-8 +pt_BR ISO-8859-1 +pt_PT.UTF-8 UTF-8 +pt_PT ISO-8859-1 +pt_PT@euro ISO-8859-15 +quz_PE UTF-8 +raj_IN UTF-8 +ro_RO.UTF-8 UTF-8 +ro_RO ISO-8859-2 +ru_RU.KOI8-R KOI8-R +ru_RU.UTF-8 UTF-8 +ru_RU ISO-8859-5 +ru_UA.UTF-8 UTF-8 +ru_UA KOI8-U +rw_RW UTF-8 +sa_IN UTF-8 +sat_IN UTF-8 +sc_IT UTF-8 +sd_IN UTF-8 +sd_IN@devanagari UTF-8 +se_NO UTF-8 +sgs_LT UTF-8 +shn_MM UTF-8 +shs_CA UTF-8 +si_LK UTF-8 +sid_ET UTF-8 +sk_SK.UTF-8 UTF-8 +sk_SK ISO-8859-2 +sl_SI.UTF-8 UTF-8 +sl_SI ISO-8859-2 +sm_WS UTF-8 +so_DJ.UTF-8 UTF-8 +so_DJ ISO-8859-1 +so_ET UTF-8 +so_KE.UTF-8 UTF-8 +so_KE ISO-8859-1 +so_SO.UTF-8 UTF-8 +so_SO ISO-8859-1 +sq_AL.UTF-8 UTF-8 +sq_AL ISO-8859-1 +sq_MK UTF-8 +sr_ME UTF-8 +sr_RS UTF-8 +sr_RS@latin UTF-8 +ss_ZA UTF-8 +st_ZA.UTF-8 UTF-8 +st_ZA ISO-8859-1 +sv_FI.UTF-8 UTF-8 +sv_FI ISO-8859-1 +sv_FI@euro ISO-8859-15 +sv_SE.UTF-8 UTF-8 +sv_SE ISO-8859-1 +sw_KE UTF-8 +sw_TZ UTF-8 +szl_PL UTF-8 +ta_IN UTF-8 +ta_LK UTF-8 +tcy_IN.UTF-8 UTF-8 +te_IN UTF-8 +tg_TJ.UTF-8 UTF-8 +tg_TJ KOI8-T +th_TH.UTF-8 UTF-8 +th_TH TIS-620 +the_NP UTF-8 +ti_ER UTF-8 +ti_ET UTF-8 +tig_ER UTF-8 +tk_TM UTF-8 +tl_PH.UTF-8 UTF-8 +tl_PH ISO-8859-1 +tn_ZA UTF-8 +to_TO UTF-8 +tpi_PG UTF-8 +tr_CY.UTF-8 UTF-8 +tr_CY ISO-8859-9 +tr_TR.UTF-8 UTF-8 +tr_TR ISO-8859-9 +ts_ZA UTF-8 +tt_RU UTF-8 +tt_RU@iqtelif UTF-8 +ug_CN UTF-8 +uk_UA.UTF-8 UTF-8 +uk_UA KOI8-U +unm_US UTF-8 +ur_IN UTF-8 +ur_PK UTF-8 +uz_UZ.UTF-8 UTF-8 +uz_UZ ISO-8859-1 +uz_UZ@cyrillic UTF-8 +ve_ZA UTF-8 +vi_VN UTF-8 +wa_BE ISO-8859-1 +wa_BE@euro ISO-8859-15 +wa_BE.UTF-8 UTF-8 +wae_CH UTF-8 +wal_ET UTF-8 +wo_SN UTF-8 +xh_ZA.UTF-8 UTF-8 +xh_ZA ISO-8859-1 +yi_US.UTF-8 UTF-8 +yi_US CP1255 +yo_NG UTF-8 +yue_HK UTF-8 +yuw_PG UTF-8 +zh_CN.GB18030 GB18030 +zh_CN.GBK GBK +zh_CN.UTF-8 UTF-8 +zh_CN GB2312 +zh_HK.UTF-8 UTF-8 +zh_HK BIG5-HKSCS +zh_SG.UTF-8 UTF-8 +zh_SG.GBK GBK +zh_SG GB2312 +zh_TW.EUC-TW EUC-TW +zh_TW.UTF-8 UTF-8 +zh_TW BIG5 +zu_ZA.UTF-8 UTF-8 +zu_ZA ISO-8859-1 diff --git a/gnu/installer/aux-files/logo.txt b/gnu/installer/aux-files/logo.txt new file mode 100644 index 0000000000..52418d88c1 --- /dev/null +++ b/gnu/installer/aux-files/logo.txt @@ -0,0 +1,19 @@ + ░░░ ░░░ + ░░▒▒░░░░░░░░░ ░░░░░░░░░▒▒░░ + ░░▒▒▒▒▒░░░░░░░ ░░░░░░░▒▒▒▒▒░ + ░▒▒▒░░▒▒▒▒▒ ░░░░░░░▒▒░ + ░▒▒▒▒░ ░░░░░░ + ▒▒▒▒▒ ░░░░░░ + ▒▒▒▒▒ ░░░░░ + ░▒▒▒▒▒ ░░░░░ + ▒▒▒▒▒ ░░░░░ + ▒▒▒▒▒ ░░░░░ + ░▒▒▒▒▒░░░░░ + ▒▒▒▒▒▒░░░ + ▒▒▒▒▒▒░ + _____ _ _ _ _ _____ _ + / ____| \ | | | | | / ____| (_) +| | __| \| | | | | | | __ _ _ ___ __ +| | |_ | . ' | | | | | | |_ | | | | \ \/ / +| |__| | |\ | |__| | | |__| | |_| | |> < + \_____|_| \_|\____/ \_____|\__,_|_/_/\_\ diff --git a/gnu/installer/connman.scm b/gnu/installer/connman.scm new file mode 100644 index 0000000000..740df7424a --- /dev/null +++ b/gnu/installer/connman.scm @@ -0,0 +1,400 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer connman) + #:use-module (gnu installer utils) + #:use-module (guix records) + #:use-module (ice-9 match) + #:use-module (ice-9 popen) + #:use-module (ice-9 regex) + #:use-module (srfi srfi-11) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:export (<technology> + technology + technology? + technology-name + technology-type + technology-powered? + technology-connected? + + <service> + service + service? + service-name + service-type + service-path + service-strength + service-state + + &connman-error + connman-error? + connman-error-command + connman-error-output + connman-error-status + + &connman-connection-error + connman-connection-error? + connman-connection-error-service + connman-connection-error-output + + &connman-password-error + connman-password-error? + + &connman-already-connected-error + connman-already-connected-error? + + connman-state + connman-technologies + connman-enable-technology + connman-disable-technology + connman-scan-technology + connman-services + connman-connect + connman-disconnect + connman-online? + connman-connect-with-auth)) + +;;; Commentary: +;;; +;;; This module provides procedures for talking with the connman daemon. +;;; The best approach would have been using connman dbus interface. +;;; However, as Guile dbus bindings are not available yet, the console client +;;; "connmanctl" is used to talk with the daemon. +;;; + + +;;; +;;; Technology record. +;;; + +;; The <technology> record encapsulates the "Technology" object of connman. +;; Technology type will be typically "ethernet", "wifi" or "bluetooth". + +(define-record-type* <technology> + technology make-technology + technology? + (name technology-name) ; string + (type technology-type) ; string + (powered? technology-powered?) ; boolean + (connected? technology-connected?)) ; boolean + + +;;; +;;; Service record. +;;; + +;; The <service> record encapsulates the "Service" object of connman. +;; Service type is the same as the technology it is associated to, path is a +;; unique identifier given by connman, strength describes the signal quality +;; if applicable. Finally, state is "idle", "failure", "association", +;; "configuration", "ready", "disconnect" or "online". + +(define-record-type* <service> + service make-service + service? + (name service-name) ; string + (type service-type) ; string + (path service-path) ; string + (strength service-strength) ; integer + (state service-state)) ; string + + +;;; +;;; Condition types. +;;; + +(define-condition-type &connman-error &error + connman-error? + (command connman-error-command) + (output connman-error-output) + (status connman-error-status)) + +(define-condition-type &connman-connection-error &error + connman-connection-error? + (service connman-connection-error-service) + (output connman-connection-error-output)) + +(define-condition-type &connman-password-error &connman-connection-error + connman-password-error?) + +(define-condition-type &connman-already-connected-error + &connman-connection-error connman-already-connected-error?) + + +;;; +;;; Procedures. +;;; + +(define (connman-run command env arguments) + "Run the given COMMAND, with the specified ENV and ARGUMENTS. The error +output is discarded and &connman-error condition is raised if the command +returns a non zero exit code." + (let* ((command `("env" ,env ,command ,@arguments "2>" "/dev/null")) + (command-string (string-join command " ")) + (pipe (open-input-pipe command-string)) + (output (read-lines pipe)) + (ret (close-pipe pipe))) + (case (status:exit-val ret) + ((0) output) + (else (raise (condition (&connman-error + (command command) + (output output) + (status ret)))))))) + +(define (connman . arguments) + "Run connmanctl with the specified ARGUMENTS. Set the LANG environment +variable to C because the command output will be parsed and we don't want it +to be translated." + (connman-run "connmanctl" "LANG=C" arguments)) + +(define (parse-keys keys) + "Parse the given list of strings KEYS, under the following format: + + '((\"KEY = VALUE\") (\"KEY2 = VALUE2\") ...) + +Return the corresponding association list of '((KEY . VALUE) (KEY2 . VALUE2) +...) elements." + (let ((key-regex (make-regexp "([^ ]+) = ([^$]+)"))) + (map (lambda (key) + (let ((match-key (regexp-exec key-regex key))) + (cons (match:substring match-key 1) + (match:substring match-key 2)))) + keys))) + +(define (connman-state) + "Return the state of connman. The nominal states are 'offline, 'idle, +'ready, 'oneline. If an unexpected state is read, 'unknown is +returned. Finally, an error is raised if the comman output could not be +parsed, usually because the connman daemon is not responding." + (let* ((output (connman "state")) + (state-keys (parse-keys output))) + (let ((state (assoc-ref state-keys "State"))) + (if state + (cond ((string=? state "offline") 'offline) + ((string=? state "idle") 'idle) + ((string=? state "ready") 'ready) + ((string=? state "online") 'online) + (else 'unknown)) + (raise (condition + (&message + (message "Could not determine the state of connman.")))))))) + +(define (split-technology-list technologies) + "Parse the given strings list TECHNOLOGIES, under the following format: + + '((\"/net/connman/technology/xxx\") + (\"KEY = VALUE\") + ... + (\"/net/connman/technology/yyy\") + (\"KEY2 = VALUE2\") + ...) + Return the corresponding '(((\"KEY = VALUE\") ...) ((\"KEY2 = VALUE2\") ...)) +list so that each keys of a given technology are gathered in a separate list." + (let loop ((result '()) + (cur-list '()) + (input (reverse technologies))) + (if (null? input) + result + (let ((item (car input))) + (if (string-match "/net/connman/technology" item) + (loop (cons cur-list result) '() (cdr input)) + (loop result (cons item cur-list) (cdr input))))))) + +(define (string->boolean string) + (equal? string "True")) + +(define (connman-technologies) + "Return a list of available <technology> records." + + (define (technology-output->technology output) + (let ((keys (parse-keys output))) + (technology + (name (assoc-ref keys "Name")) + (type (assoc-ref keys "Type")) + (powered? (string->boolean (assoc-ref keys "Powered"))) + (connected? (string->boolean (assoc-ref keys "Connected")))))) + + (let* ((output (connman "technologies")) + (technologies (split-technology-list output))) + (map technology-output->technology technologies))) + +(define (connman-enable-technology technology) + "Enable the given TECHNOLOGY." + (let ((type (technology-type technology))) + (connman "enable" type))) + +(define (connman-disable-technology technology) + "Disable the given TECHNOLOGY." + (let ((type (technology-type technology))) + (connman "disable" type))) + +(define (connman-scan-technology technology) + "Run a scan for the given TECHNOLOGY." + (let ((type (technology-type technology))) + (connman "scan" type))) + +(define (connman-services) + "Return a list of available <services> records." + + (define (service-output->service path output) + (let* ((service-keys + (match output + ((_ . rest) rest))) + (keys (parse-keys service-keys))) + (service + (name (assoc-ref keys "Name")) + (type (assoc-ref keys "Type")) + (path path) + (strength (and=> (assoc-ref keys "Strength") string->number)) + (state (assoc-ref keys "State"))))) + + (let* ((out (connman "services")) + (out-filtered (delete "" out)) + (services-path (map (lambda (service) + (match (string-split service #\ ) + ((_ ... path) path))) + out-filtered)) + (services-output (map (lambda (service) + (connman "services" service)) + services-path))) + (map service-output->service services-path services-output))) + +(define (connman-connect service) + "Connect to the given SERVICE." + (let ((path (service-path service))) + (connman "connect" path))) + +(define (connman-disconnect service) + "Disconnect from the given SERVICE." + (let ((path (service-path service))) + (connman "disconnect" path))) + +(define (connman-online?) + (let ((state (connman-state))) + (eq? state 'online))) + +(define (connman-connect-with-auth service password-proc) + "Connect to the given SERVICE with the password returned by calling +PASSWORD-PROC. This is only possible in the interactive mode of connmanctl +because authentication is done by communicating with an agent. + +As the open-pipe procedure of Guile do not allow to read from stderr, we have +to merge stdout and stderr using bash redirection. Then error messages are +extracted from connmanctl output using a regexp. This makes the whole +procedure even more unreliable. + +Raise &connman-connection-error if an error occured during connection. Raise +&connman-password-error if the given password is incorrect." + + (define connman-error-regexp (make-regexp "Error[ ]*([^\n]+)\n")) + + (define (match-connman-error str) + (let ((match-error (regexp-exec connman-error-regexp str))) + (and match-error (match:substring match-error 1)))) + + (define* (read-regexps-or-error port regexps error-handler) + "Read characters from port until an error is detected, or one of the given +REGEXPS is matched. If an error is detected, call ERROR-HANDLER with the error +string as argument. Raise an error if the eof is reached before one of the +regexps is matched." + (let loop ((res "")) + (let ((char (read-char port))) + (cond + ((eof-object? char) + (raise (condition + (&message + (message "Unable to find expected regexp."))))) + ((match-connman-error res) + => + (lambda (match) + (error-handler match))) + ((or-map (lambda (regexp) + (and (regexp-exec regexp res) regexp)) + regexps) + => + (lambda (match) + match)) + (else + (loop (string-append res (string char)))))))) + + (define* (read-regexp-or-error port regexp error-handler) + "Same as READ-REGEXPS-OR-ERROR above, but with a single REGEXP." + (read-regexps-or-error port (list regexp) error-handler)) + + (define (connman-error->condition path error) + (cond + ((string-match "Already connected" error) + (condition (&connman-already-connected-error + (service path) + (output error)))) + (else + (condition (&connman-connection-error + (service path) + (output error)))))) + + (define (run-connection-sequence pipe) + "Run the connection sequence using PIPE as an opened port to an +interactive connmanctl process." + (let* ((path (service-path service)) + (error-handler (lambda (error) + (raise + (connman-error->condition path error))))) + ;; Start the agent. + (format pipe "agent on\n") + (read-regexp-or-error pipe (make-regexp "Agent registered") error-handler) + + ;; Let's try to connect to the service. If the service does not require + ;; a password, the connection might succeed right after this call. + ;; Otherwise, connmanctl will prompt us for a password. + (format pipe "connect ~a\n" path) + (let* ((connected-regexp (make-regexp (format #f "Connected ~a" path))) + (passphrase-regexp (make-regexp "\nPassphrase\\?[ ]*")) + (regexps (list connected-regexp passphrase-regexp)) + (result (read-regexps-or-error pipe regexps error-handler))) + + ;; A password is required. + (when (eq? result passphrase-regexp) + (format pipe "~a~%" (password-proc)) + + ;; Now, we have to wait for the connection to succeed. If an error + ;; occurs, it is most likely because the password is incorrect. + ;; In that case, we escape from an eventual retry loop that would + ;; add complexity to this procedure, and raise a + ;; &connman-password-error condition. + (read-regexp-or-error pipe connected-regexp + (lambda (error) + ;; Escape from retry loop. + (format pipe "no\n") + (raise + (condition (&connman-password-error + (service path) + (output error)))))))))) + + ;; XXX: Find a better way to read stderr, like with the "subprocess" + ;; procedure of racket that return input ports piped on the process stdin and + ;; stderr. + (let ((pipe (open-pipe "connmanctl 2>&1" OPEN_BOTH))) + (dynamic-wind + (const #t) + (lambda () + (run-connection-sequence pipe) + #t) + (lambda () + (format pipe "quit\n") + (close-pipe pipe))))) diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm new file mode 100644 index 0000000000..e1c62f5ce0 --- /dev/null +++ b/gnu/installer/final.scm @@ -0,0 +1,36 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer final) + #:use-module (gnu installer newt page) + #:use-module (gnu installer steps) + #:use-module (gnu installer utils) + #:use-module (gnu services herd) + #:use-module (guix build utils) + #:export (install-system)) + +(define (install-system) + "Start COW-STORE service on target directory and launch guix install command +in a subshell." + (let ((install-command + (format #f "guix system init ~a ~a" + (%installer-configuration-file) + (%installer-target-dir)))) + (mkdir-p (%installer-target-dir)) + (start-service 'cow-store (list (%installer-target-dir))) + (false-if-exception (run-shell-command install-command)))) diff --git a/gnu/installer/hostname.scm b/gnu/installer/hostname.scm new file mode 100644 index 0000000000..b8e823d0a8 --- /dev/null +++ b/gnu/installer/hostname.scm @@ -0,0 +1,23 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer hostname) + #:export (hostname->configuration)) + +(define (hostname->configuration hostname) + `((host-name ,hostname))) diff --git a/gnu/installer/keymap.scm b/gnu/installer/keymap.scm new file mode 100644 index 0000000000..d66b376d9c --- /dev/null +++ b/gnu/installer/keymap.scm @@ -0,0 +1,172 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer keymap) + #:use-module (guix records) + #:use-module (sxml match) + #:use-module (sxml simple) + #:use-module (ice-9 binary-ports) + #:use-module (ice-9 ftw) + #:use-module (ice-9 match) + #:use-module (ice-9 regex) + #:export (<x11-keymap-model> + x11-keymap-model + make-x11-keymap-model + x11-keymap-model? + x11-keymap-model-name + x11-keymap-model-description + + <x11-keymap-layout> + x11-keymap-layout + make-x11-keymap-layout + x11-keymap-layout? + x11-keymap-layout-name + x11-keymap-layout-description + x11-keymap-layout-variants + + <x11-keymap-variant> + x11-keymap-variant + make-x11-keymap-variant + x11-keymap-variant? + x11-keymap-variant-name + x11-keymap-variant-description + + default-keyboard-model + xkb-rules->models+layouts + kmscon-update-keymap)) + +(define-record-type* <x11-keymap-model> + x11-keymap-model make-x11-keymap-model + x11-keymap-model? + (name x11-keymap-model-name) ;string + (description x11-keymap-model-description)) ;string + +(define-record-type* <x11-keymap-layout> + x11-keymap-layout make-x11-keymap-layout + x11-keymap-layout? + (name x11-keymap-layout-name) ;string + (description x11-keymap-layout-description) ;string + (variants x11-keymap-layout-variants)) ;list of <x11-keymap-variant> + +(define-record-type* <x11-keymap-variant> + x11-keymap-variant make-x11-keymap-variant + x11-keymap-variant? + (name x11-keymap-variant-name) ;string + (description x11-keymap-variant-description)) ;string + +;; Assume all modern keyboards have this model. +(define default-keyboard-model (make-parameter "pc105")) + +(define (xkb-rules->models+layouts file) + "Parse FILE and return two values, the list of supported X11-KEYMAP-MODEL +and X11-KEYMAP-LAYOUT records. FILE is an XML file from the X Keyboard +Configuration Database, describing possible XKB configurations." + (define (model m) + (sxml-match m + [(model + (configItem + (name ,name) + (description ,description) + . ,rest)) + (x11-keymap-model + (name name) + (description description))])) + + (define (variant v) + (sxml-match v + [(variant + ;; According to xbd-rules DTD, the definition of a + ;; configItem is: <!ELEMENT configItem + ;; (name,shortDescription*,description*,vendor?, + ;; countryList?,languageList?,hwList?)> + ;; + ;; shortDescription and description are optional elements + ;; but sxml-match does not support default values for + ;; elements (only attributes). So to avoid writing as many + ;; patterns as existing possibilities, gather all the + ;; remaining elements but name in REST-VARIANT. + (configItem + (name ,name) + . ,rest-variant)) + (x11-keymap-variant + (name name) + (description (car + (assoc-ref rest-variant 'description))))])) + + (define (layout l) + (sxml-match l + [(layout + (configItem + (name ,name) + . ,rest-layout) + (variantList ,[variant -> v] ...)) + (x11-keymap-layout + (name name) + (description (car + (assoc-ref rest-layout 'description))) + (variants (list v ...)))] + [(layout + (configItem + (name ,name) + . ,rest-layout)) + (x11-keymap-layout + (name name) + (description (car + (assoc-ref rest-layout 'description))) + (variants '()))])) + + (let ((sxml (call-with-input-file file + (lambda (port) + (xml->sxml port #:trim-whitespace? #t))))) + (match + (sxml-match sxml + [(*TOP* + ,pi + (xkbConfigRegistry + (@ . ,ignored) + (modelList ,[model -> m] ...) + (layoutList ,[layout -> l] ...) + . ,rest)) + (list + (list m ...) + (list l ...))]) + ((models layouts) + (values models layouts))))) + +(define (kmscon-update-keymap model layout variant) + "Update kmscon keymap with the provided MODEL, LAYOUT and VARIANT." + (and=> + (getenv "KEYMAP_UPDATE") + (lambda (keymap-file) + (unless (file-exists? keymap-file) + (error "Unable to locate keymap update file")) + + ;; See file gnu/packages/patches/kmscon-runtime-keymap-switch.patch. + ;; This dirty hack makes possible to update kmscon keymap at runtime by + ;; writing an X11 keyboard model, layout and variant to a named pipe + ;; referred by KEYMAP_UPDATE environment variable. + (call-with-output-file keymap-file + (lambda (port) + (format port model) + (put-u8 port 0) + + (format port layout) + (put-u8 port 0) + + (format port variant) + (put-u8 port 0)))))) diff --git a/gnu/installer/locale.scm b/gnu/installer/locale.scm new file mode 100644 index 0000000000..2b45b2200a --- /dev/null +++ b/gnu/installer/locale.scm @@ -0,0 +1,210 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer locale) + #:use-module (gnu installer utils) + #:use-module (guix records) + #:use-module (json) + #:use-module (srfi srfi-1) + #:use-module (ice-9 match) + #:use-module (ice-9 regex) + #:export (locale-language + locale-territory + locale-codeset + locale-modifier + + locale->locale-string + supported-locales->locales + + iso639->iso639-languages + language-code->language-name + + iso3166->iso3166-territories + territory-code->territory-name + + locale->configuration)) + + +;;; +;;; Locale. +;;; + +;; A glibc locale string has the following format: +;; language[_territory[.codeset][@modifier]]. +(define locale-regexp "^([^_@]+)(_([^\\.@]+))?(\\.([^@]+))?(@([^$]+))?$") + +;; LOCALE will be better expressed in a (guix record) that in an association +;; list. However, loading large files containing records does not scale +;; well. The same thing goes for ISO639 and ISO3166 association lists used +;; later in this module. +(define (locale-language assoc) + (assoc-ref assoc 'language)) +(define (locale-territory assoc) + (assoc-ref assoc 'territory)) +(define (locale-codeset assoc) + (assoc-ref assoc 'codeset)) +(define (locale-modifier assoc) + (assoc-ref assoc 'modifier)) + +(define (locale-string->locale string) + "Return the locale association list built from the parsing of STRING." + (let ((matches (string-match locale-regexp string))) + `((language . ,(match:substring matches 1)) + (territory . ,(match:substring matches 3)) + (codeset . ,(match:substring matches 5)) + (modifier . ,(match:substring matches 7))))) + +(define (locale->locale-string locale) + "Reverse operation of locale-string->locale." + (let ((language (locale-language locale)) + (territory (locale-territory locale)) + (codeset (locale-codeset locale)) + (modifier (locale-modifier locale))) + (apply string-append + `(,language + ,@(if territory + `("_" ,territory) + '()) + ,@(if codeset + `("." ,codeset) + '()) + ,@(if modifier + `("@" ,modifier) + '()))))) + +(define (supported-locales->locales supported-locales) + "Parse the SUPPORTED-LOCALES file from the glibc and return the matching +list of LOCALE association lists." + (call-with-input-file supported-locales + (lambda (port) + (let ((lines (read-lines port))) + (map (lambda (line) + (match (string-split line #\ ) + ((locale-string codeset) + (let ((line-locale (locale-string->locale locale-string))) + (assoc-set! line-locale 'codeset codeset))))) + lines))))) + + +;;; +;;; Language. +;;; + +(define (iso639-language-alpha2 assoc) + (assoc-ref assoc 'alpha2)) + +(define (iso639-language-alpha3 assoc) + (assoc-ref assoc 'alpha3)) + +(define (iso639-language-name assoc) + (assoc-ref assoc 'name)) + +(define (supported-locale? locales alpha2 alpha3) + "Find a locale in LOCALES whose alpha2 field matches ALPHA-2 or alpha3 field +matches ALPHA-3. The ISO639 standard specifies that ALPHA-2 is optional. Thus, +if ALPHA-2 is #f, only consider ALPHA-3. Return #f if not matching locale was +found." + (find (lambda (locale) + (let ((language (locale-language locale))) + (or (and=> alpha2 + (lambda (code) + (string=? language code))) + (string=? language alpha3)))) + locales)) + +(define (iso639->iso639-languages locales iso639-3 iso639-5) + "Return a list of ISO639 association lists created from the parsing of +ISO639-3 and ISO639-5 files." + (call-with-input-file iso639-3 + (lambda (port-iso639-3) + (call-with-input-file iso639-5 + (lambda (port-iso639-5) + (filter-map + (lambda (hash) + (let ((alpha2 (hash-ref hash "alpha_2")) + (alpha3 (hash-ref hash "alpha_3")) + (name (hash-ref hash "name"))) + (and (supported-locale? locales alpha2 alpha3) + `((alpha2 . ,alpha2) + (alpha3 . ,alpha3) + (name . ,name))))) + (append + (hash-ref (json->scm port-iso639-3) "639-3") + (hash-ref (json->scm port-iso639-5) "639-5")))))))) + +(define (language-code->language-name languages language-code) + "Using LANGUAGES as a list of ISO639 association lists, return the language +name corresponding to the given LANGUAGE-CODE." + (let ((iso639-language + (find (lambda (language) + (or + (and=> (iso639-language-alpha2 language) + (lambda (alpha2) + (string=? alpha2 language-code))) + (string=? (iso639-language-alpha3 language) + language-code))) + languages))) + (iso639-language-name iso639-language))) + + +;;; +;;; Territory. +;;; + +(define (iso3166-territory-alpha2 assoc) + (assoc-ref assoc 'alpha2)) + +(define (iso3166-territory-alpha3 assoc) + (assoc-ref assoc 'alpha3)) + +(define (iso3166-territory-name assoc) + (assoc-ref assoc 'name)) + +(define (iso3166->iso3166-territories iso3166) + "Return a list of ISO3166 association lists created from the parsing of +ISO3166 file." + (call-with-input-file iso3166 + (lambda (port) + (map (lambda (hash) + `((alpha2 . ,(hash-ref hash "alpha_2")) + (alpha3 . ,(hash-ref hash "alpha_3")) + (name . ,(hash-ref hash "name")))) + (hash-ref (json->scm port) "3166-1"))))) + +(define (territory-code->territory-name territories territory-code) + "Using TERRITORIES as a list of ISO3166 association lists return the +territory name corresponding to the given TERRITORY-CODE." + (let ((iso3166-territory + (find (lambda (territory) + (or + (and=> (iso3166-territory-alpha2 territory) + (lambda (alpha2) + (string=? alpha2 territory-code))) + (string=? (iso3166-territory-alpha3 territory) + territory-code))) + territories))) + (iso3166-territory-name iso3166-territory))) + + +;;; +;;; Configuration formatter. +;;; + +(define (locale->configuration locale) + "Return the configuration field for LOCALE." + `((locale ,locale))) diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm new file mode 100644 index 0000000000..6c44b4acf6 --- /dev/null +++ b/gnu/installer/newt.scm @@ -0,0 +1,128 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt) + #:use-module (gnu installer record) + #:use-module (gnu installer utils) + #:use-module (gnu installer newt ethernet) + #:use-module (gnu installer newt final) + #:use-module (gnu installer newt hostname) + #:use-module (gnu installer newt keymap) + #:use-module (gnu installer newt locale) + #:use-module (gnu installer newt menu) + #:use-module (gnu installer newt network) + #:use-module (gnu installer newt page) + #:use-module (gnu installer newt partition) + #:use-module (gnu installer newt services) + #:use-module (gnu installer newt timezone) + #:use-module (gnu installer newt user) + #:use-module (gnu installer newt utils) + #:use-module (gnu installer newt welcome) + #:use-module (gnu installer newt wifi) + #:use-module (guix config) + #:use-module (guix discovery) + #:use-module (guix i18n) + #:use-module (srfi srfi-26) + #:use-module (newt) + #:export (newt-installer)) + +(define (init) + (newt-init) + (clear-screen) + (set-screen-size!)) + +(define (exit) + (newt-finish) + (clear-screen)) + +(define (exit-error file key args) + (newt-set-color COLORSET-ROOT "white" "red") + (let ((width (nearest-exact-integer + (* (screen-columns) 0.8))) + (height (nearest-exact-integer + (* (screen-rows) 0.7)))) + (run-file-textbox-page + #:info-text (format #f (G_ "The installer has encountered an unexpected \ +problem. The backtrace is displayed below. Please report it by email to \ +<~a>.") %guix-bug-report-address) + #:title (G_ "Unexpected problem") + #:file file + #:exit-button? #f + #:info-textbox-width width + #:file-textbox-width width + #:file-textbox-height height)) + (newt-set-color COLORSET-ROOT "white" "blue") + (newt-finish) + (clear-screen)) + +(define (final-page result prev-steps) + (run-final-page result prev-steps)) + +(define* (locale-page #:key + supported-locales + iso639-languages + iso3166-territories) + (run-locale-page + #:supported-locales supported-locales + #:iso639-languages iso639-languages + #:iso3166-territories iso3166-territories)) + +(define (timezone-page zonetab) + (run-timezone-page zonetab)) + +(define (welcome-page logo) + (run-welcome-page logo)) + +(define (menu-page steps) + (run-menu-page steps)) + +(define* (keymap-page layouts) + (run-keymap-page layouts)) + +(define (network-page) + (run-network-page)) + +(define (hostname-page) + (run-hostname-page)) + +(define (user-page) + (run-user-page)) + +(define (partition-page) + (run-partioning-page)) + +(define (services-page) + (run-services-page)) + +(define newt-installer + (installer + (name 'newt) + (init init) + (exit exit) + (exit-error exit-error) + (final-page final-page) + (keymap-page keymap-page) + (locale-page locale-page) + (menu-page menu-page) + (network-page network-page) + (timezone-page timezone-page) + (hostname-page hostname-page) + (user-page user-page) + (partition-page partition-page) + (services-page services-page) + (welcome-page welcome-page))) diff --git a/gnu/installer/newt/ethernet.scm b/gnu/installer/newt/ethernet.scm new file mode 100644 index 0000000000..d1f357243b --- /dev/null +++ b/gnu/installer/newt/ethernet.scm @@ -0,0 +1,81 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt ethernet) + #:use-module (gnu installer connman) + #:use-module (gnu installer steps) + #:use-module (gnu installer newt utils) + #:use-module (gnu installer newt page) + #:use-module (guix i18n) + #:use-module (ice-9 format) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (newt) + #:export (run-ethernet-page)) + +(define (ethernet-services) + "Return all the connman services of ethernet type." + (let ((services (connman-services))) + (filter (lambda (service) + (and (string=? (service-type service) "ethernet") + (not (string-null? (service-name service))))) + services))) + +(define (ethernet-service->text service) + "Return a string describing the given ethernet SERVICE." + (let* ((name (service-name service)) + (path (service-path service)) + (full-name (string-append name "-" path)) + (state (service-state service)) + (connected? (or (string=? state "online") + (string=? state "ready")))) + (format #f "~c ~a~%" + (if connected? #\* #\ ) + full-name))) + +(define (connect-ethernet-service service) + "Connect to the given ethernet SERVICE. Display a connecting page while the +connection is pending." + (let* ((service-name (service-name service)) + (form (draw-connecting-page service-name))) + (connman-connect service) + (destroy-form-and-pop form) + service)) + +(define (run-ethernet-page) + (let ((services (ethernet-services))) + (if (null? services) + (begin + (run-error-page + (G_ "No ethernet service available, please try again.") + (G_ "No service")) + (raise + (condition + (&installer-step-abort)))) + (run-listbox-selection-page + #:info-text (G_ "Please select an ethernet network.") + #:title (G_ "Ethernet connection") + #:listbox-items services + #:listbox-item->text ethernet-service->text + #:button-text (G_ "Exit") + #:button-callback-procedure + (lambda _ + (raise + (condition + (&installer-step-abort)))) + #:listbox-callback-procedure connect-ethernet-service)))) diff --git a/gnu/installer/newt/final.scm b/gnu/installer/newt/final.scm new file mode 100644 index 0000000000..645c1e8689 --- /dev/null +++ b/gnu/installer/newt/final.scm @@ -0,0 +1,86 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt final) + #:use-module (gnu installer final) + #:use-module (gnu installer parted) + #:use-module (gnu installer steps) + #:use-module (gnu installer utils) + #:use-module (gnu installer newt page) + #:use-module (gnu installer newt utils) + #:use-module (guix i18n) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (newt) + #:export (run-final-page)) + +(define (run-config-display-page) + (let ((width (%configuration-file-width)) + (height (nearest-exact-integer + (/ (screen-rows) 2)))) + (run-file-textbox-page + #:info-text (G_ "We're now ready to proceed with the installation! \ +A system configuration file has been generated, it is displayed below. \ +The new system will be created from this file once you've pressed OK. \ +This will take a few minutes.") + #:title (G_ "Configuration file") + #:file (%installer-configuration-file) + #:info-textbox-width width + #:file-textbox-width width + #:file-textbox-height height + #:exit-button-callback-procedure + (lambda () + (raise + (condition + (&installer-step-abort))))))) + +(define (run-install-success-page) + (message-window + (G_ "Installation complete") + (G_ "Reboot") + (G_ "Congratulations! Installation is now complete. \ +You may remove the device containing the installation image and \ +press the button to reboot."))) + +(define (run-install-failed-page) + (choice-window + (G_ "Installation failed") + (G_ "Restart installer") + (G_ "Retry system install") + (G_ "The final system installation step failed. You can retry the \ +last step, or restart the installer."))) + +(define (run-install-shell) + (clear-screen) + (newt-suspend) + (let ((install-ok? (install-system))) + (newt-resume) + install-ok?)) + +(define (run-final-page result prev-steps) + (let* ((configuration (format-configuration prev-steps result)) + (user-partitions (result-step result 'partition)) + (install-ok? + (with-mounted-partitions + user-partitions + (configuration->file configuration) + (run-config-display-page) + (run-install-shell)))) + (if install-ok? + (run-install-success-page) + (run-install-failed-page)))) diff --git a/gnu/installer/newt/hostname.scm b/gnu/installer/newt/hostname.scm new file mode 100644 index 0000000000..7783fa6360 --- /dev/null +++ b/gnu/installer/newt/hostname.scm @@ -0,0 +1,26 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt hostname) + #:use-module (gnu installer newt page) + #:use-module (guix i18n) + #:export (run-hostname-page)) + +(define (run-hostname-page) + (run-input-page (G_ "Please enter the system hostname.") + (G_ "Hostname"))) diff --git a/gnu/installer/newt/keymap.scm b/gnu/installer/newt/keymap.scm new file mode 100644 index 0000000000..6211af2bc5 --- /dev/null +++ b/gnu/installer/newt/keymap.scm @@ -0,0 +1,122 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt keymap) + #:use-module (gnu installer keymap) + #:use-module (gnu installer steps) + #:use-module (gnu installer newt page) + #:use-module (guix i18n) + #:use-module (guix records) + #:use-module (newt) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:export (run-keymap-page)) + +(define (run-layout-page layouts layout->text) + (let ((title (G_ "Layout"))) + (run-listbox-selection-page + #:title title + #:info-text (G_ "Please choose your keyboard layout.") + #:listbox-items layouts + #:listbox-item->text layout->text + #:sort-listbox-items? #f + #:button-text (G_ "Exit") + #:button-callback-procedure + (lambda _ + (raise + (condition + (&installer-step-abort))))))) + +(define (run-variant-page variants variant->text) + (let ((title (G_ "Variant"))) + (run-listbox-selection-page + #:title title + #:info-text (G_ "Please choose a variant for your keyboard layout.") + #:listbox-items variants + #:listbox-item->text variant->text + #:sort-listbox-items? #f + #:button-text (G_ "Back") + #:button-callback-procedure + (lambda _ + (raise + (condition + (&installer-step-abort))))))) + +(define (sort-layouts layouts) + "Sort LAYOUTS list by putting the US layout ahead and return it." + (call-with-values + (lambda () + (partition + (lambda (layout) + (let ((name (x11-keymap-layout-name layout))) + (string=? name "us"))) + layouts)) + (cut append <> <>))) + +(define (sort-variants variants) + "Sort VARIANTS list by putting the internation variant ahead and return it." + (call-with-values + (lambda () + (partition + (lambda (variant) + (let ((name (x11-keymap-variant-name variant))) + (string=? name "altgr-intl"))) + variants)) + (cut append <> <>))) + +(define* (run-keymap-page layouts) + "Run a page asking the user to select a keyboard layout and variant. LAYOUTS +is a list of supported X11-KEYMAP-LAYOUT. Return a list of two elements, the +names of the selected keyboard layout and variant." + (define keymap-steps + (list + (installer-step + (id 'layout) + (compute + (lambda _ + (run-layout-page + (sort-layouts layouts) + (lambda (layout) + (x11-keymap-layout-description layout)))))) + ;; Propose the user to select a variant among those supported by the + ;; previously selected layout. + (installer-step + (id 'variant) + (compute + (lambda (result _) + (let* ((layout (result-step result 'layout)) + (variants (x11-keymap-layout-variants layout))) + ;; Return #f if the layout does not have any variant. + (and (not (null? variants)) + (run-variant-page + (sort-variants variants) + (lambda (variant) + (x11-keymap-variant-description + variant)))))))))) + + (define (format-result result) + (let ((layout (x11-keymap-layout-name + (result-step result 'layout))) + (variant (and=> (result-step result 'variant) + (lambda (variant) + (x11-keymap-variant-name variant))))) + (list layout (or variant "")))) + (format-result + (run-installer-steps #:steps keymap-steps))) diff --git a/gnu/installer/newt/locale.scm b/gnu/installer/newt/locale.scm new file mode 100644 index 0000000000..4fa07df81e --- /dev/null +++ b/gnu/installer/newt/locale.scm @@ -0,0 +1,217 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt locale) + #:use-module (gnu installer locale) + #:use-module (gnu installer steps) + #:use-module (gnu installer newt page) + #:use-module (guix i18n) + #:use-module (newt) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (ice-9 match) + #:export (run-locale-page)) + +(define (run-language-page languages language->text) + (let ((title (G_ "Locale language"))) + (run-listbox-selection-page + #:title title + #:info-text (G_ "Choose the locale's language to be used for the \ +installation process. A locale is a regional variant of your language \ +encompassing number, date and currency format, among other details. + +Based on the language you choose, you will possibly be asked to \ +select a locale's territory, codeset and modifier in the next \ +steps. The locale will also be used as the default one for the \ +installed system.") + #:info-textbox-width 70 + #:listbox-items languages + #:listbox-item->text language->text + #:sort-listbox-items? #f + #:button-text (G_ "Exit") + #:button-callback-procedure + (lambda _ + (raise + (condition + (&installer-step-abort))))))) + +(define (run-territory-page territories territory->text) + (let ((title (G_ "Locale location"))) + (run-listbox-selection-page + #:title title + #:info-text (G_ "Choose your locale's location. This is a shortlist of \ +locations based on the language you selected.") + #:listbox-items territories + #:listbox-item->text territory->text + #:button-text (G_ "Back") + #:button-callback-procedure + (lambda _ + (raise + (condition + (&installer-step-abort))))))) + +(define (run-codeset-page codesets) + (let ((title (G_ "Locale codeset"))) + (run-listbox-selection-page + #:title title + #:info-text (G_ "Choose your locale's codeset. If UTF-8 is available, \ + it should be preferred.") + #:listbox-items codesets + #:listbox-item->text identity + #:listbox-default-item "UTF-8" + #:button-text (G_ "Back") + #:button-callback-procedure + (lambda _ + (raise + (condition + (&installer-step-abort))))))) + +(define (run-modifier-page modifiers modifier->text) + (let ((title (G_ "Locale modifier"))) + (run-listbox-selection-page + #:title title + #:info-text (G_ "Choose your locale's modifier. The most frequent \ +modifier is euro. It indicates that you want to use Euro as the currency \ +symbol.") + #:listbox-items modifiers + #:listbox-item->text modifier->text + #:button-text (G_ "Back") + #:button-callback-procedure + (lambda _ + (raise + (condition + (&installer-step-abort))))))) + +(define* (run-locale-page #:key + supported-locales + iso639-languages + iso3166-territories) + "Run a page asking the user to select a locale language and possibly +territory, codeset and modifier. Use SUPPORTED-LOCALES as the list of glibc +available locales. ISO639-LANGUAGES is an association list associating a +locale code to a locale name. ISO3166-TERRITORIES is an association list +associating a territory code with a territory name. The formated locale, under +glibc format is returned." + + (define (break-on-locale-found locales) + "Raise the &installer-step-break condition if LOCALES contains exactly one +element." + (and (= (length locales) 1) + (raise + (condition (&installer-step-break))))) + + (define (filter-locales locales result) + "Filter the list of locale records LOCALES using the RESULT returned by +the installer-steps defined below." + (filter + (lambda (locale) + (and-map identity + `(,(string=? (locale-language locale) + (result-step result 'language)) + ,@(if (result-step-done? result 'territory) + (list (equal? (locale-territory locale) + (result-step result 'territory))) + '()) + ,@(if (result-step-done? result 'codeset) + (list (equal? (locale-codeset locale) + (result-step result 'codeset))) + '()) + ,@(if (result-step-done? result 'modifier) + (list (equal? (locale-modifier locale) + (result-step result 'modifier))) + '())))) + locales)) + + (define (result->locale-string locales result) + "Supposing that LOCALES contains exactly one locale record, turn it into a +glibc locale string and return it." + (match (filter-locales locales result) + ((locale) + (locale->locale-string locale)))) + + (define (sort-languages languages) + "Extract some languages from LANGUAGES list and place them ahead." + (let* ((first-languages '("en")) + (other-languages (lset-difference equal? + languages + first-languages))) + `(,@first-languages ,@other-languages))) + + (define locale-steps + (list + (installer-step + (id 'language) + (compute + (lambda _ + (run-language-page + (sort-languages + (delete-duplicates (map locale-language supported-locales))) + (cut language-code->language-name iso639-languages <>))))) + (installer-step + (id 'territory) + (compute + (lambda (result _) + (let ((locales (filter-locales supported-locales result))) + ;; Stop the process if the language returned by the previous step + ;; is matching one and only one supported locale. + (break-on-locale-found locales) + + ;; Otherwise, ask the user to select a territory among those + ;; supported by the previously selected language. + (run-territory-page + (delete-duplicates (map locale-territory locales)) + (lambda (territory-code) + (if territory-code + (territory-code->territory-name iso3166-territories + territory-code) + (G_ "No location")))))))) + (installer-step + (id 'codeset) + (compute + (lambda (result _) + (let ((locales (filter-locales supported-locales result))) + ;; Same as above but we now have a language and a territory to + ;; narrow down the search of a locale. + (break-on-locale-found locales) + + ;; Otherwise, ask for a codeset. + (run-codeset-page + (delete-duplicates (map locale-codeset locales))))))) + (installer-step + (id 'modifier) + (compute + (lambda (result _) + (let ((locales (filter-locales supported-locales result))) + ;; Same thing with a language, a territory and a codeset this time. + (break-on-locale-found locales) + + ;; Otherwise, ask for a modifier. + (run-modifier-page + (delete-duplicates (map locale-modifier locales)) + (lambda (modifier) + (or modifier (G_ "No modifier")))))))))) + + ;; If run-installer-steps returns locally, it means that the user had to go + ;; through all steps (language, territory, codeset and modifier) to select a + ;; locale. In that case, like if we exited by raising &installer-step-break + ;; condition, turn the result into a glibc locale string and return it. + (result->locale-string + supported-locales + (run-installer-steps #:steps locale-steps))) diff --git a/gnu/installer/newt/menu.scm b/gnu/installer/newt/menu.scm new file mode 100644 index 0000000000..161266a94a --- /dev/null +++ b/gnu/installer/newt/menu.scm @@ -0,0 +1,44 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt menu) + #:use-module (gnu installer steps) + #:use-module (gnu installer newt page) + #:use-module (guix i18n) + #:use-module (newt) + #:export (run-menu-page)) + +(define (run-menu-page steps) + "Run a menu page, asking the user to select where to resume the install +process from." + (define (steps->items steps) + (filter (lambda (step) + (installer-step-description step)) + steps)) + + (run-listbox-selection-page + #:info-text (G_ "Choose where you want to resume the install.\ +You can also abort the installation by pressing the Abort button.") + #:title (G_ "Installation menu") + #:listbox-items (steps->items steps) + #:listbox-item->text installer-step-description + #:sort-listbox-items? #f + #:button-text (G_ "Abort") + #:button-callback-procedure (lambda () + (newt-finish) + (primitive-exit 1)))) diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm new file mode 100644 index 0000000000..f263b7df9d --- /dev/null +++ b/gnu/installer/newt/network.scm @@ -0,0 +1,173 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt network) + #:use-module (gnu installer connman) + #:use-module (gnu installer steps) + #:use-module (gnu installer utils) + #:use-module (gnu installer newt ethernet) + #:use-module (gnu installer newt page) + #:use-module (gnu installer newt wifi) + #:use-module (guix i18n) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-11) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (newt) + #:export (run-network-page)) + +;; Maximum length of a technology name. +(define technology-name-max-length (make-parameter 20)) + +(define (technology->text technology) + "Return a string describing the given TECHNOLOGY." + (let* ((name (technology-name technology)) + (padded-name (string-pad-right name + (technology-name-max-length)))) + (format #f "~a~%" padded-name))) + +(define (run-technology-page) + "Run a page to ask the user which technology shall be used to access +Internet and return the selected technology. For now, only technologies with +\"ethernet\" or \"wifi\" types are supported." + (define (technology-items) + (filter (lambda (technology) + (let ((type (technology-type technology))) + (or + (string=? type "ethernet") + (string=? type "wifi")))) + (connman-technologies))) + + (let ((items (technology-items))) + (if (null? items) + (case (choice-window + (G_ "Internet access") + (G_ "Continue") + (G_ "Exit") + (G_ "The install process requires an internet access, but no \ +network device were found. Do you want to continue anyway?")) + ((1) (raise + (condition + (&installer-step-break)))) + ((2) (raise + (condition + (&installer-step-abort))))) + (run-listbox-selection-page + #:info-text (G_ "The install process requires an internet access.\ + Please select a network device.") + #:title (G_ "Internet access") + #:listbox-items items + #:listbox-item->text technology->text + #:button-text (G_ "Exit") + #:button-callback-procedure + (lambda _ + (raise + (condition + (&installer-step-abort)))))))) + +(define (find-technology-by-type technologies type) + "Find and return a technology with the given TYPE in TECHNOLOGIES list." + (find (lambda (technology) + (string=? (technology-type technology) + type)) + technologies)) + +(define (wait-technology-powered technology) + "Wait and display a progress bar until the given TECHNOLOGY is powered." + (let ((name (technology-name technology)) + (full-value 5)) + (run-scale-page + #:title (G_ "Powering technology") + #:info-text (format #f "Waiting for technology ~a to be powered." name) + #:scale-full-value full-value + #:scale-update-proc + (lambda (value) + (let* ((technologies (connman-technologies)) + (type (technology-type technology)) + (updated-technology + (find-technology-by-type technologies type)) + (technology-powered? updated-technology)) + (sleep 1) + (if technology-powered? + full-value + (+ value 1))))))) + +(define (wait-service-online) + "Display a newt scale until connman detects an Internet access. Do +FULL-VALUE tentatives, spaced by 1 second." + (let* ((full-value 5)) + (run-scale-page + #:title (G_ "Checking connectivity") + #:info-text (G_ "Waiting internet access is established.") + #:scale-full-value full-value + #:scale-update-proc + (lambda (value) + (sleep 1) + (if (connman-online?) + full-value + (+ value 1)))) + (unless (connman-online?) + (run-error-page + (G_ "The selected network does not provide an Internet \ +access, please try again.") + (G_ "Connection error")) + (raise + (condition + (&installer-step-abort)))))) + +(define (run-network-page) + "Run a page to allow the user to configure connman so that it can access the +Internet." + (define network-steps + (list + ;; Ask the user to choose between ethernet and wifi technologies. + (installer-step + (id 'select-technology) + (compute + (lambda _ + (run-technology-page)))) + ;; Enable the previously selected technology. + (installer-step + (id 'power-technology) + (compute + (lambda (result _) + (let ((technology (result-step result 'select-technology))) + (connman-enable-technology technology) + (wait-technology-powered technology))))) + ;; Propose the user to connect to one of the service available for the + ;; previously selected technology. + (installer-step + (id 'connect-service) + (compute + (lambda (result _) + (let* ((technology (result-step result 'select-technology)) + (type (technology-type technology))) + (cond + ((string=? "wifi" type) + (run-wifi-page)) + ((string=? "ethernet" type) + (run-ethernet-page))))))) + ;; Wait for connman status to switch to 'online, which means it can + ;; access Internet. + (installer-step + (id 'wait-online) + (compute (lambda _ + (wait-service-online)))))) + (run-installer-steps + #:steps network-steps + #:rewind-strategy 'start)) diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm new file mode 100644 index 0000000000..edf0b8c999 --- /dev/null +++ b/gnu/installer/newt/page.scm @@ -0,0 +1,530 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt page) + #:use-module (gnu installer utils) + #:use-module (gnu installer newt utils) + #:use-module (guix i18n) + #:use-module (ice-9 match) + #:use-module (ice-9 receive) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:use-module (newt) + #:export (draw-info-page + draw-connecting-page + run-input-page + run-error-page + run-listbox-selection-page + run-scale-page + run-checkbox-tree-page + run-file-textbox-page)) + +;;; Commentary: +;;; +;;; Some helpers around guile-newt to draw or run generic pages. The +;;; difference between 'draw' and 'run' terms comes from newt library. A page +;;; is drawn when the form it contains does not expect any user +;;; interaction. In that case, it is necessary to call (newt-refresh) to force +;;; the page to be displayed. When a form is 'run', it is blocked waiting for +;;; any action from the user (press a button, input some text, ...). +;;; +;;; Code: + +(define (draw-info-page text title) + "Draw an informative page with the given TEXT as content. Set the title of +this page to TITLE." + (let* ((text-box + (make-reflowed-textbox -1 -1 text 40 + #:flags FLAG-BORDER)) + (grid (make-grid 1 1)) + (form (make-form))) + (set-grid-field grid 0 0 GRID-ELEMENT-COMPONENT text-box) + (add-component-to-form form text-box) + (make-wrapped-grid-window grid title) + (draw-form form) + ;; This call is imperative, otherwise the form won't be displayed. See the + ;; explanation in the above commentary. + (newt-refresh) + form)) + +(define (draw-connecting-page service-name) + "Draw a page to indicate a connection in in progress." + (draw-info-page + (format #f (G_ "Connecting to ~a, please wait.") service-name) + (G_ "Connection in progress"))) + +(define* (run-input-page text title + #:key + (allow-empty-input? #f) + (default-text #f) + (input-field-width 40)) + "Run a page to prompt user for an input. The given TEXT will be displayed +above the input field. The page title is set to TITLE. Unless +allow-empty-input? is set to #t, an error page will be displayed if the user +enters an empty input." + (let* ((text-box + (make-reflowed-textbox -1 -1 text + input-field-width + #:flags FLAG-BORDER)) + (grid (make-grid 1 3)) + (input-entry (make-entry -1 -1 20)) + (ok-button (make-button -1 -1 (G_ "OK"))) + (form (make-form))) + + (when default-text + (set-entry-text input-entry default-text)) + + (set-grid-field grid 0 0 GRID-ELEMENT-COMPONENT text-box) + (set-grid-field grid 0 1 GRID-ELEMENT-COMPONENT input-entry + #:pad-top 1) + (set-grid-field grid 0 2 GRID-ELEMENT-COMPONENT ok-button + #:pad-top 1) + + (add-components-to-form form text-box input-entry ok-button) + (make-wrapped-grid-window grid title) + (let ((error-page (lambda () + (run-error-page (G_ "Please enter a non empty input.") + (G_ "Empty input"))))) + (let loop () + (receive (exit-reason argument) + (run-form form) + (let ((input (entry-value input-entry))) + (if (and (not allow-empty-input?) + (eq? exit-reason 'exit-component) + (string=? input "")) + (begin + ;; Display the error page. + (error-page) + ;; Set the focus back to the input input field. + (set-current-component form input-entry) + (loop)) + (begin + (destroy-form-and-pop form) + input)))))))) + +(define (run-error-page text title) + "Run a page to inform the user of an error. The page contains the given TEXT +to explain the error and an \"OK\" button to acknowledge the error. The title +of the page is set to TITLE." + (let* ((text-box + (make-reflowed-textbox -1 -1 text 40 + #:flags FLAG-BORDER)) + (grid (make-grid 1 2)) + (ok-button (make-button -1 -1 "OK")) + (form (make-form))) + + (set-grid-field grid 0 0 GRID-ELEMENT-COMPONENT text-box) + (set-grid-field grid 0 1 GRID-ELEMENT-COMPONENT ok-button + #:pad-top 1) + + ;; Set the background color to red to indicate something went wrong. + (newt-set-color COLORSET-ROOT "white" "red") + (add-components-to-form form text-box ok-button) + (make-wrapped-grid-window grid title) + (run-form form) + ;; Restore the background to its original color. + (newt-set-color COLORSET-ROOT "white" "blue") + (destroy-form-and-pop form))) + +(define* (run-listbox-selection-page #:key + info-text + title + (info-textbox-width 50) + listbox-items + listbox-item->text + (listbox-height 20) + (listbox-default-item #f) + (listbox-allow-multiple? #f) + (sort-listbox-items? #t) + (allow-delete? #f) + (skip-item-procedure? + (const #f)) + button-text + (button-callback-procedure + (const #t)) + (button2-text #f) + (button2-callback-procedure + (const #t)) + (listbox-callback-procedure + identity) + (hotkey-callback-procedure + (const #t))) + "Run a page asking the user to select an item in a listbox. The page +contains, stacked vertically from the top to the bottom, an informative text +set to INFO-TEXT, a listbox and a button. The listbox will be filled with +LISTBOX-ITEMS converted to text by applying the procedure LISTBOX-ITEM->TEXT +on every item. The selected item from LISTBOX-ITEMS is returned. The button +text is set to BUTTON-TEXT and the procedure BUTTON-CALLBACK-PROCEDURE called +when it is pressed. The procedure LISTBOX-CALLBACK-PROCEDURE is called when an +item from the listbox is selected (by pressing the <ENTER> key). + +INFO-TEXTBOX-WIDTH is the width of the textbox where INFO-TEXT will be +displayed. LISTBOX-HEIGHT is the height of the listbox. + +If LISTBOX-DEFAULT-ITEM is set to the value of one of the items in +LISTBOX-ITEMS, it will be selected by default. Otherwise, the first element of +the listbox is selected. + +If LISTBOX-ALLOW-MULTIPLE? is set to #t, multiple items from the listbox can +be selected (using the <SPACE> key). It that case, a list containing the +selected items will be returned. + +If SORT-LISTBOX-ITEMS? is set to #t, the listbox items are sorted using +'string<=' procedure (after being converted to text). + +If ALLOW-DELETE? is #t, the form will return if the <DELETE> key is pressed, +otherwise nothing will happend. + +Each time the listbox current item changes, call SKIP-ITEM-PROCEDURE? with the +current listbox item as argument. If it returns #t, skip the element and jump +to the next/previous one depending on the previous item, otherwise do +nothing." + + (define (fill-listbox listbox items) + "Append the given ITEMS to LISTBOX, once they have been converted to text +with LISTBOX-ITEM->TEXT. Each item appended to the LISTBOX is given a key by +newt. Save this key by returning an association list under the form: + + ((NEWT-LISTBOX-KEY . ITEM) ...) + +where NEWT-LISTBOX-KEY is the key returned by APPEND-ENTRY-TO-LISTBOX, when +ITEM was inserted into LISTBOX." + (map (lambda (item) + (let* ((text (listbox-item->text item)) + (key (append-entry-to-listbox listbox text))) + (cons key item))) + items)) + + (define (sort-listbox-items listbox-items) + "Return LISTBOX-ITEMS sorted using the 'string<=' procedure on the text +corresponding to each item in the list." + (let* ((items (map (lambda (item) + (cons item (listbox-item->text item))) + listbox-items)) + (sorted-items + (sort items (lambda (a b) + (let ((text-a (cdr a)) + (text-b (cdr b))) + (string<= text-a text-b)))))) + (map car sorted-items))) + + ;; Store the last selected listbox item's key. + (define last-listbox-key (make-parameter #f)) + + (define (previous-key keys key) + (let ((index (list-index (cut eq? key <>) keys))) + (and index + (> index 0) + (list-ref keys (- index 1))))) + + (define (next-key keys key) + (let ((index (list-index (cut eq? key <>) keys))) + (and index + (< index (- (length keys) 1)) + (list-ref keys (+ index 1))))) + + (define (set-default-item listbox listbox-keys default-item) + "Set the default item of LISTBOX to DEFAULT-ITEM. LISTBOX-KEYS is the +association list returned by the FILL-LISTBOX procedure. It is used because +the current listbox item has to be selected by key." + (for-each (match-lambda + ((key . item) + (when (equal? item default-item) + (set-current-listbox-entry-by-key listbox key)))) + listbox-keys)) + + (let* ((listbox (make-listbox + -1 -1 + listbox-height + (logior FLAG-SCROLL FLAG-BORDER FLAG-RETURNEXIT + (if listbox-allow-multiple? + FLAG-MULTIPLE + 0)))) + (form (make-form)) + (info-textbox + (make-reflowed-textbox -1 -1 info-text + info-textbox-width + #:flags FLAG-BORDER)) + (button (make-button -1 -1 button-text)) + (button2 (and button2-text + (make-button -1 -1 button2-text))) + (grid (vertically-stacked-grid + GRID-ELEMENT-COMPONENT info-textbox + GRID-ELEMENT-COMPONENT listbox + GRID-ELEMENT-SUBGRID + (apply + horizontal-stacked-grid + GRID-ELEMENT-COMPONENT button + `(,@(if button2 + (list GRID-ELEMENT-COMPONENT button2) + '()))))) + (sorted-items (if sort-listbox-items? + (sort-listbox-items listbox-items) + listbox-items)) + (keys (fill-listbox listbox sorted-items))) + + ;; On every listbox element change, check if we need to skip it. If yes, + ;; depending on the 'last-listbox-key', jump forward or backward. If no, + ;; do nothing. + (add-component-callback + listbox + (lambda (component) + (let* ((current-key (current-listbox-entry listbox)) + (listbox-keys (map car keys)) + (last-key (last-listbox-key)) + (item (assoc-ref keys current-key)) + (prev-key (previous-key listbox-keys current-key)) + (next-key (next-key listbox-keys current-key))) + ;; Update last-listbox-key before a potential call to + ;; set-current-listbox-entry-by-key, because it will immediately + ;; cause this callback to be called for the new entry. + (last-listbox-key current-key) + (when (skip-item-procedure? item) + (when (eq? prev-key last-key) + (if next-key + (set-current-listbox-entry-by-key listbox next-key) + (set-current-listbox-entry-by-key listbox prev-key))) + (when (eq? next-key last-key) + (if prev-key + (set-current-listbox-entry-by-key listbox prev-key) + (set-current-listbox-entry-by-key listbox next-key))))))) + + (when listbox-default-item + (set-default-item listbox keys listbox-default-item)) + + (when allow-delete? + (form-add-hotkey form KEY-DELETE)) + + (add-form-to-grid grid form #t) + (make-wrapped-grid-window grid title) + + (receive (exit-reason argument) + (run-form form) + (dynamic-wind + (const #t) + (lambda () + (case exit-reason + ((exit-component) + (cond + ((components=? argument button) + (button-callback-procedure)) + ((and button2 + (components=? argument button2)) + (button2-callback-procedure)) + ((components=? argument listbox) + (if listbox-allow-multiple? + (let* ((entries (listbox-selection listbox)) + (items (map (lambda (entry) + (assoc-ref keys entry)) + entries))) + (listbox-callback-procedure items)) + (let* ((entry (current-listbox-entry listbox)) + (item (assoc-ref keys entry))) + (listbox-callback-procedure item)))))) + ((exit-hotkey) + (let* ((entry (current-listbox-entry listbox)) + (item (assoc-ref keys entry))) + (hotkey-callback-procedure argument item))))) + (lambda () + (destroy-form-and-pop form)))))) + +(define* (run-scale-page #:key + title + info-text + (info-textbox-width 50) + (scale-width 40) + (scale-full-value 100) + scale-update-proc + (max-scale-update 5)) + "Run a page with a progress bar (called 'scale' in newt). The given +INFO-TEXT is displayed in a textbox above the scale. The width of the textbox +is set to INFO-TEXTBOX-WIDTH. The width of the scale is set to +SCALE-WIDTH. SCALE-FULL-VALUE indicates the value that correspond to 100% of +the scale. + +The procedure SCALE-UPDATE-PROC shall return a new scale +value. SCALE-UPDATE-PROC will be called until the returned value is superior +or equal to SCALE-FULL-VALUE, but no more than MAX-SCALE-UPDATE times. An +error is raised if the MAX-SCALE-UPDATE limit is reached." + (let* ((info-textbox + (make-reflowed-textbox -1 -1 info-text + info-textbox-width + #:flags FLAG-BORDER)) + (scale (make-scale -1 -1 scale-width scale-full-value)) + (grid (vertically-stacked-grid + GRID-ELEMENT-COMPONENT info-textbox + GRID-ELEMENT-COMPONENT scale)) + (form (make-form))) + + (add-form-to-grid grid form #t) + (make-wrapped-grid-window grid title) + + (draw-form form) + ;; This call is imperative, otherwise the form won't be displayed. See the + ;; explanation in the above commentary. + (newt-refresh) + + (dynamic-wind + (const #t) + (lambda () + (let loop ((i max-scale-update) + (last-value 0)) + (let ((value (scale-update-proc last-value))) + (set-scale-value scale value) + ;; Same as above. + (newt-refresh) + (unless (>= value scale-full-value) + (if (> i 0) + (loop (- i 1) value) + (error "Max scale updates reached.")))))) + (lambda () + (destroy-form-and-pop form))))) + +(define* (run-checkbox-tree-page #:key + info-text + title + items + item->text + (info-textbox-width 50) + (checkbox-tree-height 10) + (ok-button-callback-procedure + (const #t)) + (exit-button-callback-procedure + (const #t))) + "Run a page allowing the user to select one or multiple items among ITEMS in +a checkbox list. The page contains vertically stacked from the top to the +bottom, an informative text set to INFO-TEXT, the checkbox list and two +buttons, 'Ok' and 'Exit'. The page title's is set to TITLE. ITEMS are +converted to text using ITEM->TEXT before being displayed in the checkbox +list. + +INFO-TEXTBOX-WIDTH is the width of the textbox where INFO-TEXT will be +displayed. CHECKBOX-TREE-HEIGHT is the height of the checkbox list. + +OK-BUTTON-CALLBACK-PROCEDURE is called when the 'Ok' button is pressed. +EXIT-BUTTON-CALLBACK-PROCEDURE is called when the 'Exit' button is +pressed. + +This procedure returns the list of checked items in the checkbox list among +ITEMS when 'Ok' is pressed." + (define (fill-checkbox-tree checkbox-tree items) + (map + (lambda (item) + (let* ((item-text (item->text item)) + (key (add-entry-to-checkboxtree checkbox-tree item-text 0))) + (cons key item))) + items)) + + (let* ((checkbox-tree + (make-checkboxtree -1 -1 + checkbox-tree-height + FLAG-BORDER)) + (info-textbox + (make-reflowed-textbox -1 -1 info-text + info-textbox-width + #:flags FLAG-BORDER)) + (ok-button (make-button -1 -1 (G_ "OK"))) + (exit-button (make-button -1 -1 (G_ "Exit"))) + (grid (vertically-stacked-grid + GRID-ELEMENT-COMPONENT info-textbox + GRID-ELEMENT-COMPONENT checkbox-tree + GRID-ELEMENT-SUBGRID + (horizontal-stacked-grid + GRID-ELEMENT-COMPONENT ok-button + GRID-ELEMENT-COMPONENT exit-button))) + (keys (fill-checkbox-tree checkbox-tree items)) + (form (make-form))) + + (add-form-to-grid grid form #t) + (make-wrapped-grid-window grid title) + + (receive (exit-reason argument) + (run-form form) + (dynamic-wind + (const #t) + (lambda () + (case exit-reason + ((exit-component) + (cond + ((components=? argument ok-button) + (let* ((entries (current-checkbox-selection checkbox-tree)) + (current-items (map (lambda (entry) + (assoc-ref keys entry)) + entries))) + (ok-button-callback-procedure) + current-items)) + ((components=? argument exit-button) + (exit-button-callback-procedure)))))) + (lambda () + (destroy-form-and-pop form)))))) + +(define* (run-file-textbox-page #:key + info-text + title + file + (info-textbox-width 50) + (file-textbox-width 50) + (file-textbox-height 30) + (exit-button? #t) + (ok-button-callback-procedure + (const #t)) + (exit-button-callback-procedure + (const #t))) + (let* ((info-textbox + (make-reflowed-textbox -1 -1 info-text + info-textbox-width + #:flags FLAG-BORDER)) + (file-text (read-all file)) + (file-textbox + (make-textbox -1 -1 + file-textbox-width + file-textbox-height + (logior FLAG-SCROLL FLAG-BORDER))) + (ok-button (make-button -1 -1 (G_ "OK"))) + (exit-button (make-button -1 -1 (G_ "Exit"))) + (grid (vertically-stacked-grid + GRID-ELEMENT-COMPONENT info-textbox + GRID-ELEMENT-COMPONENT file-textbox + GRID-ELEMENT-SUBGRID + (apply + horizontal-stacked-grid + GRID-ELEMENT-COMPONENT ok-button + `(,@(if exit-button? + (list GRID-ELEMENT-COMPONENT exit-button) + '()))))) + (form (make-form))) + + (set-textbox-text file-textbox file-text) + (add-form-to-grid grid form #t) + (make-wrapped-grid-window grid title) + + (receive (exit-reason argument) + (run-form form) + (dynamic-wind + (const #t) + (lambda () + (case exit-reason + ((exit-component) + (cond + ((components=? argument ok-button) + (ok-button-callback-procedure)) + ((and exit-button? + (components=? argument exit-button)) + (exit-button-callback-procedure)))))) + (lambda () + (destroy-form-and-pop form)))))) diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm new file mode 100644 index 0000000000..d4c91edc66 --- /dev/null +++ b/gnu/installer/newt/partition.scm @@ -0,0 +1,766 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt partition) + #:use-module (gnu installer parted) + #:use-module (gnu installer steps) + #:use-module (gnu installer utils) + #:use-module (gnu installer newt page) + #:use-module (gnu installer newt utils) + #:use-module (guix i18n) + #:use-module (ice-9 match) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (newt) + #:use-module (parted) + #:export (run-partioning-page)) + +(define (button-exit-action) + "Raise the &installer-step-abort condition." + (raise + (condition + (&installer-step-abort)))) + +(define (run-scheme-page) + "Run a page asking the user for a partitioning scheme." + (let* ((items + '((root . "Everything is one partition") + (root-home . "Separate /home partition"))) + (result (run-listbox-selection-page + #:info-text (G_ "Please select a partitioning scheme.") + #:title (G_ "Partition scheme") + #:listbox-items items + #:listbox-item->text cdr + #:button-text (G_ "Exit") + #:button-callback-procedure button-exit-action))) + (car result))) + +(define (draw-formatting-page) + "Draw a page to indicate partitions are being formated." + (draw-info-page + (format #f (G_ "Partition formatting is in progress, please wait.")) + (G_ "Preparing partitions"))) + +(define (run-device-page devices) + "Run a page asking the user to select a device among those in the given +DEVICES list." + (define (device-items) + (map (lambda (device) + `(,device . ,(device-description device))) + devices)) + + (let* ((result (run-listbox-selection-page + #:info-text (G_ "Please select a disk.") + #:title (G_ "Disk") + #:listbox-items (device-items) + #:listbox-item->text cdr + #:button-text (G_ "Exit") + #:button-callback-procedure button-exit-action)) + (device (car result))) + device)) + +(define (run-label-page button-text button-callback) + "Run a page asking the user to select a partition table label." + (run-listbox-selection-page + #:info-text (G_ "Select a new partition table type. \ +Be careful, all data on the disk will be lost.") + #:title (G_ "Partition table") + #:listbox-items '("msdos" "gpt") + #:listbox-item->text identity + #:button-text button-text + #:button-callback-procedure button-callback)) + +(define (run-type-page partition) + "Run a page asking the user to select a partition type." + (let* ((disk (partition-disk partition)) + (partitions (disk-partitions disk)) + (other-extended-partitions? + (any extended-partition? partitions)) + (items + `(normal ,@(if other-extended-partitions? + '() + '(extended))))) + (run-listbox-selection-page + #:info-text (G_ "Please select a partition type.") + #:title (G_ "Partition type") + #:listbox-items items + #:listbox-item->text symbol->string + #:sort-listbox-items? #f + #:button-text (G_ "Exit") + #:button-callback-procedure button-exit-action))) + +(define (run-fs-type-page) + "Run a page asking the user to select a file-system type." + (run-listbox-selection-page + #:info-text (G_ "Please select the file-system type for this partition.") + #:title (G_ "File-system type") + #:listbox-items '(ext4 btrfs fat32 swap) + #:listbox-item->text user-fs-type-name + #:sort-listbox-items? #f + #:button-text (G_ "Exit") + #:button-callback-procedure button-exit-action)) + +(define (inform-can-create-partition? user-partition) + "Return #t if it is possible to create USER-PARTITION. This is determined by +calling CAN-CREATE-PARTITION? procedure. If an exception is raised, catch it +an inform the user with an appropriate error-page and return #f." + (guard (c ((max-primary-exceeded? c) + (run-error-page + (G_ "Primary partitions count exceeded.") + (G_ "Creation error")) + #f) + ((extended-creation-error? c) + (run-error-page + (G_ "Extended partition creation error.") + (G_ "Creation error")) + #f) + ((logical-creation-error? c) + (run-error-page + (G_ "Logical partition creation error.") + (G_ "Creation error")) + #f)) + (can-create-partition? user-partition))) + +(define (prompt-luks-passwords user-partitions) + "Prompt for the luks passwords of the encrypted partitions in +USER-PARTITIONS list. Return this list with password fields filled-in." + (map (lambda (user-part) + (let* ((crypt-label (user-partition-crypt-label user-part)) + (file-name (user-partition-file-name user-part)) + (password-page + (lambda () + (run-input-page + (format #f (G_ "Please enter the password for the \ +encryption of partition ~a (label: ~a).") file-name crypt-label) + (G_ "Password required")))) + (password-confirm-page + (lambda () + (run-input-page + (format #f (G_ "Please confirm the password for the \ +encryption of partition ~a (label: ~a).") file-name crypt-label) + (G_ "Password confirmation required"))))) + (if crypt-label + (let loop () + (let ((password (password-page)) + (confirmation (password-confirm-page))) + (if (string=? password confirmation) + (user-partition + (inherit user-part) + (crypt-password password)) + (begin + (run-error-page + (G_ "Password mismatch, please try again.") + (G_ "Password error")) + (loop))))) + user-part))) + user-partitions)) + +(define* (run-partition-page target-user-partition + #:key + (default-item #f)) + "Run a page allowing the user to edit the given TARGET-USER-PARTITION +record. If the argument DEFAULT-ITEM is passed, use it to select the current +listbox item. This is used to avoid the focus to switch back to the first +listbox entry while calling this procedure recursively." + + (define (numeric-size device size) + "Parse the given SIZE on DEVICE and return it." + (call-with-values + (lambda () + (unit-parse size device)) + (lambda (value range) + value))) + + (define (numeric-size-range device size) + "Parse the given SIZE on DEVICE and return the associated RANGE." + (call-with-values + (lambda () + (unit-parse size device)) + (lambda (value range) + range))) + + (define* (fill-user-partition-geom user-part + #:key + device (size #f) start end) + "Return the given USER-PART with the START, END and SIZE fields set to the +eponym arguments. Use UNIT-FORMAT-CUSTOM to format START and END arguments as +sectors on DEVICE." + (user-partition + (inherit user-part) + (size size) + (start (unit-format-custom device start UNIT-SECTOR)) + (end (unit-format-custom device end UNIT-SECTOR)))) + + (define (apply-user-partition-changes user-part) + "Set the name, file-system type and boot flag on the partition specified +by USER-PART, if it is applicable for the partition type." + (let* ((partition (user-partition-parted-object user-part)) + (disk (partition-disk partition)) + (disk-type (disk-disk-type disk)) + (device (disk-device disk)) + (has-name? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-PARTITION-NAME)) + (name (user-partition-name user-part)) + (fs-type (filesystem-type-get + (user-fs-type-name + (user-partition-fs-type user-part)))) + (bootable? (user-partition-bootable? user-part)) + (esp? (user-partition-esp? user-part)) + (flag-bootable? + (partition-is-flag-available? partition PARTITION-FLAG-BOOT)) + (flag-esp? + (partition-is-flag-available? partition PARTITION-FLAG-ESP))) + (when (and has-name? name) + (partition-set-name partition name)) + (partition-set-system partition fs-type) + (when flag-bootable? + (partition-set-flag partition + PARTITION-FLAG-BOOT + (if bootable? 1 0))) + (when flag-esp? + (partition-set-flag partition + PARTITION-FLAG-ESP + (if esp? 1 0))) + #t)) + + (define (listbox-action listbox-item) + (let* ((item (car listbox-item)) + (partition (user-partition-parted-object + target-user-partition)) + (disk (partition-disk partition)) + (device (disk-device disk))) + (list + item + (case item + ((name) + (let* ((old-name (user-partition-name target-user-partition)) + (name + (run-input-page (G_ "Please enter the partition gpt name.") + (G_ "Partition name") + #:default-text old-name))) + (user-partition + (inherit target-user-partition) + (name name)))) + ((type) + (let ((new-type (run-type-page partition))) + (user-partition + (inherit target-user-partition) + (type new-type)))) + ((bootable) + (user-partition + (inherit target-user-partition) + (bootable? (not (user-partition-bootable? + target-user-partition))))) + ((esp?) + (let ((new-esp? (not (user-partition-esp? + target-user-partition)))) + (user-partition + (inherit target-user-partition) + (esp? new-esp?) + (mount-point (if new-esp? + (default-esp-mount-point) + ""))))) + ((crypt-label) + (let* ((label (user-partition-crypt-label + target-user-partition)) + (new-label + (and (not label) + (run-input-page + (G_ "Please enter the encrypted label") + (G_ "Encryption label"))))) + (user-partition + (inherit target-user-partition) + (need-formatting? #t) + (crypt-label new-label)))) + ((need-formatting?) + (user-partition + (inherit target-user-partition) + (need-formatting? + (not (user-partition-need-formatting? + target-user-partition))))) + ((size) + (let* ((old-size (user-partition-size target-user-partition)) + (max-size-value (partition-length partition)) + (max-size (unit-format device max-size-value)) + (start (partition-start partition)) + (size (run-input-page + (format #f (G_ "Please enter the size of the partition.\ + The maximum size is ~a.") max-size) + (G_ "Partition size") + #:default-text (or old-size max-size))) + (size-percentage (read-percentage size)) + (size-value (if size-percentage + (nearest-exact-integer + (/ (* max-size-value size-percentage) + 100)) + (numeric-size device size))) + (end (and size-value + (+ start size-value))) + (size-range (numeric-size-range device size)) + (size-range-ok? (and size-range + (< (+ start + (geometry-start size-range)) + (partition-end partition))))) + (cond + ((and size-percentage (> size-percentage 100)) + (run-error-page + (G_ "The percentage can not be superior to 100.") + (G_ "Size error")) + target-user-partition) + ((not size-value) + (run-error-page + (G_ "The requested size is incorrectly formatted, or too large.") + (G_ "Size error")) + target-user-partition) + ((not (or size-percentage size-range-ok?)) + (run-error-page + (G_ "The request size is superior to the maximum size.") + (G_ "Size error")) + target-user-partition) + (else + (fill-user-partition-geom target-user-partition + #:device device + #:size size + #:start start + #:end end))))) + ((fs-type) + (let ((fs-type (run-fs-type-page))) + (user-partition + (inherit target-user-partition) + (fs-type fs-type)))) + ((mount-point) + (let* ((old-mount (or (user-partition-mount-point + target-user-partition) + "")) + (mount + (run-input-page + (G_ "Please enter the desired mounting point for this \ +partition. Leave this field empty if you don't want to set a mounting point.") + (G_ "Mounting point") + #:default-text old-mount + #:allow-empty-input? #t))) + (user-partition + (inherit target-user-partition) + (mount-point (and (not (string=? mount "")) + mount))))))))) + + (define (button-action) + (let* ((partition (user-partition-parted-object + target-user-partition)) + (prev-part (partition-prev partition)) + (disk (partition-disk partition)) + (device (disk-device disk)) + (creation? (freespace-partition? partition)) + (start (partition-start partition)) + (end (partition-end partition)) + (new-user-partition + (if (user-partition-start target-user-partition) + target-user-partition + (fill-user-partition-geom target-user-partition + #:device device + #:start start + #:end end)))) + ;; It the backend PARTITION has free-space type, it means we are + ;; creating a new partition, otherwise, we are editing an already + ;; existing PARTITION. + (if creation? + (let* ((ok-create-partition? + (inform-can-create-partition? new-user-partition)) + (new-partition + (and ok-create-partition? + (mkpart disk + new-user-partition + #:previous-partition prev-part)))) + (and new-partition + (user-partition + (inherit new-user-partition) + (need-formatting? #t) + (file-name (partition-get-path new-partition)) + (disk-file-name (device-path device)) + (parted-object new-partition)))) + (and (apply-user-partition-changes new-user-partition) + new-user-partition)))) + + (let* ((items (user-partition-description target-user-partition)) + (partition (user-partition-parted-object + target-user-partition)) + (disk (partition-disk partition)) + (device (disk-device disk)) + (file-name (device-path device)) + (number-str (partition-print-number partition)) + (type (user-partition-type target-user-partition)) + (type-str (symbol->string type)) + (start (unit-format device (partition-start partition))) + (creation? (freespace-partition? partition)) + (default-item (and default-item + (find (lambda (item) + (eq? (car item) default-item)) + items))) + (result + (run-listbox-selection-page + #:info-text + (if creation? + (G_ (format #f "Creating ~a partition starting at ~a of ~a." + type-str start file-name)) + (G_ (format #f "You are currently editing partition ~a." + number-str))) + #:title (if creation? + (G_ "Partition creation") + (G_ "Partition edit")) + #:listbox-items items + #:listbox-item->text cdr + #:sort-listbox-items? #f + #:listbox-default-item default-item + #:button-text (G_ "OK") + #:listbox-callback-procedure listbox-action + #:button-callback-procedure button-action))) + (match result + ((item new-user-partition) + (run-partition-page new-user-partition + #:default-item item)) + (else result)))) + +(define* (run-disk-page disks + #:optional (user-partitions '()) + #:key (guided? #f)) + "Run a page allowing to edit the partition tables of the given DISKS. If +specified, USER-PARTITIONS is a list of <user-partition> records associated to +the partitions on DISKS." + + (define (other-logical-partitions? partitions) + "Return #t if at least one of the partition in PARTITIONS list is a +logical partition, return #f otherwise." + (any logical-partition? partitions)) + + (define (other-non-logical-partitions? partitions) + "Return #t is at least one of the partitions in PARTITIONS list is not a +logical partition, return #f otherwise." + (let ((non-logical-partitions + (remove logical-partition? partitions))) + (or (any normal-partition? non-logical-partitions) + (any freespace-partition? non-logical-partitions)))) + + (define (add-tree-symbols partitions descriptions) + "Concatenate tree symbols to the given DESCRIPTIONS list and return +it. The PARTITIONS list is the list of partitions described in +DESCRIPTIONS. The tree symbols are used to indicate the partition's disk and +for logical partitions, the extended partition which includes them." + (match descriptions + (() '()) + ((description . rest-descriptions) + (match partitions + ((partition . rest-partitions) + (if (null? rest-descriptions) + (list (if (logical-partition? partition) + (string-append " ┗━ " description) + (string-append "┗━ " description))) + (cons (cond + ((extended-partition? partition) + (if (other-non-logical-partitions? rest-partitions) + (string-append "┣┳ " description) + (string-append "┗┳ " description))) + ((logical-partition? partition) + (if (other-logical-partitions? rest-partitions) + (if (other-non-logical-partitions? rest-partitions) + (string-append "┃┣━ " description) + (string-append " ┣━ " description)) + (if (other-non-logical-partitions? rest-partitions) + (string-append "┃┗━ " description) + (string-append " ┗━ " description)))) + (else + (string-append "┣━ " description))) + (add-tree-symbols rest-partitions + rest-descriptions)))))))) + + (define (skip-item? item) + (eq? (car item) 'skip)) + + (define (disk-items) + "Return the list of strings describing DISKS." + (let loop ((disks disks)) + (match disks + (() '()) + ((disk . rest) + (let* ((device (disk-device disk)) + (partitions (disk-partitions disk)) + (partitions* + (filter-map + (lambda (partition) + (and (not (metadata-partition? partition)) + (not (small-freespace-partition? device + partition)) + partition)) + partitions)) + (descriptions (add-tree-symbols + partitions* + (partitions-descriptions partitions* + user-partitions))) + (partition-items (map cons partitions* descriptions))) + (append + `((,disk . ,(device-description device disk)) + ,@partition-items + ,@(if (null? rest) + '() + '((skip . "")))) + (loop rest))))))) + + (define (remove-user-partition-by-partition user-partitions partition) + "Return the USER-PARTITIONS list with the record with the given PARTITION +object removed. If PARTITION is an extended partition, also remove all logical +partitions from USER-PARTITIONS." + (remove (lambda (p) + (let ((cur-partition (user-partition-parted-object p))) + (or (equal? cur-partition partition) + (and (extended-partition? partition) + (logical-partition? cur-partition))))) + user-partitions)) + + (define (remove-user-partition-by-disk user-partitions disk) + "Return the USER-PARTITIONS list with the <user-partition> records located +on given DISK removed." + (remove (lambda (p) + (let* ((partition (user-partition-parted-object p)) + (cur-disk (partition-disk partition))) + (equal? cur-disk disk))) + user-partitions)) + + (define (update-user-partitions user-partitions new-user-partition) + "Update or insert NEW-USER-PARTITION record in USER-PARTITIONS list +depending if one of the <user-partition> record in USER-PARTITIONS has the +same PARTITION object as NEW-USER-PARTITION." + (let* ((partition (user-partition-parted-object new-user-partition)) + (user-partitions* + (remove-user-partition-by-partition user-partitions + partition))) + (cons new-user-partition user-partitions*))) + + (define (button-ok-action) + "Commit the modifications to all DISKS and return #t." + (for-each (lambda (disk) + (disk-commit disk)) + disks) + #t) + + (define (listbox-action listbox-item) + "A disk or a partition has been selected. If it's a disk, ask for a label +to create a new partition table. If it is a partition, propose the user to +edit it." + (let ((item (car listbox-item))) + (cond + ((disk? item) + (let ((label (run-label-page (G_ "Back") (const #f)))) + (if label + (let* ((device (disk-device item)) + (new-disk (mklabel device label)) + (commit-new-disk (disk-commit new-disk)) + (other-disks (remove (lambda (disk) + (equal? disk item)) + disks)) + (new-user-partitions + (remove-user-partition-by-disk user-partitions item))) + (disk-destroy item) + `((disks . ,(cons new-disk other-disks)) + (user-partitions . ,new-user-partitions))) + `((disks . ,disks) + (user-partitions . ,user-partitions))))) + ((partition? item) + (let* ((partition item) + (disk (partition-disk partition)) + (device (disk-device disk)) + (existing-user-partition + (find-user-partition-by-parted-object user-partitions + partition)) + (edit-user-partition + (or existing-user-partition + (partition->user-partition partition)))) + `((disks . ,disks) + (user-partitions . ,user-partitions) + (edit-user-partition . ,edit-user-partition))))))) + + (define (hotkey-action key listbox-item) + "The DELETE key has been pressed on a disk or a partition item." + (let ((item (car listbox-item)) + (default-result + `((disks . ,disks) + (user-partitions . ,user-partitions)))) + (cond + ((disk? item) + (let* ((device (disk-device item)) + (file-name (device-path device)) + (info-text + (format #f (G_ "Are you sure you want to delete everything on disk ~a?") + file-name)) + (result (choice-window (G_ "Delete disk") + (G_ "OK") + (G_ "Exit") + info-text))) + (case result + ((1) + (disk-delete-all item) + `((disks . ,disks) + (user-partitions + . ,(remove-user-partition-by-disk user-partitions item)))) + (else + default-result)))) + ((partition? item) + (if (freespace-partition? item) + (run-error-page (G_ "You cannot delete a free space area.") + (G_ "Delete partition")) + (let* ((disk (partition-disk item)) + (number-str (partition-print-number item)) + (info-text + (format #f (G_ "Are you sure you want to delete partition ~a?") + number-str)) + (result (choice-window (G_ "Delete partition") + (G_ "OK") + (G_ "Exit") + info-text))) + (case result + ((1) + (let ((new-user-partitions + (remove-user-partition-by-partition user-partitions + item))) + (disk-delete-partition disk item) + `((disks . ,disks) + (user-partitions . ,new-user-partitions)))) + (else + default-result)))))))) + + (let* ((info-text (G_ "You can change a disk's partition table by \ +selecting it and pressing ENTER. You can also edit a partition by selecting it \ +and pressing ENTER, or remove it by pressing DELETE. To create a new \ +partition, select a free space area and press ENTER. + +At least one partition must have its mounting point set to '/'.")) + (guided-info-text (format #f (G_ "This is the proposed \ +partitioning. It is still possible to edit it or to go back to install menu \ +by pressing the Exit button.~%~%"))) + (result + (run-listbox-selection-page + #:info-text (if guided? + (string-append guided-info-text info-text) + info-text) + + #:title (if guided? + (G_ "Guided partitioning") + (G_ "Manual partitioning")) + #:info-textbox-width 70 + #:listbox-items (disk-items) + #:listbox-item->text cdr + #:sort-listbox-items? #f + #:skip-item-procedure? skip-item? + #:allow-delete? #t + #:button-text (G_ "OK") + #:button-callback-procedure button-ok-action + #:button2-text (G_ "Exit") + #:button2-callback-procedure button-exit-action + #:listbox-callback-procedure listbox-action + #:hotkey-callback-procedure hotkey-action))) + (if (eq? result #t) + (let ((user-partitions-ok? + (guard + (c ((no-root-mount-point? c) + (run-error-page + (G_ "No root mount point found.") + (G_ "Missing mount point")) + #f)) + (check-user-partitions user-partitions)))) + (if user-partitions-ok? + (begin + (for-each (cut disk-destroy <>) disks) + user-partitions) + (run-disk-page disks user-partitions + #:guided? guided?))) + (let* ((result-disks (assoc-ref result 'disks)) + (result-user-partitions (assoc-ref result + 'user-partitions)) + (edit-user-partition (assoc-ref result + 'edit-user-partition)) + (can-create-partition? + (and edit-user-partition + (inform-can-create-partition? edit-user-partition))) + (new-user-partition (and edit-user-partition + can-create-partition? + (run-partition-page + edit-user-partition))) + (new-user-partitions + (if new-user-partition + (update-user-partitions result-user-partitions + new-user-partition) + result-user-partitions))) + (run-disk-page result-disks new-user-partitions + #:guided? guided?))))) + +(define (run-partioning-page) + "Run a page asking the user for a partitioning method." + (define (run-page devices) + (let* ((items + '((entire . "Guided - using the entire disk") + (entire-encrypted . "Guided - using the entire disk with encryption") + (manual . "Manual"))) + (result (run-listbox-selection-page + #:info-text (G_ "Please select a partitioning method.") + #:title (G_ "Partitioning method") + #:listbox-items items + #:listbox-item->text cdr + #:button-text (G_ "Exit") + #:button-callback-procedure button-exit-action)) + (method (car result))) + (cond + ((or (eq? method 'entire) + (eq? method 'entire-encrypted)) + (let* ((device (run-device-page devices)) + (disk-type (disk-probe device)) + (disk (if disk-type + (disk-new device) + (let* ((label (run-label-page + (G_ "Exit") + button-exit-action)) + (disk (mklabel device label))) + (disk-commit disk) + disk))) + (scheme (symbol-append method '- (run-scheme-page))) + (user-partitions (append + (auto-partition disk #:scheme scheme) + (create-special-user-partitions + (disk-partitions disk))))) + (run-disk-page (list disk) user-partitions + #:guided? #t))) + ((eq? method 'manual) + (let* ((disks (filter-map disk-new devices)) + (user-partitions (append-map + create-special-user-partitions + (map disk-partitions disks))) + (result-user-partitions (run-disk-page disks + user-partitions))) + result-user-partitions))))) + + (init-parted) + (let* ((non-install-devices (non-install-devices)) + (user-partitions (run-page non-install-devices)) + (user-partitions-with-pass (prompt-luks-passwords + user-partitions)) + (form (draw-formatting-page))) + ;; Make sure the disks are not in use before proceeding to formatting. + (free-parted non-install-devices) + (format-user-partitions user-partitions-with-pass) + (destroy-form-and-pop form) + user-partitions)) diff --git a/gnu/installer/newt/services.scm b/gnu/installer/newt/services.scm new file mode 100644 index 0000000000..6bcb6244ae --- /dev/null +++ b/gnu/installer/newt/services.scm @@ -0,0 +1,48 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt services) + #:use-module (gnu installer services) + #:use-module (gnu installer steps) + #:use-module (gnu installer newt page) + #:use-module (gnu installer newt utils) + #:use-module (guix i18n) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (newt) + #:export (run-services-page)) + +(define (run-desktop-environments-cbt-page) + "Run a page allowing the user to choose between various desktop +environments." + (run-checkbox-tree-page + #:info-text (G_ "Please select the desktop(s) environment(s) you wish to \ +install. If you select multiple desktops environments, we will be able to \ +choose the one to use on the log-in screen with F1.") + #:title (G_ "Desktop environment") + #:items %desktop-environments + #:item->text desktop-environment-name + #:checkbox-tree-height 5 + #:exit-button-callback-procedure + (lambda () + (raise + (condition + (&installer-step-abort)))))) + +(define (run-services-page) + (run-desktop-environments-cbt-page)) diff --git a/gnu/installer/newt/timezone.scm b/gnu/installer/newt/timezone.scm new file mode 100644 index 0000000000..6c96ee55b1 --- /dev/null +++ b/gnu/installer/newt/timezone.scm @@ -0,0 +1,83 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt timezone) + #:use-module (gnu installer steps) + #:use-module (gnu installer timezone) + #:use-module (gnu installer newt page) + #:use-module (guix i18n) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (ice-9 match) + #:use-module (ice-9 receive) + #:use-module (newt) + #:export (run-timezone-page)) + +;; Heigth of the listbox displaying timezones. +(define timezone-listbox-heigth (make-parameter 20)) + +;; Information textbox width. +(define info-textbox-width (make-parameter 40)) + +(define (fill-timezones listbox timezones) + "Fill the given LISTBOX with TIMEZONES. Return an association list +correlating listbox keys with timezones." + (map (lambda (timezone) + (let ((key (append-entry-to-listbox listbox timezone))) + (cons key timezone))) + timezones)) + +(define (run-timezone-page zonetab) + "Run a page displaying available timezones, grouped by regions. The user is +invited to select a timezone. The selected timezone, under Posix format is +returned." + (define (all-but-last list) + (reverse (cdr (reverse list)))) + + (define (run-page timezone-tree) + (define (loop path) + (let ((timezones (locate-childrens timezone-tree path))) + (run-listbox-selection-page + #:title (G_ "Timezone") + #:info-text (G_ "Please select a timezone.") + #:listbox-items timezones + #:listbox-item->text identity + #:button-text (if (null? path) + (G_ "Exit") + (G_ "Back")) + #:button-callback-procedure + (if (null? path) + (lambda _ + (raise + (condition + (&installer-step-abort)))) + (lambda _ + (loop (all-but-last path)))) + #:listbox-callback-procedure + (lambda (timezone) + (let* ((timezone* (append path (list timezone))) + (tz (timezone->posix-tz timezone*))) + (if (timezone-has-child? timezone-tree timezone*) + (loop timezone*) + tz)))))) + (loop '())) + + (let ((timezone-tree (zonetab->timezone-tree zonetab))) + (run-page timezone-tree))) diff --git a/gnu/installer/newt/user.scm b/gnu/installer/newt/user.scm new file mode 100644 index 0000000000..59b1913cfc --- /dev/null +++ b/gnu/installer/newt/user.scm @@ -0,0 +1,175 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt user) + #:use-module (gnu installer user) + #:use-module (gnu installer newt page) + #:use-module (gnu installer newt utils) + #:use-module (guix i18n) + #:use-module (newt) + #:use-module (ice-9 match) + #:use-module (ice-9 receive) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:export (run-user-page)) + +(define (run-user-add-page) + (define (pad-label label) + (string-pad-right label 20)) + + (let* ((label-name + (make-label -1 -1 (pad-label (G_ "Name")))) + (label-home-directory + (make-label -1 -1 (pad-label (G_ "Home directory")))) + (entry-width 30) + (entry-name (make-entry -1 -1 entry-width)) + (entry-home-directory (make-entry -1 -1 entry-width)) + (entry-grid (make-grid 2 2)) + (button-grid (make-grid 1 1)) + (ok-button (make-button -1 -1 (G_ "OK"))) + (grid (make-grid 1 2)) + (title (G_ "User creation")) + (set-entry-grid-field + (cut set-grid-field entry-grid <> <> GRID-ELEMENT-COMPONENT <>)) + (form (make-form))) + + (set-entry-grid-field 0 0 label-name) + (set-entry-grid-field 1 0 entry-name) + (set-entry-grid-field 0 1 label-home-directory) + (set-entry-grid-field 1 1 entry-home-directory) + + (set-grid-field button-grid 0 0 GRID-ELEMENT-COMPONENT ok-button) + + (add-component-callback + entry-name + (lambda (component) + (set-entry-text entry-home-directory + (string-append "/home/" (entry-value entry-name))))) + + (add-components-to-form form + label-name label-home-directory + entry-name entry-home-directory + ok-button) + + (make-wrapped-grid-window (vertically-stacked-grid + GRID-ELEMENT-SUBGRID entry-grid + GRID-ELEMENT-SUBGRID button-grid) + title) + (let ((error-page + (lambda () + (run-error-page (G_ "Empty inputs are not allowed.") + (G_ "Empty input"))))) + (receive (exit-reason argument) + (run-form form) + (dynamic-wind + (const #t) + (lambda () + (when (eq? exit-reason 'exit-component) + (cond + ((components=? argument ok-button) + (let ((name (entry-value entry-name)) + (home-directory (entry-value entry-home-directory))) + (if (or (string=? name "") + (string=? home-directory "")) + (begin + (error-page) + (run-user-add-page)) + (user + (name name) + (home-directory home-directory)))))))) + (lambda () + (destroy-form-and-pop form))))))) + +(define (run-user-page) + (define (run users) + (let* ((listbox (make-listbox + -1 -1 10 + (logior FLAG-SCROLL FLAG-BORDER))) + (info-textbox + (make-reflowed-textbox + -1 -1 + (G_ "Please add at least one user to system\ + using the 'Add' button.") + 40 #:flags FLAG-BORDER)) + (add-button (make-compact-button -1 -1 (G_ "Add"))) + (del-button (make-compact-button -1 -1 (G_ "Delete"))) + (listbox-button-grid + (apply + vertically-stacked-grid + GRID-ELEMENT-COMPONENT add-button + `(,@(if (null? users) + '() + (list GRID-ELEMENT-COMPONENT del-button))))) + (ok-button (make-button -1 -1 (G_ "OK"))) + (exit-button (make-button -1 -1 (G_ "Exit"))) + (title "User creation") + (grid + (vertically-stacked-grid + GRID-ELEMENT-COMPONENT info-textbox + GRID-ELEMENT-SUBGRID (horizontal-stacked-grid + GRID-ELEMENT-COMPONENT listbox + GRID-ELEMENT-SUBGRID listbox-button-grid) + GRID-ELEMENT-SUBGRID (horizontal-stacked-grid + GRID-ELEMENT-COMPONENT ok-button + GRID-ELEMENT-COMPONENT exit-button))) + (sorted-users (sort users (lambda (a b) + (string<= (user-name a) + (user-name b))))) + (listbox-elements + (map + (lambda (user) + `((key . ,(append-entry-to-listbox listbox + (user-name user))) + (user . ,user))) + sorted-users)) + (form (make-form))) + + + (add-form-to-grid grid form #t) + (make-wrapped-grid-window grid title) + (if (null? users) + (set-current-component form add-button) + (set-current-component form ok-button)) + + (receive (exit-reason argument) + (run-form form) + (dynamic-wind + (const #t) + (lambda () + (when (eq? exit-reason 'exit-component) + (cond + ((components=? argument add-button) + (run (cons (run-user-add-page) users))) + ((components=? argument del-button) + (let* ((current-user-key (current-listbox-entry listbox)) + (users + (map (cut assoc-ref <> 'user) + (remove (lambda (element) + (equal? (assoc-ref element 'key) + current-user-key)) + listbox-elements)))) + (run users))) + ((components=? argument ok-button) + (when (null? users) + (run-error-page (G_ "Please create at least one user.") + (G_ "No user")) + (run users)) + users)))) + (lambda () + (destroy-form-and-pop form)))))) + (run '())) diff --git a/gnu/installer/newt/utils.scm b/gnu/installer/newt/utils.scm new file mode 100644 index 0000000000..1c2ce4e628 --- /dev/null +++ b/gnu/installer/newt/utils.scm @@ -0,0 +1,43 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt utils) + #:use-module (ice-9 receive) + #:use-module (newt) + #:export (screen-columns + screen-rows + + destroy-form-and-pop + set-screen-size!)) + +;; Number of columns and rows of the terminal. +(define screen-columns (make-parameter 0)) +(define screen-rows (make-parameter 0)) + +(define (destroy-form-and-pop form) + "Destory the given FORM and pop the current window." + (destroy-form form) + (pop-window)) + +(define (set-screen-size!) + "Set the parameters 'screen-columns' and 'screen-rows' to the number of +columns and rows respectively of the current terminal." + (receive (columns rows) + (screen-size) + (screen-columns columns) + (screen-rows rows))) diff --git a/gnu/installer/newt/welcome.scm b/gnu/installer/newt/welcome.scm new file mode 100644 index 0000000000..eec98e291a --- /dev/null +++ b/gnu/installer/newt/welcome.scm @@ -0,0 +1,118 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt welcome) + #:use-module (gnu installer utils) + #:use-module (gnu installer newt utils) + #:use-module (guix build syscalls) + #:use-module (guix i18n) + #:use-module (ice-9 match) + #:use-module (ice-9 receive) + #:use-module (newt) + #:export (run-welcome-page)) + +;; Expected width and height for the logo. +(define logo-width (make-parameter 43)) +(define logo-height (make-parameter 19)) + +(define info-textbox-width (make-parameter 70)) +(define options-listbox-height (make-parameter 5)) + +(define* (run-menu-page title info-text logo + #:key + listbox-items + listbox-item->text) + "Run a page with the given TITLE, to ask the user to choose between +LISTBOX-ITEMS displayed in a listbox. The listbox items are converted to text +using LISTBOX-ITEM->TEXT procedure. Display the textual LOGO in the center of +the page. Contrary to other pages, we cannot resort to grid layouts, because +we want this page to occupy all the screen space available." + (define (fill-listbox listbox items) + (map (lambda (item) + (let* ((text (listbox-item->text item)) + (key (append-entry-to-listbox listbox text))) + (cons key item))) + items)) + + (let* ((logo-textbox + (make-textbox -1 -1 (logo-width) (logo-height) 0)) + (info-textbox + (make-reflowed-textbox -1 -1 + info-text + (info-textbox-width))) + (options-listbox + (make-listbox -1 -1 + (options-listbox-height) + (logior FLAG-BORDER FLAG-RETURNEXIT))) + (keys (fill-listbox options-listbox listbox-items)) + (grid (vertically-stacked-grid + GRID-ELEMENT-COMPONENT logo-textbox + GRID-ELEMENT-COMPONENT info-textbox + GRID-ELEMENT-COMPONENT options-listbox)) + (form (make-form))) + + (set-textbox-text logo-textbox (read-all logo)) + + (add-form-to-grid grid form #t) + (make-wrapped-grid-window grid title) + + (receive (exit-reason argument) + (run-form form) + (dynamic-wind + (const #t) + (lambda () + (when (eq? exit-reason 'exit-component) + (cond + ((components=? argument options-listbox) + (let* ((entry (current-listbox-entry options-listbox)) + (item (assoc-ref keys entry))) + (match item + ((text . proc) + (proc)))))))) + (lambda () + (destroy-form-and-pop form)))))) + +(define (run-welcome-page logo) + "Run a welcome page with the given textual LOGO displayed at the center of +the page. Ask the user to choose between manual installation, graphical +installation and reboot." + (run-menu-page + (G_ "GNU GuixSD install") + (G_ "Welcome to GNU GuixSD installer! + +Please note that the present graphical installer is still under heavy \ +development, so you might want to prefer using the shell based process. \ +The documentation is accessible at any time by pressing CTRL-ALT-F2.") + logo + #:listbox-items + `((,(G_ "Graphical install using a terminal based interface") + . + ,(const #t)) + (,(G_ "Install using the shell based process") + . + ,(lambda () + ;; Switch to TTY3, where a root shell is available for shell based + ;; install. The other root TTY's would have been ok too. + (system* "chvt" "3") + (run-welcome-page logo))) + (,(G_ "Reboot") + . + ,(lambda () + (newt-finish) + (reboot)))) + #:listbox-item->text car)) diff --git a/gnu/installer/newt/wifi.scm b/gnu/installer/newt/wifi.scm new file mode 100644 index 0000000000..59e40e327e --- /dev/null +++ b/gnu/installer/newt/wifi.scm @@ -0,0 +1,243 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer newt wifi) + #:use-module (gnu installer connman) + #:use-module (gnu installer steps) + #:use-module (gnu installer newt utils) + #:use-module (gnu installer newt page) + #:use-module (guix i18n) + #:use-module (guix records) + #:use-module (ice-9 format) + #:use-module (ice-9 popen) + #:use-module (ice-9 receive) + #:use-module (ice-9 regex) + #:use-module (ice-9 rdelim) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (newt) + #:export (run-wifi-page)) + +;; This record associates a connman service to its key the listbox. +(define-record-type* <service-item> + service-item make-service-item + service-item? + (service service-item-service) ; connman <service> + (key service-item-key)) ; newt listbox-key + +(define (strength->string strength) + "Convert STRENGTH as an integer percentage into a text printable strength +bar using unicode characters. Taken from NetworkManager's +nmc_wifi_strength_bars." + (let ((quarter #\x2582) + (half #\x2584) + (three-quarter #\x2586) + (full #\x2588)) + (cond + ((> strength 80) + ;; ▂▄▆█ + (string quarter half three-quarter full)) + ((> strength 55) + ;; ▂▄▆_ + (string quarter half three-quarter #\_)) + ((> strength 30) + ;; ▂▄__ + (string quarter half #\_ #\_)) + ((> strength 5) + ;; ▂___ + (string quarter #\_ #\_ #\_)) + (else + ;; ____ + (string quarter #\_ #\_ #\_ #\_))))) + +(define (force-wifi-scan) + "Force a wifi scan. Raise a condition if no wifi technology is available." + (let* ((technologies (connman-technologies)) + (wifi-technology + (find (lambda (technology) + (string=? (technology-type technology) "wifi")) + technologies))) + (if wifi-technology + (connman-scan-technology wifi-technology) + (raise (condition + (&message + (message (G_ "Unable to find a wifi technology")))))))) + +(define (draw-scanning-page) + "Draw a page to indicate a wifi scan in in progress." + (draw-info-page (G_ "Scanning wifi for available networks, please wait.") + (G_ "Scan in progress"))) + +(define (run-wifi-password-page) + "Run a page prompting user for a password and return it." + (run-input-page (G_ "Please enter the wifi password.") + (G_ "Password required"))) + +(define (run-wrong-password-page service-name) + "Run a page to inform user of a wrong password input." + (run-error-page + (format #f (G_ "The password you entered for ~a is incorrect.") + service-name) + (G_ "Wrong password"))) + +(define (run-unknown-error-page service-name) + "Run a page to inform user that a connection error happened." + (run-error-page + (format #f + (G_ "An error occured while trying to connect to ~a, please retry.") + service-name) + (G_ "Connection error"))) + +(define (password-callback) + (run-wifi-password-page)) + +(define (connect-wifi-service listbox service-items) + "Connect to the wifi service selected in LISTBOX. SERVICE-ITEMS is the list +of <service-item> records present in LISTBOX." + (let* ((listbox-key (current-listbox-entry listbox)) + (item (find (lambda (item) + (eq? (service-item-key item) listbox-key)) + service-items)) + (service (service-item-service item)) + (service-name (service-name service)) + (form (draw-connecting-page service-name))) + (dynamic-wind + (const #t) + (lambda () + (guard (c ((connman-password-error? c) + (run-wrong-password-page service-name) + #f) + ((connman-already-connected-error? c) + #t) + ((connman-connection-error? c) + (run-unknown-error-page service-name) + #f)) + (connman-connect-with-auth service password-callback))) + (lambda () + (destroy-form-and-pop form))))) + +(define (run-wifi-scan-page) + "Force a wifi scan and draw a page during the operation." + (let ((form (draw-scanning-page))) + (force-wifi-scan) + (destroy-form-and-pop form))) + +(define (wifi-services) + "Return all the connman services of wifi type." + (let ((services (connman-services))) + (filter (lambda (service) + (and (string=? (service-type service) "wifi") + (not (string-null? (service-name service))))) + services))) + +(define* (fill-wifi-services listbox wifi-services) + "Append all the services in WIFI-SERVICES to the given LISTBOX." + (clear-listbox listbox) + (map (lambda (service) + (let* ((text (service->text service)) + (key (append-entry-to-listbox listbox text))) + (service-item + (service service) + (key key)))) + wifi-services)) + +;; Maximum length of a wifi service name. +(define service-name-max-length (make-parameter 20)) + +;; Heigth of the listbox displaying wifi services. +(define wifi-listbox-heigth (make-parameter 20)) + +;; Information textbox width. +(define info-textbox-width (make-parameter 40)) + +(define (service->text service) + "Return a string composed of the name and the strength of the given +SERVICE. A '*' preceding the service name indicates that it is connected." + (let* ((name (service-name service)) + (padded-name (string-pad-right name + (service-name-max-length))) + (strength (service-strength service)) + (strength-string (strength->string strength)) + (state (service-state service)) + (connected? (or (string=? state "online") + (string=? state "ready")))) + (format #f "~c ~a ~a~%" + (if connected? #\* #\ ) + padded-name + strength-string))) + +(define (run-wifi-page) + "Run a page displaying available wifi networks in a listbox. Connect to the +network when the corresponding listbox entry is selected. A button allow to +force a wifi scan." + (let* ((listbox (make-listbox + -1 -1 + (wifi-listbox-heigth) + (logior FLAG-SCROLL FLAG-BORDER FLAG-RETURNEXIT))) + (form (make-form)) + (buttons-grid (make-grid 1 1)) + (middle-grid (make-grid 2 1)) + (info-text (G_ "Please select a wifi network.")) + (info-textbox + (make-reflowed-textbox -1 -1 info-text + (info-textbox-width) + #:flags FLAG-BORDER)) + (exit-button (make-button -1 -1 (G_ "Exit"))) + (scan-button (make-button -1 -1 (G_ "Scan"))) + (services (wifi-services)) + (service-items '())) + + (if (null? services) + (append-entry-to-listbox listbox (G_ "No wifi detected")) + (set! service-items (fill-wifi-services listbox services))) + + (set-grid-field middle-grid 0 0 GRID-ELEMENT-COMPONENT listbox) + (set-grid-field middle-grid 1 0 GRID-ELEMENT-COMPONENT scan-button + #:anchor ANCHOR-TOP + #:pad-left 2) + (set-grid-field buttons-grid 0 0 GRID-ELEMENT-COMPONENT exit-button) + + (add-components-to-form form + info-textbox + listbox scan-button + exit-button) + (make-wrapped-grid-window + (basic-window-grid info-textbox middle-grid buttons-grid) + (G_ "Wifi")) + + (receive (exit-reason argument) + (run-form form) + (dynamic-wind + (const #t) + (lambda () + (when (eq? exit-reason 'exit-component) + (cond + ((components=? argument scan-button) + (run-wifi-scan-page) + (run-wifi-page)) + ((components=? argument exit-button) + (raise + (condition + (&installer-step-abort)))) + ((components=? argument listbox) + (let ((result (connect-wifi-service listbox service-items))) + (unless result + (run-wifi-page))))))) + (lambda () + (destroy-form-and-pop form)))))) diff --git a/gnu/installer/parted.scm b/gnu/installer/parted.scm new file mode 100644 index 0000000000..187311e633 --- /dev/null +++ b/gnu/installer/parted.scm @@ -0,0 +1,1312 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer parted) + #:use-module (gnu installer steps) + #:use-module (gnu installer utils) + #:use-module (gnu installer newt page) + #:use-module (gnu system uuid) + #:use-module ((gnu build file-systems) + #:select (read-partition-uuid + read-luks-partition-uuid)) + #:use-module (guix build syscalls) + #:use-module (guix build utils) + #:use-module (guix records) + #:use-module (guix utils) + #:use-module (guix i18n) + #:use-module (parted) + #:use-module (ice-9 match) + #:use-module (ice-9 regex) + #:use-module (rnrs io ports) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:export (<user-partition> + user-partition + make-user-partition + user-partition? + user-partition-name + user-partition-type + user-partition-file-name + user-partition-disk-file-name + user-partition-crypt-label + user-partition-crypt-password + user-partition-fs-type + user-partition-bootable? + user-partition-esp? + user-partition-bios-grub? + user-partition-size + user-partition-start + user-partition-end + user-partition-mount-point + user-partition-need-formatting? + user-partition-parted-object + + find-esp-partition + data-partition? + metadata-partition? + freespace-partition? + small-freespace-partition? + normal-partition? + extended-partition? + logical-partition? + esp-partition? + boot-partition? + default-esp-mount-point + + with-delay-device-in-use? + force-device-sync + non-install-devices + partition-user-type + user-fs-type-name + partition-filesystem-user-type + partition-get-flags + partition->user-partition + create-special-user-partitions + find-user-partition-by-parted-object + + device-description + partition-end-formatted + partition-print-number + partition-description + partitions-descriptions + user-partition-description + + &max-primary-exceeded + max-primary-exceeded? + &extended-creation-error + extended-creation-error? + &logical-creation-error + logical-creation-error? + + can-create-partition? + mklabel + mkpart + rmpart + + create-adjacent-partitions + auto-partition + + &no-root-mount-point + no-root-mount-point? + + check-user-partitions + set-user-partitions-file-name + format-user-partitions + mount-user-partitions + umount-user-partitions + with-mounted-partitions + user-partitions->file-systems + user-partitions->configuration + + init-parted + free-parted)) + + +;;; +;;; Partition record. +;;; + +(define-record-type* <user-partition> + user-partition make-user-partition + user-partition? + (name user-partition-name ;string + (default #f)) + (type user-partition-type + (default 'normal)) ; 'normal | 'logical | 'extended + (file-name user-partition-file-name + (default #f)) + (disk-file-name user-partition-disk-file-name + (default #f)) + (crypt-label user-partition-crypt-label + (default #f)) + (crypt-password user-partition-crypt-password + (default #f)) + (fs-type user-partition-fs-type + (default 'ext4)) + (bootable? user-partition-bootable? + (default #f)) + (esp? user-partition-esp? + (default #f)) + (bios-grub? user-partition-bios-grub? + (default #f)) + (size user-partition-size + (default #f)) + (start user-partition-start ;start as string (e.g. '11MB') + (default #f)) + (end user-partition-end ;same as start + (default #f)) + (mount-point user-partition-mount-point ;string + (default #f)) + (need-formatting? user-partition-need-formatting? ; boolean + (default #f)) + (parted-object user-partition-parted-object ; <partition> from parted + (default #f))) + + +;; +;; Utilities. +;; + +(define (find-esp-partition partitions) + "Find and return the ESP partition among PARTITIONS." + (find esp-partition? partitions)) + +(define (data-partition? partition) + "Return #t if PARTITION is a partition dedicated to data (by opposition to +freespace, metadata and protected partition types), return #f otherwise." + (let ((type (partition-type partition))) + (not (any (lambda (flag) + (member flag type)) + '(free-space metadata protected))))) + +(define (metadata-partition? partition) + "Return #t if PARTITION is a metadata partition, #f otherwise." + (let ((type (partition-type partition))) + (member 'metadata type))) + +(define (freespace-partition? partition) + "Return #t if PARTITION is a free-space partition, #f otherwise." + (let ((type (partition-type partition))) + (member 'free-space type))) + +(define* (small-freespace-partition? device + partition + #:key (max-size MEBIBYTE-SIZE)) + "Return #t is PARTITION is a free-space partition with less a size strictly +inferior to MAX-SIZE, #f otherwise." + (let ((size (partition-length partition)) + (max-sector-size (/ max-size + (device-sector-size device)))) + (< size max-sector-size))) + +(define (normal-partition? partition) + "return #t if partition is a normal partition, #f otherwise." + (let ((type (partition-type partition))) + (member 'normal type))) + +(define (extended-partition? partition) + "return #t if partition is an extended partition, #f otherwise." + (let ((type (partition-type partition))) + (member 'extended type))) + +(define (logical-partition? partition) + "Return #t if PARTITION is a logical partition, #f otherwise." + (let ((type (partition-type partition))) + (member 'logical type))) + +(define (partition-user-type partition) + "Return the type of PARTITION, to be stored in the TYPE field of +<user-partition> record. It can be 'normal, 'extended or 'logical." + (cond ((normal-partition? partition) + 'normal) + ((extended-partition? partition) + 'extended) + ((logical-partition? partition) + 'logical) + (else #f))) + +(define (esp-partition? partition) + "Return #t if partition has the ESP flag, return #f otherwise." + (let* ((disk (partition-disk partition)) + (disk-type (disk-disk-type disk)) + (has-extended? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-EXTENDED))) + (and (data-partition? partition) + (not has-extended?) + (partition-is-flag-available? partition PARTITION-FLAG-ESP) + (partition-get-flag partition PARTITION-FLAG-ESP)))) + +(define (boot-partition? partition) + "Return #t if partition has the boot flag, return #f otherwise." + (and (data-partition? partition) + (partition-is-flag-available? partition PARTITION-FLAG-BOOT) + (partition-get-flag partition PARTITION-FLAG-BOOT))) + + +;; The default mount point for ESP partitions. +(define default-esp-mount-point + (make-parameter "/boot/efi")) + +(define (efi-installation?) + "Return #t if an EFI installation should be performed, #f otherwise." + (file-exists? "/sys/firmware/efi")) + +(define (user-fs-type-name fs-type) + "Return the name of FS-TYPE as specified by libparted." + (case fs-type + ((ext4) "ext4") + ((btrfs) "btrfs") + ((fat32) "fat32") + ((swap) "linux-swap"))) + +(define (user-fs-type->mount-type fs-type) + "Return the mount type of FS-TYPE." + (case fs-type + ((ext4) "ext4") + ((btrfs) "btrfs") + ((fat32) "vfat"))) + +(define (partition-filesystem-user-type partition) + "Return the filesystem type of PARTITION, to be stored in the FS-TYPE field +of <user-partition> record." + (let ((fs-type (partition-fs-type partition))) + (and fs-type + (let ((name (filesystem-type-name fs-type))) + (cond + ((string=? name "ext4") 'ext4) + ((string=? name "btrfs") 'btrfs) + ((string=? name "fat32") 'fat32) + ((or (string=? name "swsusp") + (string=? name "linux-swap(v0)") + (string=? name "linux-swap(v1)")) + 'swap) + (else + (error (format #f "Unhandled ~a fs-type~%" name)))))))) + +(define (partition-get-flags partition) + "Return the list of flags supported by the given PARTITION." + (filter-map (lambda (flag) + (and (partition-get-flag partition flag) + flag)) + (partition-flags partition))) + +(define (partition->user-partition partition) + "Convert PARTITION into a <user-partition> record and return it." + (let* ((disk (partition-disk partition)) + (device (disk-device disk)) + (disk-type (disk-disk-type disk)) + (has-name? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-PARTITION-NAME)) + (name (and has-name? + (data-partition? partition) + (partition-get-name partition)))) + (user-partition + (name (and (and name + (not (string=? name ""))) + name)) + (type (or (partition-user-type partition) + 'normal)) + (file-name (partition-get-path partition)) + (disk-file-name (device-path device)) + (fs-type (or (partition-filesystem-user-type partition) + 'ext4)) + (mount-point (and (esp-partition? partition) + (default-esp-mount-point))) + (bootable? (boot-partition? partition)) + (esp? (esp-partition? partition)) + (parted-object partition)))) + +(define (create-special-user-partitions partitions) + "Return a list with a <user-partition> record describing the ESP partition +found in PARTITIONS, if any." + (filter-map (lambda (partition) + (and (esp-partition? partition) + (partition->user-partition partition))) + partitions)) + +(define (find-user-partition-by-parted-object user-partitions + partition) + "Find and return the <user-partition> record in USER-PARTITIONS list which +PARTED-OBJECT field equals PARTITION, return #f if not found." + (find (lambda (user-partition) + (equal? (user-partition-parted-object user-partition) + partition)) + user-partitions)) + + +;; +;; Devices +;; + +(define (with-delay-device-in-use? file-name) + "Call DEVICE-IN-USE? with a few retries, as the first re-read will often +fail. See rereadpt function in wipefs.c of util-linux for an explanation." + ;; Kernel always return EINVAL for BLKRRPART on loopdevices. + (and (not (string-match "/dev/loop*" file-name)) + (let loop ((try 4)) + (usleep 250000) + (let ((in-use? (device-in-use? file-name))) + (if (and in-use? (> try 0)) + (loop (- try 1)) + in-use?))))) + +(define* (force-device-sync device) + "Force a flushing of the given DEVICE." + (device-open device) + (device-sync device) + (device-close device)) + +(define (non-install-devices) + "Return all the available devices, except the busy one, allegedly the +install device. DEVICE-IS-BUSY? is a parted call, checking if the device is +mounted. The install image uses an overlayfs so the install device does not +appear as mounted and won't be considered as busy. So use also DEVICE-IN-USE? +from (guix build syscalls) module, who will try to re-read the device's +partition table to determine whether or not it is already used (like sfdisk +from util-linux)." + (remove (lambda (device) + (let ((file-name (device-path device))) + (or (device-is-busy? device) + (with-delay-device-in-use? file-name)))) + (devices))) + + +;; +;; Disk and partition printing. +;; + +(define* (device-description device #:optional disk) + "Return a string describing the given DEVICE." + (let* ((type (device-type device)) + (file-name (device-path device)) + (model (device-model device)) + (type-str (device-type->string type)) + (disk-type (if disk + (disk-disk-type disk) + (disk-probe device))) + (length (device-length device)) + (sector-size (device-sector-size device)) + (end (unit-format-custom-byte device + (* length sector-size) + UNIT-GIGABYTE))) + (string-join + `(,@(if (string=? model "") + `(,type-str) + `(,model ,(string-append "(" type-str ")"))) + ,file-name + ,end + ,@(if disk-type + `(,(disk-type-name disk-type)) + '())) + " "))) + +(define (partition-end-formatted device partition) + "Return as a string the end of PARTITION with the relevant unit." + (unit-format-byte + device + (- + (* (+ (partition-end partition) 1) + (device-sector-size device)) + 1))) + +(define (partition-print-number partition) + "Convert the given partition NUMBER to string." + (let ((number (partition-number partition))) + (number->string number))) + +(define (partition-description partition user-partition) + "Return a string describing the given PARTITION, located on the DISK of +DEVICE." + + (define (partition-print-type partition) + "Return the type of PARTITION as a string." + (if (freespace-partition? partition) + (G_ "Free space") + (let ((type (partition-type partition))) + (match type + ((type-symbol) + (symbol->string type-symbol)))))) + + (define (partition-print-flags partition) + "Return the flags of PARTITION as a string of comma separated flags." + (string-join + (filter-map + (lambda (flag) + (and (partition-get-flag partition flag) + (partition-flag-get-name flag))) + (partition-flags partition)) + ",")) + + (define (maybe-string-pad string length) + "Returned a string formatted by padding STRING of LENGTH characters to the +right. If STRING is #f use an empty string." + (if (and string (not (string=? string ""))) + (string-pad-right string length) + "")) + + (let* ((disk (partition-disk partition)) + (device (disk-device disk)) + (disk-type (disk-disk-type disk)) + (has-name? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-PARTITION-NAME)) + (has-extended? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-EXTENDED)) + (part-type (partition-print-type partition)) + (number (and (not (freespace-partition? partition)) + (partition-print-number partition))) + (name (and has-name? + (if (freespace-partition? partition) + (G_ "Free space") + (partition-get-name partition)))) + (start (unit-format device + (partition-start partition))) + (end (partition-end-formatted device partition)) + (size (unit-format device (partition-length partition))) + (fs-type (partition-fs-type partition)) + (fs-type-name (and fs-type + (filesystem-type-name fs-type))) + (crypt-label (and user-partition + (user-partition-crypt-label user-partition))) + (flags (and (not (freespace-partition? partition)) + (partition-print-flags partition))) + (mount-point (and user-partition + (user-partition-mount-point user-partition)))) + `(,(or number "") + ,@(if has-extended? + (list part-type) + '()) + ,size + ,(or fs-type-name "") + ,(or flags "") + ,(or mount-point "") + ,(or crypt-label "") + ,(maybe-string-pad name 30)))) + +(define (partitions-descriptions partitions user-partitions) + "Return a list of strings describing all the partitions found on +DEVICE. METADATA partitions are not described. The strings are padded to the +right so that they can be displayed as a table." + + (define (max-length-column lists column-index) + "Return the maximum length of the string at position COLUMN-INDEX in the +list of string lists LISTS." + (apply max + (map (lambda (list) + (string-length + (list-ref list column-index))) + lists))) + + (define (pad-descriptions descriptions) + "Return a padded version of the list of string lists DESCRIPTIONS. The +strings are padded to the length of the longer string in a same column, as +determined by MAX-LENGTH-COLUMN procedure." + (let* ((description-length (length (car descriptions))) + (paddings (map (lambda (index) + (max-length-column descriptions index)) + (iota description-length)))) + (map (lambda (description) + (map string-pad-right description paddings)) + descriptions))) + + (let* ((descriptions + (map + (lambda (partition) + (let ((user-partition + (find-user-partition-by-parted-object user-partitions + partition))) + (partition-description partition user-partition))) + partitions)) + (padded-descriptions (if (null? partitions) + '() + (pad-descriptions descriptions)))) + (map (cut string-join <> " ") padded-descriptions))) + +(define (user-partition-description user-partition) + "Return a string describing the given USER-PARTITION record." + (let* ((partition (user-partition-parted-object user-partition)) + (disk (partition-disk partition)) + (disk-type (disk-disk-type disk)) + (device (disk-device disk)) + (has-name? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-PARTITION-NAME)) + (has-extended? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-EXTENDED)) + (name (user-partition-name user-partition)) + (type (user-partition-type user-partition)) + (type-name (symbol->string type)) + (fs-type (user-partition-fs-type user-partition)) + (fs-type-name (user-fs-type-name fs-type)) + (bootable? (user-partition-bootable? user-partition)) + (esp? (user-partition-esp? user-partition)) + (need-formatting? (user-partition-need-formatting? user-partition)) + (crypt-label (user-partition-crypt-label user-partition)) + (size (user-partition-size user-partition)) + (mount-point (user-partition-mount-point user-partition))) + `(,@(if has-name? + `((name . ,(string-append "Name: " (or name "None")))) + '()) + ,@(if (and has-extended? + (freespace-partition? partition) + (not (eq? type 'logical))) + `((type . ,(string-append "Type: " type-name))) + '()) + ,@(if (eq? type 'extended) + '() + `((fs-type . ,(string-append "Filesystem type: " fs-type-name)))) + ,@(if (or (eq? type 'extended) + (eq? fs-type 'swap) + (not has-extended?)) + '() + `((bootable . ,(string-append "Bootable flag: " + (if bootable? "On" "Off"))))) + ,@(if (and (not has-extended?) + (not (eq? fs-type 'swap))) + `((esp? . ,(string-append "ESP flag: " + (if esp? "On" "Off")))) + '()) + ,@(if (freespace-partition? partition) + (let ((size-formatted + (or size (unit-format device + (partition-length partition))))) + `((size . ,(string-append "Size : " size-formatted)))) + '()) + ,@(if (or (eq? type 'extended) + (eq? fs-type 'swap)) + '() + `((crypt-label + . ,(string-append + "Encryption: " + (if crypt-label + (format #f "Yes (label ~a)" crypt-label) + "No"))))) + ,@(if (or (freespace-partition? partition) + (eq? fs-type 'swap)) + '() + `((need-formatting? + . ,(string-append "Format the partition? : " + (if need-formatting? "Yes" "No"))))) + ,@(if (or (eq? type 'extended) + (eq? fs-type 'swap)) + '() + `((mount-point + . ,(string-append "Mount point : " + (or mount-point + (and esp? (default-esp-mount-point)) + "None")))))))) + + +;; +;; Partition table creation. +;; + +(define (mklabel device type-name) + "Create a partition table on DEVICE. TYPE-NAME is the type of the partition +table, \"msdos\" or \"gpt\"." + (let ((type (disk-type-get type-name))) + (disk-new-fresh device type))) + + +;; +;; Partition creation. +;; + +;; The maximum count of primary partitions is exceeded. +(define-condition-type &max-primary-exceeded &condition + max-primary-exceeded?) + +;; It is not possible to create an extended partition. +(define-condition-type &extended-creation-error &condition + extended-creation-error?) + +;; It is not possible to create a logical partition. +(define-condition-type &logical-creation-error &condition + logical-creation-error?) + +(define (can-create-primary? disk) + "Return #t if it is possible to create a primary partition on DISK, return +#f otherwise." + (let ((max-primary (disk-get-max-primary-partition-count disk))) + (find (lambda (number) + (not (disk-get-partition disk number))) + (iota max-primary 1)))) + +(define (can-create-extended? disk) + "Return #t if it is possible to create an extended partition on DISK, return +#f otherwise." + (let* ((disk-type (disk-disk-type disk)) + (has-extended? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-EXTENDED))) + (and (can-create-primary? disk) + has-extended? + (not (disk-extended-partition disk))))) + +(define (can-create-logical? disk) + "Return #t is it is possible to create a logical partition on DISK, return +#f otherwise." + (let* ((disk-type (disk-disk-type disk)) + (has-extended? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-EXTENDED))) + (and has-extended? + (disk-extended-partition disk)))) + +(define (can-create-partition? user-part) + "Return #t if it is possible to create the given USER-PART record, return #f +otherwise." + (let* ((type (user-partition-type user-part)) + (partition (user-partition-parted-object user-part)) + (disk (partition-disk partition))) + (case type + ((normal) + (or (can-create-primary? disk) + (raise + (condition (&max-primary-exceeded))))) + ((extended) + (or (can-create-extended? disk) + (raise + (condition (&extended-creation-error))))) + ((logical) + (or (can-create-logical? disk) + (raise + (condition (&logical-creation-error)))))))) + +(define* (mkpart disk user-partition + #:key (previous-partition #f)) + "Create the given USER-PARTITION on DISK. The PREVIOUS-PARTITION argument as +to be set to the partition preceeding USER-PARTITION if any." + + (define (parse-start-end start end) + "Parse start and end strings as positions on DEVICE expressed with a unit, +like '100GB' or '12.2KiB'. Return a list of 4 elements, the start sector, its +range (1 unit large area centered on start sector), the end sector and its +range." + (let ((device (disk-device disk))) + (call-with-values + (lambda () + (unit-parse start device)) + (lambda (start-sector start-range) + (call-with-values + (lambda () + (unit-parse end device)) + (lambda (end-sector end-range) + (list start-sector start-range + end-sector end-range))))))) + + (define* (extend-ranges! start-range end-range + #:key (offset 0)) + "Try to extend START-RANGE by 1 MEBIBYTE to the right and END-RANGE by 1 +MEBIBYTE to the left. This way, if the disk is aligned on 2048 sectors of +512KB (like frequently), we will have a chance for the +'optimal-align-constraint' to succeed. Do not extend ranges if that would +cause them to cross." + (let* ((device (disk-device disk)) + (start-range-end (geometry-end start-range)) + (end-range-start (geometry-start end-range)) + (mebibyte-sector-size (/ MEBIBYTE-SIZE + (device-sector-size device))) + (new-start-range-end + (+ start-range-end mebibyte-sector-size offset)) + (new-end-range-start + (- end-range-start mebibyte-sector-size offset))) + (when (< new-start-range-end new-end-range-start) + (geometry-set-end start-range new-start-range-end) + (geometry-set-start end-range new-end-range-start)))) + + (match (parse-start-end (user-partition-start user-partition) + (user-partition-end user-partition)) + ((start-sector start-range end-sector end-range) + (let* ((prev-end (if previous-partition + (partition-end previous-partition) + 0)) + (start-distance (- start-sector prev-end)) + (type (user-partition-type user-partition)) + ;; There should be at least 2 unallocated sectors in front of each + ;; logical partition, otherwise parted will fail badly: + ;; https://gparted.org/h2-fix-msdos-pt.php#apply-action-fail. + (start-offset (if previous-partition + (- 3 start-distance) + 0)) + (start-sector* (if (and (eq? type 'logical) + (< start-distance 3)) + (+ start-sector start-offset) + start-sector))) + ;; This is a hackery but parted almost always fails to create optimally + ;; aligned partitions (unless specifiying percentages) because, the + ;; default range of 1MB centered on the start sector is not enough when + ;; the optimal alignment is 2048 sectors of 512KB. + (extend-ranges! start-range end-range #:offset start-offset) + + (let* ((device (disk-device disk)) + (disk-type (disk-disk-type disk)) + (length (device-length device)) + (name (user-partition-name user-partition)) + (filesystem-type + (filesystem-type-get + (user-fs-type-name + (user-partition-fs-type user-partition)))) + (flags `(,@(if (user-partition-bootable? user-partition) + `(,PARTITION-FLAG-BOOT) + '()) + ,@(if (user-partition-esp? user-partition) + `(,PARTITION-FLAG-ESP) + '()) + ,@(if (user-partition-bios-grub? user-partition) + `(,PARTITION-FLAG-BIOS-GRUB) + '()))) + (has-name? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-PARTITION-NAME)) + (partition-type (partition-type->int type)) + (partition (partition-new disk + #:type partition-type + #:filesystem-type filesystem-type + #:start start-sector* + #:end end-sector)) + (user-constraint (constraint-new + #:start-align 'any + #:end-align 'any + #:start-range start-range + #:end-range end-range + #:min-size 1 + #:max-size length)) + (dev-constraint + (device-get-optimal-aligned-constraint device)) + (final-constraint (constraint-intersect user-constraint + dev-constraint)) + (no-constraint (constraint-any device)) + ;; Try to create a partition with an optimal alignment + ;; constraint. If it fails, fallback to creating a partition with + ;; no specific constraint. + (partition-ok? + (or (disk-add-partition disk partition final-constraint) + (disk-add-partition disk partition no-constraint)))) + ;; Set the partition name if supported. + (when (and partition-ok? has-name? name) + (partition-set-name partition name)) + + ;; Set flags is required. + (for-each (lambda (flag) + (and (partition-is-flag-available? partition flag) + (partition-set-flag partition flag 1))) + flags) + + (and partition-ok? + (partition-set-system partition filesystem-type) + partition)))))) + + +;; +;; Partition destruction. +;; + +(define (rmpart disk number) + "Remove the partition with the given NUMBER on DISK." + (let ((partition (disk-get-partition disk number))) + (disk-remove-partition disk partition))) + + +;; +;; Auto partitionning. +;; + +(define* (create-adjacent-partitions disk partitions + #:key (last-partition-end 0)) + "Create the given PARTITIONS on DISK. LAST-PARTITION-END is the sector from +which we want to start creating partitions. The START and END of each created +partition are computed from its SIZE value and the position of the last +partition." + (let ((device (disk-device disk))) + (let loop ((partitions partitions) + (remaining-space (- (device-length device) + last-partition-end)) + (start last-partition-end)) + (match partitions + (() '()) + ((partition . rest) + (let* ((size (user-partition-size partition)) + (percentage-size (and (string? size) + (read-percentage size))) + (sector-size (device-sector-size device)) + (partition-size (if percentage-size + (exact->inexact + (* (/ percentage-size 100) + remaining-space)) + size)) + (end-partition (min (- (device-length device) 1) + (nearest-exact-integer + (+ start partition-size 1)))) + (name (user-partition-name partition)) + (type (user-partition-type partition)) + (fs-type (user-partition-fs-type partition)) + (start-formatted (unit-format-custom device + start + UNIT-SECTOR)) + (end-formatted (unit-format-custom device + end-partition + UNIT-SECTOR)) + (new-user-partition (user-partition + (inherit partition) + (start start-formatted) + (end end-formatted))) + (new-partition + (mkpart disk new-user-partition))) + (if new-partition + (cons (user-partition + (inherit new-user-partition) + (file-name (partition-get-path new-partition)) + (disk-file-name (device-path device)) + (parted-object new-partition)) + (loop rest + (if (eq? type 'extended) + remaining-space + (- remaining-space + (partition-length new-partition))) + (if (eq? type 'extended) + (+ start 1) + (+ (partition-end new-partition) 1)))) + (error + (format #f "Unable to create partition ~a~%" name))))))))) + +(define (force-user-partitions-formatting user-partitions) + "Set the NEED-FORMATING? fields to #t on all <user-partition> records of +USER-PARTITIONS list and return the updated list." + (map (lambda (p) + (user-partition + (inherit p) + (need-formatting? #t))) + user-partitions)) + +(define* (auto-partition disk + #:key + (scheme 'entire-root)) + "Automatically create partitions on DISK. All the previous +partitions (except the ESP on a GPT disk, if present) are wiped. SCHEME is the +desired partitioning scheme. It can be 'entire-root or +'entire-root-home. 'entire-root will create a swap partition and a root +partition occupying all the remaining space. 'entire-root-home will create a +swap partition, a root partition and a home partition." + (let* ((device (disk-device disk)) + (disk-type (disk-disk-type disk)) + (has-extended? (disk-type-check-feature + disk-type + DISK-TYPE-FEATURE-EXTENDED)) + (partitions (filter data-partition? (disk-partitions disk))) + (esp-partition (find-esp-partition partitions)) + ;; According to + ;; https://wiki.archlinux.org/index.php/EFI_system_partition, the ESP + ;; size should be at least 550MiB. + (new-esp-size (nearest-exact-integer + (/ (* 550 MEBIBYTE-SIZE) + (device-sector-size device)))) + (end-esp-partition (and esp-partition + (partition-end esp-partition))) + (non-boot-partitions (remove esp-partition? partitions)) + (bios-grub-size (/ (* 3 MEBIBYTE-SIZE) + (device-sector-size device))) + (five-percent-disk (nearest-exact-integer + (* 0.05 (device-length device)))) + (default-swap-size (nearest-exact-integer + (/ (* 4 GIGABYTE-SIZE) + (device-sector-size device)))) + ;; Use a 4GB size for the swap if it represents less than 5% of the + ;; disk space. Otherwise, set the swap size to 5% of the disk space. + (swap-size (min default-swap-size five-percent-disk))) + + (if has-extended? + ;; msdos - remove everything. + (disk-delete-all disk) + ;; gpt - remove everything but esp if it exists. + (for-each + (lambda (partition) + (and (data-partition? partition) + (disk-remove-partition disk partition))) + non-boot-partitions)) + + (let* ((start-partition + (and (not has-extended?) + (not esp-partition) + (if (efi-installation?) + (user-partition + (fs-type 'fat32) + (esp? #t) + (size new-esp-size) + (mount-point (default-esp-mount-point))) + (user-partition + (fs-type 'ext4) + (bootable? #t) + (bios-grub? #t) + (size bios-grub-size))))) + (new-partitions + (cond + ((or (eq? scheme 'entire-root) + (eq? scheme 'entire-encrypted-root)) + (let ((encrypted? (eq? scheme 'entire-encrypted-root))) + `(,@(if start-partition + `(,start-partition) + '()) + ,@(if encrypted? + '() + `(,(user-partition + (fs-type 'swap) + (size swap-size)))) + ,(user-partition + (fs-type 'ext4) + (bootable? has-extended?) + (crypt-label (and encrypted? "cryptroot")) + (size "100%") + (mount-point "/"))))) + ((or (eq? scheme 'entire-root-home) + (eq? scheme 'entire-encrypted-root-home)) + (let ((encrypted? (eq? scheme 'entire-encrypted-root-home))) + `(,@(if start-partition + `(,start-partition) + '()) + ,(user-partition + (fs-type 'ext4) + (bootable? has-extended?) + (crypt-label (and encrypted? "cryptroot")) + (size "33%") + (mount-point "/")) + ,@(if has-extended? + `(,(user-partition + (type 'extended) + (size "100%"))) + '()) + ,@(if encrypted? + '() + `(,(user-partition + (type (if has-extended? + 'logical + 'normal)) + (fs-type 'swap) + (size swap-size)))) + ,(user-partition + (type (if has-extended? + 'logical + 'normal)) + (fs-type 'ext4) + (crypt-label (and encrypted? "crypthome")) + (size "100%") + (mount-point "/home"))))))) + (new-partitions* (force-user-partitions-formatting + new-partitions))) + (create-adjacent-partitions disk + new-partitions* + #:last-partition-end + (or end-esp-partition 0))))) + + +;; +;; Convert user-partitions. +;; + +;; No root mount point found. +(define-condition-type &no-root-mount-point &condition + no-root-mount-point?) + +(define (check-user-partitions user-partitions) + "Return #t if the USER-PARTITIONS lists contains one <user-partition> record +with a mount-point set to '/', raise &no-root-mount-point condition +otherwise." + (let ((mount-points + (map user-partition-mount-point user-partitions))) + (or (member "/" mount-points) + (raise + (condition (&no-root-mount-point)))))) + +(define (set-user-partitions-file-name user-partitions) + "Set the partition file-name of <user-partition> records in USER-PARTITIONS +list and return the updated list." + (map (lambda (p) + (let* ((partition (user-partition-parted-object p)) + (file-name (partition-get-path partition))) + (user-partition + (inherit p) + (file-name file-name)))) + user-partitions)) + +(define-syntax-rule (with-null-output-ports exp ...) + "Evaluate EXP with both the output port and the error port pointing to the +bit bucket." + (with-output-to-port (%make-void-port "w") + (lambda () + (with-error-to-port (%make-void-port "w") + (lambda () exp ...))))) + +(define (create-ext4-file-system partition) + "Create an ext4 file-system for PARTITION file-name." + (with-null-output-ports + (invoke "mkfs.ext4" "-F" partition))) + +(define (create-fat32-file-system partition) + "Create an ext4 file-system for PARTITION file-name." + (with-null-output-ports + (invoke "mkfs.fat" "-F32" partition))) + +(define (create-swap-partition partition) + "Set up swap area on PARTITION file-name." + (with-null-output-ports + (invoke "mkswap" "-f" partition))) + +(define (call-with-luks-key-file password proc) + "Write PASSWORD in a temporary file and pass it to PROC as argument." + (call-with-temporary-output-file + (lambda (file port) + (put-string port password) + (close port) + (proc file)))) + +(define (user-partition-upper-file-name user-partition) + "Return the file-name of the virtual block device corresponding to +USER-PARTITION if it is encrypted, or the plain file-name otherwise." + (let ((crypt-label (user-partition-crypt-label user-partition)) + (file-name (user-partition-file-name user-partition))) + (if crypt-label + (string-append "/dev/mapper/" crypt-label) + file-name))) + +(define (luks-format-and-open user-partition) + "Format and open the encrypted partition pointed by USER-PARTITION." + (let* ((file-name (user-partition-file-name user-partition)) + (label (user-partition-crypt-label user-partition)) + (password (user-partition-crypt-password user-partition))) + (call-with-luks-key-file + password + (lambda (key-file) + (system* "cryptsetup" "-q" "luksFormat" file-name key-file) + (system* "cryptsetup" "open" "--type" "luks" + "--key-file" key-file file-name label))))) + +(define (luks-close user-partition) + "Close the encrypted partition pointed by USER-PARTITION." + (let ((label (user-partition-crypt-label user-partition))) + (system* "cryptsetup" "close" label))) + +(define (format-user-partitions user-partitions) + "Format the <user-partition> records in USER-PARTITIONS list with +NEED-FORMATING? field set to #t." + (for-each + (lambda (user-partition) + (let* ((need-formatting? + (user-partition-need-formatting? user-partition)) + (type (user-partition-type user-partition)) + (crypt-label (user-partition-crypt-label user-partition)) + (file-name (user-partition-upper-file-name user-partition)) + (fs-type (user-partition-fs-type user-partition))) + (when crypt-label + (luks-format-and-open user-partition)) + + (case fs-type + ((ext4) + (and need-formatting? + (not (eq? type 'extended)) + (create-ext4-file-system file-name))) + ((fat32) + (and need-formatting? + (not (eq? type 'extended)) + (create-fat32-file-system file-name))) + ((swap) + (create-swap-partition file-name)) + (else + ;; TODO: Add support for other file-system types. + #t)))) + user-partitions)) + +(define (sort-partitions user-partitions) + "Sort USER-PARTITIONS by mount-points, so that the more nested mount-point +comes last. This is useful to mount/umount partitions in a coherent order." + (sort user-partitions + (lambda (a b) + (let ((mount-point-a (user-partition-mount-point a)) + (mount-point-b (user-partition-mount-point b))) + (string-prefix? mount-point-a mount-point-b))))) + +(define (mount-user-partitions user-partitions) + "Mount the <user-partition> records in USER-PARTITIONS list on their +respective mount-points." + (let* ((mount-partitions (filter user-partition-mount-point user-partitions)) + (sorted-partitions (sort-partitions mount-partitions))) + (for-each (lambda (user-partition) + (let* ((mount-point + (user-partition-mount-point user-partition)) + (target + (string-append (%installer-target-dir) + mount-point)) + (fs-type + (user-partition-fs-type user-partition)) + (crypt-label + (user-partition-crypt-label user-partition)) + (mount-type + (user-fs-type->mount-type fs-type)) + (file-name + (user-partition-upper-file-name user-partition))) + (mkdir-p target) + (mount file-name target mount-type))) + sorted-partitions))) + +(define (umount-user-partitions user-partitions) + "Unmount all the <user-partition> records in USER-PARTITIONS list." + (let* ((mount-partitions (filter user-partition-mount-point user-partitions)) + (sorted-partitions (sort-partitions mount-partitions))) + (for-each (lambda (user-partition) + (let* ((mount-point + (user-partition-mount-point user-partition)) + (crypt-label + (user-partition-crypt-label user-partition)) + (target + (string-append (%installer-target-dir) + mount-point))) + (umount target) + (when crypt-label + (luks-close user-partition)))) + (reverse sorted-partitions)))) + +(define (find-swap-user-partitions user-partitions) + "Return the subset of <user-partition> records in USER-PARTITIONS list with +the FS-TYPE field set to 'swap, return the empty list if none found." + (filter (lambda (user-partition) + (let ((fs-type (user-partition-fs-type user-partition))) + (eq? fs-type 'swap))) + user-partitions)) + +(define (start-swapping user-partitions) + "Start swaping on <user-partition> records with FS-TYPE equal to 'swap." + (let* ((swap-user-partitions (find-swap-user-partitions user-partitions)) + (swap-devices (map user-partition-file-name swap-user-partitions))) + (for-each swapon swap-devices))) + +(define (stop-swapping user-partitions) + "Stop swaping on <user-partition> records with FS-TYPE equal to 'swap." + (let* ((swap-user-partitions (find-swap-user-partitions user-partitions)) + (swap-devices (map user-partition-file-name swap-user-partitions))) + (for-each swapoff swap-devices))) + +(define-syntax-rule (with-mounted-partitions user-partitions exp ...) + "Mount USER-PARTITIONS and start swapping within the dynamic extent of EXP." + (dynamic-wind + (lambda () + (mount-user-partitions user-partitions) + (start-swapping user-partitions)) + (lambda () + exp ...) + (lambda () + (umount-user-partitions user-partitions) + (stop-swapping user-partitions) + #f))) + +(define (user-partition->file-system user-partition) + "Convert the given USER-PARTITION record in a FILE-SYSTEM record from +(gnu system file-systems) module and return it." + (let* ((mount-point (user-partition-mount-point user-partition)) + (fs-type (user-partition-fs-type user-partition)) + (crypt-label (user-partition-crypt-label user-partition)) + (mount-type (user-fs-type->mount-type fs-type)) + (file-name (user-partition-file-name user-partition)) + (upper-file-name (user-partition-upper-file-name user-partition)) + ;; Only compute uuid if partition is not encrypted. + (uuid (or crypt-label + (uuid->string (read-partition-uuid file-name) fs-type)))) + `(file-system + (mount-point ,mount-point) + (device ,@(if crypt-label + `(,upper-file-name) + `((uuid ,uuid (quote ,fs-type))))) + (type ,mount-type) + ,@(if crypt-label + '((dependencies mapped-devices)) + '())))) + +(define (user-partitions->file-systems user-partitions) + "Convert the given USER-PARTITIONS list of <user-partition> records into a +list of <file-system> records." + (filter-map + (lambda (user-partition) + (let ((mount-point + (user-partition-mount-point user-partition))) + (and mount-point + (user-partition->file-system user-partition)))) + user-partitions)) + +(define (user-partition->mapped-device user-partition) + "Convert the given USER-PARTITION record into a MAPPED-DEVICE record +from (gnu system mapped-devices) and return it." + (let ((label (user-partition-crypt-label user-partition)) + (file-name (user-partition-file-name user-partition))) + `(mapped-device + (source (uuid ,(uuid->string + (read-luks-partition-uuid file-name) + 'luks))) + (target ,label) + (type luks-device-mapping)))) + +(define (bootloader-configuration user-partitions) + "Return the bootloader configuration field for USER-PARTITIONS." + (let* ((root-partition + (find (lambda (user-partition) + (let ((mount-point + (user-partition-mount-point user-partition))) + (and mount-point + (string=? mount-point "/")))) + user-partitions)) + (root-partition-disk (user-partition-disk-file-name root-partition))) + `((bootloader-configuration + ,@(if (efi-installation?) + `((bootloader grub-efi-bootloader) + (target ,(default-esp-mount-point))) + `((bootloader grub-bootloader) + (target ,root-partition-disk))))))) + +(define (user-partitions->configuration user-partitions) + "Return the configuration field for USER-PARTITIONS." + (let* ((swap-user-partitions (find-swap-user-partitions user-partitions)) + (swap-devices (map user-partition-file-name swap-user-partitions)) + (encrypted-partitions + (filter user-partition-crypt-label user-partitions))) + `(,@(if (null? swap-devices) + '() + `((swap-devices (list ,@swap-devices)))) + (bootloader ,@(bootloader-configuration user-partitions)) + ,@(if (null? encrypted-partitions) + '() + `((mapped-devices + (list ,@(map user-partition->mapped-device + encrypted-partitions))))) + (file-systems (cons* + ,@(user-partitions->file-systems user-partitions) + %base-file-systems))))) + + +;; +;; Initialization. +;; + +(define (init-parted) + "Initialize libparted support." + (probe-all-devices) + (exception-set-handler (lambda (exception) + EXCEPTION-OPTION-UNHANDLED))) + +(define (free-parted devices) + "Deallocate memory used for DEVICES in parted, force sync them and wait for +the devices not to be used before returning." + ;; XXX: Formatting and further operations on disk partition table may fail + ;; because the partition table changes are not synced, or because the device + ;; is still in use, even if parted should have finished editing + ;; partitions. This is not well understood, but syncing devices and waiting + ;; them to stop returning EBUSY to BLKRRPART ioctl seems to be enough. The + ;; same kind of issue is described here: + ;; https://mail.gnome.org/archives/commits-list/2013-March/msg18423.html. + (let ((device-file-names (map device-path devices))) + (for-each force-device-sync devices) + (free-all-devices) + (for-each (lambda (file-name) + (let ((in-use? (with-delay-device-in-use? file-name))) + (and in-use? + (error + (format #f (G_ "Device ~a is still in use.") + file-name))))) + device-file-names))) diff --git a/gnu/installer/record.scm b/gnu/installer/record.scm new file mode 100644 index 0000000000..edf73b6215 --- /dev/null +++ b/gnu/installer/record.scm @@ -0,0 +1,84 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer record) + #:use-module (guix records) + #:use-module (srfi srfi-1) + #:export (<installer> + installer + make-installer + installer? + installer-name + installer-init + installer-exit + installer-exit-error + installer-final-page + installer-keymap-page + installer-locale-page + installer-menu-page + installer-network-page + installer-timezone-page + installer-hostname-page + installer-user-page + installer-partition-page + installer-services-page + installer-welcome-page)) + + +;;; +;;; Installer record. +;;; + +;; The <installer> record contains pages that will be run to prompt the user +;; for the system configuration. The goal of the installer is to produce a +;; complete <operating-system> record and install it. + +(define-record-type* <installer> + installer make-installer + installer? + ;; symbol + (name installer-name) + ;; procedure: void -> void + (init installer-init) + ;; procedure: void -> void + (exit installer-exit) + ;; procedure (key arguments) -> void + (exit-error installer-exit-error) + ;; procedure void -> void + (final-page installer-final-page) + ;; procedure (layouts) -> (list layout variant) + (keymap-page installer-keymap-page) + ;; procedure: (#:key supported-locales iso639-languages iso3166-territories) + ;; -> glibc-locale + (locale-page installer-locale-page) + ;; procedure: (steps) -> step-id + (menu-page installer-menu-page) + ;; procedure void -> void + (network-page installer-network-page) + ;; procedure (zonetab) -> posix-timezone + (timezone-page installer-timezone-page) + ;; procedure void -> void + (hostname-page installer-hostname-page) + ;; procedure void -> void + (user-page installer-user-page) + ;; procedure void -> void + (partition-page installer-partition-page) + ;; procedure void -> void + (services-page installer-services-page) + ;; procedure (logo) -> void + (welcome-page installer-welcome-page)) diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm new file mode 100644 index 0000000000..ed44b87682 --- /dev/null +++ b/gnu/installer/services.scm @@ -0,0 +1,59 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer services) + #:use-module (guix records) + #:export (<desktop-environment> + desktop-environment + make-desktop-environment + desktop-environment-name + desktop-environment-snippet + + %desktop-environments + desktop-environments->configuration)) + +(define-record-type* <desktop-environment> + desktop-environment make-desktop-environment + desktop-environment? + (name desktop-environment-name) ;string + (snippet desktop-environment-snippet)) ;symbol + +;; This is the list of desktop environments supported as services. +(define %desktop-environments + (list + (desktop-environment + (name "GNOME") + (snippet '(gnome-desktop-service))) + (desktop-environment + (name "Xfce") + (snippet '(xfce-desktop-service))) + (desktop-environment + (name "MATE") + (snippet '(mate-desktop-service))) + (desktop-environment + (name "Enlightenment") + (snippet '(service enlightenment-desktop-service-type))))) + +(define (desktop-environments->configuration desktop-environments) + "Return the configuration field for DESKTOP-ENVIRONMENTS." + (let ((snippets + (map desktop-environment-snippet desktop-environments))) + `(,@(if (null? snippets) + '() + `((services (cons* ,@snippets + %desktop-services))))))) diff --git a/gnu/installer/steps.scm b/gnu/installer/steps.scm new file mode 100644 index 0000000000..3f0bdad4f7 --- /dev/null +++ b/gnu/installer/steps.scm @@ -0,0 +1,237 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer steps) + #:use-module (guix records) + #:use-module (guix build utils) + #:use-module (ice-9 match) + #:use-module (ice-9 pretty-print) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (rnrs io ports) + #:export (&installer-step-abort + installer-step-abort? + + &installer-step-break + installer-step-break? + + <installer-step> + installer-step + make-installer-step + installer-step? + installer-step-id + installer-step-description + installer-step-compute + installer-step-configuration-formatter + + run-installer-steps + find-step-by-id + result->step-ids + result-step + result-step-done? + + %installer-configuration-file + %installer-target-dir + %configuration-file-width + format-configuration + configuration->file)) + +;; This condition may be raised to abort the current step. +(define-condition-type &installer-step-abort &condition + installer-step-abort?) + +;; This condition may be raised to break out from the steps execution. +(define-condition-type &installer-step-break &condition + installer-step-break?) + +;; An installer-step record is basically an id associated to a compute +;; procedure. The COMPUTE procedure takes exactly one argument, an association +;; list containing the results of previously executed installer-steps (see +;; RUN-INSTALLER-STEPS description). The value returned by the COMPUTE +;; procedure will be stored in the results list passed to the next +;; installer-step and so on. +(define-record-type* <installer-step> + installer-step make-installer-step + installer-step? + (id installer-step-id) ;symbol + (description installer-step-description ;string + (default #f)) + (compute installer-step-compute) ;procedure + (configuration-formatter installer-step-configuration-formatter ;procedure + (default #f))) + +(define* (run-installer-steps #:key + steps + (rewind-strategy 'previous) + (menu-proc (const #f))) + "Run the COMPUTE procedure of all <installer-step> records in STEPS +sequencially. If the &installer-step-abort condition is raised, fallback to a +previous install-step, accordingly to the specified REWIND-STRATEGY. + +REWIND-STRATEGY possible values are 'previous, 'menu and 'start. If 'previous +is selected, the execution will resume at the previous installer-step. If +'menu is selected, the MENU-PROC procedure will be called. Its return value +has to be an installer-step ID to jump to. The ID has to be the one of a +previously executed step. It is impossible to jump forward. Finally if 'start +is selected, the execution will resume at the first installer-step. + +The result of every COMPUTE procedures is stored in an association list, under +the form: + + '((STEP-ID . COMPUTE-RESULT) ...) + +where STEP-ID is the ID field of the installer-step and COMPUTE-RESULT the +result of the associated COMPUTE procedure. This result association list is +passed as argument of every COMPUTE procedure. It is finally returned when the +computation is over. + +If the &installer-step-break condition is raised, stop the computation and +return the accumalated result so far." + (define (pop-result list) + (cdr list)) + + (define (first-step? steps step) + (match steps + ((first-step . rest-steps) + (equal? first-step step)))) + + (define* (skip-to-step step result + #:key todo-steps done-steps) + (match (list todo-steps done-steps) + (((todo . rest-todo) (prev-done ... last-done)) + (if (eq? (installer-step-id todo) + (installer-step-id step)) + (run result + #:todo-steps todo-steps + #:done-steps done-steps) + (skip-to-step step (pop-result result) + #:todo-steps (cons last-done todo-steps) + #:done-steps prev-done))))) + + (define* (run result #:key todo-steps done-steps) + (match todo-steps + (() (reverse result)) + ((step . rest-steps) + (guard (c ((installer-step-abort? c) + (case rewind-strategy + ((previous) + (match done-steps + (() + ;; We cannot go previous the first step. So re-raise + ;; the exception. It might be useful in the case of + ;; nested run-installer-steps. Abort to 'raise-above + ;; prompt to prevent the condition from being catched + ;; by one of the previously installed guard. + (abort-to-prompt 'raise-above c)) + ((prev-done ... last-done) + (run (pop-result result) + #:todo-steps (cons last-done todo-steps) + #:done-steps prev-done)))) + ((menu) + (let ((goto-step (menu-proc + (append done-steps (list step))))) + (if (eq? goto-step step) + (run result + #:todo-steps todo-steps + #:done-steps done-steps) + (skip-to-step goto-step result + #:todo-steps todo-steps + #:done-steps done-steps)))) + ((start) + (if (null? done-steps) + ;; Same as above, it makes no sense to jump to start + ;; when we are at the first installer-step. Abort to + ;; 'raise-above prompt to re-raise the condition. + (abort-to-prompt 'raise-above c) + (run '() + #:todo-steps steps + #:done-steps '()))))) + ((installer-step-break? c) + (reverse result))) + (let* ((id (installer-step-id step)) + (compute (installer-step-compute step)) + (res (compute result done-steps))) + (run (alist-cons id res result) + #:todo-steps rest-steps + #:done-steps (append done-steps (list step)))))))) + + (call-with-prompt 'raise-above + (lambda () + (run '() + #:todo-steps steps + #:done-steps '())) + (lambda (k condition) + (raise condition)))) + +(define (find-step-by-id steps id) + "Find and return the step in STEPS whose id is equal to ID." + (find (lambda (step) + (eq? (installer-step-id step) id)) + steps)) + +(define (result-step results step-id) + "Return the result of the installer-step specified by STEP-ID in +RESULTS." + (assoc-ref results step-id)) + +(define (result-step-done? results step-id) + "Return #t if the installer-step specified by STEP-ID has a COMPUTE value +stored in RESULTS. Return #f otherwise." + (and (assoc step-id results) #t)) + +(define %installer-configuration-file (make-parameter "/mnt/etc/config.scm")) +(define %installer-target-dir (make-parameter "/mnt")) +(define %configuration-file-width (make-parameter 79)) + +(define (format-configuration steps results) + "Return the list resulting from the application of the procedure defined in +CONFIGURATION-FORMATTER field of <installer-step> on the associated result +found in RESULTS." + (let ((configuration + (append-map + (lambda (step) + (let* ((step-id (installer-step-id step)) + (conf-formatter + (installer-step-configuration-formatter step)) + (result-step (result-step results step-id))) + (if (and result-step conf-formatter) + (conf-formatter result-step) + '()))) + steps)) + (modules '((use-modules (gnu)) + (use-service-modules desktop)))) + `(,@modules + () + (operating-system ,@configuration)))) + +(define* (configuration->file configuration + #:key (filename (%installer-configuration-file))) + "Write the given CONFIGURATION to FILENAME." + (mkdir-p (dirname filename)) + (call-with-output-file filename + (lambda (port) + (format port ";; This is an operating system configuration generated~%") + (format port ";; by the graphical installer.~%") + (newline port) + (for-each (lambda (part) + (if (null? part) + (newline port) + (pretty-print part port))) + configuration) + (flush-output-port port)))) diff --git a/gnu/installer/timezone.scm b/gnu/installer/timezone.scm new file mode 100644 index 0000000000..32bc2ed6bb --- /dev/null +++ b/gnu/installer/timezone.scm @@ -0,0 +1,127 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer timezone) + #:use-module (gnu installer utils) + #:use-module (guix i18n) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (ice-9 match) + #:use-module (ice-9 receive) + #:export (locate-childrens + timezone->posix-tz + timezone-has-child? + zonetab->timezone-tree + posix-tz->configuration)) + +(define %not-blank + (char-set-complement char-set:blank)) + +(define (posix-tz->timezone tz) + "Convert given TZ in Posix format like \"Europe/Paris\" into a list like +(\"Europe\" \"Paris\")." + (string-split tz #\/)) + +(define (timezone->posix-tz timezone) + "Convert given TIMEZONE like (\"Europe\" \"Paris\") into a Posix timezone +like \"Europe/Paris\"." + (string-join timezone "/")) + +(define (zonetab->timezones zonetab) + "Parse ZONETAB file and return the corresponding list of timezones." + + (define (zonetab-line->posix-tz line) + (let ((tokens (string-tokenize line %not-blank))) + (match tokens + ((code coordinates tz _ ...) + tz)))) + + (call-with-input-file zonetab + (lambda (port) + (let* ((lines (read-lines port)) + ;; Filter comment lines starting with '#' character. + (tz-lines (filter (lambda (line) + (not (eq? (string-ref line 0) + #\#))) + lines))) + (map (lambda (line) + (posix-tz->timezone + (zonetab-line->posix-tz line))) + tz-lines))))) + +(define (timezones->timezone-tree timezones) + "Convert the list of timezones, TIMEZONES into a tree under the form: + + (\"America\" (\"North_Dakota\" \"New_Salem\" \"Center\")) + +representing America/North_Dakota/New_Salem and America/North_Dakota/Center +timezones." + + (define (remove-first lists) + "Remove the first element of every sublists in the argument LISTS." + (map (lambda (list) + (if (null? list) list (cdr list))) + lists)) + + (let loop ((cur-timezones timezones)) + (match cur-timezones + (() '()) + (((region . rest-region) . rest-timezones) + (if (null? rest-region) + (cons (list region) (loop rest-timezones)) + (receive (same-region other-region) + (partition (lambda (timezone) + (string=? (car timezone) region)) + cur-timezones) + (acons region + (loop (remove-first same-region)) + (loop other-region)))))))) + +(define (locate-childrens tree path) + "Return the childrens of the timezone indicated by PATH in the given +TREE. Raise a condition if the PATH could not be found." + (let ((extract-proc (cut map car <>))) + (match path + (() (sort (extract-proc tree) string<?)) + ((region . rest) + (or (and=> (assoc-ref tree region) + (cut locate-childrens <> rest)) + (raise + (condition + (&message + (message + (format #f (G_ "Unable to locate path: ~a.") path)))))))))) + +(define (timezone-has-child? tree timezone) + "Return #t if the given TIMEZONE any child in TREE and #f otherwise." + (not (null? (locate-childrens tree timezone)))) + +(define* (zonetab->timezone-tree zonetab) + "Return the timezone tree corresponding to the given ZONETAB file." + (timezones->timezone-tree (zonetab->timezones zonetab))) + + +;;; +;;; Configuration formatter. +;;; + +(define (posix-tz->configuration timezone) + "Return the configuration field for TIMEZONE." + `((timezone ,timezone))) diff --git a/gnu/installer/user.scm b/gnu/installer/user.scm new file mode 100644 index 0000000000..1f8d40a011 --- /dev/null +++ b/gnu/installer/user.scm @@ -0,0 +1,50 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer user) + #:use-module (guix records) + #:export (<user> + user + make-user + user-name + user-group + user-home-directory + + users->configuration)) + +(define-record-type* <user> + user make-user + user? + (name user-name) + (group user-group + (default "users")) + (home-directory user-home-directory)) + +(define (users->configuration users) + "Return the configuration field for USERS." + `((users (cons* + ,@(map (lambda (user) + `(user-account + (name ,(user-name user)) + (group ,(user-group user)) + (home-directory ,(user-home-directory user)) + (supplementary-groups + (quote ("wheel" "netdev" + "audio" "video"))))) + users) + %base-user-accounts)))) diff --git a/gnu/installer/utils.scm b/gnu/installer/utils.scm new file mode 100644 index 0000000000..e91f90a84d --- /dev/null +++ b/gnu/installer/utils.scm @@ -0,0 +1,63 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu installer utils) + #:use-module (guix utils) + #:use-module (guix build utils) + #:use-module (ice-9 rdelim) + #:use-module (ice-9 regex) + #:use-module (ice-9 textual-ports) + #:export (read-lines + read-all + nearest-exact-integer + read-percentage + run-shell-command)) + +(define* (read-lines #:optional (port (current-input-port))) + "Read lines from PORT and return them as a list." + (let loop ((line (read-line port)) + (lines '())) + (if (eof-object? line) + (reverse lines) + (loop (read-line port) + (cons line lines))))) + +(define (read-all file) + "Return the content of the given FILE as a string." + (call-with-input-file file + get-string-all)) + +(define (nearest-exact-integer x) + "Given a real number X, return the nearest exact integer, with ties going to +the nearest exact even integer." + (inexact->exact (round x))) + +(define (read-percentage percentage) + "Read PERCENTAGE string and return the corresponding percentage as a +number. If no percentage is found, return #f" + (let ((result (string-match "^([0-9]+)%$" percentage))) + (and result + (string->number (match:substring result 1))))) + +(define (run-shell-command command) + (call-with-temporary-output-file + (lambda (file port) + (format port "~a~%" command) + ;; (format port "exit~%") + (close port) + (invoke "bash" "--init-file" file)))) diff --git a/gnu/local.mk b/gnu/local.mk index f4de1a44a4..5deae50336 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -46,6 +46,7 @@ GNU_SYSTEM_MODULES = \ %D%/bootloader/grub.scm \ %D%/bootloader/extlinux.scm \ %D%/bootloader/u-boot.scm \ + %D%/ci.scm \ %D%/packages.scm \ %D%/packages/abduco.scm \ %D%/packages/abiword.scm \ @@ -112,6 +113,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/conky.scm \ %D%/packages/connman.scm \ %D%/packages/cook.scm \ + %D%/packages/coq.scm \ %D%/packages/cpio.scm \ %D%/packages/cpp.scm \ %D%/packages/cppi.scm \ @@ -126,6 +128,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/datamash.scm \ %D%/packages/datastructures.scm \ %D%/packages/dav.scm \ + %D%/packages/dbm.scm \ %D%/packages/dc.scm \ %D%/packages/debian.scm \ %D%/packages/debug.scm \ @@ -154,6 +157,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/elixir.scm \ %D%/packages/embedded.scm \ %D%/packages/emacs.scm \ + %D%/packages/emacs-xyz.scm \ %D%/packages/emulators.scm \ %D%/packages/enchant.scm \ %D%/packages/engineering.scm \ @@ -348,6 +352,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/pem.scm \ %D%/packages/perl.scm \ %D%/packages/perl-check.scm \ + %D%/packages/perl-compression.scm \ %D%/packages/perl-web.scm \ %D%/packages/photo.scm \ %D%/packages/phabricator.scm \ @@ -366,8 +371,10 @@ GNU_SYSTEM_MODULES = \ %D%/packages/pure.scm \ %D%/packages/pv.scm \ %D%/packages/python.scm \ + %D%/packages/python-compression.scm \ %D%/packages/python-crypto.scm \ %D%/packages/python-web.scm \ + %D%/packages/python-xyz.scm \ %D%/packages/toys.scm \ %D%/packages/tryton.scm \ %D%/packages/qt.scm \ @@ -410,6 +417,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/sml.scm \ %D%/packages/speech.scm \ %D%/packages/spice.scm \ + %D%/packages/sqlite.scm \ %D%/packages/ssh.scm \ %D%/packages/sssd.scm \ %D%/packages/stalonetray.scm \ @@ -555,9 +563,47 @@ GNU_SYSTEM_MODULES = \ %D%/tests/ssh.scm \ %D%/tests/version-control.scm \ %D%/tests/virtualization.scm \ - %D%/tests/web.scm \ + %D%/tests/web.scm + +if ENABLE_INSTALLER + +GNU_SYSTEM_MODULES += \ + %D%/installer.scm \ + %D%/installer/connman.scm \ + %D%/installer/final.scm \ + %D%/installer/hostname.scm \ + %D%/installer/keymap.scm \ + %D%/installer/locale.scm \ + %D%/installer/newt.scm \ + %D%/installer/parted.scm \ + %D%/installer/record.scm \ + %D%/installer/services.scm \ + %D%/installer/steps.scm \ + %D%/installer/timezone.scm \ + %D%/installer/user.scm \ + %D%/installer/utils.scm \ \ - %D%/ci.scm + %D%/installer/newt/ethernet.scm \ + %D%/installer/newt/final.scm \ + %D%/installer/newt/hostname.scm \ + %D%/installer/newt/keymap.scm \ + %D%/installer/newt/locale.scm \ + %D%/installer/newt/menu.scm \ + %D%/installer/newt/network.scm \ + %D%/installer/newt/page.scm \ + %D%/installer/newt/partition.scm \ + %D%/installer/newt/services.scm \ + %D%/installer/newt/timezone.scm \ + %D%/installer/newt/utils.scm \ + %D%/installer/newt/welcome.scm \ + %D%/installer/newt/wifi.scm + +installerdir = $(guilemoduledir)/%D%/installer +dist_installer_DATA = \ + %D%/installer/aux-files/logo.txt \ + %D%/installer/aux-files/SUPPORTED + +endif ENABLE_INSTALLER # Modules that do not need to be compiled. MODULES_NOT_COMPILED += \ @@ -866,6 +912,7 @@ dist_patch_DATA = \ %D%/packages/patches/kinit-kdeinit-libpath.patch \ %D%/packages/patches/kio-search-smbd-on-PATH.patch \ %D%/packages/patches/kmod-module-directory.patch \ + %D%/packages/patches/kmscon-runtime-keymap-switch.patch \ %D%/packages/patches/kpackage-allow-external-paths.patch \ %D%/packages/patches/kobodeluxe-paths.patch \ %D%/packages/patches/kobodeluxe-enemies-pipe-decl.patch \ @@ -873,6 +920,7 @@ dist_patch_DATA = \ %D%/packages/patches/kobodeluxe-manpage-minus-not-hyphen.patch \ %D%/packages/patches/kobodeluxe-midicon-segmentation-fault.patch \ %D%/packages/patches/kobodeluxe-graphics-window-signed-char.patch \ + %D%/packages/patches/kodi-skip-test-449.patch \ %D%/packages/patches/laby-make-install.patch \ %D%/packages/patches/ldc-bootstrap-disable-tests.patch \ %D%/packages/patches/ldc-disable-phobos-tests.patch \ @@ -929,7 +977,6 @@ dist_patch_DATA = \ %D%/packages/patches/libsndfile-CVE-2017-8361-8363-8365.patch \ %D%/packages/patches/libsndfile-CVE-2017-8362.patch \ %D%/packages/patches/libsndfile-CVE-2017-12562.patch \ - %D%/packages/patches/libssh-hostname-parser-bug.patch \ %D%/packages/patches/libssh2-fix-build-failure-with-gcrypt.patch \ %D%/packages/patches/libtar-CVE-2013-4420.patch \ %D%/packages/patches/libtheora-config-guess.patch \ @@ -1029,11 +1076,13 @@ dist_patch_DATA = \ %D%/packages/patches/ola-readdir-r.patch \ %D%/packages/patches/openbabel-fix-crash-on-nwchem-output.patch \ %D%/packages/patches/opencascade-oce-glibc-2.26.patch \ + %D%/packages/patches/opencv-rgbd-aarch64-test-fix.patch \ %D%/packages/patches/openfoam-4.1-cleanup.patch \ %D%/packages/patches/openjdk-10-idlj-reproducibility.patch \ %D%/packages/patches/openldap-CVE-2017-9287.patch \ %D%/packages/patches/openocd-nrf52.patch \ %D%/packages/patches/opensmtpd-fix-crash.patch \ + %D%/packages/patches/openssh-CVE-2018-20685.patch \ %D%/packages/patches/openssl-runpath.patch \ %D%/packages/patches/openssl-1.1-c-rehash-in.patch \ %D%/packages/patches/openssl-c-rehash-in.patch \ diff --git a/gnu/packages.scm b/gnu/packages.scm index 532297239d..a1814205f9 100644 --- a/gnu/packages.scm +++ b/gnu/packages.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com> @@ -28,11 +28,14 @@ #:use-module (guix memoization) #:use-module ((guix build utils) #:select ((package-name->name+version - . hyphen-separated-name->name+version))) + . hyphen-separated-name->name+version) + mkdir-p)) #:autoload (guix profiles) (packages->manifest) #:use-module (guix describe) #:use-module (ice-9 vlist) #:use-module (ice-9 match) + #:autoload (ice-9 binary-ports) (put-bytevector) + #:autoload (system base compile) (compile) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (srfi srfi-26) @@ -50,14 +53,18 @@ %default-package-module-path fold-packages + fold-available-packages find-packages-by-name + find-package-locations find-best-packages-by-name - find-newest-available-packages specification->package specification->package+output - specifications->manifest)) + specification->location + specifications->manifest + + generate-package-cache)) ;;; Commentary: ;;; @@ -136,6 +143,14 @@ for system '~a'") ;; Default search path for package modules. `((,%distro-root-directory . "gnu/packages"))) +(define (cache-is-authoritative?) + "Return true if the pre-computed package cache is authoritative. It is not +authoritative when entries have been added via GUIX_PACKAGE_PATH or '-L' +flags." + (equal? (%package-module-path) + (append %default-package-module-path + (package-path-entries)))) + (define %package-module-path ;; Search path for package modules. Each item must be either a directory ;; name or a pair whose car is a directory and whose cdr is a sub-directory @@ -168,6 +183,50 @@ for system '~a'") directory)) %load-path))) +(define (fold-available-packages proc init) + "Fold PROC over the list of available packages. For each available package, +PROC is called along these lines: + + (PROC NAME VERSION RESULT + #:outputs OUTPUTS + #:location LOCATION + …) + +PROC can use #:allow-other-keys to ignore the bits it's not interested in. +When a package cache is available, this procedure does not actually load any +package module." + (define cache + (load-package-cache (current-profile))) + + (if (and cache (cache-is-authoritative?)) + (vhash-fold (lambda (name vector result) + (match vector + (#(name version module symbol outputs + supported? deprecated? + file line column) + (proc name version result + #:outputs outputs + #:location (and file + (location file line column)) + #:supported? supported? + #:deprecated? deprecated?)))) + init + cache) + (fold-packages (lambda (package result) + (proc (package-name package) + (package-version package) + result + #:outputs (package-outputs package) + #:location (package-location package) + #:supported? + (->bool + (member (%current-system) + (package-supported-systems package))) + #:deprecated? + (->bool + (package-superseded package)))) + init))) + (define* (fold-packages proc init #:optional (modules (all-modules (%package-module-path) @@ -184,7 +243,35 @@ is guaranteed to never traverse the same package twice." init modules)) -(define find-packages-by-name +(define %package-cache-file + ;; Location of the package cache. + "/lib/guix/package.cache") + +(define load-package-cache + (mlambda (profile) + "Attempt to load the package cache. On success return a vhash keyed by +package names. Return #f on failure." + (match profile + (#f #f) + (profile + (catch 'system-error + (lambda () + (define lst + (load-compiled (string-append profile %package-cache-file))) + (fold (lambda (item vhash) + (match item + (#(name version module symbol outputs + supported? deprecated? + file line column) + (vhash-cons name item vhash)))) + vlist-null + lst)) + (lambda args + (if (= ENOENT (system-error-errno args)) + #f + (apply throw args)))))))) + +(define find-packages-by-name/direct ;bypass the cache (let ((packages (delay (fold-packages (lambda (p r) (vhash-cons (package-name p) p r)) @@ -203,28 +290,61 @@ decreasing version order." matching) matching))))) -(define find-newest-available-packages - (mlambda () - "Return a vhash keyed by package names, and with -associated values of the form - - (newest-version newest-package ...) - -where the preferred package is listed first." - - ;; FIXME: Currently, the preferred package is whichever one - ;; was found last by 'fold-packages'. Find a better solution. - (fold-packages (lambda (p r) - (let ((name (package-name p)) - (version (package-version p))) - (match (vhash-assoc name r) - ((_ newest-so-far . pkgs) - (case (version-compare version newest-so-far) - ((>) (vhash-cons name `(,version ,p) r)) - ((=) (vhash-cons name `(,version ,p ,@pkgs) r)) - ((<) r))) - (#f (vhash-cons name `(,version ,p) r))))) - vlist-null))) +(define (cache-lookup cache name) + "Lookup package NAME in CACHE. Return a list sorted in increasing version +order." + (define (package-version<? v1 v2) + (version>? (vector-ref v2 1) (vector-ref v1 1))) + + (sort (vhash-fold* cons '() name cache) + package-version<?)) + +(define* (find-packages-by-name name #:optional version) + "Return the list of packages with the given NAME. If VERSION is not #f, +then only return packages whose version is prefixed by VERSION, sorted in +decreasing version order." + (define cache + (load-package-cache (current-profile))) + + (if (and (cache-is-authoritative?) cache) + (match (cache-lookup cache name) + (#f #f) + ((#(_ versions modules symbols _ _ _ _ _ _) ...) + (fold (lambda (version* module symbol result) + (if (or (not version) + (version-prefix? version version*)) + (cons (module-ref (resolve-interface module) + symbol) + result) + result)) + '() + versions modules symbols))) + (find-packages-by-name/direct name version))) + +(define* (find-package-locations name #:optional version) + "Return a list of version/location pairs corresponding to each package +matching NAME and VERSION." + (define cache + (load-package-cache (current-profile))) + + (if (and cache (cache-is-authoritative?)) + (match (cache-lookup cache name) + (#f '()) + ((#(name versions modules symbols outputs + supported? deprecated? + files lines columns) ...) + (fold (lambda (version* file line column result) + (if (and file + (or (not version) + (version-prefix? version version*))) + (alist-cons version* (location file line column) + result) + result)) + '() + versions files lines columns))) + (map (lambda (package) + (cons (package-version package) (package-location package))) + (find-packages-by-name/direct name version)))) (define (find-best-packages-by-name name version) "If version is #f, return the list of packages named NAME with the highest @@ -232,9 +352,64 @@ version numbers; otherwise, return the list of packages named NAME and at VERSION." (if version (find-packages-by-name name version) - (match (vhash-assoc name (find-newest-available-packages)) - ((_ version pkgs ...) pkgs) - (#f '())))) + (match (find-packages-by-name name) + (() + '()) + ((matches ...) + ;; Return the subset of MATCHES with the higher version number. + (let ((highest (package-version (first matches)))) + (take-while (lambda (p) + (string=? (package-version p) highest)) + matches)))))) + +(define (generate-package-cache directory) + "Generate under DIRECTORY a cache of all the available packages. + +The primary purpose of the cache is to speed up package lookup by name such +that we don't have to traverse and load all the package modules, thereby also +reducing the memory footprint." + (define cache-file + (string-append directory %package-cache-file)) + + (define (expand-cache module symbol variable result) + (match (false-if-exception (variable-ref variable)) + ((? package? package) + (if (hidden-package? package) + result + (cons `#(,(package-name package) + ,(package-version package) + ,(module-name module) + ,symbol + ,(package-outputs package) + ,(->bool (member (%current-system) + (package-supported-systems package))) + ,(->bool (package-superseded package)) + ,@(let ((loc (package-location package))) + (if loc + `(,(location-file loc) + ,(location-line loc) + ,(location-column loc)) + '(#f #f #f)))) + result))) + (_ + result))) + + (define exp + (fold-module-public-variables* expand-cache '() + (all-modules (%package-module-path) + #:warn + warn-about-load-error))) + + (mkdir-p (dirname cache-file)) + (call-with-output-file cache-file + (lambda (port) + ;; Store the cache as a '.go' file. This makes loading fast and reduces + ;; heap usage since some of the static data is directly mmapped. + (put-bytevector port + (compile `'(,@exp) + #:to 'bytecode + #:opts '(#:to-file? #t))))) + cache-file) (define %sigint-prompt @@ -290,6 +465,30 @@ present, return the preferred newest version." (let-values (((name version) (package-name->name+version spec))) (%find-package spec name version))) +(define (specification->location spec) + "Return the location of the highest-numbered package matching SPEC, a +specification such as \"guile@2\" or \"emacs\"." + (let-values (((name version) (package-name->name+version spec))) + (match (find-package-locations name version) + (() + (if version + (leave (G_ "~A: package not found for version ~a~%") name version) + (leave (G_ "~A: unknown package~%") name))) + (lst + (let* ((highest (match lst (((version . _) _ ...) version))) + (locations (take-while (match-lambda + ((version . location) + (string=? version highest))) + lst))) + (match locations + (((version . location) . rest) + (unless (null? rest) + (warning (G_ "ambiguous package specification `~a'~%") spec) + (warning (G_ "choosing ~a@~a from ~a~%") + name version + (location->string location))) + location))))))) + (define* (specification->package+output spec #:optional (output "out")) "Return the package and output specified by SPEC, or #f and #f; SPEC may optionally contain a version number and an output name, as in these examples: diff --git a/gnu/packages/ada.scm b/gnu/packages/ada.scm index d60723edfa..a8c2bdc9a9 100644 --- a/gnu/packages/ada.scm +++ b/gnu/packages/ada.scm @@ -26,7 +26,8 @@ #:use-module (gnu packages) #:use-module (gnu packages check) #:use-module (gnu packages compression) - #:use-module (gnu packages python)) + #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz)) (define-public python2-langkit (let ((commit "fe0bc8bf60dbd2937759810df76ac420d99fc15f") diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 5ad3f6d873..815ce19718 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -13,7 +13,7 @@ ;;; Copyright © 2016 Peter Feigl <peter.feigl@nexoid.at> ;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net> ;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is> -;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016 John Darrington <jmd@gnu.org> ;;; Copyright © 2017 Ben Sturmfels <ben@sturm.com.au> ;;; Copyright © 2017 Ethan R. Jones <doubleplusgood23@gmail.com> @@ -86,6 +86,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages terminals) #:use-module (gnu packages texinfo) @@ -1510,7 +1511,7 @@ various ways that may be running with too much privilege.") (define-public smartmontools (package (name "smartmontools") - (version "6.6") + (version "7.0") (source (origin (method url-fetch) (uri (string-append @@ -1518,7 +1519,7 @@ various ways that may be running with too much privilege.") version "/smartmontools-" version ".tar.gz")) (sha256 (base32 - "0m1hllbb78rr6cxkbalmz1gqkl0psgq8rrmv4gwcmz34n07kvx2i")))) + "077nx2rn9szrg6isdh0938zbp7vr3dsyxl4jdyyzv1xwhqksrqg5")))) (build-system gnu-build-system) (inputs `(("libcap-ng" ,libcap-ng))) (home-page "https://www.smartmontools.org/") diff --git a/gnu/packages/adns.scm b/gnu/packages/adns.scm index 6e3af8b2d3..28a65667eb 100644 --- a/gnu/packages/adns.scm +++ b/gnu/packages/adns.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2018 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -21,6 +22,7 @@ #:use-module (guix licenses) #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (gnu packages pkg-config)) @@ -80,3 +82,33 @@ queries without blocking, or need to perform multiple DNS queries in parallel. The primary examples of such applications are servers which communicate with multiple clients and programs with graphical user interfaces.") (license (x11-style "https://c-ares.haxx.se/license.html")))) + +;; XXX: temporary package for tensorflow / grpc +(define-public c-ares-next + (package + (name "c-ares") + (version "1.15.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://c-ares.haxx.se/download/" name "-" version + ".tar.gz")) + (sha256 + (base32 + "0lk8knip4xk6qzksdkn7085mmgm4ixfczdyyjw656c193y3rgnvc")))) + (build-system cmake-build-system) + (arguments + `(#:tests? #f ; some tests seem to require Internet connection + #:configure-flags + (list "-DCARES_BUILD_TESTS=ON"))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (home-page "https://c-ares.haxx.se/") + (synopsis "C library for asynchronous DNS requests") + (description + "C-ares is a C library that performs DNS requests and name resolution +asynchronously. It is intended for applications which need to perform DNS +queries without blocking, or need to perform multiple DNS queries in parallel. +The primary examples of such applications are servers which communicate with +multiple clients and programs with graphical user interfaces.") + (license (x11-style "https://c-ares.haxx.se/license.html")))) diff --git a/gnu/packages/android.scm b/gnu/packages/android.scm index 48380740a3..d5a60cb5bb 100644 --- a/gnu/packages/android.scm +++ b/gnu/packages/android.scm @@ -41,6 +41,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages selinux) #:use-module (gnu packages serialization) #:use-module (gnu packages ssh) diff --git a/gnu/packages/animation.scm b/gnu/packages/animation.scm index a10747ef38..965fff6d46 100644 --- a/gnu/packages/animation.scm +++ b/gnu/packages/animation.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2019 Pkill -9 <pkill9@runbox.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -258,3 +259,44 @@ easy to lip sync animated characters by making the process very simple – just type in the words being spoken, then drag the words on top of the sound’s waveform until they line up with the proper sounds.") (license license:gpl3+)))) + +(define-public pencil2d + (package + (name "pencil2d") + (version "0.6.2") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/pencil2d/pencil") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1iv7drwxs32mqs3hybjx2lxyqn8cv2b4rw9ny7gzdacsbhi65knr")))) + (build-system gnu-build-system) + (inputs + `(("qtbase" ,qtbase) + ("qtxmlpatterns" ,qtxmlpatterns) + ("qtmultimedia" ,qtmultimedia) + ("qtsvg" ,qtsvg))) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (invoke "qmake" (string-append "PREFIX=" out))))) + (add-after 'install 'wrap-executable + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (plugin-path (getenv "QT_PLUGIN_PATH"))) + (wrap-program (string-append out "/bin/pencil2d") + `("QT_PLUGIN_PATH" ":" prefix (,plugin-path))) + #t)))))) + (home-page "https://www.pencil2d.org") + (synopsis "Make 2D hand-drawn animations") + (description + "Pencil2D is an easy-to-use and intuitive animation and drawing tool. It +lets you create traditional hand-drawn animations (cartoons) using both bitmap +and vector graphics.") + (license license:gpl2))) diff --git a/gnu/packages/apl.scm b/gnu/packages/apl.scm index aa47edcd64..88150dc4d0 100644 --- a/gnu/packages/apl.scm +++ b/gnu/packages/apl.scm @@ -25,8 +25,8 @@ #:use-module (guix build-system gnu) #:use-module (gnu packages gettext) #:use-module (gnu packages maths) - #:use-module (gnu packages databases) - #:use-module (gnu packages readline)) + #:use-module (gnu packages readline) + #:use-module (gnu packages sqlite)) (define-public apl (package diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index 80aacc5664..658f23e45d 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -8,7 +8,7 @@ ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016 Nils Gillmann <ng0@n0.is> ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org> -;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 okapi <okapi@firemail.cc> ;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com> @@ -18,6 +18,7 @@ ;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de> ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2018 Brendan Tildesley <brendan.tildesley@openmailbox.org> +;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -57,7 +58,7 @@ #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages emacs) #:use-module (gnu packages file) #:use-module (gnu packages flex) @@ -82,6 +83,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) ;libsndfile, libsamplerate #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages rdf) #:use-module (gnu packages readline) #:use-module (gnu packages serialization) @@ -761,7 +763,7 @@ emulation (valve, tape), bit fiddling (decimator, pointer-cast), etc.") (define-public csound (package (name "csound") - (version "6.11.0") + (version "6.12.0") (source (origin (method git-fetch) (uri (git-reference @@ -770,7 +772,7 @@ emulation (valve, tape), bit fiddling (decimator, pointer-cast), etc.") (file-name (git-file-name name version)) (sha256 (base32 - "1hlkrnv3gghx4v382nl6v6k2k1dzm5ddk35m5g3q6pzc959726s7")))) + "0pv4s54cayvavdp6y30n3r1l5x83x9whyyd2v24y0dh224v3hbxi")))) (build-system cmake-build-system) (inputs `(("alsa-lib" ,alsa-lib) @@ -2154,7 +2156,11 @@ and ALSA.") "1rzzqa39a6llr52vjkjr0a86nc776kmr5xs52qqga8ms9697psz5")))) (build-system gnu-build-system) (arguments - '(#:tests? #f)) ; no check target + '(#:tests? #f ;; no check target + ;; Disable xunique to prevent X hanging when starting qjackctl in + ;; tiling window managers such as StumpWM or i3 + ;; (see https://github.com/rncbc/qjackctl/issues/13). + #:configure-flags '("--disable-xunique"))) (inputs `(("jack" ,jack-1) ("alsa-lib" ,alsa-lib) diff --git a/gnu/packages/avahi.scm b/gnu/packages/avahi.scm index df74437631..e71ffc2982 100644 --- a/gnu/packages/avahi.scm +++ b/gnu/packages/avahi.scm @@ -24,7 +24,7 @@ #:use-module (guix download) #:use-module (guix build-system gnu) #:use-module (gnu packages) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages libdaemon) #:use-module (gnu packages linux) #:use-module (gnu packages pkg-config) diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm index 4a8355f2b1..5d9013552e 100644 --- a/gnu/packages/backup.scm +++ b/gnu/packages/backup.scm @@ -46,6 +46,7 @@ #:use-module (gnu packages compression) #:use-module (gnu packages crypto) #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages dejagnu) #:use-module (gnu packages ftp) #:use-module (gnu packages glib) @@ -62,6 +63,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages rsync) #:use-module (gnu packages ssh) #:use-module (gnu packages tls) diff --git a/gnu/packages/benchmark.scm b/gnu/packages/benchmark.scm index 9d792021bd..e97e827cea 100644 --- a/gnu/packages/benchmark.scm +++ b/gnu/packages/benchmark.scm @@ -29,6 +29,7 @@ #:use-module (gnu packages maths) #:use-module (gnu packages mpi) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages storage) #:use-module (ice-9 match)) diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm index 37ac94128b..20aabb0be4 100644 --- a/gnu/packages/bioconductor.scm +++ b/gnu/packages/bioconductor.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2018 Roel Janssen <roel@gnu.org> +;;; Copyright © 2017, 2018 Roel Janssen <roel@gnu.org> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. @@ -228,6 +228,53 @@ database is exposed as a @code{TxDb} object.") (license license:artistic2.0))) +(define-public r-biocgenerics + (package + (name "r-biocgenerics") + (version "0.28.0") + (source (origin + (method url-fetch) + (uri (bioconductor-uri "BiocGenerics" version)) + (sha256 + (base32 + "0cvpsrhg7sn7lpqgxvqrsagv6j7xj5rafq5xdjfd8zc4gxrs5rb8")))) + (properties + `((upstream-name . "BiocGenerics"))) + (build-system r-build-system) + (home-page "https://bioconductor.org/packages/BiocGenerics") + (synopsis "S4 generic functions for Bioconductor") + (description + "This package provides S4 generic functions needed by many Bioconductor +packages.") + (license license:artistic2.0))) + +(define-public r-annotate + (package + (name "r-annotate") + (version "1.60.0") + (source + (origin + (method url-fetch) + (uri (bioconductor-uri "annotate" version)) + (sha256 + (base32 + "0p6c96lay23a67dyirgnwzm2yw22m592z780vy6p4nqwla8ha18n")))) + (build-system r-build-system) + (propagated-inputs + `(("r-annotationdbi" ,r-annotationdbi) + ("r-biobase" ,r-biobase) + ("r-biocgenerics" ,r-biocgenerics) + ("r-dbi" ,r-dbi) + ("r-rcurl" ,r-rcurl) + ("r-xml" ,r-xml) + ("r-xtable" ,r-xtable))) + (home-page + "https://bioconductor.org/packages/annotate") + (synopsis "Annotation for microarrays") + (description "This package provides R environments for the annotation of +microarrays.") + (license license:artistic2.0))) + (define-public r-hpar (package (name "r-hpar") diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index 42f5c3b80d..28dbdca13b 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -98,7 +98,9 @@ #:use-module (gnu packages popt) #:use-module (gnu packages protobuf) #:use-module (gnu packages python) + #:use-module (gnu packages python-compression) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages ruby) #:use-module (gnu packages serialization) @@ -6338,63 +6340,6 @@ between two different types of motif instances using as much relevant information as possible.") (license (list license:gpl2+ license:gpl3+)))) -(define-public r-vegan - (package - (name "r-vegan") - (version "2.5-3") - (source - (origin - (method url-fetch) - (uri (cran-uri "vegan" version)) - (sha256 - (base32 - "023xznh0iy0496icpchadmp7a3rk3nj9s48fvwlvp3dssw58yp3c")))) - (build-system r-build-system) - (native-inputs - `(("gfortran" ,gfortran))) - (propagated-inputs - `(("r-cluster" ,r-cluster) - ("r-knitr" ,r-knitr) ; needed for vignettes - ("r-lattice" ,r-lattice) - ("r-mass" ,r-mass) - ("r-mgcv" ,r-mgcv) - ("r-permute" ,r-permute))) - (home-page "https://cran.r-project.org/web/packages/vegan") - (synopsis "Functions for community ecology") - (description - "The vegan package provides tools for descriptive community ecology. It -has most basic functions of diversity analysis, community ordination and -dissimilarity analysis. Most of its multivariate tools can be used for other -data types as well.") - (license license:gpl2+))) - -(define-public r-annotate - (package - (name "r-annotate") - (version "1.60.0") - (source - (origin - (method url-fetch) - (uri (bioconductor-uri "annotate" version)) - (sha256 - (base32 - "0p6c96lay23a67dyirgnwzm2yw22m592z780vy6p4nqwla8ha18n")))) - (build-system r-build-system) - (propagated-inputs - `(("r-annotationdbi" ,r-annotationdbi) - ("r-biobase" ,r-biobase) - ("r-biocgenerics" ,r-biocgenerics) - ("r-dbi" ,r-dbi) - ("r-rcurl" ,r-rcurl) - ("r-xml" ,r-xml) - ("r-xtable" ,r-xtable))) - (home-page - "https://bioconductor.org/packages/annotate") - (synopsis "Annotation for microarrays") - (description "This package provides R environments for the annotation of -microarrays.") - (license license:artistic2.0))) - (define-public r-copynumber (package (name "r-copynumber") @@ -7092,26 +7037,6 @@ use multiple corrections. Visualization of data can be done either by barplots or heatmaps.") (license license:gpl2+))) -(define-public r-biocgenerics - (package - (name "r-biocgenerics") - (version "0.28.0") - (source (origin - (method url-fetch) - (uri (bioconductor-uri "BiocGenerics" version)) - (sha256 - (base32 - "0cvpsrhg7sn7lpqgxvqrsagv6j7xj5rafq5xdjfd8zc4gxrs5rb8")))) - (properties - `((upstream-name . "BiocGenerics"))) - (build-system r-build-system) - (home-page "https://bioconductor.org/packages/BiocGenerics") - (synopsis "S4 generic functions for Bioconductor") - (description - "This package provides S4 generic functions needed by many Bioconductor -packages.") - (license license:artistic2.0))) - (define-public r-biocinstaller (package (name "r-biocinstaller") diff --git a/gnu/packages/bittorrent.scm b/gnu/packages/bittorrent.scm index ee094a4814..00b115cb9c 100644 --- a/gnu/packages/bittorrent.scm +++ b/gnu/packages/bittorrent.scm @@ -41,7 +41,6 @@ #:use-module (gnu packages crypto) #:use-module (gnu packages curl) #:use-module (gnu packages cyrus-sasl) - #:use-module (gnu packages databases) #:use-module (gnu packages file) #:use-module (gnu packages freedesktop) #:use-module (gnu packages glib) @@ -57,7 +56,9 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) + #:use-module (gnu packages sqlite) #:use-module (gnu packages ssh) #:use-module (gnu packages tls) #:use-module (gnu packages xml)) diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm index 69b4a904be..a4b4f64783 100644 --- a/gnu/packages/bootloaders.scm +++ b/gnu/packages/bootloaders.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> @@ -8,6 +8,7 @@ ;;; Copyright © 2016, 2017 David Craven <david@craven.ch> ;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2019 nee <nee@cock.li> ;;; ;;; This file is part of GNU Guix. ;;; @@ -55,6 +56,7 @@ #:use-module (gnu packages swig) #:use-module (gnu packages valgrind) #:use-module (gnu packages virtualization) + #:use-module (gnu packages xorg) #:use-module (gnu packages web) #:use-module (guix build-system gnu) #:use-module (guix download) @@ -110,6 +112,12 @@ ;; Make the font visible. (copy-file (assoc-ref inputs "unifont") "unifont.bdf.gz") (system* "gunzip" "unifont.bdf.gz") + + ;; Give the absolute file name of 'ckbcomp'. + (substitute* "util/grub-kbdcomp.in" + (("^ckbcomp ") + (string-append (assoc-ref inputs "console-setup") + "/bin/ckbcomp "))) #t)) (add-before 'check 'disable-flaky-test (lambda _ @@ -134,6 +142,10 @@ ;; to determine whether the root file system is RAID. ("mdadm" ,mdadm) + ;; Console-setup's ckbcomp is invoked by grub-kbdcomp. It is required + ;; for generating alternative keyboard layouts. + ("console-setup" ,console-setup) + ("freetype" ,freetype) ;; ("libusb" ,libusb) ;; ("fuse" ,fuse) @@ -717,7 +729,14 @@ board-independent tools."))) ".drv-0/source"))) ;; Tests require write permissions to many of these files. (for-each make-file-writable (find-files "tests/futility")) - #t))) + #t)) + (add-after 'install 'install-devkeys + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (share (string-append out "/share/vboot-utils"))) + (copy-recursively "tests/devkeys" + (string-append share "/devkeys")) + #t)))) #:test-target "runtests")) (native-inputs `(("pkg-config" ,pkg-config) diff --git a/gnu/packages/calendar.scm b/gnu/packages/calendar.scm index ccf26a2aea..f1949c14c0 100644 --- a/gnu/packages/calendar.scm +++ b/gnu/packages/calendar.scm @@ -32,7 +32,6 @@ #:use-module (guix build-system python) #:use-module (gnu packages base) #:use-module (gnu packages check) - #:use-module (gnu packages databases) #:use-module (gnu packages dav) #:use-module (gnu packages freedesktop) #:use-module (gnu packages glib) @@ -40,6 +39,8 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) + #:use-module (gnu packages sqlite) #:use-module (gnu packages time) #:use-module (gnu packages xml) #:use-module (srfi srfi-26)) diff --git a/gnu/packages/check.scm b/gnu/packages/check.scm index dc2bda5480..439a668dd7 100644 --- a/gnu/packages/check.scm +++ b/gnu/packages/check.scm @@ -47,13 +47,20 @@ (define-module (gnu packages check) #:use-module (gnu packages) #:use-module (gnu packages autotools) + #:use-module (gnu packages base) #:use-module (gnu packages bash) #:use-module (gnu packages compression) + #:use-module (gnu packages linux) #:use-module (gnu packages llvm) + #:use-module (gnu packages glib) + #:use-module (gnu packages gnome) #:use-module (gnu packages golang) + #:use-module (gnu packages gtk) #:use-module (gnu packages perl) + #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages time) #:use-module (guix utils) #:use-module ((guix licenses) #:prefix license:) @@ -2153,3 +2160,45 @@ application \"sees\". It is meant to be loaded using the dynamic linker's @code{LD_PRELOAD} environment variable. The @command{faketime} command provides a simple way to achieve this.") (license license:gpl2))) + +(define-public umockdev + (package + (name "umockdev") + (version "0.11.3") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/martinpitt/umockdev/" + "releases/download/" version "/" + "umockdev-" version ".tar.xz")) + (sha256 + (base32 + "1in2hdan1g62wpvgjlj8mci85551ipr1964j2b9j06gm3blpihcx")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'skip-broken-test + (lambda _ + (substitute* "tests/test-umockdev.c" + (("/\\* sys/ in other dir") + (string-append "return; // "))) + #t))))) + (native-inputs + `(("vala" ,vala) + ("python" ,python) ; for tests + ("which" ,which) ; for tests + ("gtk-doc" ,gtk-doc) + ("pkg-config" ,pkg-config))) + (inputs + `(("glib" ,glib) + ("eudev" ,eudev) + ("libgudev" ,libgudev) + ("gobject-introspection" ,gobject-introspection))) + (home-page "https://github.com/martinpitt/umockdev/") + (synopsis "Mock hardware devices for creating unit tests") + (description "umockdev mocks hardware devices for creating integration +tests for hardware related libraries and programs. It also provides tools to +record the properties and behaviour of particular devices, and to run a +program or test suite under a test bed with the previously recorded devices +loaded.") + (license license:lgpl2.1+))) diff --git a/gnu/packages/chemistry.scm b/gnu/packages/chemistry.scm index e682975b36..a493af16f5 100644 --- a/gnu/packages/chemistry.scm +++ b/gnu/packages/chemistry.scm @@ -33,6 +33,7 @@ #:use-module (gnu packages maths) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages xml) #:use-module (guix build-system cmake) diff --git a/gnu/packages/ci.scm b/gnu/packages/ci.scm index 30d86bd09f..bd4a3d3509 100644 --- a/gnu/packages/ci.scm +++ b/gnu/packages/ci.scm @@ -36,6 +36,7 @@ #:use-module (gnu packages mail) #:use-module (gnu packages package-management) #:use-module (gnu packages perl) + #:use-module (gnu packages perl-compression) #:use-module (gnu packages pkg-config) #:use-module (gnu packages tls) #:use-module (gnu packages texinfo) diff --git a/gnu/packages/cluster.scm b/gnu/packages/cluster.scm index 3d75e84440..8d6669cd22 100644 --- a/gnu/packages/cluster.scm +++ b/gnu/packages/cluster.scm @@ -24,7 +24,7 @@ #:use-module (guix packages) #:use-module (gnu packages linux) #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages texinfo) #:use-module (gnu packages tls)) diff --git a/gnu/packages/cobol.scm b/gnu/packages/cobol.scm index 75c8c53bbe..257527e3b8 100644 --- a/gnu/packages/cobol.scm +++ b/gnu/packages/cobol.scm @@ -22,7 +22,7 @@ #:use-module (guix licenses) #:use-module (guix packages) #:use-module (guix download) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages multiprecision) #:use-module (gnu packages ncurses) #:use-module (gnu packages perl)) diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm index 357125d047..3a575ad380 100644 --- a/gnu/packages/code.scm +++ b/gnu/packages/code.scm @@ -42,7 +42,6 @@ #:use-module (gnu packages bash) #:use-module (gnu packages compression) #:use-module (gnu packages cpp) - #:use-module (gnu packages databases) #:use-module (gnu packages emacs) #:use-module (gnu packages gcc) #:use-module (gnu packages graphviz) @@ -50,6 +49,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages sqlite) #:use-module (gnu packages texinfo) #:use-module (gnu packages ncurses) #:use-module (gnu packages llvm) diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index ea3d72c011..261746f08a 100644 --- a/gnu/packages/compression.scm +++ b/gnu/packages/compression.scm @@ -47,8 +47,6 @@ #:use-module (guix git-download) #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) - #:use-module (guix build-system perl) - #:use-module (guix build-system python) #:use-module (gnu packages) #:use-module (gnu packages assembly) #:use-module (gnu packages autotools) @@ -60,7 +58,6 @@ #:use-module (gnu packages file) #:use-module (gnu packages maths) #:use-module (gnu packages perl) - #:use-module (gnu packages perl-check) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages tls) @@ -463,44 +460,6 @@ LZO is written in ANSI C. Both the source code and the compressed data format are designed to be portable across platforms.") (license license:gpl2+))) -(define-public python-lzo - (package - (name "python-lzo") - (version "1.12") - (source - (origin - (method url-fetch) - (uri (pypi-uri "python-lzo" version)) - (sha256 - (base32 - "0iakqgd51n1cd7r3lpdylm2rgbmd16y74cra9kcapwg84mlf9a4p")))) - (build-system python-build-system) - (arguments - `(#:test-target "check" - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-setuppy - (lambda _ - (substitute* "setup.py" - (("include_dirs.append\\(.*\\)") - (string-append "include_dirs.append('" - (assoc-ref %build-inputs "lzo") - "/include/lzo" - "')"))) - #t))))) - (inputs - `(("lzo" ,lzo))) - (home-page "https://github.com/jd-boyd/python-lzo") - (synopsis "Python bindings for the LZO data compression library") - (description - "Python-LZO provides Python bindings for LZO, i.e. you can access -the LZO library from your Python scripts thereby compressing ordinary -Python strings.") - (license license:gpl2+))) - -(define-public python2-lzo - (package-with-python2 python-lzo)) - (define-public lzop (package (name "lzop") @@ -710,84 +669,6 @@ sfArk file format to the uncompressed sf2 format.") decompression of some loosely related file formats used by Microsoft.") (license license:lgpl2.1+))) -(define-public perl-compress-raw-bzip2 - (package - (name "perl-compress-raw-bzip2") - (version "2.081") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://cpan/authors/id/P/PM/PMQS/" - "Compress-Raw-Bzip2-" version ".tar.gz")) - (sha256 - (base32 - "081mpkjy688lg48997fqh3d7ja12vazmz02fw84495civg4vb4l6")))) - (build-system perl-build-system) - ;; TODO: Use our bzip2 package. - (home-page "https://metacpan.org/release/Compress-Raw-Bzip2") - (synopsis "Low-level interface to bzip2 compression library") - (description "This module provides a Perl interface to the bzip2 -compression library.") - (license license:perl-license))) - -(define-public perl-compress-raw-zlib - (package - (name "perl-compress-raw-zlib") - (version "2.081") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://cpan/authors/id/P/PM/PMQS/" - "Compress-Raw-Zlib-" version ".tar.gz")) - (sha256 - (base32 - "06rsm9ahp20xfyvd3jc69sd0k8vqysryxc6apzdbn96jbcsdwmp1")))) - (build-system perl-build-system) - (inputs - `(("zlib" ,zlib))) - (arguments - `(#:phases (modify-phases %standard-phases - (add-before - 'configure 'configure-zlib - (lambda* (#:key inputs #:allow-other-keys) - (call-with-output-file "config.in" - (lambda (port) - (format port " -BUILD_ZLIB = False -INCLUDE = ~a/include -LIB = ~:*~a/lib -OLD_ZLIB = False -GZIP_OS_CODE = AUTO_DETECT" - (assoc-ref inputs "zlib")))) - #t))))) - (home-page "https://metacpan.org/release/Compress-Raw-Zlib") - (synopsis "Low-level interface to zlib compression library") - (description "This module provides a Perl interface to the zlib -compression library.") - (license license:perl-license))) - -(define-public perl-io-compress - (package - (name "perl-io-compress") - (version "2.081") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://cpan/authors/id/P/PM/PMQS/" - "IO-Compress-" version ".tar.gz")) - (sha256 - (base32 - "1na66ns1g3nni0m9q5494ym4swr21hfgpv88mw8wbj2daiswf4aj")))) - (build-system perl-build-system) - (propagated-inputs - `(("perl-compress-raw-zlib" ,perl-compress-raw-zlib) ; >=2.081 - ("perl-compress-raw-bzip2" ,perl-compress-raw-bzip2))) ; >=2.081 - (home-page "https://metacpan.org/release/IO-Compress") - (synopsis "IO Interface to compressed files/buffers") - (description "IO-Compress provides a Perl interface to allow reading and -writing of compressed data created with the zlib and bzip2 libraries.") - (license license:perl-license))) - (define-public lz4 (package (name "lz4") @@ -820,54 +701,6 @@ time for compression ratio.") ;; line interface programs (lz4, fullbench, fuzzer, datagen) are GPL2+. (license (list license:bsd-2 license:gpl2+)))) -(define-public python-lz4 - (package - (name "python-lz4") - (version "0.10.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "lz4" version)) - (sha256 - (base32 - "0ghv1xbaq693kgww1x9c22bplz479ls9szjsaa4ig778ls834hm0")))) - (build-system python-build-system) - (native-inputs - `(("python-nose" ,python-nose) - ("python-setuptools-scm" ,python-setuptools-scm))) - (home-page "https://github.com/python-lz4/python-lz4") - (synopsis "LZ4 bindings for Python") - (description - "This package provides python bindings for the lz4 compression library -by Yann Collet. The project contains bindings for the LZ4 block format and -the LZ4 frame format.") - (license license:bsd-3))) - -(define-public python2-lz4 - (package-with-python2 python-lz4)) - -(define-public python-lzstring - (package - (name "python-lzstring") - (version "1.0.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "lzstring" version)) - (sha256 - (base32 - "18ly9pppy2yspxzw7k1b23wk77k7m44rz2g0271bqgqrk3jn3yhs")))) - (build-system python-build-system) - (propagated-inputs - `(("python-future" ,python-future))) - (home-page "https://github.com/gkovacs/lz-string-python") - (synopsis "String compression") - (description "Lz-string is a string compressor library for Python.") - (license license:expat))) - -(define-public python2-lzstring - (package-with-python2 python-lzstring)) - (define-public squashfs-tools (package (name "squashfs-tools") @@ -1197,46 +1030,6 @@ well as bzip2.") (license (list license:gpl3+ license:public-domain)))) ; most files in lzma/ -(define-public bitshuffle - (package - (name "bitshuffle") - (version "0.3.5") - (source (origin - (method url-fetch) - (uri (pypi-uri "bitshuffle" version)) - (sha256 - (base32 - "1823x61kyax4dc2hjmc1xraskxi1193y8lvxd03vqv029jrj8cjy")) - (modules '((guix build utils))) - (snippet - '(begin - ;; Remove generated Cython files. - (delete-file "bitshuffle/h5.c") - (delete-file "bitshuffle/ext.c") - #t)))) - (build-system python-build-system) - (arguments - `(#:tests? #f ; fail: https://github.com/h5py/h5py/issues/769 - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'dont-build-native - (lambda _ - (substitute* "setup.py" - (("'-march=native', ") "")) - #t))))) - (inputs - `(("numpy" ,python-numpy) - ("h5py" ,python-h5py) - ("hdf5" ,hdf5))) - (native-inputs - `(("cython" ,python-cython))) - (home-page "https://github.com/kiyo-masui/bitshuffle") - (synopsis "Filter for improving compression of typed binary data") - (description "Bitshuffle is an algorithm that rearranges typed, binary data -for improving compression, as well as a python/C package that implements this -algorithm within the Numpy framework.") - (license license:expat))) - (define-public snappy (package (name "snappy") @@ -1263,44 +1056,6 @@ for most inputs, but the resulting compressed files are anywhere from 20% to 100% bigger.") (license license:asl2.0))) -(define-public bitshuffle-for-snappy - (package - (inherit bitshuffle) - (name "bitshuffle-for-snappy") - (build-system gnu-build-system) - (arguments - (substitute-keyword-arguments (package-arguments bitshuffle) - ((#:tests? _ #f) #f) - ((#:phases phases) - `(modify-phases %standard-phases - (replace 'configure - (lambda* (#:key outputs #:allow-other-keys) - (with-output-to-file "Makefile" - (lambda _ - (format #t "\ -libbitshuffle.so: src/bitshuffle.o src/bitshuffle_core.o src/iochain.o lz4/lz4.o -\tgcc -O3 -ffast-math -std=c99 -o $@ -shared -fPIC $^ - -%.o: %.c -\tgcc -O3 -ffast-math -std=c99 -fPIC -Isrc -Ilz4 -c $< -o $@ - -PREFIX:=~a -LIBDIR:=$(PREFIX)/lib -INCLUDEDIR:=$(PREFIX)/include - -install: libbitshuffle.so -\tinstall -dm755 $(LIBDIR) -\tinstall -dm755 $(INCLUDEDIR) -\tinstall -m755 libbitshuffle.so $(LIBDIR) -\tinstall -m644 src/bitshuffle.h $(INCLUDEDIR) -\tinstall -m644 src/bitshuffle_core.h $(INCLUDEDIR) -\tinstall -m644 src/iochain.h $(INCLUDEDIR) -\tinstall -m644 lz4/lz4.h $(INCLUDEDIR) -" (assoc-ref outputs "out")))) - #t)))))) - (inputs '()) - (native-inputs '()))) - (define-public p7zip (package (name "p7zip") @@ -1755,29 +1510,6 @@ recreates the stored directory structure by default.") ;; files carry the Zlib license; see "docs/copying.html" for details. (license (list license:lgpl2.0+ license:mpl1.1)))) -(define-public perl-archive-zip - (package - (name "perl-archive-zip") - (version "1.64") - (source - (origin - (method url-fetch) - (uri (string-append - "mirror://cpan/authors/id/P/PH/PHRED/Archive-Zip-" - version ".tar.gz")) - (sha256 - (base32 - "0zfinh8nx3rxzscp57vq3w8hihpdb0zs67vvalykcf402kr88pyy")))) - (build-system perl-build-system) - (native-inputs - ;; For tests. - `(("perl-test-mockmodule" ,perl-test-mockmodule))) - (synopsis "Provides an interface to Zip archive files") - (description "The @code{Archive::Zip} module allows a Perl program to -create, manipulate, read, and write Zip archive files.") - (home-page "https://metacpan.org/release/Archive-Zip") - (license license:perl-license))) - (define-public libzip (package (name "libzip") @@ -1838,27 +1570,6 @@ to handle the archives, not all commands may be supported for a certain type of archives.") (license license:gpl2+))) -(define-public perl-archive-extract - (package - (name "perl-archive-extract") - (version "0.80") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://cpan/authors/id/B/BI/BINGOS/Archive-Extract-" - version ".tar.gz")) - (sha256 - (base32 - "1x15j1q6w6z8hqyqgap0lz4qbq2174wfhksy1fdd653ccbaw5jr5")))) - (build-system perl-build-system) - (home-page "https://metacpan.org/release/Archive-Extract") - (synopsis "Generic archive extracting mechanism") - (description "It allows you to extract any archive file of the type .tar, -.tar.gz, .gz, .Z, tar.bz2, .tbz, .bz2, .zip, .xz,, .txz, .tar.xz or .lzma -without having to worry how it does so, or use different interfaces for each -type by using either Perl modules, or command-line tools on your system.") - (license license:perl-license))) - (define-public lunzip (package (name "lunzip") diff --git a/gnu/packages/connman.scm b/gnu/packages/connman.scm index 55dd4a632b..1dbbe7c1c2 100644 --- a/gnu/packages/connman.scm +++ b/gnu/packages/connman.scm @@ -34,6 +34,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages polkit) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) #:use-module (gnu packages samba) diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm index 09cb2a1d02..1bd20b12d3 100644 --- a/gnu/packages/cran.scm +++ b/gnu/packages/cran.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2016, 2017 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2017, 2018 Roel Janssen <roel@gnu.org> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Raoul Bonnal <ilpuccio.febo@gmail.com> @@ -82,6 +83,36 @@ the system clipboards.") (license license:gpl3))) +(define-public r-vegan + (package + (name "r-vegan") + (version "2.5-3") + (source + (origin + (method url-fetch) + (uri (cran-uri "vegan" version)) + (sha256 + (base32 + "023xznh0iy0496icpchadmp7a3rk3nj9s48fvwlvp3dssw58yp3c")))) + (build-system r-build-system) + (native-inputs + `(("gfortran" ,gfortran))) + (propagated-inputs + `(("r-cluster" ,r-cluster) + ("r-knitr" ,r-knitr) ; needed for vignettes + ("r-lattice" ,r-lattice) + ("r-mass" ,r-mass) + ("r-mgcv" ,r-mgcv) + ("r-permute" ,r-permute))) + (home-page "https://cran.r-project.org/web/packages/vegan") + (synopsis "Functions for community ecology") + (description + "The vegan package provides tools for descriptive community ecology. It +has most basic functions of diversity analysis, community ordination and +dissimilarity analysis. Most of its multivariate tools can be used for other +data types as well.") + (license license:gpl2+))) + (define-public r-tidyverse (package (name "r-tidyverse") @@ -2503,14 +2534,14 @@ problems as well as resampling based estimators of prediction error.") (define-public r-psych (package (name "r-psych") - (version "1.8.10") + (version "1.8.12") (source (origin (method url-fetch) (uri (cran-uri "psych" version)) (sha256 (base32 - "0n3frgzsfmnan6cp3yyq5h6c28v5pd7q5a42pp6byaa7n7d1v478")))) + "0hvp0dkkkn0szaf5rkirr3kb8qmr4bxwl775m5wmpvn1kc25w5vf")))) (build-system r-build-system) (propagated-inputs `(("r-foreign" ,r-foreign) @@ -6459,13 +6490,13 @@ and coverage methods to tune the choice of threshold.") (define-public r-ggformula (package (name "r-ggformula") - (version "0.9.0") + (version "0.9.1") (source (origin (method url-fetch) (uri (cran-uri "ggformula" version)) (sha256 - (base32 "1pmpdfjfbrc6kcpq70cr1kbj2qy711hw940g2aiis6l443z706kh")))) + (base32 "01ngx8qh9lhmagng6abx2ky54zi3iyj5bpxlnw59slagwv7l6icx")))) (build-system r-build-system) (propagated-inputs `(("r-ggplot2" ,r-ggplot2) @@ -6504,6 +6535,29 @@ while providing the intuitive capabilities of @code{r-ggplot2}.") used to teach mathematics, statistics, computation and modeling.") (license license:gpl2+))) +(define-public r-raster + (package + (name "r-raster") + (version "2.8-4") + (source + (origin + (method url-fetch) + (uri (cran-uri "raster" version)) + (sha256 + (base32 + "14pcfznxm5kdwd908axkr9v1l0hzxlrwd8kwrz0liqnfh9cx5rsa")))) + (build-system r-build-system) + (propagated-inputs + `(("r-rcpp" ,r-rcpp) + ("r-sp" ,r-sp))) + (home-page "http://www.rspatial.org/") + (synopsis "Geographic data analysis and modeling") + (description + "The package implements basic and high-level functions for reading, +writing, manipulating, analyzing and modeling of gridded spatial data. +Processing of very large files is supported.") + (license license:gpl3+))) + (define-public r-mosaic (package (name "r-mosaic") diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm index 0a507aead6..2c63e53191 100644 --- a/gnu/packages/crypto.scm +++ b/gnu/packages/crypto.scm @@ -39,7 +39,6 @@ #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages cryptsetup) - #:use-module (gnu packages databases) #:use-module (gnu packages gettext) #:use-module (gnu packages gnupg) #:use-module (gnu packages image) @@ -53,10 +52,12 @@ #:use-module (gnu packages perl-check) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages search) #:use-module (gnu packages serialization) #:use-module (gnu packages shells) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tcl) #:use-module (gnu packages tls) #:use-module (gnu packages xml) diff --git a/gnu/packages/cups.scm b/gnu/packages/cups.scm index 5eb66feed5..9c470c4bb6 100644 --- a/gnu/packages/cups.scm +++ b/gnu/packages/cups.scm @@ -40,6 +40,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages pretty-print) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages scanner) #:use-module (gnu packages tls) diff --git a/gnu/packages/cyrus-sasl.scm b/gnu/packages/cyrus-sasl.scm index 0a5e464719..f84136e631 100644 --- a/gnu/packages/cyrus-sasl.scm +++ b/gnu/packages/cyrus-sasl.scm @@ -20,7 +20,7 @@ (define-module (gnu packages cyrus-sasl) #:use-module (gnu packages) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages kerberos) #:use-module (gnu packages tls) #:use-module ((guix licenses) #:prefix license:) diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm index 150369a70c..e1284ee9bd 100644 --- a/gnu/packages/databases.scm +++ b/gnu/packages/databases.scm @@ -64,6 +64,7 @@ #:use-module (gnu packages crypto) #:use-module (gnu packages curl) #:use-module (gnu packages cyrus-sasl) + #:use-module (gnu packages dbm) #:use-module (gnu packages emacs) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) @@ -85,10 +86,12 @@ #:use-module (gnu packages popt) #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages rdf) #:use-module (gnu packages readline) #:use-module (gnu packages ruby) #:use-module (gnu packages serialization) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tcl) #:use-module (gnu packages terminals) #:use-module (gnu packages textutils) @@ -159,28 +162,6 @@ either single machines or networked clusters.") (license license:gpl3+))) -(define-public gdbm - (package - (name "gdbm") - (version "1.18") - (source (origin - (method url-fetch) - (uri (string-append "mirror://gnu/gdbm/gdbm-" - version ".tar.gz")) - (sha256 - (base32 - "1kimnv12bzjjhaqk4c8w2j6chdj9c6bg21lchaf7abcyfss2r0mq")))) - (arguments `(#:configure-flags '("--enable-libgdbm-compat"))) - (build-system gnu-build-system) - (home-page "http://www.gnu.org.ua/software/gdbm") - (synopsis - "Hash library of database functions compatible with traditional dbm") - (description - "GDBM is a library for manipulating hashed databases. It is used to -store key/value pairs in a file in a manner similar to the Unix dbm library -and provides interfaces to the traditional file format.") - (license license:gpl3+))) - (define-public go-gopkg.in-mgo.v2 (package (name "go-gopkg.in-mgo.v2") @@ -227,109 +208,6 @@ standard Go idioms.") (home-page "http://labix.org/mgo") (license license:bsd-2))) -(define-public bdb - (package - (name "bdb") - (version "6.2.32") - (source (origin - (method url-fetch) - (uri (string-append "http://download.oracle.com/berkeley-db/db-" - version ".tar.gz")) - (sha256 - (base32 - "1yx8wzhch5wwh016nh0kfxvknjkafv6ybkqh6nh7lxx50jqf5id9")))) - (build-system gnu-build-system) - (outputs '("out" ; programs, libraries, headers - "doc")) ; 94 MiB of HTML docs - (arguments - '(#:tests? #f ; no check target available - #:disallowed-references ("doc") - #:phases - (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out")) - (doc (assoc-ref outputs "doc"))) - ;; '--docdir' is not honored, so we need to patch. - (substitute* "dist/Makefile.in" - (("docdir[[:blank:]]*=.*") - (string-append "docdir = " doc "/share/doc/bdb"))) - - (invoke "./dist/configure" - (string-append "--prefix=" out) - (string-append "CONFIG_SHELL=" (which "bash")) - (string-append "SHELL=" (which "bash")) - - ;; Remove 7 MiB of .a files. - "--disable-static" - - ;; The compatibility mode is needed by some packages, - ;; notably iproute2. - "--enable-compat185" - - ;; The following flag is needed so that the inclusion - ;; of db_cxx.h into C++ files works; it leads to - ;; HAVE_CXX_STDHEADERS being defined in db_cxx.h. - "--enable-cxx"))))))) - (synopsis "Berkeley database") - (description - "Berkeley DB is an embeddable database allowing developers the choice of -SQL, Key/Value, XML/XQuery or Java Object storage for their data model.") - ;; Starting with version 6, BDB is distributed under AGPL3. Many individual - ;; files are covered by the 3-clause BSD license. - (license (list license:agpl3+ license:bsd-3)) - (home-page - "http://www.oracle.com/us/products/database/berkeley-db/overview/index.html"))) - -(define-public bdb-5.3 - (package (inherit bdb) - (name "bdb") - (version "5.3.28") - (license (license:non-copyleft "file://LICENSE" - "See LICENSE in the distribution.")) - (source (origin - (method url-fetch) - (uri (string-append "http://download.oracle.com/berkeley-db/db-" - version ".tar.gz")) - (sha256 - (base32 - "0a1n5hbl7027fbz5lm0vp0zzfp1hmxnz14wx3zl9563h83br5ag0")))) - (arguments - `(#:tests? #f ; no check target available - #:disallowed-references ("doc") - #:phases - (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out")) - (doc (assoc-ref outputs "doc"))) - ;; '--docdir' is not honored, so we need to patch. - (substitute* "dist/Makefile.in" - (("docdir[[:blank:]]*=.*") - (string-append "docdir = " doc "/share/doc/bdb"))) - - (invoke "./dist/configure" - (string-append "--prefix=" out) - (string-append "CONFIG_SHELL=" (which "bash")) - (string-append "SHELL=" (which "bash")) - - ;; Bdb doesn't recognize aarch64 as an architecture. - ,@(if (string=? "aarch64-linux" (%current-system)) - '("--build=aarch64-unknown-linux-gnu") - '()) - - ;; Remove 7 MiB of .a files. - "--disable-static" - - ;; The compatibility mode is needed by some packages, - ;; notably iproute2. - "--enable-compat185" - - ;; The following flag is needed so that the inclusion - ;; of db_cxx.h into C++ files works; it leads to - ;; HAVE_CXX_STDHEADERS being defined in db_cxx.h. - "--enable-cxx"))))))))) - (define-public es-dump-restore (package (name "es-dump-restore") @@ -1144,87 +1022,6 @@ browse and edit the contents, add and delete entries, all while tracking your changes.") (license license:gpl3+)))) ; no headers, see README.md -(define-public sqlite - (package - (name "sqlite") - (replacement sqlite-3.26.0) - (version "3.24.0") - (source (origin - (method url-fetch) - (uri (let ((numeric-version - (match (string-split version #\.) - ((first-digit other-digits ...) - (string-append first-digit - (string-pad-right - (string-concatenate - (map (cut string-pad <> 2 #\0) - other-digits)) - 6 #\0)))))) - (string-append "https://sqlite.org/2018/sqlite-autoconf-" - numeric-version ".tar.gz"))) - (sha256 - (base32 - "0jmprv2vpggzhy7ma4ynmv1jzn3pfiwzkld0kkg6hvgvqs44xlfr")))) - (build-system gnu-build-system) - (inputs `(("readline" ,readline))) - (arguments - `(#:configure-flags - ;; Add -DSQLITE_SECURE_DELETE, -DSQLITE_ENABLE_UNLOCK_NOTIFY and - ;; -DSQLITE_ENABLE_DBSTAT_VTAB to CFLAGS. GNU Icecat will refuse - ;; to use the system SQLite unless these options are enabled. - (list (string-append "CFLAGS=-O2 -DSQLITE_SECURE_DELETE " - "-DSQLITE_ENABLE_UNLOCK_NOTIFY " - "-DSQLITE_ENABLE_DBSTAT_VTAB")))) - (home-page "https://www.sqlite.org/") - (synopsis "The SQLite database management system") - (description - "SQLite is a software library that implements a self-contained, serverless, -zero-configuration, transactional SQL database engine. SQLite is the most -widely deployed SQL database engine in the world. The source code for SQLite -is in the public domain.") - (license license:public-domain))) - -(define-public sqlite-3.26.0 - (package (inherit sqlite) - (version "3.26.0") - (source (origin - (method url-fetch) - (uri (let ((numeric-version - (match (string-split version #\.) - ((first-digit other-digits ...) - (string-append first-digit - (string-pad-right - (string-concatenate - (map (cut string-pad <> 2 #\0) - other-digits)) - 6 #\0)))))) - (string-append "https://sqlite.org/2018/sqlite-autoconf-" - numeric-version ".tar.gz"))) - (sha256 - (base32 - "0pdzszb4sp73hl36siiv3p300jvfvbcdxi2rrmkwgs6inwznmajx")))))) - -;; This is used by Tracker. -(define-public sqlite-with-fts5 - (package/inherit sqlite - (name "sqlite-with-fts5") - (arguments - (substitute-keyword-arguments (package-arguments sqlite) - ((#:configure-flags flags) - `(cons "--enable-fts5" ,flags)))))) - -;; This is used by Qt. -(define-public sqlite-with-column-metadata - (package/inherit sqlite - (name "sqlite-with-column-metadata") - (arguments - (substitute-keyword-arguments (package-arguments sqlite) - ((#:configure-flags flags) - `(list (string-append "CFLAGS=-O2 -DSQLITE_SECURE_DELETE " - "-DSQLITE_ENABLE_UNLOCK_NOTIFY " - "-DSQLITE_ENABLE_DBSTAT_VTAB " - "-DSQLITE_ENABLE_COLUMN_METADATA"))))))) - (define-public tdb (package (name "tdb") diff --git a/gnu/packages/datastructures.scm b/gnu/packages/datastructures.scm index c2c2c59be4..c3e96a0b12 100644 --- a/gnu/packages/datastructures.scm +++ b/gnu/packages/datastructures.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015, 2016, 2019 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Meiyo Peng <meiyo.peng@gmail.com> ;;; ;;; This file is part of GNU Guix. @@ -123,18 +123,18 @@ in between these sequences may be different in both content and length.") (define-public liburcu (package (name "liburcu") - (version "0.10.1") + (version "0.10.2") (source (origin (method url-fetch) (uri (string-append "https://www.lttng.org/files/urcu/" "userspace-rcu-" version ".tar.bz2")) (sha256 (base32 - "01pbg67qy5hcssy2yi0ckqapzfclgdq93li2rmzw4pa3wh5j42cw")))) + "1k31faqz9plx5dwxq8g1fnczxda1is4s1x4ph0gjrq3gmy6qixmk")))) (build-system gnu-build-system) (native-inputs `(("perl" ,perl))) ; for tests - (home-page "http://liburcu.org/") + (home-page "https://liburcu.org/") (synopsis "User-space RCU data synchronisation library") (description "liburcu is a user-space @dfn{Read-Copy-Update} (RCU) data synchronisation library. It provides read-side access that scales linearly diff --git a/gnu/packages/dav.scm b/gnu/packages/dav.scm index e937d59358..0bb446bc3c 100644 --- a/gnu/packages/dav.scm +++ b/gnu/packages/dav.scm @@ -25,7 +25,8 @@ #:use-module (gnu packages) #:use-module (gnu packages check) #:use-module (gnu packages python) - #:use-module (gnu packages python-web)) + #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz)) (define-public radicale (package diff --git a/gnu/packages/dbm.scm b/gnu/packages/dbm.scm new file mode 100644 index 0000000000..bf548a25f3 --- /dev/null +++ b/gnu/packages/dbm.scm @@ -0,0 +1,159 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2012, 2013, 2014, 2016 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr> +;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2017, 2018 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2018 Mark H Weaver <mhw@netris.org> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages dbm) + #:use-module (gnu packages) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (guix utils)) + +;;; Commentary: +;;; +;;; This module has been separated from (gnu packages databases) to reduce the +;;; number of module references for core packages. + +(define-public bdb + (package + (name "bdb") + (version "6.2.32") + (source (origin + (method url-fetch) + (uri (string-append "http://download.oracle.com/berkeley-db/db-" + version ".tar.gz")) + (sha256 + (base32 + "1yx8wzhch5wwh016nh0kfxvknjkafv6ybkqh6nh7lxx50jqf5id9")))) + (build-system gnu-build-system) + (outputs '("out" ; programs, libraries, headers + "doc")) ; 94 MiB of HTML docs + (arguments + '(#:tests? #f ; no check target available + #:disallowed-references ("doc") + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (doc (assoc-ref outputs "doc"))) + ;; '--docdir' is not honored, so we need to patch. + (substitute* "dist/Makefile.in" + (("docdir[[:blank:]]*=.*") + (string-append "docdir = " doc "/share/doc/bdb"))) + + (invoke "./dist/configure" + (string-append "--prefix=" out) + (string-append "CONFIG_SHELL=" (which "bash")) + (string-append "SHELL=" (which "bash")) + + ;; Remove 7 MiB of .a files. + "--disable-static" + + ;; The compatibility mode is needed by some packages, + ;; notably iproute2. + "--enable-compat185" + + ;; The following flag is needed so that the inclusion + ;; of db_cxx.h into C++ files works; it leads to + ;; HAVE_CXX_STDHEADERS being defined in db_cxx.h. + "--enable-cxx"))))))) + (synopsis "Berkeley database") + (description + "Berkeley DB is an embeddable database allowing developers the choice of +SQL, Key/Value, XML/XQuery or Java Object storage for their data model.") + ;; Starting with version 6, BDB is distributed under AGPL3. Many individual + ;; files are covered by the 3-clause BSD license. + (license (list license:agpl3+ license:bsd-3)) + (home-page + "http://www.oracle.com/us/products/database/berkeley-db/overview/index.html"))) + +(define-public bdb-5.3 + (package (inherit bdb) + (name "bdb") + (version "5.3.28") + (license (license:non-copyleft "file://LICENSE" + "See LICENSE in the distribution.")) + (source (origin + (method url-fetch) + (uri (string-append "http://download.oracle.com/berkeley-db/db-" + version ".tar.gz")) + (sha256 + (base32 + "0a1n5hbl7027fbz5lm0vp0zzfp1hmxnz14wx3zl9563h83br5ag0")))) + (arguments + `(#:tests? #f ; no check target available + #:disallowed-references ("doc") + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (doc (assoc-ref outputs "doc"))) + ;; '--docdir' is not honored, so we need to patch. + (substitute* "dist/Makefile.in" + (("docdir[[:blank:]]*=.*") + (string-append "docdir = " doc "/share/doc/bdb"))) + + (invoke "./dist/configure" + (string-append "--prefix=" out) + (string-append "CONFIG_SHELL=" (which "bash")) + (string-append "SHELL=" (which "bash")) + + ;; Bdb doesn't recognize aarch64 as an architecture. + ,@(if (string=? "aarch64-linux" (%current-system)) + '("--build=aarch64-unknown-linux-gnu") + '()) + + ;; Remove 7 MiB of .a files. + "--disable-static" + + ;; The compatibility mode is needed by some packages, + ;; notably iproute2. + "--enable-compat185" + + ;; The following flag is needed so that the inclusion + ;; of db_cxx.h into C++ files works; it leads to + ;; HAVE_CXX_STDHEADERS being defined in db_cxx.h. + "--enable-cxx"))))))))) + +(define-public gdbm + (package + (name "gdbm") + (version "1.18") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnu/gdbm/gdbm-" + version ".tar.gz")) + (sha256 + (base32 + "1kimnv12bzjjhaqk4c8w2j6chdj9c6bg21lchaf7abcyfss2r0mq")))) + (arguments `(#:configure-flags '("--enable-libgdbm-compat"))) + (build-system gnu-build-system) + (home-page "http://www.gnu.org.ua/software/gdbm") + (synopsis + "Hash library of database functions compatible with traditional dbm") + (description + "GDBM is a library for manipulating hashed databases. It is used to +store key/value pairs in a file in a manner similar to the Unix dbm library +and provides interfaces to the traditional file format.") + (license license:gpl3+))) diff --git a/gnu/packages/dc.scm b/gnu/packages/dc.scm index ae019da6e8..29d5e451d2 100644 --- a/gnu/packages/dc.scm +++ b/gnu/packages/dc.scm @@ -23,7 +23,7 @@ #:use-module (gnu packages glib) #:use-module (gnu packages ncurses) #:use-module (gnu packages pkg-config) - #:use-module (gnu packages databases) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (guix packages) #:use-module (guix download) diff --git a/gnu/packages/debug.scm b/gnu/packages/debug.scm index 7cb162918a..4e63c81b64 100644 --- a/gnu/packages/debug.scm +++ b/gnu/packages/debug.scm @@ -285,7 +285,8 @@ down the road.") ;; patch-* phases work properly, we unpack the source first, then ;; repack before the configure phase. (let ((make-dir (string-append "make-" (package-version gnu-make)))) - `(#:configure-flags '("--with-make-tar=./make.tar.xz") + `(#:configure-flags '("--with-make-tar=./make.tar.xz" + "make_cv_sys_gnu_glob=yes") #:phases (modify-phases %standard-phases (add-after 'unpack 'unpack-make diff --git a/gnu/packages/direct-connect.scm b/gnu/packages/direct-connect.scm index ac0a490520..b2e9776f94 100644 --- a/gnu/packages/direct-connect.scm +++ b/gnu/packages/direct-connect.scm @@ -27,7 +27,7 @@ #:use-module (gnu packages gnome) #:use-module (gnu packages gtk) #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages tls) #:use-module (gnu packages version-control)) diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm index 33dba016ca..ceacd98a43 100644 --- a/gnu/packages/disk.scm +++ b/gnu/packages/disk.scm @@ -38,7 +38,6 @@ #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages cryptsetup) - #:use-module (gnu packages databases) #:use-module (gnu packages docbook) #:use-module (gnu packages documentation) #:use-module (gnu packages elf) @@ -55,7 +54,9 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages popt) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) + #:use-module (gnu packages sqlite) #:use-module (gnu packages swig) #:use-module (gnu packages vim) #:use-module (gnu packages w3m) diff --git a/gnu/packages/django.scm b/gnu/packages/django.scm index 63570bfd48..848b1c63cb 100644 --- a/gnu/packages/django.scm +++ b/gnu/packages/django.scm @@ -32,6 +32,7 @@ #:use-module (gnu packages check) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages time)) (define-public python-django @@ -196,7 +197,7 @@ useful tools for testing Django applications and projects.") (modify-phases %standard-phases (replace 'check (lambda _ - (zero? (system* "python" "runtests.py"))))))) + (invoke "python" "runtests.py")))))) (native-inputs `(("python-django" ,python-django) ("python-djangorestframework" ,python-djangorestframework) diff --git a/gnu/packages/dlang.scm b/gnu/packages/dlang.scm index 76988b2dbf..c03c24d9e2 100644 --- a/gnu/packages/dlang.scm +++ b/gnu/packages/dlang.scm @@ -36,6 +36,7 @@ #:use-module (gnu packages libedit) #:use-module (gnu packages llvm) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages textutils)) (define-public rdmd diff --git a/gnu/packages/docker.scm b/gnu/packages/docker.scm index 23695a0c06..fef4a180f3 100644 --- a/gnu/packages/docker.scm +++ b/gnu/packages/docker.scm @@ -37,6 +37,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages version-control) #:use-module (gnu packages virtualization)) @@ -517,7 +518,6 @@ provisioning etc.") (let* ((out (assoc-ref outputs "out")) (out-bin (string-append out "/bin"))) (chdir "build") - (install-file (readlink "docker") out-bin) (install-file "docker" out-bin) #t)))))) (native-inputs diff --git a/gnu/packages/ebook.scm b/gnu/packages/ebook.scm index c3805a7880..21c2b2b6f0 100644 --- a/gnu/packages/ebook.scm +++ b/gnu/packages/ebook.scm @@ -47,8 +47,10 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages serialization) + #:use-module (gnu packages sqlite) #:use-module (gnu packages time) #:use-module (gnu packages tls) #:use-module (gnu packages web) diff --git a/gnu/packages/education.scm b/gnu/packages/education.scm index ef97d58a84..5b899f4e78 100644 --- a/gnu/packages/education.scm +++ b/gnu/packages/education.scm @@ -27,7 +27,6 @@ #:use-module (gnu packages base) #:use-module (gnu packages bash) #:use-module (gnu packages compression) - #:use-module (gnu packages databases) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) @@ -40,6 +39,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages qt) #:use-module (gnu packages sdl) + #:use-module (gnu packages sqlite) #:use-module (gnu packages texinfo) #:use-module (gnu packages xorg) #:use-module (gnu packages xml) diff --git a/gnu/packages/elf.scm b/gnu/packages/elf.scm index 2ad868ddc7..ace31ec663 100644 --- a/gnu/packages/elf.scm +++ b/gnu/packages/elf.scm @@ -34,6 +34,7 @@ #:use-module (gnu packages m4) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages texinfo) #:use-module (gnu packages xml)) diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm new file mode 100644 index 0000000000..e90c3b3e29 --- /dev/null +++ b/gnu/packages/emacs-xyz.scm @@ -0,0 +1,12869 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2014, 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org> +;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Alex Kost <alezost@gmail.com> +;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> +;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2016, 2017, 2018 Chris Marusich <cmmarusich@gmail.com> +;;; Copyright © 2015, 2016, 2018 Christopher Lemmer Webber <cwebber@dustycloud.org> +;;; Copyright © 2016 Adriano Peluso <catonano@gmail.com> +;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016 David Thompson <davet@gnu.org> +;;; Copyright © 2016 Matthew Jordan <matthewjordandevops@yandex.com> +;;; Copyright © 2016, 2017 Roel Janssen <roel@gnu.org> +;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is> +;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> +;;; Copyright © 2016, 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> +;;; Copyright © 2016, 2017, 2018 Alex Vong <alexvong1995@gmail.com> +;;; Copyright © 2016, 2017, 2018 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2017 Christopher Baines <mail@cbaines.net> +;;; Copyright © 2017, 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2017, 2018, 2019 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com> +;;; Copyright © 2017, 2018 Kyle Meyer <kyle@kyleam.com> +;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net> +;;; Copyright © 2017 George Clemmer <myglc2@gmail.com> +;;; Copyright © 2017, 2018 Feng Shu <tumashu@163.com> +;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> +;;; Copyright © 2017, 2018 Oleg Pykhalov <go.wigust@gmail.com> +;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com> +;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com> +;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org> +;;; Copyright © 2017, 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2018 Sohom Bhattacharjee <soham.bhattacharjee15@gmail.com> +;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org> +;;; Copyright © 2018, 2019 Pierre Neidhardt <mail@ambrevar.xyz> +;;; Copyright © 2018, 2019 Tim Gesthuizen <tim.gesthuizen@yahoo.de> +;;; Copyright © 2018 Jack Hill <jackhill@jackhill.us> +;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr> +;;; Copyright © 2018 Alex Branham <alex.branham@gmail.com> +;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de> +;;; Copyright © 2018 Pierre Langlois <pierre.langlois@gmx.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages emacs-xyz) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix cvs-download) + #:use-module (guix download) + #:use-module (guix git-download) + #:use-module (guix build-system gnu) + #:use-module (guix build-system cmake) + #:use-module (guix build-system emacs) + #:use-module (guix build-system glib-or-gtk) + #:use-module (guix build-system perl) + #:use-module (guix build-system trivial) + #:use-module (gnu packages) + #:use-module (gnu packages admin) + #:use-module (gnu packages audio) + #:use-module (gnu packages bash) + #:use-module (gnu packages cmake) + #:use-module (gnu packages code) + #:use-module (gnu packages databases) + #:use-module (gnu packages emacs) + #:use-module (gnu packages guile) + #:use-module (gnu packages gtk) + #:use-module (gnu packages gnome) + #:use-module (gnu packages ncurses) + #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) + #:use-module (gnu packages tex) + #:use-module (gnu packages texinfo) + #:use-module (gnu packages tcl) + #:use-module (gnu packages tls) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages xorg) + #:use-module (gnu packages lesstif) + #:use-module (gnu packages llvm) + #:use-module (gnu packages image) + #:use-module (gnu packages linux) + #:use-module (gnu packages libevent) + #:use-module (gnu packages version-control) + #:use-module (gnu packages imagemagick) + #:use-module (gnu packages w3m) + #:use-module (gnu packages wget) + #:use-module (gnu packages autotools) + #:use-module (gnu packages base) + #:use-module (gnu packages compression) + #:use-module (gnu packages xml) + #:use-module (gnu packages glib) + #:use-module (gnu packages acl) + #:use-module (gnu packages mail) + #:use-module (gnu packages package-management) + #:use-module (gnu packages perl) + #:use-module (gnu packages pdf) + #:use-module (gnu packages scheme) + #:use-module (gnu packages xiph) + #:use-module (gnu packages mp3) + #:use-module (gnu packages gettext) + #:use-module (gnu packages fribidi) + #:use-module (gnu packages gd) + #:use-module (gnu packages fontutils) + #:use-module (gnu packages password-utils) + #:use-module (gnu packages pulseaudio) + #:use-module (gnu packages xdisorg) + #:use-module (gnu packages shells) + #:use-module (gnu packages sqlite) + #:use-module (gnu packages gnupg) + #:use-module (gnu packages video) + #:use-module (gnu packages haskell) + #:use-module (gnu packages wordnet) + #:use-module (guix utils) + #:use-module (srfi srfi-1) + #:use-module (ice-9 match)) + +;;; +;;; Emacs hacking. +;;; + +(define-public emacs-geiser + (package + (name "emacs-geiser") + (version "0.10") + (source (origin + (method url-fetch) + (uri (string-append "mirror://savannah/geiser/" version + "/geiser-" version ".tar.gz")) + (sha256 + (base32 + "0pj3l7p8d60c9b4vfprnv6g5l61d74pls4b5dvd84cn4ky9mzwjv")))) + (build-system gnu-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'install 'post-install + (lambda* (#:key outputs #:allow-other-keys) + (symlink "geiser-install.el" + (string-append (assoc-ref outputs "out") + "/share/emacs/site-lisp/" + "geiser-autoloads.el")) + #t))))) + (inputs `(("guile" ,guile-2.2))) + (native-inputs `(("emacs" ,emacs-minimal))) + (home-page "https://nongnu.org/geiser/") + (synopsis "Collection of Emacs modes for Guile and Racket hacking") + (description + "Geiser is a collection of Emacs major and minor modes that conspire with +one or more Scheme implementations to keep the Lisp Machine Spirit alive. The +continuously running Scheme interpreter takes the center of the stage in +Geiser. A bundle of Elisp shims orchestrates the dialog between the Scheme +implementation, Emacs and, ultimately, the schemer, giving them access to live +metadata.") + (license license:bsd-3))) + +(define-public geiser + (deprecated-package "geiser" emacs-geiser)) + +(define-public emacs-paredit + (package + (name "emacs-paredit") + (version "24") + (source (origin + (method url-fetch) + (uri (string-append "http://mumble.net/~campbell/emacs/paredit-" + version ".el")) + (sha256 + (base32 + "0pp3n8q6kc70blqsaw0zlzp6bc327dpgdrjr0cnh7hqg1lras7ka")))) + (build-system emacs-build-system) + (home-page "http://mumble.net/~campbell/emacs/paredit/") + (synopsis "Emacs minor mode for editing parentheses") + (description + "ParEdit (paredit.el) is a minor mode for performing structured editing +of S-expression data. The typical example of this would be Lisp or Scheme +source code. + +ParEdit helps **keep parentheses balanced** and adds many keys for moving +S-expressions and moving around in S-expressions. Its behavior can be jarring +for those who may want transient periods of unbalanced parentheses, such as +when typing parentheses directly or commenting out code line by line.") + (license license:gpl3+))) + +(define-public paredit + (deprecated-package "paredit" emacs-paredit)) + +(define-public git-modes + (package + (name "emacs-git-modes") + (version "1.2.8") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/magit/git-modes/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0h49f68yn0q4lg054adqii4qja1z2pzybm7nf4kvpq7fzjrzgv1q")))) + (build-system emacs-build-system) + (home-page "https://github.com/magit/git-modes") + (synopsis "Emacs major modes for Git configuration files") + (description + "This package provides Emacs major modes for editing various Git +configuration files, such as .gitattributes, .gitignore, and .git/config.") + (license license:gpl3+))) + +(define-public git-modes/old-name + (deprecated-package "git-modes" git-modes)) + +(define-public emacs-with-editor + (package + (name "emacs-with-editor") + (version "2.8.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/magit/with-editor.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1bbzvxnjpxqyvi808isld025b3pcidn4r2xf8hnk9bmzcfdvdr6q")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/magit/with-editor") + (synopsis "Emacs library for using Emacsclient as EDITOR") + (description + "This package provides an Emacs library to use the Emacsclient as +@code{$EDITOR} of child processes, making sure they know how to call home. +For remote processes a substitute is provided, which communicates with Emacs +on stdout instead of using a socket as the Emacsclient does.") + (license license:gpl3+))) + +(define-public emacs-magit + (package + (name "emacs-magit") + (version "2.13.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/magit/magit/releases/download/" + version "/magit-" version ".tar.gz")) + (sha256 + (base32 + "1ygaah3dd3nxpyd17297xgvdcgr7pgzzwlmpnmchki0kiwgg3sbc")))) + (build-system gnu-build-system) + (native-inputs `(("texinfo" ,texinfo) + ("emacs" ,emacs-minimal))) + (inputs + `(("git" ,git) + ("perl" ,perl))) + (propagated-inputs + `(("dash" ,emacs-dash) + ("ghub" ,emacs-ghub) + ("magit-popup" ,emacs-magit-popup) + ("with-editor" ,emacs-with-editor))) + (arguments + `(#:test-target "test" + #:tests? #f ; tests are not included in the release + + #:make-flags + (list (string-append "PREFIX=" %output) + ;; Don't put .el files in a sub-directory. + (string-append "lispdir=" %output "/share/emacs/site-lisp") + (string-append "DASH_DIR=" + (assoc-ref %build-inputs "dash") + "/share/emacs/site-lisp/guix.d/dash-" + ,(package-version emacs-dash)) + (string-append "GHUB_DIR=" + (assoc-ref %build-inputs "ghub") + "/share/emacs/site-lisp/guix.d/ghub-" + ,(package-version emacs-ghub)) + (string-append "MAGIT_POPUP_DIR=" + (assoc-ref %build-inputs "magit-popup") + "/share/emacs/site-lisp/guix.d/magit-popup-" + ,(package-version emacs-magit-popup)) + (string-append "WITH_EDITOR_DIR=" + (assoc-ref %build-inputs "with-editor") + "/share/emacs/site-lisp/guix.d/with-editor-" + ,(package-version emacs-with-editor))) + + #:phases + (modify-phases %standard-phases + (delete 'configure) + (add-before + 'build 'patch-exec-paths + (lambda* (#:key inputs #:allow-other-keys) + (let ((perl (assoc-ref inputs "perl"))) + (substitute* "lisp/magit-sequence.el" + (("perl") (string-append perl "/bin/perl"))) + #t)))))) + (home-page "https://magit.vc/") + (synopsis "Emacs interface for the Git version control system") + (description + "With Magit, you can inspect and modify your Git repositories with Emacs. +You can review and commit the changes you have made to the tracked files, for +example, and you can browse the history of past changes. There is support for +cherry picking, reverting, merging, rebasing, and other common Git +operations.") + (license license:gpl3+))) + +(define-public magit + (deprecated-package "magit" emacs-magit)) + +(define-public emacs-magit-svn + (package + (name "emacs-magit-svn") + (version "2.2.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/magit/magit-svn/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1c3n377v436zaxamlsz04y1ahdhp96x1vd43zaryv4y10m02ba47")))) + (build-system trivial-build-system) + (native-inputs `(("emacs" ,emacs-minimal) + ("tar" ,tar) + ("gzip" ,gzip))) + (propagated-inputs `(("dash" ,emacs-dash) + ("with-editor" ,emacs-with-editor) + ("magit" ,emacs-magit))) + (arguments + `(#:modules ((guix build utils) + (guix build emacs-utils)) + + #:builder + (begin + (use-modules (guix build utils) + (guix build emacs-utils)) + + (let* ((tar (string-append (assoc-ref %build-inputs "tar") + "/bin/tar")) + (PATH (string-append (assoc-ref %build-inputs "gzip") + "/bin")) + (emacs (string-append (assoc-ref %build-inputs "emacs") + "/bin/emacs")) + (magit (string-append (assoc-ref %build-inputs "magit") + "/share/emacs/site-lisp")) + (dash (string-append (assoc-ref %build-inputs "dash") + "/share/emacs/site-lisp/guix.d/dash-" + ,(package-version emacs-dash))) + (with-editor (string-append (assoc-ref %build-inputs "with-editor") + "/share/emacs/site-lisp/guix.d/with-editor-" + ,(package-version emacs-with-editor))) + (source (assoc-ref %build-inputs "source")) + (lisp-dir (string-append %output "/share/emacs/site-lisp"))) + (setenv "PATH" PATH) + (invoke tar "xvf" source) + + (install-file (string-append "magit-svn-" ,version "/magit-svn.el") + lisp-dir) + + (with-directory-excursion lisp-dir + (parameterize ((%emacs emacs)) + (emacs-generate-autoloads ,name lisp-dir) + (setenv "EMACSLOADPATH" + (string-append ":" magit ":" dash ":" with-editor)) + (emacs-batch-eval '(byte-compile-file "magit-svn.el")))) + #t)))) + (home-page "https://github.com/magit/magit-svn") + (synopsis "Git-SVN extension to Magit") + (description + "This package is an extension to Magit, the Git Emacs mode, providing +support for Git-SVN.") + (license license:gpl3+))) + +(define-public magit-svn + (deprecated-package "magit-svn" emacs-magit-svn)) + +(define-public emacs-magit-popup + (package + (name "emacs-magit-popup") + (version "2.12.5") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/magit/magit-popup.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "13riknyqr6vxqll80sfhvz165flvdz367rbd0pr5slb01bnfsi2i")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'install 'make-info + (lambda _ + (invoke "make" "info")))))) + (native-inputs + `(("texinfo" ,texinfo))) + (propagated-inputs + `(("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/magit/magit-popup") + (synopsis "Define prefix-infix-suffix command combos") + (description + "This library implements a generic interface for toggling switches and +setting options and then invoking an Emacs command which does something with +these arguments. The prototypical use is for the command to call an external +process, passing on the arguments as command line arguments.") + (license license:gpl3+))) + +(define-public emacs-treepy + (package + (name "emacs-treepy") + (version "0.1.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/volrath/treepy.el.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "04zwm6gx9pxfvgfkizx6pvb1ql8pqxjyzqp8flz0432x0gq5nlxk")))) + (build-system emacs-build-system) + (home-page + "https://github.com/volrath/treepy.el") + (synopsis "Tree traversal tools") + (description + "Generic tools for recursive and iterative tree traversal based on +clojure.walk and clojure.zip respectively.") + (license license:gpl3+))) + +(define-public emacs-graphql + (package + (name "emacs-graphql") + (version "0.1.1") + (source (origin + (modules '((guix build utils))) + ;; Remove examples file with references to external packages as + ;; they do not exist at compilation time. + (snippet + '(begin (delete-file "examples.el") + #t)) + (method git-fetch) + (uri (git-reference + (url "https://github.com/vermiculus/graphql.el.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0sp0skc1rnhi39szfbq1i99pdgd3bhn4c15cff05iqhjy2d4hniw")))) + (build-system emacs-build-system) + (home-page + "https://github.com/vermiculus/graphql.el") + (synopsis "GraphQL utilities") + (description + "GraphQL.el provides a generally-applicable domain-specific language for +creating and executing GraphQL queries against your favorite web services. +GraphQL is a data query language and runtime designed and used to request and +deliver data to mobile and web apps.") + (license license:gpl3+))) + +(define-public emacs-ghub + (package + (name "emacs-ghub") + (version "2.0.1") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/magit/ghub/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0d0qj5r1bm2aidi61rigrdaycxnyb7y1ivb3h8rpvvapsf8sk7z0")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'install 'make-info + (lambda _ + (invoke "make" "info")))))) + (native-inputs + `(("texinfo" ,texinfo))) + (home-page "https://github.com/magit/ghub") + (synopsis "Emacs client library for Github API and Gitlab API") + (description + "This package provides 2 files: @file{ghub.el} and @file{glab.el}, +which are the libraries that provide basic support for using the Github and +Gitlab APIs from Emacs packages. It abstracts access to API resources using +only a handful of functions that are not resource-specific.") + (license license:gpl3+))) + +(define-public emacs-scribble-mode + (let ((commit "34e9e5edb921813b6483e0fefa848efb6ee4b314") + (version "0.0") + (revision 0)) + (package + (name "emacs-scribble-mode") + (version (if (zero? revision) + version + (string-append version "-" + (number->string revision) + "." (string-take commit 7)))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-pe/scribble-mode.git") + (commit commit))) + (sha256 + (base32 + "0598byqpz2q6yi2q4dwd77jj9z3n99z34d3an51s9m2za0nh1qvp")))) + (build-system emacs-build-system) + (home-page "https://github.com/emacs-pe/scribble-mode") + (synopsis "Emacs mode for editing the Scribble documentation syntax.") + (description + "This package provides basic syntax highlighting and editing support +for editing Racket's Scribble documentation syntax in Emacs.") + (license license:gpl3+)))) + +(define-public emacs-haskell-mode + (package + (name "emacs-haskell-mode") + (version "16.1") + (source (origin + (method url-fetch) + (file-name (string-append name "-" version ".tar.gz")) + (uri (string-append + "https://github.com/haskell/haskell-mode/archive/v" + version ".tar.gz")) + (sha256 + (base32 "0g6lcjw7lcgavv3yrd8xjcyqgfyjl787y32r1z14amw2f009m78h")) + (patches + (search-patches ; backport test failure fixes + "haskell-mode-unused-variables.patch" + "haskell-mode-make-check.patch")))) + (inputs + `(("emacs-el-search" ,emacs-el-search) ; for tests + ("emacs-stream" ,emacs-stream))) ; for tests + (propagated-inputs + `(("emacs-dash" ,emacs-dash))) + (native-inputs + `(("emacs" ,emacs-minimal) + ("texinfo" ,texinfo))) + (build-system gnu-build-system) + (arguments + `(#:make-flags (list (string-append "EMACS=" + (assoc-ref %build-inputs "emacs") + "/bin/emacs")) + #:modules ((ice-9 match) + (srfi srfi-26) + ,@%gnu-build-system-modules) + #:phases + (modify-phases %standard-phases + (delete 'configure) + (add-before + 'build 'pre-build + (lambda* (#:key inputs #:allow-other-keys) + (define (el-dir store-dir) + (match (find-files store-dir "\\.el$") + ((f1 f2 ...) (dirname f1)) + (_ ""))) + + (let ((sh (string-append (assoc-ref inputs "bash") "/bin/sh"))) + (define emacs-prefix? (cut string-prefix? "emacs-" <>)) + + (setenv "SHELL" "sh") + (setenv "EMACSLOADPATH" + (string-concatenate + (map (match-lambda + (((? emacs-prefix? name) . dir) + (string-append (el-dir dir) ":")) + (_ "")) + inputs))) + (substitute* (find-files "." "\\.el") (("/bin/sh") sh)) + ;; embed filename to fix test failure + (let ((file "tests/haskell-cabal-tests.el")) + (substitute* file + (("\\(buffer-file-name\\)") + (format #f "(or (buffer-file-name) ~s)" file)))) + #t))) + (replace + 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (el-dir (string-append out "/share/emacs/site-lisp")) + (doc (string-append + out "/share/doc/haskell-mode-" ,version)) + (info (string-append out "/share/info"))) + (define (copy-to-dir dir files) + (for-each (lambda (f) + (install-file f dir)) + files)) + + (with-directory-excursion "doc" + (invoke "makeinfo" "haskell-mode.texi") + (install-file "haskell-mode.info" info)) + (copy-to-dir doc '("CONTRIBUTING.md" "NEWS" "README.md")) + (copy-to-dir el-dir (find-files "." "\\.elc?")) + ;; These are part of other packages. + (with-directory-excursion el-dir + (for-each delete-file '("dash.el" "ert.el"))) + #t)))))) + (home-page "https://github.com/haskell/haskell-mode") + (synopsis "Haskell mode for Emacs") + (description + "This is an Emacs mode for editing, debugging and developing Haskell +programs.") + (license license:gpl3+))) + +(define-public haskell-mode + (deprecated-package "haskell-mode" emacs-haskell-mode)) + +(define-public emacs-flycheck + (package + (name "emacs-flycheck") + (version "31") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/flycheck/flycheck/releases/download/" + version "/flycheck-" version ".tar")) + (sha256 + (base32 + "01rnwan16m7cyyrfca3c5c60mbj2r3knkpzbhji2fczsf0wns240")) + (modules '((guix build utils))) + (snippet `(begin + ;; Change 'flycheck-version' so that it does not + ;; attempt to get its version from pkg-info.el. + (substitute* "flycheck.el" + (("\\(pkg-info-version-info 'flycheck\\)") + (string-append "\"" ,version "\""))) + #t)))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash))) + (home-page "https://www.flycheck.org") + (synopsis "On-the-fly syntax checking") + (description + "This package provides on-the-fly syntax checking for GNU Emacs. It is a +replacement for the older Flymake extension which is part of GNU Emacs, with +many improvements and additional features. + +Flycheck provides fully-automatic, fail-safe, on-the-fly background syntax +checking for over 30 programming and markup languages with more than 70 +different tools. It highlights errors and warnings inline in the buffer, and +provides an optional IDE-like error list.") + (license license:gpl3+))) ;+GFDLv1.3+ for the manual + +(define-public emacs-a + (package + (name "emacs-a") + (version "0.1.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/plexus/a.el.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "00v9w6qg3bkwdhypq0ssf0phdh0f4bcq59c20lngd6vhk0204dqi")))) + (build-system emacs-build-system) + (home-page "https://github.com/plexus/a.el/") + (synopsis + "Emacs library for dealing with association lists and hash tables") + (description "@code{emacs-a} provides Emacs Lisp functions for dealing +with associative structures in a uniform and functional way. These functions +can take association lists, hash tables, and in some cases vectors (where the +index is considered the key).") + (license license:gpl3+))) + +(define-public emacs-anaphora + (package + (name "emacs-anaphora") + (version "1.0.4") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/rolandwalker/anaphora.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "11fgiy029sqz7nvdm7dcal95lacryz9zql0x5h05z48nrrcl4bib")))) + (build-system emacs-build-system) + (home-page "https://github.com/rolandwalker/anaphora/") + (synopsis "Anaphoric expressions for Emacs Lisp") + (description "@code{emacs-anaphora} implements anaphoric expressions for +Emacs Lisp. + +Anaphoric expressions implicitly create one or more temporary variables which +can be referred to during the expression. This technique can improve clarity +in certain cases. It also enables recursion for anonymous functions.") + (license license:public-domain))) + + +;;; +;;; Web browsing. +;;; + +(define-public emacs-w3m + ;; Emacs-w3m follows a "rolling release" model. + (package + (name "emacs-w3m") + (version "2018-11-11") + (source (origin + (method cvs-fetch) + (uri (cvs-reference + (root-directory + ":pserver:anonymous@cvs.namazu.org:/storage/cvsroot") + (module "emacs-w3m") + (revision version))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0nvahdbjs12zg7zsk4gql02mvnv56cf1rwj2f5p42lwp3xvswiwp")))) + (build-system gnu-build-system) + (native-inputs `(("autoconf" ,autoconf) + ("texinfo" ,texinfo) + ("emacs" ,emacs-minimal))) + (inputs `(("w3m" ,w3m) + ("imagemagick" ,imagemagick))) + (arguments + `(#:modules ((guix build gnu-build-system) + (guix build utils) + (guix build emacs-utils)) + #:imported-modules (,@%gnu-build-system-modules + (guix build emacs-utils)) + #:configure-flags + (let ((out (assoc-ref %outputs "out"))) + (list (string-append "--with-lispdir=" + out "/share/emacs/site-lisp") + (string-append "--with-icondir=" + out "/share/images/emacs-w3m") + ;; Leave .el files uncompressed, otherwise GC can't + ;; identify run-time dependencies. See + ;; <http://lists.gnu.org/archive/html/guix-devel/2015-12/msg00208.html> + "--without-compress-install")) + #:tests? #f ; no check target + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'autoconf + (lambda _ + (invoke "autoconf"))) + (add-before 'configure 'support-emacs! + (lambda _ + ;; For some reason 'AC_PATH_EMACS' thinks that 'Emacs 26' is + ;; unsupported. + (substitute* "configure" + (("EMACS_FLAVOR=unsupported") + "EMACS_FLAVOR=emacs")) + #t)) + (add-before 'build 'patch-exec-paths + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (w3m (assoc-ref inputs "w3m")) + (imagemagick (assoc-ref inputs "imagemagick")) + (coreutils (assoc-ref inputs "coreutils"))) + (make-file-writable "w3m.el") + (emacs-substitute-variables "w3m.el" + ("w3m-command" (string-append w3m "/bin/w3m")) + ("w3m-touch-command" + (string-append coreutils "/bin/touch")) + ("w3m-icon-directory" + (string-append out "/share/images/emacs-w3m"))) + (make-file-writable "w3m-image.el") + (emacs-substitute-variables "w3m-image.el" + ("w3m-imagick-convert-program" + (string-append imagemagick "/bin/convert")) + ("w3m-imagick-identify-program" + (string-append imagemagick "/bin/identify"))) + #t))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (invoke "make" "install" "install-icons") + (with-directory-excursion + (string-append (assoc-ref outputs "out") + "/share/emacs/site-lisp") + (for-each delete-file '("ChangeLog" "ChangeLog.1")) + (symlink "w3m-load.el" "w3m-autoloads.el") + #t)))))) + (home-page "http://emacs-w3m.namazu.org/") + (synopsis "Simple Web browser for Emacs based on w3m") + (description + "Emacs-w3m is an emacs interface for the w3m web browser.") + (license license:gpl2+))) + +(define-public emacs-wget + (package + (name "emacs-wget") + (version "0.5.0") + (source (origin + (method url-fetch) + (uri (string-append "mirror://debian/pool/main/w/wget-el/wget-el_" + version ".orig.tar.gz")) + (sha256 + (base32 "10byvyv9dk0ib55gfqm7bcpxmx2qbih1jd03gmihrppr2mn52nff")))) + (build-system gnu-build-system) + (inputs `(("wget" ,wget))) + (native-inputs `(("emacs" ,emacs-minimal))) + (arguments + `(#:modules ((guix build gnu-build-system) + (guix build utils) + (guix build emacs-utils)) + #:imported-modules (,@%gnu-build-system-modules + (guix build emacs-utils)) + #:tests? #f ; no check target + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (substitute* "Makefile" + (("/usr/local") (assoc-ref outputs "out")) + (("/site-lisp/emacs-wget") "/site-lisp")) + #t)) + (add-before 'build 'patch-exec-paths + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((wget (assoc-ref inputs "wget"))) + (emacs-substitute-variables "wget.el" + ("wget-command" (string-append wget "/bin/wget")))) + #t)) + (add-after 'install 'post-install + (lambda* (#:key outputs #:allow-other-keys) + (emacs-generate-autoloads + "wget" (string-append (assoc-ref outputs "out") + "/share/emacs/site-lisp/")) + #t))))) + (home-page "http://www.emacswiki.org/emacs/EmacsWget") + (synopsis "Simple file downloader for Emacs based on wget") + (description + "Emacs-wget is an emacs interface for the wget file downloader.") + (license license:gpl2+))) + + +;;; +;;; Multimedia. +;;; + +(define-public emacs-emms + (package + (name "emacs-emms") + (version "5.1") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnu/emms/emms-" + version ".tar.gz")) + (sha256 + (base32 + "149ddczyx6x10zn4mn8g0rll1rwf4yciv8x6j0qdnlbwszblx2x6")) + (modules '((guix build utils))) + (snippet + '(begin + (substitute* "Makefile" + (("/usr/bin/install-info") + ;; No need to use 'install-info' since it would create a + ;; useless 'dir' file. + "true") + (("^INFODIR=.*") + ;; Install Info files to $out/share/info, not $out/info. + "INFODIR := $(PREFIX)/share/info\n") + (("/site-lisp/emms") + ;; Install directly in share/emacs/site-lisp, not in a + ;; sub-directory. + "/site-lisp") + (("^all: (.*)\n" _ rest) + ;; Build 'emms-print-metadata'. + (string-append "all: " rest " emms-print-metadata\n"))) + #t)))) + (build-system gnu-build-system) + (arguments + `(#:modules ((guix build gnu-build-system) + (guix build utils) + (guix build emacs-utils) + (ice-9 ftw)) + #:imported-modules (,@%gnu-build-system-modules + (guix build emacs-utils)) + + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (flac (assoc-ref inputs "flac")) + (vorbis (assoc-ref inputs "vorbis-tools")) + (alsa (assoc-ref inputs "alsa-utils")) + (mpg321 (assoc-ref inputs "mpg321")) + (mp3info (assoc-ref inputs "mp3info")) + (opus (assoc-ref inputs "opus-tools"))) + ;; Specify the installation directory. + (substitute* "Makefile" + (("PREFIX=.*$") + (string-append "PREFIX := " out "\n"))) + + (setenv "SHELL" (which "sh")) + (setenv "CC" "gcc") + + ;; Specify the absolute file names of the various + ;; programs so that everything works out-of-the-box. + (with-directory-excursion "lisp" + (emacs-substitute-variables + "emms-player-mpg321-remote.el" + ("emms-player-mpg321-remote-command" + (string-append mpg321 "/bin/mpg321"))) + (substitute* "emms-player-simple.el" + (("\"ogg123\"") + (string-append "\"" vorbis "/bin/ogg123\""))) + (substitute* "emms-player-simple.el" + (("\"mpg321\"") + (string-append "\"" mpg321 "/bin/mpg321\""))) + (emacs-substitute-variables "emms-info-ogginfo.el" + ("emms-info-ogginfo-program-name" + (string-append vorbis "/bin/ogginfo"))) + (emacs-substitute-variables "emms-info-opusinfo.el" + ("emms-info-opusinfo-program-name" + (string-append opus "/bin/opusinfo"))) + (emacs-substitute-variables "emms-info-libtag.el" + ("emms-info-libtag-program-name" + (string-append out "/bin/emms-print-metadata"))) + (emacs-substitute-variables "emms-info-mp3info.el" + ("emms-info-mp3info-program-name" + (string-append mp3info "/bin/mp3info"))) + (emacs-substitute-variables "emms-info-metaflac.el" + ("emms-info-metaflac-program-name" + (string-append flac "/bin/metaflac"))) + (emacs-substitute-variables "emms-source-file.el" + ("emms-source-file-gnu-find" (which "find"))) + (substitute* "emms-volume-amixer.el" + (("\"amixer\"") + (string-append "\"" alsa "/bin/amixer\""))) + (substitute* "emms-tag-editor.el" + (("\"mp3info\"") + (string-append "\"" mp3info "/bin/mp3info\""))))))) + (add-before 'install 'pre-install + (lambda* (#:key outputs #:allow-other-keys) + ;; The 'install' rule expects the target directories to exist. + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (man1 (string-append out "/share/man/man1"))) + (mkdir-p bin) + (mkdir-p man1) + + ;; Ensure that files are not rejected by gzip + (let ((early-1980 315619200)) ; 1980-01-02 UTC + (ftw "." (lambda (file stat flag) + (unless (<= early-1980 (stat:mtime stat)) + (utime file early-1980 early-1980)) + #t))) + #t))) + (add-after 'install 'post-install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (symlink "emms-auto.el" + (string-append out "/share/emacs/site-lisp/" + "emms-autoloads.el"))) + #t))) + #:tests? #f)) + (native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils) + ("texinfo" ,texinfo))) + (inputs `(("alsa-utils" ,alsa-utils) + ("flac" ,flac) ;for metaflac + ("vorbis-tools" ,vorbis-tools) + ("mpg321" ,mpg321) + ("taglib" ,taglib) + ("mp3info" ,mp3info) + ("opus-tools" ,opus-tools))) + (properties '((upstream-name . "emms"))) + (synopsis "Emacs Multimedia System") + (description + "EMMS is the Emacs Multimedia System. It is a small front-end which +can control one of the supported external players. Thus, it supports +whatever formats are supported by your music player. It also +supports tagging and playlist management, all behind a clean and +light user interface.") + (home-page "https://www.gnu.org/software/emms/") + (license license:gpl3+))) + +(define-public emacs-emms-player-mpv + ;; A new mpv backend is included in Emms from 5.0. + (deprecated-package "emacs-emms-player-mpv" emacs-emms)) + +(define-public emacs-emms-mode-line-cycle + (package + (name "emacs-emms-mode-line-cycle") + (version "0.2.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/momomo5717/emms-mode-line-cycle" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ifszi930pnaxk1x8pcydmvnp06868gc7nfx14q17zbajbx735k6")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emms" ,emacs-emms))) + (home-page "https://github.com/momomo5717/emms-mode-line-cycle") + (synopsis "Display the EMMS mode line as a ticker") + (description + "This is a minor mode for updating the EMMS mode-line string cyclically +within a specified width. It is useful for displaying long track titles.") + (license license:gpl3+))) + + +;;; +;;; Miscellaneous. +;;; + +(define-public emacs-bbdb + (package + (name "emacs-bbdb") + (version "3.1.2") + (source (origin + (method url-fetch) + (uri (string-append "mirror://savannah/bbdb/bbdb-" + version ".tar.gz")) + (sha256 + (base32 + "1gs16bbpiiy01w9pyg12868r57kx1v3hnw04gmqsmpc40l1hyy05")) + (modules '((guix build utils))) + (snippet + ;; We don't want to build and install the PDF. + '(begin + (substitute* "doc/Makefile.in" + (("^doc_DATA = .*$") + "doc_DATA =\n")) + #t)))) + (build-system gnu-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'install 'post-install + (lambda* (#:key outputs #:allow-other-keys) + ;; Add an autoloads file with the right name for guix.el. + (let* ((out (assoc-ref outputs "out")) + (site (string-append out "/share/emacs/site-lisp"))) + (with-directory-excursion site + (symlink "bbdb-loaddefs.el" "bbdb-autoloads.el"))) + #t))))) + (native-inputs `(("emacs" ,emacs-minimal))) + (home-page "https://savannah.nongnu.org/projects/bbdb/") + (synopsis "Contact management utility for Emacs") + (description + "BBDB is the Insidious Big Brother Database for GNU Emacs. It provides +an address book for email and snail mail addresses, phone numbers and the +like. It can be linked with various Emacs mail clients (Message and Mail +mode, Rmail, Gnus, MH-E, and VM). BBDB is fully customizable.") + (license license:gpl3+))) + +(define-public bbdb + (deprecated-package "bbdb" emacs-bbdb)) + +(define-public emacs-aggressive-indent + (package + (name "emacs-aggressive-indent") + (version "1.8.3") + (source (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/" + "aggressive-indent-" version ".el")) + (sha256 + (base32 + "0jnzccl50x0wapprgwxinp99pwwa6j43q6msn4gv437j7swy8wnj")))) + (build-system emacs-build-system) + (home-page "https://elpa.gnu.org/packages/aggressive-indent.html") + (synopsis "Minor mode to aggressively keep your code always indented") + (description + "@code{aggressive-indent-mode} is a minor mode that keeps your code +always indented. It reindents after every change, making it more reliable +than @code{electric-indent-mode}.") + (license license:gpl2+))) + +(define-public emacs-ag + (package + (name "emacs-ag") + (version "0.47") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/Wilfred/ag.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1rlmp6wnyhqfg86dbz17r914msp58favn4kd4yrdwyia265a4lar")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'install 'make-info + (lambda _ + (with-directory-excursion "docs" + (invoke "make" "info")))) + (add-after 'install 'install-info + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (info (string-append out "/share/info"))) + (install-file "docs/_build/texinfo/agel.info" info) + #t)))))) + (native-inputs + `(("python-sphinx" ,python-sphinx) + ("texinfo" ,texinfo))) + (propagated-inputs + `(("dash" ,emacs-dash) + ("s" ,emacs-s) + ;; We need to use 'ag' as the executable on remote systems. + ("the-silver-searcher" ,the-silver-searcher))) + (home-page "https://github.com/Wilfred/ag.el") + (synopsis "Front-end for ag (the-silver-searcher) for Emacs") + (description "This package provides the ability to use the silver +searcher, a code searching tool, sometimes abbreviated to @code{ag}. Features +include version control system awareness, use of Perl compatible regular +expressions, editing the search results directly and searching file names +rather than the contents of files.") + (license license:gpl3+))) + +(define-public emacs-async + (package + (name "emacs-async") + (home-page "https://github.com/jwiegley/emacs-async") + (version "1.9.3") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1zsnb6dy8p6y68xgidv3dfxaga4biramfw8fq7wac0sc50vc98vq")))) + (build-system emacs-build-system) + (synopsis "Asynchronous processing in Emacs") + (description + "This package provides the ability to call asynchronous functions and +processes. For example, it can be used to run dired commands (for copying, +moving, etc.) asynchronously using @code{dired-async-mode}. Also it is used +as a library for other Emacs packages.") + (license license:gpl3+))) + +(define-public emacs-auctex + (package + (name "emacs-auctex") + (version "12.1.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://elpa.gnu.org/packages/auctex-" + version + ".tar")) + (sha256 + (base32 + "0iy5x61xqkxaph2hq64sg50l1c6yp6qhzppwadayxkdz00b46sas")))) + (build-system emacs-build-system) + ;; We use 'emacs' because AUCTeX requires dbus at compile time + ;; ('emacs-minimal' does not provide dbus). + (arguments + `(#:emacs ,emacs + #:include '("\\.el$" "^images/" "^latex/" "\\.info$") + #:exclude '("^tests/" "^latex/README"))) + (native-inputs + `(("perl" ,perl))) + (home-page "https://www.gnu.org/software/auctex/") + (synopsis "Integrated environment for TeX") + (description + "AUCTeX is a comprehensive customizable integrated environment for +writing input files for TeX, LaTeX, ConTeXt, Texinfo, and docTeX using Emacs +or XEmacs.") + (license license:gpl3+))) + +(define-public emacs-autothemer + (package + (name "emacs-autothemer") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/sebastiansturm/autothemer/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0rd28r9wfrbll212am4ih9hrvypx785aff76va2cbfxdwm9kixsa")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/sebastiansturm/autothemer") + (synopsis "Conveniently create Emacs themes") + (description + "Autothemer provides a thin layer on top of @code{deftheme} and +@code{custom-theme-set-faces} that creates a new custom color theme, based on +a set of simplified face specifications and a user-supplied color palette") + (license license:gpl3+))) + +(define-public emacs-howm + (package + (name "emacs-howm") + (version "1.4.4") + (source + (origin + (method url-fetch) + (uri (string-append "http://howm.sourceforge.jp/a/howm-" + version ".tar.gz")) + (sha256 + (base32 + "0ddm91l6z58j7x59fa966j6q1rg4cinyza4r8ibg80hprn5h31qk")))) + (build-system gnu-build-system) + (native-inputs + `(("emacs" ,emacs-minimal))) + (arguments + `(#:configure-flags + (list (string-append "--with-howmdir=" %output + "/share/emacs/site-lisp/guix.d/howm-" ,version)) + #:modules ((guix build gnu-build-system) + ((guix build emacs-build-system) #:prefix emacs:) + (guix build utils)) + #:imported-modules (,@%gnu-build-system-modules + (guix build emacs-build-system) + (guix build emacs-utils)) + #:phases + (modify-phases %standard-phases + (add-after 'install 'make-autoloads + (assoc-ref emacs:%standard-phases 'make-autoloads))))) + (home-page "http://howm.osdn.jp/") + (synopsis "Note-taking tool for Emacs") + (description "Howm is a note-taking tool for Emacs. Like +code@{emacs-wiki.el}, it facilitates using hyperlinks and doing full-text +searches. Unlike code@{emacs-wiki.el}, it can be combined with any format.") + (license license:gpl1+))) + +(define-public emacs-calfw + (package + (name "emacs-calfw") + (version "1.6") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/kiwanami/emacs-calfw/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1zr91xr0f1xfcv78yxka8vs5ximmq2ixmqf2pkb57kwwnxlypq4i")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-howm" ,emacs-howm))) + (home-page "https://github.com/kiwanami/emacs-calfw/") + (synopsis "Calendar framework for Emacs") + (description + "This package displays a calendar view with various schedule data in the +Emacs buffer.") + (license license:gpl3+))) + +(define-public emacs-direnv + (package + (name "emacs-direnv") + (version "1.2.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/wbolster/emacs-direnv/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0m9nxawklhiiysyibzzhh2zkxgq1fskqvaqb06f7r8dnhabfy9fr")))) + (build-system emacs-build-system) + (propagated-inputs + `(("dash" ,emacs-dash) + ("with-editor" ,emacs-with-editor))) + (home-page "https://github.com/wbolster/emacs-direnv") + (synopsis "Direnv integration for Emacs") + (description + "This package provides support for invoking direnv to get the environment +for the current file and updating the environment within Emacs to match. + +Direnv can be invoked manually, and a global minor mode is included that will +update the environment when the active buffer changes. + +Using emacs-direnv means that programs started from Emacs will use the +environment set through Direnv.") + (license license:gpl3+))) + +(define-public emacs-ggtags + (package + (name "emacs-ggtags") + (version "0.8.13") + (source + (origin + (method url-fetch) + (uri (string-append "http://elpa.gnu.org/packages/ggtags-" + version ".el")) + (sha256 + (base32 + "1qa7lcrcmf76sf6dy8sxbg4adq7rg59fm0n5848w3qxgsr0h45fg")))) + (build-system emacs-build-system) + (inputs + `(("global" ,global))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs #:allow-other-keys) + (chmod "ggtags.el" #o644) + (emacs-substitute-variables "ggtags.el" + ("ggtags-executable-directory" + (string-append (assoc-ref inputs "global") "/bin"))) + #t))))) + (home-page "https://github.com/leoliu/ggtags") + (synopsis "Frontend to the GNU Global source code tagging system") + (description "@code{ggtags} provides a frontend to the GNU Global source +code tagging system. + +Features: + +@itemize +@item Build on @code{compile.el} for asynchronicity and its large feature-set. +@item Automatically update Global's tag files when needed with tuning for +large source trees. +@item Intuitive navigation among multiple matches with mode-line display of +current match, total matches and exit status. +@item Read tag with completion. +@item Show definition at point. +@item Jump to #include files. +@item Support search history and saving a search to register/bookmark. +@item Query replace. +@item Manage Global's environment variables on a per-project basis. +@item Highlight (definition) tag at point. +@item Abbreviated display of file names. +@item Support all Global search backends: @code{grep}, @code{idutils}, etc. +@item Support exuberant ctags @url{http://ctags.sourceforge.net/} and +@code{pygments} backend. +@item Support all Global's output formats: @code{grep}, @code{ctags-x}, +@code{cscope} etc. +@item Support projects on remote hosts (e.g. via @code{tramp}). +@item Support eldoc. +@item Search @code{GTAGSLIBPATH} for references and symbols. +@end itemize\n") + (license license:gpl3+))) + +(define-public emacs-go-mode + (package + (name "emacs-go-mode") + (version "1.5.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/dominikh/go-mode.el.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1nd2h50yb0493wvf1h7fzplq45rmqn2w7kxpgnlxzhkvq99v8vzf")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'make-writable + (lambda _ + (for-each make-file-writable (find-files "." "\\.el$")) + #t))))) + (home-page "https://github.com/dominikh/go-mode.el") + (synopsis "Go mode for Emacs") + (description + "This package provides go-mode, an Emacs mode for working with software +written in the Go programming language.") + (license license:bsd-3))) + +(define-public emacs-google-maps + (package + (name "emacs-google-maps") + (version "1.0.0") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/jd/google-maps.el/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "014bxapm4d8vjxbzrfjdpsavxyfx981mlcb10aq5rmigr6il8ybs")))) + (build-system emacs-build-system) + (home-page "https://github.com/jd/google-maps.el") + (synopsis "Access Google Maps from Emacs") + (description "The @code{google-maps} package allows to display Google +Maps directly inside Emacs.") + (license license:gpl3+))) + +(define-public emacs-graphviz-dot-mode + (let ((commit "c456a2b65c734089e6c44e87209a5a432a741b1a") + (revision "1")) + (package + (name "emacs-graphviz-dot-mode") + (version (string-append "0.3.11-" revision "." + (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ppareit/graphviz-dot-mode.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0j1r2rspaakw37b0mx7pwpvdsvixq9sw3xjbww5piihzpdxz58z1")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'install 'make-info + (lambda* (#:key inputs #:allow-other-keys) + (with-directory-excursion "texinfo" + (substitute* "Makefile" + (("\\/usr\\/bin\\/gzip") + (string-append (assoc-ref inputs "gzip") "/bin/gzip"))) + (invoke "make" + "clean" + "info" + (string-append "TEXINFODIR=" + (assoc-ref inputs "texinfo") + "/bin"))))) + (add-after 'install 'install-info + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (info (string-append out "/share/info"))) + (install-file "texinfo/graphviz-dot-mode.info.gz" info) + #t)))))) + (native-inputs + `(("texinfo" ,texinfo) + ("gzip" ,gzip))) + (home-page "http://ppareit.github.com/graphviz-dot-mode") + (synopsis "Major mode for editing Graphviz Dot files") + (description + "This Emacs packages helps you to create @file{.dot} or @file{.gv} +files using the dot syntax, and use Graphviz to convert these files to +diagrams.") + (license license:gpl2+)))) + +(define-public emacs-mmm-mode + (package + (name "emacs-mmm-mode") + (version "0.5.5") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/purcell/mmm-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0c5ing3hcr74k78hqhrfwiv6m3n8hqfrw89j2x34vf60f4iyqzqc")))) + (build-system gnu-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'autogen + (lambda _ + (invoke "sh" "autogen.sh")))))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("emacs" ,emacs-minimal) + ("texinfo" ,texinfo))) + (home-page "https://github.com/purcell/mmm-mode") + (synopsis "Allow multiple major modes in an Emacs buffer") + (description + "MMM Mode is a minor mode that allows multiple major modes to coexist in a +single buffer.") + (license license:gpl3+))) + +(define-public emacs-tablist + (package + (name "emacs-tablist") + (version "0.70") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/politza/tablist/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "177d6s7ym1mwz1nhnl09r14z3n093g9a2szm97xsaig0c204xz9c")))) + (build-system emacs-build-system) + (home-page "https://github.com/politza/tablist") + (synopsis "Extension for @code{tabulated-list-mode}") + (description "Tablist is the Emacs package that provides several +additional features to @code{tabulated-list-mode}: it adds marks, +filters, new key bindings and faces. It can be enabled by +@code{tablist-mode} or @code{tablist-minor-mode} commands.") + (license license:gpl3+))) + +(define-public emacs-pdf-tools + (package + (name "emacs-pdf-tools") + (version "0.80") + (home-page "https://github.com/politza/pdf-tools") + (source (origin + (method git-fetch) + (uri (git-reference (url home-page) + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1i4647vax5na73basc5dz4lh9kprir00fh8ps4i0l1y3ippnjs2s")) + (patches (search-patches "emacs-pdf-tools-poppler.patch")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; there are no tests + #:modules ((guix build gnu-build-system) + ((guix build emacs-build-system) #:prefix emacs:) + (guix build utils) + (guix build emacs-utils)) + #:imported-modules (,@%gnu-build-system-modules + (guix build emacs-build-system) + (guix build emacs-utils)) + #:phases + (modify-phases %standard-phases + ;; Build server side using 'gnu-build-system'. + (add-after 'unpack 'enter-server-dir + (lambda _ (chdir "server") #t)) + (add-after 'enter-server-dir 'autogen + (lambda _ + (invoke "bash" "autogen.sh"))) + + ;; Build emacs side using 'emacs-build-system'. + (add-after 'compress-documentation 'enter-lisp-dir + (lambda _ (chdir "../lisp") #t)) + (add-after 'enter-lisp-dir 'emacs-patch-variables + (lambda* (#:key outputs #:allow-other-keys) + (for-each make-file-writable (find-files ".")) + + ;; Set path to epdfinfo program. + (emacs-substitute-variables "pdf-info.el" + ("pdf-info-epdfinfo-program" + (string-append (assoc-ref outputs "out") + "/bin/epdfinfo"))) + ;; Set 'pdf-tools-handle-upgrades' to nil to avoid "auto + ;; upgrading" that pdf-tools tries to perform. + (emacs-substitute-variables "pdf-tools.el" + ("pdf-tools-handle-upgrades" '())))) + (add-after 'emacs-patch-variables 'emacs-set-emacs-load-path + (assoc-ref emacs:%standard-phases 'set-emacs-load-path)) + (add-after 'emacs-set-emacs-load-path 'emacs-install + (assoc-ref emacs:%standard-phases 'install)) + (add-after 'emacs-install 'emacs-build + (assoc-ref emacs:%standard-phases 'build)) + (add-after 'emacs-install 'emacs-make-autoloads + (assoc-ref emacs:%standard-phases 'make-autoloads))))) + (native-inputs `(("autoconf" ,autoconf) + ("automake" ,automake) + ("pkg-config" ,pkg-config) + ("emacs" ,emacs-minimal))) + (inputs `(("poppler" ,poppler) + ("cairo" ,cairo) + ("glib" ,glib) + ("libpng" ,libpng) + ("zlib" ,zlib))) + (propagated-inputs `(("tablist" ,emacs-tablist))) + (synopsis "Emacs support library for PDF files") + (description + "PDF Tools is, among other things, a replacement of DocView for PDF +files. The key difference is that pages are not pre-rendered by +e.g. ghostscript and stored in the file-system, but rather created on-demand +and stored in memory.") + (license license:gpl3+))) + +(define-public emacs-dash + (package + (name "emacs-dash") + (version "2.14.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/magnars/dash.el.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1kzijmjxjxgr7p8clphzvmm47vczckbs8mza9an77c25bn627ywl")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("./run-tests.sh"))) + (home-page "https://github.com/magnars/dash.el") + (synopsis "Modern list library for Emacs") + (description "This package provides a modern list API library for Emacs.") + (license license:gpl3+))) + +(define-public emacs-bui + (package + (name "emacs-bui") + (version "1.2.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://notabug.org/alezost/emacs-bui.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0sszdl4kvqbihdh8d7mybpp0d8yw2p3gyiipjcxz9xhvvmw3ww4x")))) + (build-system emacs-build-system) + (propagated-inputs + `(("dash" ,emacs-dash))) + (home-page "https://notabug.org/alezost/emacs-bui") + (synopsis "Buffer interface library for Emacs") + (description + "BUI (Buffer User Interface) is a library for making @code{list} and +@code{info} interfaces to display an arbitrary data of the same +type, for example: packages, buffers, files, etc.") + (license license:gpl3+))) + +(define-public emacs-guix + (package + (name "emacs-guix") + (version "0.5.1.1") + (source (origin + (method url-fetch) + (uri (string-append "https://emacs-guix.gitlab.io/website/" + "releases/emacs-guix-" version ".tar.gz")) + (sha256 + (base32 + "1gxg7lan3njc2yg2d02b2zij0d2cm2pv2q08nqz86s85jk3b6m03")))) + (build-system gnu-build-system) + (arguments + `(#:configure-flags + (let ((guix (assoc-ref %build-inputs "guix")) + (gcrypt (assoc-ref %build-inputs "guile-gcrypt")) + (geiser (assoc-ref %build-inputs "geiser")) + (dash (assoc-ref %build-inputs "dash")) + (bui (assoc-ref %build-inputs "bui")) + (magit-popup (assoc-ref %build-inputs "magit-popup")) + (edit-indirect (assoc-ref %build-inputs "edit-indirect")) + (site-lisp "/share/emacs/site-lisp") + (site-scm "/share/guile/site") + (site-go "/lib/guile") + (guile-dir (lambda (dir) + (car (find-files dir + (lambda (file stat) + (string-prefix? + "2." (basename file))) + #:directories? #t))))) + (list (string-append "--with-guix-site-dir=" + (guile-dir (string-append guix site-scm))) + (string-append "--with-guix-site-ccache-dir=" + (guile-dir (string-append guix site-go)) + "/site-ccache") + (string-append "--with-guile-gcrypt-site-dir=" + (guile-dir (string-append gcrypt site-scm))) + (string-append "--with-guile-gcrypt-site-ccache-dir=" + (guile-dir (string-append gcrypt site-go)) + "/site-ccache") + (string-append "--with-geiser-lispdir=" geiser site-lisp) + (string-append "--with-dash-lispdir=" + dash site-lisp "/guix.d/dash-" + ,(package-version emacs-dash)) + (string-append "--with-bui-lispdir=" + bui site-lisp "/guix.d/bui-" + ,(package-version emacs-bui)) + (string-append "--with-editindirect-lispdir=" + edit-indirect site-lisp "/guix.d/edit-indirect-" + ,(package-version emacs-edit-indirect)) + (string-append "--with-popup-lispdir=" + magit-popup site-lisp "/guix.d/magit-popup-" + ,(package-version emacs-magit-popup)))))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("emacs" ,emacs-minimal))) + (inputs + `(("guile" ,guile-2.2) + ("guix" ,guix))) + (propagated-inputs + `(("geiser" ,emacs-geiser) + ("guile-gcrypt" ,guile-gcrypt) + ("dash" ,emacs-dash) + ("bui" ,emacs-bui) + ("edit-indirect" ,emacs-edit-indirect) + ("magit-popup" ,emacs-magit-popup))) + (home-page "https://emacs-guix.gitlab.io/website/") + (synopsis "Emacs interface for GNU Guix") + (description + "Emacs-Guix provides a visual interface, tools and features for the GNU +Guix package manager. Particularly, it allows you to do various package +management tasks from Emacs. To begin with, run @code{M-x guix-about} or +@code{M-x guix-help} command.") + (license license:gpl3+))) + +(define-public emacs-build-farm + (package + (name "emacs-build-farm") + (version "0.2.2") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://notabug.org/alezost/emacs-build-farm.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0i0bwbav5861j2y15j9nd5m9rdqg9q97zgcbld8pivr9nyxy63lz")))) + (build-system emacs-build-system) + (propagated-inputs + `(("bui" ,emacs-bui) + ("magit-popup" ,emacs-magit-popup))) + (home-page "https://notabug.org/alezost/emacs-build-farm") + (synopsis "Emacs interface for Hydra and Cuirass build farms") + (description + "This Emacs package provides an interface for Hydra and +Cuirass (build farms used by Nix and Guix). It allows you to look at +various data related to the build farm projects, jobsets, builds and +evaluations. The entry point is @code{M-x build-farm} command.") + (license license:gpl3+))) + +(define-public emacs-d-mode + (package + (name "emacs-d-mode") + (version "2.0.9") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/Emacs-D-Mode-Maintainers/Emacs-D-Mode/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "127aa77ix3p7w4g339bx026df9y649dahlr3v359z0hs40zjz3kd")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-undercover" ,emacs-undercover))) + (home-page "https://github.com/Emacs-D-Mode-Maintainers/Emacs-D-Mode") + (synopsis "Emacs major mode for editing D code") + (description "This package provides an Emacs major mode for highlighting +code written in the D programming language. This mode is currently known to +work with Emacs 24 and 25.") + (license license:gpl2+))) + +(define-public emacs-keyfreq + (package + (name "emacs-keyfreq") + (version "20160516.716") + (source + (origin + (method url-fetch) + (uri (string-append "http://melpa.org/packages/keyfreq-" + version ".el")) + (sha256 + (base32 + "008hd7d06qskc3mx0bbdgpgy2pwxr8185fzlyqf9qjg49y74p6g8")))) + (build-system emacs-build-system) + (home-page "https://github.com/dacap/keyfreq") + (synopsis "Track Emacs command frequencies") + (description "@code{emacs-keyfeq} tracks and shows how many times you used +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") + (version "0.6.6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "http://dr-qubit.org/git/undo-tree.git") + (commit (string-append "release/" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1hnh2mnmw179gr094r561w6cw1haid0lpvpqvkc24wpj82vphzpa")))) + (build-system emacs-build-system) + (home-page "http://www.dr-qubit.org/emacs.php") + (synopsis "Treat undo history as a tree") + (description "Tree-like interface to Emacs undo system, providing +graphical tree presentation of all previous states of buffer that +allows easily move between them.") + (license license:gpl3+))) + +(define-public emacs-s + (package + (name "emacs-s") + (version "1.12.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/magnars/s.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0xbl75863pcm806zg0x1lw7qznzjq2c8320k8js7apyag8q4srvh")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:emacs ,emacs ; FIXME: tests fail with emacs-minimal + #:test-command '("./run-tests.sh"))) + (home-page "https://github.com/magnars/s.el") + (synopsis "Emacs string manipulation library") + (description "This package provides an Emacs library for manipulating +strings.") + (license license:gpl3+))) + +(define-public emacs-symon + (package + (name "emacs-symon") + (version "20160630") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/zk-phi/symon/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0h4jcgdnq98wc9rj72nwyazq8498yg55jfljiij5qwbn1xf1g5zz")))) + (build-system emacs-build-system) + (home-page "https://github.com/zk-phi/symon") + (synopsis "Tiny graphical system monitor") + (description + "Tiny graphical system monitor for the Emacs minibuffer when idle.") + (license license:gpl2+))) + +(define-public emacs-sx + (let ((version "20180212") + (revision "1") + (commit "833435fbf90d1c9e927d165b155f3b1ef39271de")) + (package + (name "emacs-sx") + (version (git-version version revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/vermiculus/sx.el") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1369xaxq1vy3d9yh862ddnhddikdpg2d0wv1ly00pnvdp9v4cqgd")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-markdown-mode" ,emacs-markdown-mode))) + (home-page "https://github.com/vermiculus/sx.el") + (synopsis "Emacs StackExchange client") + (description + "Emacs StackExchange client. Ask and answer questions on +Stack Overflow, Super User, and other StackExchange sites.") + (license license:gpl3+)))) + +(define-public emacs-f + (package + (name "emacs-f") + (version "0.20.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/rejeep/f.el.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1a47xk3yp1rp17fqg7ldl3d3fb888h0fz3sysqfdz1bfdgs8a9bk")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-s" ,emacs-s) + ("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/rejeep/f.el") + (synopsis "Emacs API for working with files and directories") + (description "This package provides an Emacs library for working with +files and directories.") + (license license:gpl3+))) + +(define-public emacs-git-gutter + (package + (name "emacs-git-gutter") + (version "0.90") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/syohex/" name "/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1nmhvhpq1l56mj2yq3ag23rw3x4xgnsy8szp30s26l0yjnkhc4qg")))) + (build-system emacs-build-system) + (home-page "https://github.com/syohex/emacs-git-gutter") + (synopsis "See and manage hunks of text in a version control system") + (description + "This package is an Emacs minor mode for displaying and interacting with +hunks of text managed in a version control system. Added modified and deleted +areas can be indicated with symbols on the edge of the buffer, and commands +can be used to move between and perform actions on these hunks. + +Git, Mercurial, Subversion and Bazaar are supported, and many parts of the +display and behaviour is easily customisable.") + (license license:gpl3+))) + +(define-public emacs-git-timemachine + (package + (name "emacs-git-timemachine") + (version "4.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://gitlab.com/pidu/git-timemachine" + "/-/archive/" version + "/git-timemachine-" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ii40qcincasg7s1yrvqcxkqcqzb4sfs7gcxscn6m4x4ans165zy")))) + (build-system emacs-build-system) + (home-page "https://gitlab.com/pidu/git-timemachine") + (synopsis "Step through historic versions of Git-controlled files") + (description "This package enables you to step through historic versions +of files under Git version control from within Emacs.") + (license license:gpl3+))) + +(define-public emacs-minitest + (let ((commit "1aadb7865c1dc69c201cecee275751ecec33a182") + (revision "1")) + (package + (name "emacs-minitest") + (version (git-version "0.8.0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/arthurnn/minitest-emacs") + (commit commit))) + (file-name (git-file-name name commit)) + (sha256 + (base32 + "1l18zqpdzbnqj2qawq8hj7z7pl8hr8z9d8ihy8jaiqma915hmhj1")))) + (build-system emacs-build-system) + (arguments + '(#:include (cons "^snippets\\/minitest-mode\\/" %default-include) + #:exclude (delete "^[^/]*tests?\\.el$" %default-exclude))) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-f" ,emacs-f))) + (home-page "https://github.com/arthurnn/minitest-emacs") + (synopsis "Emacs minitest mode") + (description + "The minitest mode provides commands to run the tests for the current +file or line, as well as rerunning the previous tests, or all the tests for a +project. + +This package also includes relevant snippets for yasnippet.") + (license license:expat)))) + +(define-public emacs-el-mock + (package + (name "emacs-el-mock") + (version "1.25.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/rejeep/el-mock.el/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "16xw94n58xxn3zvgyj72bmzs0k5lkvswjmzs79ws9n7rzdivb38b")))) + (build-system emacs-build-system) + (home-page "https://github.com/rejeep/el-mock.el") + (synopsis "Tiny mock and stub framework in Emacs Lisp") + (description + "Emacs Lisp Mock is a library for mocking and stubbing using readable +syntax. Most commonly Emacs Lisp Mock is used in conjunction with Emacs Lisp +Expectations, but it can be used in other contexts.") + (license license:gpl3+))) + +(define-public emacs-espuds + (package + (name "emacs-espuds") + (version "0.3.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/ecukes/espuds/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0xv551376pbmh735a3zjwc9z4qdx6ngj1vpq3xqjpn0a1rwjyn4k")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-s" ,emacs-s) + ("emacs-dash" ,emacs-dash) + ("emacs-f" ,emacs-f))) + (home-page "https://github.com/ecukes/espuds") + (synopsis "Common step definitions for Ecukes") + (description "Espuds is a collection of the most commonly used step +definitions for testing with the Ecukes framework.") + (license license:gpl3+))) + +(define-public emacs-spark + (let ((version "20160503") ; no proper tag, use date of commit + (commit "0bf148c3ede3b31d56fd75f347cdd0b0eae60025") + (revision "1")) + (package + (name "emacs-spark") + (version (git-version version revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/alvinfrancis/spark.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1ykqr86j17mi95s08d9fp02d7ych1331b04dcqxzxnmpkhwngyj1")))) + (build-system emacs-build-system) + (home-page "https://github.com/alvinfrancis/spark") + (synopsis "Sparkline generation library for Emacs Lisp") + (description "@code{emacs-spark} is a sparkline generation library for +Emacs Lisp. It generates a sparkline string given a list of numbers. It is a +port of @code{cl-spark} to Emacs Lisp.") + (license license:expat)))) + +(define-public emacs-es-mode + (package + (name "emacs-es-mode") + (version "4.3.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/dakrone/es-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0y86qdcb3g7fkcb4pzsjh3syzql6w3314hg1wqxq4a8bbk3y0cgr")))) + (build-system emacs-build-system) + (propagated-inputs + ;; The version of org in Emacs 24.5 is not sufficient, and causes tables + ;; to be rendered incorrectly + `(("emacs-dash" ,emacs-dash) + ("emacs-org" ,emacs-org) + ("emacs-spark" ,emacs-spark))) + (home-page "https://github.com/dakrone/es-mode") + (synopsis "Major mode for editing Elasticsearch queries") + (description "@code{es-mode} includes highlighting, completion and +indentation support for Elasticsearch queries. Also supported are +@code{es-mode} blocks in @code{org-mode}, for which the results of queries can +be processed through @code{jq}, or in the case of aggregations, can be +rendered in to a table. In addition, there is an @code{es-command-center} +mode, which displays information about Elasticsearch clusters.") + (license license:gpl3+))) + +(define-public emacs-expand-region + (package + (name "emacs-expand-region") + (version "0.11.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/magnars/expand-region.el" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "08dy1f411sh9wwww53rjw80idcf3vpki6ba2arl4hl5jcw9651g0")))) + (build-system emacs-build-system) + (home-page "https://github.com/magnars/expand-region.el") + (synopsis "Increase selected region by semantic units") + (description + "Expand region increases the selected region by semantic units. Just +keep pressing the key until it selects what you want. There's also +@code{er/contract-region} if you expand too far.") + (license license:gpl3+))) + +(define-public emacs-fill-column-indicator + (package + (name "emacs-fill-column-indicator") + (version "1.89") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/alpaker/Fill-Column-Indicator" + "/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "09ab01np14bdcsr38xf95kpnvxzqr46mdjmphg3pigwnx39a3jvg")))) + (build-system emacs-build-system) + (home-page "https://www.emacswiki.org/emacs/FillColumnIndicator") + (synopsis "Graphically indicate the fill column") + (description + "Fill-column-indicator graphically indicates the location of the fill +column by drawing a thin line down the length of the editing window.") + (license license:gpl3+))) + +(define-public emacs-grep-a-lot + (package + (name "emacs-grep-a-lot") + (version "1.0.7") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ZungBang/emacs-grep-a-lot.git") + (commit "9f9f645b9e308a0d887b66864ff97d0fca1ba4ad"))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1f8262mrlinzgnn4m49hbj1hm3c1mvzza24py4b37sasn49546lw")))) + (build-system emacs-build-system) + (home-page "https://github.com/ZungBang/emacs-grep-a-lot") + (synopsis "Enables multiple grep buffers in Emacs") + (description + "This Emacs package allows managing multiple grep buffers.") + (license license:gpl3+))) + +(define-public emacs-inf-ruby + (package + (name "emacs-inf-ruby") + (version "2.5.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/nonsequitur/inf-ruby/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0m7323k649ckxql1grsdnf71bjhys7l4qb8wbpphb1mr1q8i4066")))) + (build-system emacs-build-system) + (home-page "https://github.com/nonsequitur/inf-ruby") + (synopsis "Provides a REPL buffer connected to a Ruby subprocess in Emacs") + (description + "@code{inf-ruby} provides a Read Eval Print Loop (REPL) buffer, allowing +for easy interaction with a ruby subprocess. Features include support for +detecting specific uses of Ruby, e.g. when using rails, and using a +appropriate console.") + (license license:gpl3+))) + +(define-public emacs-znc + (package + (name "emacs-znc") + (version "0.0.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://marmalade-repo.org/packages/znc-" + version ".el")) + (sha256 + (base32 + "1d8lqvybgyazin5z0g1c4l3rg1vzrrvf0saqs53jr1zcdg0lianh")))) + (build-system emacs-build-system) + (home-page "https://github.com/sshirokov/ZNC.el") + (synopsis "Make ERC and ZNC get along better") + (description + "This is a thin wrapper around @code{erc} that enables one to use the ZNC +IRC bouncer with ERC.") + (license license:expat))) + +(define-public emacs-shut-up + (package + (name "emacs-shut-up") + (version "0.3.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/cask/shut-up/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "09kzrjdkb569iviyg7ydwq44yh84m3f9hkl7jizfrlk0w4gz67d1")))) + (build-system emacs-build-system) + (home-page "https://github.com/cask/shut-up") + (synopsis "Silence Emacs") + (description "This package silences most output of Emacs when running an +Emacs shell script.") + (license license:expat))) + +(define-public emacs-undercover + (package + (name "emacs-undercover") + (version "0.6.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/sviridov/undercover.el/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0f48fi0xnbsqs382rgh85m9mq1wdnr0yib7as9xhwzvq0hsr5m0a")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-shut-up" ,emacs-shut-up))) + (home-page "https://github.com/sviridov/undercover.el") + (synopsis "Test coverage library for Emacs Lisp") + (description + "Undercover is a test coverage library for software written in Emacs +Lisp.") + (license license:expat))) + +(define-public emacs-paren-face + (package + (name "emacs-paren-face") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/tarsius/paren-face/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0y4qrhxa9332vsvr999jg7qj1ymnfgwpf591yi4a4jgg90pm7qnn")))) + (build-system emacs-build-system) + (home-page "https://github.com/tarsius/paren-face") + (synopsis "Face for parentheses in lisp modes") + (description + "This library defines a face named @code{parenthesis} used just for +parentheses. The intended purpose of this face is to make parentheses less +visible in Lisp code by dimming them. Lispers probably don't need to be +constantly made aware of the existence of the parentheses. Dimming them might +be even more useful for people new to lisp who have not yet learned to +subconsciously blend out the parentheses.") + (license license:gpl3+))) + +(define-public emacs-page-break-lines + (package + (name "emacs-page-break-lines") + (version "0.11") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/purcell/page-break-lines/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1zzhziq5kbrm9rxk30kx2glz455fp1blqxg8cpcf6l8xl3w8z4pg")))) + (build-system emacs-build-system) + (home-page "https://github.com/purcell/page-break-lines") + (synopsis "Display page breaks as tidy horizontal lines") + (description + "This library provides a global mode which displays form feed characters +as horizontal rules.") + (license license:gpl3+))) + +(define-public emacs-simple-httpd + (package + (name "emacs-simple-httpd") + (version "1.4.6") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/skeeto/emacs-web-server/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "01r7h3imnj4qx1m53a2wjafvbylcyz5f9r2rg2cs7ky3chlg220r")))) + (build-system emacs-build-system) + (home-page "https://github.com/skeeto/emacs-http-server") + (synopsis "HTTP server in pure Emacs Lisp") + (description + "This package provides a simple HTTP server written in Emacs Lisp to +serve files and directory listings.") + (license license:unlicense))) + +(define-public emacs-skewer-mode + (package + (name "emacs-skewer-mode") + (version "1.6.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/skeeto/skewer-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "07jpz374j0j964szy3zznrkyja2kpdl3xa87wh7349mzxivqxdx0")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-simple-httpd" ,emacs-simple-httpd) + ("emacs-js2-mode" ,emacs-js2-mode))) + (arguments '(#:include '("\\.el$" "\\.js$" "\\.html$"))) + (home-page "https://github.com/skeeto/skewer-mode") + (synopsis "Live web development in Emacs") + (description + "Skewer-mode provides live interaction with JavaScript, CSS, and HTML in +a web browser. Expressions are sent on-the-fly from an editing buffer to be +evaluated in the browser, just like Emacs does with an inferior Lisp process +in Lisp modes.") + (license license:unlicense))) + +(define-public emacs-string-inflection + (package + (name "emacs-string-inflection") + (version "1.0.6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/akicho8/string-inflection") + (commit "a150e7bdda60b7824d3a936750ce23f73b0e4edd"))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1k0sm552iawi49v4zis6dbb81d1rzgky9v0dpv7nj31gnb7bmy7k")))) + (build-system emacs-build-system) + (native-inputs + `(("ert-runner" ,emacs-ert-runner))) + (arguments + `(#:tests? #t + #:test-command '("ert-runner"))) + (home-page "https://github.com/akicho8/string-inflection") + (synopsis "Convert symbol names between different naming conventions") + (description + "This Emacs package provides convenient methods for manipulating the +naming style of a symbol. It supports different naming conventions such as: + +@enumerate +@item camel case +@item Pascal case +@item all upper case +@item lower case separated by underscore +@item etc... +@end enumerate\n") + (license license:gpl2+))) + +(define-public emacs-stripe-buffer + (package + (name "emacs-stripe-buffer") + (version "0.2.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/sabof/stripe-buffer/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1p515dq7raly5hw94kiwm3vzsfih0d8af622q4ipvvljsm98aiik")))) + (build-system emacs-build-system) + (home-page "https://github.com/sabof/stripe-buffer/") + (synopsis "Add stripes to list buffers") + (description + "This Emacs package adds faces to add stripes to list buffers and org +tables.") + (license license:gpl2+))) + +(define-public emacs-rich-minority + (package + (name "emacs-rich-minority") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Malabarba/rich-minority/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1l0cb0q7kyi88nwfqd542psnkgwnjklpzc5rx32gzd3lkwkrbr8v")))) + (build-system emacs-build-system) + (home-page "https://github.com/Malabarba/rich-minority") + (synopsis "Clean-up and beautify the list of minor modes") + (description + "This Emacs package hides and/or highlights minor modes in the +mode-line.") + (license license:gpl2+))) + +(define-public emacs-robe + (package + (name "emacs-robe") + (version "0.8.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/dgutov/robe/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1vp45y99fwj88z04ah4yppz4z568qcib646az6m9az5ar0f203br")))) + (build-system emacs-build-system) + (arguments + '(#:include (cons "^lib\\/" %default-include))) + (propagated-inputs + `(("emacs-inf-ruby" ,emacs-inf-ruby))) + (home-page "https://github.com/dgutov/robe") + (synopsis "Ruby code assistance tool for Emacs") + (description + "Robe can provide information on loaded classes and modules in Ruby code, +as well as where methods are defined. This allows the user to jump to method +definitions, modules and classes, display method documentation and provide +method and constant name completion.") + (license license:gpl3+))) + +(define-public emacs-rspec + (package + (name "emacs-rspec") + (version "1.11") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/pezra/rspec-mode/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1j0a7ms5516nlg60qfyn730pfxys6acm0rgyxh5xfkpi6jafgpvw")))) + (build-system emacs-build-system) + (home-page "https://github.com/pezra/rspec-mode") + (synopsis "Provides a rspec mode for working with RSpec") + (description + "The Emacs RSpec mode provides keybindings for Ruby source files, e.g. to +verify the spec associated with the current buffer, or entire project, as well +as moving between the spec files, and coresponding code files. + +Also included are keybindings for spec files and Dired buffers, as well as +snippets for yasnippet.") + (license license:gpl3+))) + +(define-public emacs-smart-mode-line + (package + (name "emacs-smart-mode-line") + (version "2.12.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Malabarba/smart-mode-line/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1hn8s6laijmg7w1bgwdfrki6h9vxkbgr8rmmssvd5yqyad5w2sba")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-rich-minority" ,emacs-rich-minority))) + (home-page "https://github.com/Malabarba/smart-mode-line") + (synopsis "Color-coded smart mode-line") + (description + "Smart Mode Line is a mode-line theme for Emacs. It aims to be easy to +read from small to large monitors by using colors, a prefix feature, and smart +truncation.") + (license license:gpl2+))) + +(define-public emacs-sr-speedbar + (let ((commit "77a83fb50f763a465c021eca7343243f465b4a47") + (revision "0")) + (package + (name "emacs-sr-speedbar") + (version (git-version "20161025" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacsorphanage/sr-speedbar.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0sd12555hk7z721y00kv3crdybvcn1i08wmd148z5imayzibj153")))) + (build-system emacs-build-system) + (home-page "https://www.emacswiki.org/emacs/SrSpeedbar") + (synopsis "Same frame Emacs @code{speedbar}") + (description + "This Emacs package allows you to show @code{M-x speedbar} in the +same frame (in an extra window). You can customize the initial width of +the speedbar window.") + (license license:gpl3+)))) + +(define-public emacs-shell-switcher + (package + (name "emacs-shell-switcher") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/DamienCassou/shell-switcher" + "/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1c23mfkdqz2g9rixd9smm323vzlvhzz3ng34ambcqjfq309qb2nz")))) + (build-system emacs-build-system) + (home-page "https://github.com/DamienCassou/shell-switcher") + (synopsis "Provide fast switching between shell buffers") + (description + "This package provides commands to quickly switch between shell buffers.") + (license license:gpl3+))) + +(define-public emacs-ob-ipython + (package + (name "emacs-ob-ipython") + (version "20150704.8807064693") + (source (origin + (method git-fetch) + (uri (git-reference + (commit "880706469338ab59b5bb7dbe8460016f89755364") + (url "https://github.com/gregsexton/ob-ipython.git"))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1scf25snbds9ymagpny30ijbsg479r3nm0ih01dy4m9d0g7qryb7")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-f" ,emacs-f))) + (home-page "http://www.gregsexton.org") + (synopsis "Org-Babel functions for IPython evaluation") + (description "This package adds support to Org-Babel for evaluating Python +source code using IPython.") + (license license:gpl3+))) + +(define-public emacs-debbugs + (package + (name "emacs-debbugs") + (version "0.16") + (source (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/debbugs-" + version ".tar")) + (sha256 + (base32 + "0y3bq803c7820h15g66d1648skxfhlfa2v6vincj6xk5ssp44s9p")))) + (build-system emacs-build-system) + (arguments '(#:include '("\\.el$" "\\.wsdl$" "\\.info$"))) + (propagated-inputs + `(("emacs-async" ,emacs-async))) + (home-page "https://elpa.gnu.org/packages/debbugs.html") + (synopsis "Access the Debbugs bug tracker in Emacs") + (description + "This package lets you access the @uref{http://bugs.gnu.org,GNU Bug +Tracker} from within Emacs. + +For instance, it defines the command @code{M-x debbugs-gnu} for listing bugs, +and the command @code{M-x debbugs-gnu-search} for bug searching. If you +prefer the listing of bugs as TODO items of @code{org-mode}, you could use +@code{M-x debbugs-org} and related commands. + +A minor mode @code{debbugs-browse-mode} let you browse URLs to the GNU Bug +Tracker as well as bug identifiers prepared for @code{bug-reference-mode}.") + (license license:gpl3+))) + +(define-public emacs-ert-expectations + (package + (name "emacs-ert-expectations") + (version "0.2") + (source + (origin + (method url-fetch) + (uri "https://www.emacswiki.org/emacs/download/ert-expectations.el") + (sha256 + (base32 + "0cwy3ilsid90abzzjb7ha2blq9kmv3gfp3icwwfcz6qczgirq6g7")))) + (build-system emacs-build-system) + (home-page "https://www.emacswiki.org/emacs/ert-expectations.el") + (synopsis "Simple unit test framework for Emacs Lisp") + (description "@code{emacs-ert-expectations} is a simple unit test +framework for Emacs Lisp to be used with @code{ert}.") + (license license:gpl3+))) + +(define-public emacs-deferred + (package + (name "emacs-deferred") + (version "0.5.1") + (home-page "https://github.com/kiwanami/emacs-deferred") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit (string-append "v" version)))) + (sha256 + (base32 + "0xy9zb6wwkgwhcxdnslqk52bq3z24chgk6prqi4ks0qcf2bwyh5h")) + (file-name (string-append name "-" version)))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'set-shell + ;; Setting the SHELL environment variable is required for the tests + ;; to find sh. + (lambda _ + (setenv "SHELL" (which "sh")) + #t)) + (add-before 'check 'fix-makefile + (lambda _ + (substitute* "Makefile" + (("\\$\\(CASK\\) exec ") "")) + #t))) + #:tests? #t + #:test-command '("make" "test"))) + (native-inputs + `(("emacs-ert-expectations" ,emacs-ert-expectations) + ("emacs-undercover" ,emacs-undercover) + ("ert-runner" ,emacs-ert-runner))) + (synopsis "Simple asynchronous functions for Emacs Lisp") + (description + "The @code{deferred.el} library provides support for asynchronous tasks. +The API is almost the same as that of +@uref{https://github.com/cho45/jsdeferred, JSDeferred}, a JavaScript library +for asynchronous tasks.") + (license license:gpl3+))) + +(define-public emacs-butler + (package + (name "emacs-butler") + (version "0.2.4") + (home-page "https://github.com/AshtonKem/Butler") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit version))) + (sha256 + (base32 + "1pii9dw4skq7nr4na6qxqasl36av8cwjp71bf1fgppqpcd9z8skj")) + (file-name (string-append name "-" version)))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-deferred" ,emacs-deferred))) + (synopsis "Emacs client for Jenkins") + (description + "Butler provides an interface to connect to Jenkins continuous +integration servers. Users can specify a list of server in the +@code{butler-server-list} variable and then use @code{M-x butler-status} to +view the build status of those servers' build jobs, and possibly to trigger +build jobs.") + (license license:gpl3+))) + +(define-public emacs-company + (package + (name "emacs-company") + (version "0.9.7") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/company-mode/company-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "19flv38f2qhxda8lbk2ckywvibd72vbzmn4hchqz6d8acsknh4sb")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'fix-bin-dir + (lambda _ + ;; The company-files-candidates-normal-root test looks + ;; for the /bin directory, but the build environment has + ;; no /bin directory. Modify the test to look for the + ;; /tmp directory. + (substitute* "test/files-tests.el" + (("/bin/") "/tmp/")) + #t))) + #:tests? #t + #:test-command '("make" "test-batch"))) + (home-page "http://company-mode.github.io/") + (synopsis "Modular text completion framework") + (description + "Company is a modular completion mechanism. Modules for retrieving +completion candidates are called back-ends, modules for displaying them are +front-ends. Company comes with many back-ends, e.g. @code{company-elisp}. +These are distributed in separate files and can be used individually.") + (license license:gpl3+))) + +(define-public emacs-irony-mode + (package + (name "emacs-irony-mode") + (version "1.2.0") + (home-page "https://github.com/Sarcasm/irony-mode") + (source (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit (string-append "v" version)))) + (sha256 + (base32 + "0nhjrnlmss535jbshjjd30vydbr8py21vkx4p294w6d8vg2rssf8")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (inputs `(("server" ,emacs-irony-mode-server))) + (arguments `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs #:allow-other-keys) + (chmod "irony.el" #o644) + (emacs-substitute-variables "irony.el" + ("irony-server-install-prefix" + (assoc-ref inputs "server"))) + #t))))) + (synopsis "C/C++/ObjC Code completion and syntax checks for Emacs") + (description "Irony-mode provides Clang-assisted syntax checking and +completion for C, C++, and ObjC in GNU Emacs. Using @code{libclang} it can +provide syntax checking and autocompletion on compiler level which is very +resistent against false positives. It also integrates well with other +packages like @code{eldoc-mode} and especially @code{company-mode} as +described on the homepage.") + (license license:gpl3+))) + +(define-public emacs-irony-mode-server + (package (inherit emacs-irony-mode) + (name "emacs-irony-mode-server") + (inputs + `(("clang" ,clang))) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (invoke "cmake" + "server" + (string-append "-DCMAKE_INSTALL_PREFIX=" out)) #t)))))) + (build-system cmake-build-system) + (synopsis "Server for the Emacs @dfn{irony mode}"))) + +(define-public emacs-company-irony + (package + (name "emacs-company-irony") + (version "1.1.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Sarcasm/company-irony.git") + (commit (string-append "v" version)))) + (sha256 (base32 + "1qgyam2vyjw90kpxns5cd6bq3qiqjhzpwrlvmi18vyb69qcgqd8a")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (inputs + `(("emacs-irony-mode" ,emacs-irony-mode) + ("emacs-company" ,emacs-company))) + (synopsis "C++ completion backend for Company using irony-mode") + (description "This backend for company-mode allows for C++ code completion +with irony-mode using clang-tooling.") + (home-page "https://github.com/Sarcasm/company-irony") + (license license:gpl3+))) + +(define-public emacs-flycheck-irony + (package + (name "emacs-flycheck-irony") + (version "0.1.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Sarcasm/flycheck-irony.git") + (commit (string-append "v" version)))) + (sha256 + (base32 "0qa5a8wzvzxwqql92ibc9s43k8sj3vwn7skz9hfr8av0skkhx996")) + (file-name (string-append name "-" version)))) + (build-system emacs-build-system) + (inputs + `(("irony-mode" ,emacs-irony-mode) + ("flycheck-mode" ,emacs-flycheck) + ("emacs-company" ,emacs-company))) + (synopsis "Live syntax checking frontend for Flycheck using irony-mode") + (description "This package provides a frontend for Flycheck that lets +irony-mode do the syntax checking.") + (home-page "https://github.com/Sarcasm/flycheck-irony") + (license license:gpl3+))) + +(define-public emacs-irony-eldoc + (package + (name "emacs-irony-eldoc") + (version (package-version emacs-irony-mode)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ikirill/irony-eldoc.git") + (commit "0df5831eaae264a25422b061eb2792aadde8b3f2"))) + (sha256 (base32 "1l5qpr66v1l12fb50yh73grb2rr85xxmbj19mm33b5rdrq2bqmmd")) + (file-name (string-append name "-" version)))) + (build-system emacs-build-system) + (inputs + `(("irony-mode" ,emacs-irony-mode))) + (synopsis "Eldoc integration for irony-mode") + (description "Irony-eldoc is an eldoc extension that shows documentation +for the current function or variable in the minibuffer.") + (home-page "https://github.com/ikirill/irony-eldoc") + (license license:gpl3+))) + +(define-public emacs-company-quickhelp + (package + (name "emacs-company-quickhelp") + (version "2.3.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/expez/company-quickhelp/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0xrn2z1dgk5gmkmp2jkn9g83ckk39lqp5pyyv8rl7f6gqvib3qh0")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-pos-tip" ,emacs-pos-tip) + ("emacs-company" ,emacs-company))) + (home-page "https://github.com/expez/company-quickhelp") + (synopsis "Popup documentation for completion candidates") + (description "@code{company-quickhelp} shows documentation for the +completion candidate when using the Company text completion framework.") + (license license:gpl3+))) + +(define-public emacs-multiple-cursors + (package + (name "emacs-multiple-cursors") + (version "1.4.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/magnars/multiple-cursors.el/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0hihihlvcvzayg5fnqzcg45fhvlmq6xlq58syy00rjwbry9w389k")))) + (build-system emacs-build-system) + (home-page "https://github.com/magnars/multiple-cursors.el") + (synopsis "Multiple cursors for Emacs") + (description + "This package adds support to Emacs for editing text with multiple +simultaneous cursors.") + (license license:gpl3+))) + +(define-public emacs-typo + (package + (name "emacs-typo") + (version "1.1") + (home-page "https://github.com/jorgenschaefer/typoel") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit (string-append "v" version)))) + (sha256 + (base32 + "1jhd4grch5iz12gyxwfbsgh4dmz5hj4bg4gnvphccg8dsnni05k2")) + (file-name (string-append name "-" version)))) + (build-system emacs-build-system) + (synopsis "Minor mode for typographic editing") + (description + "This package provides two Emacs modes, @code{typo-mode} and +@code{typo-global-mode}. These modes automatically insert Unicode characters +for quotation marks, dashes, and ellipses. For example, typing @kbd{\"} +automatically inserts a Unicode opening or closing quotation mark, depending +on context.") + (license license:gpl3+))) + +(define-public emacs-scheme-complete + (let ((commit "9b5cf224bf2a5994bc6d5b152ff487517f1a9bb5")) + (package + (name "emacs-scheme-complete") + (version (string-append "20151223." (string-take commit 8))) + (source + (origin + (file-name (string-append name "-" version)) + (method git-fetch) + (uri (git-reference + (url "https://github.com/ashinn/scheme-complete.git") + (commit commit))) + (sha256 + (base32 + "141wn9l0m33w0g3dqmx8nxbfdny1r5xbr6ak61rsz21bk0qafs7x")) + (patches + (search-patches "emacs-scheme-complete-scheme-r5rs-info.patch")))) + (build-system emacs-build-system) + (home-page "https://github.com/ashinn/scheme-complete") + (synopsis "Smart tab completion for Scheme in Emacs") + (description + "This file provides a single function, @code{scheme-smart-complete}, +which you can use for intelligent, context-sensitive completion for any Scheme +implementation in Emacs. To use it just load this file and bind that function +to a key in your preferred mode.") + (license license:public-domain)))) + +(define-public emacs-scel + (let ((version "20170629") + (revision "1") + (commit "aeea3ad4be9306d14c3a734a4ff54fee10ac135b")) + (package + (name "emacs-scel") + (version (git-version version revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/supercollider/scel.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0jvmzs1lsjyndqshhii2y4mnr3wghai26i3p75453zrpxpg0zvvw")))) + (build-system emacs-build-system) + (arguments + `(#:modules ((guix build emacs-build-system) + ((guix build cmake-build-system) #:prefix cmake:) + (guix build utils)) + #:imported-modules (,@%emacs-build-system-modules + (guix build cmake-build-system)) + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key outputs #:allow-other-keys) + (substitute* "el/CMakeLists.txt" + (("share/emacs/site-lisp/SuperCollider") + (string-append + "share/emacs/site-lisp/guix.d/scel-" ,version))) + ((assoc-ref cmake:%standard-phases 'configure) + #:outputs outputs + #:configure-flags '("-DSC_EL_BYTECOMPILE=OFF")))) + (add-after 'set-emacs-load-path 'add-el-dir-to-emacs-load-path + (lambda _ + (setenv "EMACSLOADPATH" + (string-append (getcwd) "/el:" (getenv "EMACSLOADPATH"))) + #t)) + (replace 'install (assoc-ref cmake:%standard-phases 'install))))) + (inputs + `(("supercollider" ,supercollider))) + (native-inputs + `(("cmake" ,cmake))) + (home-page "https://github.com/supercollider/scel") + (synopsis "SuperCollider Emacs interface") + (description "@code{emacs-scel} is an Emacs interface to SuperCollider. +SuperCollider is a platform for audio synthesis and algorithmic composition.") + (license license:gpl2+)))) + +(define-public emacs-mit-scheme-doc + (package + (name "emacs-mit-scheme-doc") + (version "20140203") + (source + (origin + (modules '((guix build utils))) + (snippet + ;; keep only file of interest + '(begin + (for-each delete-file '("dot-emacs.el" "Makefile")) + (install-file "6.945-config/mit-scheme-doc.el" ".") + (delete-file-recursively "6.945-config") + #t)) + (file-name (string-append name "-" version ".tar.bz2")) + (method url-fetch) + (uri (string-append "http://groups.csail.mit.edu/mac/users/gjs/" + "6.945/dont-panic/emacs-basic-config.tar.bz2")) + (sha256 + (base32 + "0dqidg2bd66pawqfarvwca93w5gqf9mikn1k2a2rmd9ymfjpziq1")))) + (build-system emacs-build-system) + (inputs `(("mit-scheme" ,mit-scheme))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure-doc + (lambda* (#:key inputs #:allow-other-keys) + (let* ((mit-scheme-dir (assoc-ref inputs "mit-scheme")) + (doc-dir (string-append mit-scheme-dir "/share/doc/" + "mit-scheme-" + ,(package-version mit-scheme)))) + (substitute* "mit-scheme-doc.el" + (("http://www\\.gnu\\.org/software/mit-scheme/documentation/mit-scheme-ref/") + (string-append "file:" doc-dir "/mit-scheme-ref/"))))))))) + (home-page "http://groups.csail.mit.edu/mac/users/gjs/6.945/dont-panic/") + (synopsis "MIT-Scheme documentation lookup for Emacs") + (description + "This package provides a set of Emacs functions to search definitions of +identifiers in the MIT-Scheme documentation.") + (license license:gpl2+))) + +(define-public emacs-constants + (package + (name "emacs-constants") + (version "2.6") + (home-page "https://staff.fnwi.uva.nl/c.dominik/Tools/constants") + (source + (origin + (file-name (string-append name "-" version ".tar.gz")) + (method url-fetch) + (uri (string-append "https://github.com/fedeinthemix/emacs-constants" + "/archive/v" version ".tar.gz")) + (sha256 + (base32 + "0pnrpmmxq8mh5h2hbrp5vcym0j0fh6dv3s7c5ccn18wllhzg9g7n")))) + (build-system emacs-build-system) + (synopsis "Enter definition of constants into an Emacs buffer") + (description + "This package provides functions for inserting the definition of natural +constants and units into an Emacs buffer.") + (license license:gpl2+))) + +(define-public emacs-tagedit + (package + (name "emacs-tagedit") + (version "1.4.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/magnars/tagedit/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1apfnann4qklfdsmdi7icjsj18x7gwx8d83iqr4z25clszz95xfq")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-s" ,emacs-s) + ("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/magnars/tagedit") + (synopsis "Some paredit-like features for html-mode") + (description + "This package provides a collection of paredit-like functions for editing +in @code{html-mode}.") + (license license:gpl3+))) + +(define-public emacs-slime + (package + (name "emacs-slime") + (version "2.22") + (source + (origin + (file-name (string-append name "-" version ".tar.gz")) + (method url-fetch) + (uri (string-append + "https://github.com/slime/slime/archive/v" + version ".tar.gz")) + (sha256 + (base32 + "07vaib1n4zyh5yy30gdpq0bc5cv6w84piml5b3mfc9ibjhaykkms")))) + (build-system emacs-build-system) + (native-inputs + `(("texinfo" ,texinfo))) + (arguments + `(#:include '("\\.el$" "\\.lisp$" "\\.asd$" "contrib") + #:exclude '("^slime-tests.el" "^contrib/test/" + "^contrib/Makefile$" "^contrib/README.md$") + #:phases + (modify-phases %standard-phases + (add-before 'install 'configure + (lambda* _ + (emacs-substitute-variables "slime.el" + ("inferior-lisp-program" "sbcl")) + #t)) + (add-before 'install 'install-doc + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (info-dir (string-append out "/share/info")) + (doc-dir (string-append out "/share/doc/" + ,name "-" ,version)) + (doc-files '("doc/slime-refcard.pdf" + "README.md" "NEWS" "PROBLEMS" + "CONTRIBUTING.md"))) + (with-directory-excursion "doc" + (substitute* "Makefile" + (("infodir=/usr/local/info") + (string-append "infodir=" info-dir))) + (invoke "make" "html/index.html") + (invoke "make" "slime.info") + (install-file "slime.info" info-dir) + (copy-recursively "html" (string-append doc-dir "/html"))) + (for-each (lambda (f) + (install-file f doc-dir) + (delete-file f)) + doc-files) + (delete-file-recursively "doc") + #t)))))) + (home-page "https://github.com/slime/slime") + (synopsis "Superior Lisp Interaction Mode for Emacs") + (description + "SLIME extends Emacs with support for interactive programming in +Common Lisp. The features are centered around @command{slime-mode}, +an Emacs minor mode that complements the standard @command{lisp-mode}. +While lisp-mode supports editing Lisp source files, @command{slime-mode} +adds support for interacting with a running Common Lisp process +for compilation, debugging, documentation lookup, and so on.") + (license (list license:gpl2+ license:public-domain)))) + +(define-public emacs-popup + (package + (name "emacs-popup") + (version "0.5.3") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/auto-complete/popup-el/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1yrgfj8y69xmcb6kwgplhq68ndm9410qwh7sd2knnd1gchpphdc0")))) + (build-system emacs-build-system) + (home-page "https://github.com/auto-complete/popup-el") + (synopsis "Visual Popup User Interface for Emacs") + (description + "Popup.el is a visual popup user interface library for Emacs. +This provides a basic API and common UI widgets such as popup tooltips +and popup menus.") + (license license:gpl3+))) + +(define-public emacs-puppet-mode + (let ((commit "b3ed5057166a4f49dfa9be638523a348b55a2fd2") + (revision "1")) + (package + (name "emacs-puppet-mode") + ;; The last release, 0.3 was several years ago, and there have been many + ;; commits since + (version (git-version "0.3" revision commit)) + (source + (origin + (method url-fetch) + (uri (string-append + "https://raw.githubusercontent.com/voxpupuli/puppet-mode/" + commit "/puppet-mode.el")) + (sha256 + (base32 + "1indycxawsl0p2aqqg754f6735q3cmah9vd886rpn0ncc3ipi1xm")))) + (build-system emacs-build-system) + (home-page "https://github.com/voxpupuli/puppet-mode") + (synopsis "Emacs major mode for the Puppet configuration language") + (description + "This package provides support for the Puppet configuration language, +including syntax highlighting, indentation of expressions and statements, +linting of manifests and integration with Puppet Debugger.") + ;; Also incorporates work covered by the Apache License, Version 2.0 + (license license:gpl3+)))) + +(define-public emacs-god-mode + (let ((commit "6cf0807b6555eb6fcf8387a4e3b667071ef38964") + (revision "1")) + (package + (name "emacs-god-mode") + (version (string-append "20151005.925." + revision "-" (string-take commit 9))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/chrisdone/god-mode.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1am415k4xxcva6y3vbvyvknzc6bma49pq3p85zmpjsdmsp18qdix")))) + (build-system emacs-build-system) + (home-page "https://github.com/chrisdone/god-mode") + (synopsis "Minor mode for entering commands without modifier keys") + (description + "This package provides a global minor mode for entering Emacs commands +without modifier keys. It's similar to Vim's separation of commands and +insertion mode. When enabled all keys are implicitly prefixed with +@samp{C-} (among other helpful shortcuts).") + (license license:gpl3+)))) + +(define-public emacs-jinja2-mode + (package + (name "emacs-jinja2-mode") + (version "0.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/paradoxxxzero/jinja2-mode/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0cgxjab1kla2zc2fj7bzib6i7snp08zshandmp9kqcm85l262xpn")))) + (build-system emacs-build-system) + (home-page "https://github.com/paradoxxxzero/jinja2-mode") + (synopsis "Major mode for jinja2") + (description + "Emacs major mode for jinja2 with: syntax highlighting, +sgml/html integration, and indentation (working with sgml).") + (license license:gpl3+))) + +(define-public emacs-rfcview + (package + (name "emacs-rfcview") + (version "0.13") + (home-page "http://www.loveshack.ukfsn.org/emacs") + (source (origin + (method url-fetch) + (uri "http://www.loveshack.ukfsn.org/emacs/rfcview.el") + (sha256 + (base32 + "0ympj5rxig383zl2jf0pzdsa80nnq0dpvjiriq0ivfi98fj7kxbz")))) + (build-system emacs-build-system) + (synopsis "Prettify Request for Comments (RFC) documents") + (description "The Internet Engineering Task Force (IETF) and the Internet +Society (ISOC) publish various Internet-related protocols and specifications +as \"Request for Comments\" (RFC) documents and Internet Standard (STD) +documents. RFCs and STDs are published in a simple text form. This package +provides an Emacs major mode, rfcview-mode, which makes it more pleasant to +read these documents in Emacs. It prettifies the text and adds +hyperlinks/menus for easier navigation. It also provides functions for +browsing the index of RFC documents and fetching them from remote servers or +local directories.") + (license license:gpl3+))) + +(define-public emacs-ffap-rfc-space + (package + (name "emacs-ffap-rfc-space") + (version "12") + (home-page "http://user42.tuxfamily.org/ffap-rfc-space/index.html") + (source (origin + (method url-fetch) + (uri "http://download.tuxfamily.org/user42/ffap-rfc-space.el") + (sha256 + (base32 + "1iv61dv57a73mdps7rn6zmgz7nqh14v0ninidyrasy45b1nv6gck")))) + (build-system emacs-build-system) + (synopsis "Make ffap recognize an RFC with a space before its number") + (description "The Internet Engineering Task Force (IETF) and the +Internet Society (ISOC) publish various Internet-related protocols and +specifications as \"Request for Comments\" (RFC) documents. The +built-in Emacs module \"ffap\" (Find File at Point) has the ability to +recognize names at point which look like \"RFC1234\" and \"RFC-1234\" +and load the appropriate RFC from a remote server. However, it fails +to recognize a name like \"RFC 1234\". This package enhances ffap so +that it correctly finds RFCs even when a space appears before the +number.") + (license license:gpl3+))) + +(define-public emacs-org-bullets + (package + (name "emacs-org-bullets") + (version "0.2.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/sabof/org-bullets/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1dyxvpb73vj80v8br2q9rf255hfphrgaw91fbvwdcd735np9pcnh")))) + (build-system emacs-build-system) + (home-page "https://github.com/sabof/org-bullets") + (synopsis "Show bullets in org-mode as UTF-8 characters") + (description + "This package provides an Emacs minor mode causing bullets in +@code{org-mode} to be rendered as UTF-8 characters.") + (license license:gpl3+))) + +(define-public emacs-org-pomodoro + (package + (name "emacs-org-pomodoro") + (version "2.1.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/lolownia/org-pomodoro/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1jalsggw3q5kvj353f84x4nl04a5vmq07h75ggppy1627lb31zm4")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-alert" ,emacs-alert))) + (home-page "https://github.com/lolownia/org-pomodoro") + (synopsis "Pomodoro technique for org-mode") + (description "@code{emacs-org-pomodoro} adds very basic support for +Pomodoro technique in Emacs org-mode. + +Run @code{M-x org-pomodoro} for the task at point or select one of the +last tasks that you clocked time for. Each clocked-in pomodoro starts +a timer of 25 minutes and after each pomodoro a break timer of 5 +minutes is started automatically. Every 4 breaks a long break is +started with 20 minutes. All values are customizable.") + (license license:gpl3+))) + +(define-public emacs-org-trello + (package + (name "emacs-org-trello") + (version "0.8.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/org-trello/org-trello/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0549mnf5cgwn8b8jbl38fljbaxmh1605sv9j8f3lsa95jhs1zpa0")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-deferred" ,emacs-deferred) + ("emacs-f" ,emacs-f) + ("emacs-helm" ,emacs-helm) + ("emacs-request" ,emacs-request) + ("emacs-s" ,emacs-s))) + (home-page "https://org-trello.github.io") + (synopsis "Emacs minor mode for interacting with Trello") + (description "This package provides an Emacs minor mode to extend +@code{org-mode} with Trello abilities. Trello is an online project +organizer.") + (license license:gpl3+))) + +(define-public emacs-atom-one-dark-theme + (let ((commit "1f1185bf667a38d3d0d180ce85fd4c131818aae2") + (revision "0")) + (package + (name "emacs-atom-one-dark-theme") + (version (git-version "0.4.0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jonathanchu/atom-one-dark-theme.git") + (commit commit))) + (sha256 + (base32 + "1alma16hg3mfjly8a9s3mrswkjjx4lrpdnf43869hn2ibkn7zx9z")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (home-page "https://github.com/jonathanchu/atom-one-dark-theme") + (synopsis "Atom One Dark color theme for Emacs") + (description "An Emacs port of the Atom One Dark theme from Atom.io.") + (license license:gpl3+)))) + +(define-public emacs-zenburn-theme + (package + (name "emacs-zenburn-theme") + (version "2.6") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/bbatsov/zenburn-emacs/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0qc9d1rwq55yzh8shbppyd6izy1grpyr8kqh5zdgm7c5jccngpr4")))) + (build-system emacs-build-system) + (home-page "https://github.com/bbatsov/zenburn-emacs") + (synopsis "Low contrast color theme for Emacs") + (description + "Zenburn theme is a port of the popular Vim Zenburn theme for Emacs. +It is built on top of the custom theme support in Emacs 24 or later.") + (license license:gpl3+))) + +(define-public emacs-solarized-theme + (package + (name "emacs-solarized-theme") + (version "1.2.2") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/bbatsov/solarized-emacs/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1ha3slc6d9wi9ilkhmwrzkvf308n6ph7b0k69pk369s9304awxzx")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/bbatsov/solarized-emacs") + (synopsis "Port of the Solarized theme for Emacs") + (description + "Solarized for Emacs is a port of the Solarized theme for Vim. This +package provides a light and a dark variant.") + (license license:gpl3+))) + +(define-public emacs-ahungry-theme + (package + (name "emacs-ahungry-theme") + (version "1.10.0") + (source + (origin (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/ahungry-theme-" + version ".tar")) + (sha256 + (base32 + "14q5yw56n82qph09bk7wmj5b1snhh9w0nk5s1l7yn9ldg71xq6pm")))) + (build-system emacs-build-system) + (home-page "https://github.com/ahungry/color-theme-ahungry") + (synopsis "Ahungry color theme for Emacs") + (description "Ahungry theme for Emacs provides bright and bold colors. +If you load it from a terminal, you will be able to make use of the +transparent background. If you load it from a GUI, it will default to a +dark background.") + (license license:gpl3+))) + +(define-public emacs-2048-game + (package + (name "emacs-2048-game") + (version "20151026.1233") + (source + (origin + (method url-fetch) + (uri (string-append "https://melpa.org/packages/2048-game-" + version ".el")) + (sha256 + (base32 + "0gy2pvz79whpavp4jmz8h9krzn7brmvv3diixi1d4w51pcdvaldd")))) + (build-system emacs-build-system) + (home-page "https://bitbucket.org/zck/2048.el") + (synopsis "Implementation of the game 2048 in Emacs Lisp") + (description + "This program is an implementation of 2048 for Emacs. +The goal of this game is to create a tile with value 2048. The size of the +board and goal value can be customized.") + (license license:gpl3+))) + +(define-public emacs-base16-theme + (package + (name "emacs-base16-theme") + (version "2.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://stable.melpa.org/packages/base16-theme-" + version ".tar")) + (sha256 + (base32 + "0z6hrwz2jlz6jbr381rcqcqvx6hss5cad352klx07rark7zccacj")))) + (build-system emacs-build-system) + (home-page "https://github.com/belak/base16-emacs") + (synopsis "Base16 color themes for Emacs") + (description + "Base16 provides carefully chosen syntax highlighting and a default set +of sixteen colors suitable for a wide range of applications. Base16 is not a +single theme but a set of guidelines with numerous implementations.") + (license license:expat))) + +(define-public emacs-smartparens + (package + (name "emacs-smartparens") + (version "1.11.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/Fuco1/smartparens/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0q5as813xs8y29i3v2rm97phd6m7xsmmw6hwbvx57gwmi8i1c409")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-markdown-mode" ,emacs-markdown-mode))) + (home-page "https://github.com/Fuco1/smartparens") + (synopsis "Paredit-like insertion, wrapping and navigation with user +defined pairs") + (description + "Smartparens is a minor mode for Emacs that deals with parens pairs +and tries to be smart about it. It started as a unification effort to +combine functionality of several existing packages in a single, +compatible and extensible way to deal with parentheses, delimiters, tags +and the like. Some of these packages include autopair, textmate, +wrap-region, electric-pair-mode, paredit and others. With the basic +features found in other packages it also brings many improvements as +well as completely new features.") + (license license:gpl3+))) + +(define-public emacs-highlight-symbol + (package + (name "emacs-highlight-symbol") + (version "1.3") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/nschum/highlight-symbol.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1n7k1qns0fn0jsyc0hrjac5nzk21xw48yc30vyrhwvc51h0b9g90")))) + (build-system emacs-build-system) + (home-page "https://nschum.de/src/emacs/highlight-symbol") + (synopsis "Automatic and manual symbol highlighting for Emacs") + (description + "Use @code{highlight-symbol} to toggle highlighting of the symbol at +point throughout the current buffer. Use @code{highlight-symbol-mode} to keep +the symbol at point highlighted. + +The functions @code{highlight-symbol-next}, @code{highlight-symbol-prev}, +@code{highlight-symbol-next-in-defun} and +@code{highlight-symbol-prev-in-defun} allow for cycling through the locations +of any symbol at point. Use @code{highlight-symbol-nav-mode} to enable key +bindings @code{M-p} and @code{M-p} for navigation. When +@code{highlight-symbol-on-navigation-p} is set, highlighting is triggered +regardless of @code{highlight-symbol-idle-delay}. + +@code{highlight-symbol-query-replace} can be used to replace the symbol. ") + (license license:gpl2+))) + +(define-public emacs-hl-todo + (package + (name "emacs-hl-todo") + (version "1.9.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://raw.githubusercontent.com/tarsius/hl-todo/" + version "/hl-todo.el")) + (file-name (string-append "hl-todo-" version ".el")) + (sha256 + (base32 + "0728givzh7xv5i88ac9if8byj1p8bilrj1fnizca10s0rv100hdr")))) + (build-system emacs-build-system) + (home-page "https://github.com/tarsius/hl-todo") + (synopsis "Emacs mode to highlight TODO and similar keywords") + (description + "This package provides an Emacs mode to highlight TODO and similar +keywords in comments and strings. This package also provides commands for +moving to the next or previous keyword and to invoke @code{occur} with a +regexp that matches all known keywords.") + (license license:gpl3+))) + +(define-public emacs-perspective + (package + (name "emacs-perspective") + (version "1.12") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/nex3/perspective-el/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "078ahh0kmhdylq5ib9c81c76kz1n02xwc83pm729d00i84ibviic")))) + (build-system emacs-build-system) + (home-page "https://github.com/nex3/perspective-el") + (synopsis "Switch between named \"perspectives\"") + (description + "This package provides tagged workspaces in Emacs, similar to workspaces in +windows managers such as Awesome and XMonad. @code{perspective.el} provides +multiple workspaces (or \"perspectives\") for each Emacs frame. Each +perspective is composed of a window configuration and a set of buffers. +Switching to a perspective activates its window configuration, and when in a +perspective only its buffers are available by default.") + ;; This package is released under the same license as Emacs (GPLv3+) or + ;; the Expat license. + (license license:gpl3+))) + +(define-public emacs-test-simple + (package + (name "emacs-test-simple") + (version "1.3.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/test-simple-" + version ".el")) + (sha256 + (base32 + "1yd61jc9ds95a5n09052kwc5gasy57g4lxr0jsff040brlyi9czz")))) + (build-system emacs-build-system) + (home-page "https://github.com/rocky/emacs-test-simple") + (synopsis "Simple unit test framework for Emacs Lisp") + (description + "Test Simple is a simple unit test framework for Emacs Lisp. It +alleviates the need for context macros, enclosing specifications or required +test tags. It supports both interactive and non-interactive use.") + (license license:gpl3+))) + +(define-public emacs-load-relative + (package + (name "emacs-load-relative") + (version "1.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/load-relative-" + version ".el")) + (sha256 + (base32 + "1hfxb2436jdsi9wfmsv47lkkpa5galjf5q81bqabbsv79rv59dps")))) + (build-system emacs-build-system) + (home-page "http://github.com/rocky/emacs-load-relative") + (synopsis "Emacs Lisp relative file loading related functions") + (description + "Provides functions which facilitate writing multi-file Emacs packages +and running from the source tree without having to \"install\" code or fiddle +with @{load-path}. + +The main function, @code{load-relative}, loads an Emacs Lisp file relative to +another (presumably currently running) Emacs Lisp file.") + (license license:gpl3+))) + +(define-public emacs-loc-changes + (package + (name "emacs-loc-changes") + (version "1.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/loc-changes-" + version ".el")) + (sha256 + (base32 + "1x8fn8vqasayf1rb8a6nma9n6nbvkx60krmiahyb05vl5rrsw6r3")))) + (build-system emacs-build-system) + (home-page "https://github.com/rocky/emacs-loc-changes") + (synopsis "Keeps track of positions even after buffer changes") + (description + "This Emacs package provides a mean to track important buffer positions +after buffer changes.") + (license license:gpl3+))) + +(define-public emacs-realgud + (package + (name "emacs-realgud") + (version "1.4.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/realgud-" + version ".tar")) + (sha256 + (base32 + "108wgxg7fb4byaiasgvbxv2hq7b00biq9f0mh9hy6vw4160y5w24")) + (patches + ;; Patch awaiting inclusion upstream (see: + ;; https://github.com/realgud/realgud/pull/226). + (search-patches "emacs-realgud-fix-configure-ac.patch")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:phases + (modify-phases %standard-phases + (add-after 'set-emacs-load-path 'fix-autogen-script + (lambda _ + (substitute* "autogen.sh" + (("./configure") "sh configure")))) + (add-after 'fix-autogen-script 'autogen + (lambda _ + (setenv "CONFIG_SHELL" "sh") + (invoke "sh" "autogen.sh"))) + (add-after 'fix-autogen-script 'set-home + (lambda _ + (setenv "HOME" (getenv "TMPDIR")))) + (add-before 'patch-el-files 'remove-realgud-pkg.el + (lambda _ + ;; XXX: This file is auto-generated at some point and causes + ;; substitute* to crash during the `patch-el-files' phase with: + ;; ERROR: In procedure stat: No such file or directory: + ;; "./realgud-pkg.el" + (delete-file "./realgud-pkg.el") + ;; FIXME: `patch-el-files' crashes on this file with error: + ;; unable to locate "bashdb". + (delete-file "./test/test-regexp-bashdb.el")))) + #:include (cons* ".*\\.el$" %default-include))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("emacs-test-simple" ,emacs-test-simple))) + (propagated-inputs + `(("emacs-load-relative" ,emacs-load-relative) + ("emacs-loc-changes" ,emacs-loc-changes))) + (home-page "https://github.com/realgud/realgud/") + (synopsis + "Modular front-end for interacting with external debuggers") + (description + "RealGUD is a modular, extensible GNU Emacs front-end for interacting +with external debuggers. It integrates various debuggers such as gdb, pdb, +ipdb, jdb, lldb, bashdb, zshdb, etc. and allows to visually step code in the +sources. Unlike GUD, it also supports running multiple debug sessions in +parallel.") + (license license:gpl3+))) + +(define-public emacs-request + (package + (name "emacs-request") + (version "0.3.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/tkf/emacs-request.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0wyxqbb35yqf6ci47531lk32d6fppamx9d8826kdz983vm87him7")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-deferred" ,emacs-deferred))) + (home-page "https://github.com/tkf/emacs-request") + (synopsis "Package for speaking HTTP in Emacs Lisp") + (description "This package provides a HTTP request library with multiple +backends. It supports url.el which is shipped with Emacs and the curl command +line program.") + (license license:gpl3+))) + +(define-public emacs-rudel + (package + (name "emacs-rudel") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (string-append "http://elpa.gnu.org/packages/rudel-" + version ".tar")) + (sha256 + (base32 + "0glqa68g509p0s2vcc0i8kzlddnc9brd9jqhnm5rzxz4i050cvnz")))) + (build-system emacs-build-system) + (home-page "http://rudel.sourceforge.net/") + (synopsis "Collaborative editing framework") + (description + "Rudel is a collaborative editing environment for GNU Emacs. Its purpose +is to share buffers with other users in order to edit the contents of those +buffers collaboratively. Rudel supports multiple backends to enable +communication with other collaborative editors using different protocols, +though currently Obby (for use with the Gobby editor) is the only +fully-functional one.") + (license license:gpl3+))) + +(define-public emacs-hydra + (package + (name "emacs-hydra") + (version "0.14.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/abo-abo/hydra") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0ln4z2796ycy33g5jcxkqvm7638qxy4sipsab7d2864hh700cikg")))) + (build-system emacs-build-system) + (home-page "https://github.com/abo-abo/hydra") + (synopsis "Make Emacs bindings that stick around") + (description + "This package can be used to tie related commands into a family of short +bindings with a common prefix---a Hydra. Once you summon the Hydra (through +the prefixed binding), all the heads can be called in succession with only a +short extension. Any binding that isn't the Hydra's head vanquishes the +Hydra. Note that the final binding, besides vanquishing the Hydra, will still +serve its original purpose, calling the command assigned to it. This makes +the Hydra very seamless; it's like a minor mode that disables itself +automatically.") + (license license:gpl3+))) + +(define-public emacs-ivy + (package + (name "emacs-ivy") + (version "0.10.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/abo-abo/swiper.git") + (commit version))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "14vnigqb5c3yi4q9ysw1fiwdqyqwyklqpb9wnjf81chm7s2mshnr")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'install-doc + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (info (string-append out "/share/info"))) + (with-directory-excursion "doc" + (invoke "makeinfo" "ivy.texi") + (install-file "ivy.info" info) + #t))))))) + (propagated-inputs + `(("emacs-hydra" ,emacs-hydra))) + (native-inputs + `(("texinfo" ,texinfo))) + (home-page "http://oremacs.com/swiper/") + (synopsis "Incremental vertical completion for Emacs") + (description + "This package provides @code{ivy-read} as an alternative to +@code{completing-read} and similar functions. No attempt is made to determine +the best candidate. Instead, the user can navigate candidates with +@code{ivy-next-line} and @code{ivy-previous-line}. The matching is done by +splitting the input text by spaces and re-building it into a regular +expression.") + (license license:gpl3+))) + +(define-public emacs-ivy-yasnippet + (let ((commit "32580b4fd23ebf9ca7dde96704f7d53df6e253cd") + (revision "2")) + (package + (name "emacs-ivy-yasnippet") + (version (git-version "0.1" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/mkcms/ivy-yasnippet.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1wfg6mmd5gl1qgvayyzpxlkh9s7jgn20y8l1vh1zbj1czvv51xp8")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-ivy" ,emacs-ivy) + ("emacs-yasnippet" ,emacs-yasnippet) + ("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/mkcms/ivy-yasnippet") + (synopsis "Preview @code{yasnippets} with @code{ivy}") + (description "This package allows you to select @code{yasnippet} +snippets using @code{ivy} completion. When current selection changes in the +minibuffer, the snippet contents are temporarily expanded in the buffer. To +use it, call @code{M-x ivy-yasnippet} (but make sure you have enabled +@code{yas-minor-mode} first).") + (license license:gpl3+)))) + +(define-public emacs-ivy-rich + (package + (name "emacs-ivy-rich") + (version "0.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Yevgnen/ivy-rich/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "14r3mx5rkd4wz0ls5pv5w6c7la3z9iy93d3jfind3xyg4kywy95c")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-ivy" ,emacs-ivy))) + (home-page "https://github.com/Yevgnen/ivy-rich") + (synopsis "More friendly interface for @code{ivy}") + (description + "This package extends @code{ivy} by showing more information in the +minibuffer for each candidate. It adds columns showing buffer modes, file +sizes, docstrings, etc. If @code{emacs-all-the-icons} is installed, it can +show icons as well.") + (license license:gpl3+))) + +(define-public emacs-avy + (package + (name "emacs-avy") + (version "0.4.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/abo-abo/avy/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1wdrq512h25ymzjbf2kbsdymvd2ryfwzb6bh5bc3yv7q203im796")))) + (build-system emacs-build-system) + (home-page "https://github.com/abo-abo/avy") + (synopsis "Tree-based completion for Emacs") + (description + "This package provides a generic completion method based on building a +balanced decision tree with each candidate being a leaf. To traverse the tree +from the root to a desired leaf, typically a sequence of @code{read-key} can +be used. + +In order for @code{read-key} to make sense, the tree needs to be visualized +appropriately, with a character at each branch node. So this completion +method works only for things that you can see on your screen, all at once, +such as the positions of characters, words, line beginnings, links, or +windows.") + (license license:gpl3+))) + +(define-public emacs-ace-window + (package + (name "emacs-ace-window") + (version "0.9.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/abo-abo/ace-window/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1p2sgfl5dml4zbd6ldql6lm2m9vmd236ah996ni32x254s48j5pn")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-avy" ,emacs-avy))) + (home-page "https://github.com/abo-abo/ace-window") + (synopsis "Quickly switch windows in Emacs") + (description + "@code{ace-window} is meant to replace @code{other-window}. +In fact, when there are only two windows present, @code{other-window} is +called. If there are more, each window will have its first character +highlighted. Pressing that character will switch to that window.") + (license license:gpl3+))) + +(define-public emacs-iedit + (package + (name "emacs-iedit") + (version "0.9.9.9") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/victorhge/iedit/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1hv8q6pr85ss9g3158l1fqv3m62vsq8rslsi86jicr2dcxyascr0")))) + (build-system emacs-build-system) + (home-page "http://www.emacswiki.org/emacs/Iedit") + (synopsis "Edit multiple regions in the same way simultaneously") + (description + "This package is an Emacs minor mode and allows you to edit one +occurrence of some text in a buffer (possibly narrowed) or region, and +simultaneously have other occurrences edited in the same way. + +You can also use Iedit mode as a quick way to temporarily show only the buffer +lines that match the current text being edited. This gives you the effect of +a temporary @code{keep-lines} or @code{occur}.") + (license license:gpl3+))) + +(define-public emacs-zoutline + (let ((commit "b3ee0f0e0b916838c2d2c249beba74ffdb8d5699") + (revision "0")) + (package + (name "emacs-zoutline") + (version (git-version "0.1" revision commit)) + (home-page "https://github.com/abo-abo/zoutline") + (source (origin + (method git-fetch) + (uri (git-reference (url home-page) (commit commit))) + (sha256 + (base32 + "0sd0017piw0dis6dhpq5dkqd3acisxqgipl7dj8gmc1vnswhdwr8")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (synopsis "Simple outline library") + (description + "This library provides helpers for outlines. Outlines allow users to +navigate code in a tree-like fashion.") + (license license:gpl3+)))) + +(define-public emacs-lispy + ;; Release 0.26.0 was almost 3 years ago, and there have been ~772 commits + ;; since. + (let ((commit "c2a358a7a15fcf056a5b7461a8e690b481b03b80") + (revision "0")) + (package + (name "emacs-lispy") + (version (git-version "0.26.0" revision commit)) + (home-page "https://github.com/abo-abo/lispy") + (source (origin + (method git-fetch) + (uri (git-reference (url home-page) (commit commit))) + (sha256 + (base32 + "1g6756qqx2n4cx8jac6mlwayilsiyc5rz8nrqjnywvzc75xdinjd")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-ace-window" ,emacs-ace-window) + ("emacs-iedit" ,emacs-iedit) + ("emacs-ivy" ,emacs-ivy) + ("emacs-hydra" ,emacs-hydra) + ("emacs-zoutline" ,emacs-zoutline))) + (synopsis "Modal S-expression editing") + (description + "Due to the structure of Lisp syntax it's very rare for the programmer +to want to insert characters right before \"(\" or right after \")\". Thus +unprefixed printable characters can be used to call commands when the point is +at one of these special locations. Lispy provides unprefixed keybindings for +S-expression editing when point is at the beginning or end of an +S-expression.") + (license license:gpl3+)))) + +(define-public emacs-lispyville + ;; Later versions need a more recent Evil, with an evil-define-key* + ;; supporting nil for the state. + (let ((commit "b4291857ed6a49a67c4ea77522889ce51fb171ab") + (revision "0")) + (package + (name "emacs-lispyville") + (version (git-version "0.1" revision commit)) + (home-page "https://github.com/noctuid/lispyville") + (source (origin + (method git-fetch) + (uri (git-reference (url home-page) (commit commit))) + (sha256 + (base32 + "095zibzc3naknahdrnb59g9rbljy8wz9rkc7rf8avb3wxlwvxhm3")) + (file-name (git-file-name name version)))) + (propagated-inputs + `(("emacs-evil" ,emacs-evil) + ("emacs-lispy" ,emacs-lispy))) + (build-system emacs-build-system) + (synopsis "Minor mode for integrating Evil with lispy") + (description + "LispyVille's main purpose is to provide a Lisp editing environment +suited towards Evil users. It can serve as a minimal layer on top of lispy +for better integration with Evil, but it does not require the use of lispy’s +keybinding style. The provided commands allow for editing Lisp in normal +state and will work even without lispy being enabled.") + (license license:gpl3+)))) + +(define-public emacs-clojure-mode + (package + (name "emacs-clojure-mode") + (version "5.6.1") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/clojure-emacs/clojure-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1f4k1hncy5ygh4izn7mqfp744nnisrp9ywn2njknbjxx34ai1q88")))) + (build-system emacs-build-system) + (native-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-s" ,emacs-s) + ("ert-runner" ,emacs-ert-runner))) + (arguments + `(#:tests? #t + #:test-command '("ert-runner"))) + (home-page "https://github.com/clojure-emacs/clojure-mode") + (synopsis "Major mode for Clojure code") + (description + "This Emacs package provides font-lock, indentation, navigation and basic +refactoring for the @uref{http://clojure.org, Clojure programming language}. +It is recommended to use @code{clojure-mode} with paredit or smartparens.") + (license license:gpl3+))) + +(define-public emacs-epl + (package + (name "emacs-epl") + (version "0.8") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/cask/epl/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1511n3a3f5gvaf2b4nh018by61ciyzi3y3603fzqma7p9hrckarc")))) + (build-system emacs-build-system) + (home-page "https://github.com/cask/epl") + (synopsis "Emacs Package Library") + (description + "A package management library for Emacs, based on @code{package.el}. + +The purpose of this library is to wrap all the quirks and hassle of +@code{package.el} into a sane API.") + (license license:gpl3+))) + +(define-public emacs-queue + (package + (name "emacs-queue") + (version "0.2") + (source (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/queue-" + version ".el")) + (sha256 + (base32 + "0cx2848sqnnkkr4zisvqadzxngjyhmb36mh0q3if7q19yjjhmrkb")))) + (build-system emacs-build-system) + (home-page "http://www.dr-qubit.org/tags/computing-code-emacs.html") + (synopsis "Queue data structure for Emacs") + (description + "This Emacs library provides queue data structure. These queues can be +used both as a first-in last-out (FILO) and as a first-in first-out (FIFO) +stack, i.e. elements can be added to the front or back of the queue, and can +be removed from the front. This type of data structure is sometimes called an +\"output-restricted deque\".") + (license license:gpl3+))) + +(define-public emacs-pkg-info + (package + (name "emacs-pkg-info") + (version "0.6") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/lunaryorn/pkg-info.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1gy1jks5mmm02gg1c8gcyr4f8a9s5ggzhk56gv33b9mzjqzi5rd5")))) + (build-system emacs-build-system) + (propagated-inputs `(("emacs-epl" ,emacs-epl))) + (home-page "https://github.com/lunaryorn/pkg-info.el") + (synopsis "Information about Emacs packages") + (description + "This library extracts information from the installed Emacs packages.") + (license license:gpl3+))) + +(define-public emacs-spinner + (package + (name "emacs-spinner") + (version "1.7.3") + (source (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/spinner-" + version ".el")) + (sha256 + (base32 + "19kp1mmndbmw11sgvv2ggfjl4pyf5zrsbh3871f0965pw9z8vahd")))) + (build-system emacs-build-system) + (home-page "https://github.com/Malabarba/spinner.el") + (synopsis "Emacs mode-line spinner for operations in progress") + (description + "This Emacs package adds spinners and progress-bars to the mode-line for +ongoing operations.") + (license license:gpl3+))) + +(define-public emacs-sparql-mode + (package + (name "emacs-sparql-mode") + (version "2.0.1") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/ljos/sparql-mode/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1s93mkllxnhy7fw616cnnc2danacdlarys0g3cn89drh0llh53cv")))) + (build-system emacs-build-system) + (home-page "https://github.com/ljos/sparql-mode") + (synopsis "SPARQL mode for Emacs") + (description "This package provides a major mode for Emacs that provides +syntax highlighting for SPARQL. It also provides a way to execute queries +against a SPARQL HTTP endpoint, such as is provided by Fuseki. It is also +possible to query other endpoints like DBPedia.") + (license license:gpl3+))) + +(define-public emacs-better-defaults + (package + (name "emacs-better-defaults") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/technomancy/better-defaults" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "08fg4zslzlxbvyil5g4gwvwd22fh4zsgqprs5wh9hv1rgc6757m2")))) + (build-system emacs-build-system) + (home-page "https://github.com/technomancy/better-defaults") + (synopsis "Better defaults for Emacs") + (description + "Better defaults attempts to address the most obvious deficiencies of the +Emacs default configuration in uncontroversial ways that nearly everyone can +agree upon.") + (license license:gpl3+))) + +(define-public emacs-eprime + (let ((commit "17a481af26496be91c07139a9bfc05cfe722506f")) + (package + (name "emacs-eprime") + (version (string-append "20140513-" (string-take commit 7))) + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com" + "/AndrewHynes/eprime-mode/" + commit "/eprime-mode.el")) + (file-name (string-append "eprime-" version ".el")) + (sha256 + (base32 + "0v68lggkyq7kbcr9zyi573m2g2x251xy3jadlaw8kx02l8krwq8d")))) + (build-system emacs-build-system) + (home-page "https://github.com/AndrewHynes/eprime-mode") + (synopsis "E-prime checking mode for Emacs") + (description "This package provides an E-prime checking mode for Emacs +that highlights non-conforming text. The subset of the English language called +E-Prime forbids the use of the \"to be\" form to strengthen your writing.") + (license license:gpl3+)))) + +(define-public emacs-julia-mode + ;; XXX: Upstream version remained stuck at 0.3. See + ;; <https://github.com/JuliaEditorSupport/julia-emacs/issues/46>. + (let ((commit "115d4dc8a07445301772da8376b232fa8c7168f4") + (revision "1")) + (package + (name "emacs-julia-mode") + (version (string-append "0.3-" revision "." (string-take commit 8))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/JuliaEditorSupport/julia-emacs.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1is4dcv6blslpzbjcg8l2jpxi8xj96q4cm0nxjxsyswpm8bw8ki0")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("emacs" "--batch" + "-l" "julia-mode-tests.el" + "-f" "ert-run-tests-batch-and-exit"))) + (home-page "https://github.com/JuliaEditorSupport/julia-emacs") + (synopsis "Major mode for Julia") + (description "This Emacs package provides a mode for the Julia +programming language.") + (license license:expat)))) + +(define-public emacs-smex + (package + (name "emacs-smex") + (version "3.0") + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com" + "/nonsequitur/smex/" version "/smex.el")) + (file-name (string-append "smex-" version ".el")) + (sha256 + (base32 + "0ar310zx9k5y4i1vl2rawvi712xj9gx77160860jbs691p77cxqp")))) + (build-system emacs-build-system) + (home-page "https://github.com/nonsequitur/smex/") + (synopsis "M-x interface with Ido-style fuzzy matching") + (description + "Smex is a M-x enhancement for Emacs. Built on top of Ido, it provides a +convenient interface to your recently and most frequently used commands. And +to all the other commands, too.") + (license license:gpl3+))) + +(define-public emacs-js2-mode + (package + (name "emacs-js2-mode") + (version "20180301") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/mooz/js2-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "13aghgwaqrmbf3pbifcry52kya454wnh1gbdh5805n1n6xgjm5w3")))) + (build-system emacs-build-system) + (home-page "https://github.com/mooz/js2-mode/") + (synopsis "Improved JavaScript editing mode for Emacs") + (description + "Js2-mode provides a JavaScript major mode for Emacs that is more +advanced than the built-in javascript-mode. Features include accurate syntax +highlighting using a recursive-descent parser, on-the-fly reporting of syntax +errors and strict-mode warnings, smart line-wrapping within comments and +strings, and code folding.") + (license license:gpl3+))) + +(define-public emacs-nodejs-repl + (package + (name "emacs-nodejs-repl") + (version "0.2.0") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/abicky/nodejs-repl.el" + "/archive/" version ".tar.gz")) + (sha256 + (base32 + "0hq2cqdq2668yf48g7qnkci90nhih1gnhacsgz355jnib56lhmkz")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (home-page "https://github.com/abicky/nodejs-repl.el") + (synopsis "Node.js REPL inside Emacs") + (description + "This program is derived from comint-mode and provides the following +features: + +@itemize +@item TAB completion same as Node.js REPL +@item file name completion in string +@item incremental history search +@end itemize") + (license license:gpl3+))) + +(define-public emacs-typescript-mode + (package + (name "emacs-typescript-mode") + (version "0.3") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/ananthakumaran/typescript.el" + "/archive/v" version ".tar.gz")) + (sha256 + (base32 + "1gqjirm8scf0wysm7x97zdfbs4qa5nqdl64jfbkd18iskv5mg3rj")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (home-page "https://github.com/ananthakumaran/typescript.el") + (synopsis "Emacs major mode for editing Typescript code") + (description + "This is based on Karl Landstrom's barebones @code{typescript-mode}. +This is much more robust and works with @code{cc-mode}'s comment +filling (mostly). The modifications to the original @code{javascript.el} mode +mainly consisted in replacing \"javascript\" with \"typescript\" + +The main features of this Typescript mode are syntactic highlighting (enabled +with @code{font-lock-mode} or @code{global-font-lock-mode}), automatic +indentation and filling of comments and C preprocessor fontification.") + (license license:gpl3+))) + +(define-public emacs-tide + (package + (name "emacs-tide") + (version "2.8.3.1") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/ananthakumaran/tide" + "/archive/v" version ".tar.gz")) + (sha256 + (base32 + "1k0kzqiv1hfs0kqm37947snzhrsmand3i9chvm6a2r5lb8v9q47y")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-s" ,emacs-s) + ("emacs-flycheck" ,emacs-flycheck) + ("emacs-typescript-mode" ,emacs-typescript-mode))) + (home-page "https://github.com/ananthakumaran/tide") + (synopsis "Typescript IDE for Emacs") + (description + "Tide is an Interactive Development Environment (IDE) for Emacs which +provides the following features: + +@itemize +@item ElDoc +@item Auto complete +@item Flycheck +@item Jump to definition, Jump to type definition +@item Find occurrences +@item Rename symbol +@item Imenu +@item Compile On Save +@item Highlight Identifiers +@item Code Fixes +@item Code Refactor +@item Organize Imports +@end itemize") + (license license:gpl3+))) + +(define-public emacs-markdown-mode + (package + (name "emacs-markdown-mode") + (version "2.3") + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com/jrblevin" + "/markdown-mode/v" version + "/markdown-mode.el")) + (file-name (string-append "markdown-mode-" version ".el")) + (sha256 + (base32 + "152whyrq3dqlqy5wv4mdd94kmal19hs5kwaxjcp2gp2r97lsmdmi")))) + (build-system emacs-build-system) + (home-page "http://jblevins.org/projects/markdown-mode/") + (synopsis "Emacs Major mode for Markdown files") + (description + "Markdown-mode is a major mode for editing Markdown-formatted text files +in Emacs.") + (license license:gpl3+))) + +(define-public emacs-edit-indirect + (package + (name "emacs-edit-indirect") + (version "0.1.5") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Fanael/edit-indirect") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0by1x53pji39fjrj5bd446kz831nv0vdgw2jqasbym4pc1p2947r")))) + (build-system emacs-build-system) + (home-page "https://github.com/Fanael/edit-indirect") + (synopsis "Edit regions in separate buffers") + (description "This package allows you to edit regions in separate buffers, +like @code{org-edit-src-code} but for arbitrary regions.") + (license license:gpl3+))) + +(define-public emacs-projectile + (package + (name "emacs-projectile") + (version "0.14.0") + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com/bbatsov" + "/projectile/v" version "/projectile.el")) + (file-name (string-append "projectile-" version ".el")) + (sha256 + (base32 + "1ql1wnzhblbwnv66hf2y0wq45g71hh6s9inc090lmhm1vgylbd1f")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-pkg-info" ,emacs-pkg-info))) + (home-page "https://github.com/bbatsov/projectile") + (synopsis "Manage and navigate projects in Emacs easily") + (description + "This library provides easy project management and navigation. The +concept of a project is pretty basic - just a folder containing special file. +Currently git, mercurial and bazaar repos are considered projects by default. +If you want to mark a folder manually as a project just create an empty +.projectile file in it.") + (license license:gpl3+))) + +(define-public emacs-elfeed + (package + (name "emacs-elfeed") + (version "3.0.0") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/skeeto/elfeed/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1wkdrxr6zzqb48czqqv34l87bx8aqjk1739ddqg933aqh241kfvn")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("make" "test"))) + (home-page "https://github.com/skeeto/elfeed") + (synopsis "Atom/RSS feed reader for Emacs") + (description + "Elfeed is an extensible web feed reader for Emacs, supporting both Atom +and RSS, with a user interface inspired by notmuch.") + (license license:gpl3+))) + +(define-public emacs-el-x + (package + (name "emacs-el-x") + (version "0.3.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/sigma/el-x.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1i6j44ssxm1xdg0mf91nh1lnprwsaxsx8vsrf720nan7mfr283h5")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; Move the source files to the top level, which is included in + ;; the EMACSLOADPATH. + (add-after 'unpack 'move-source-files + (lambda _ + (let ((el-files (find-files "./lisp" ".*\\.el$"))) + (for-each (lambda (f) + (rename-file f (basename f))) + el-files)) + #t))))) + (home-page "https://github.com/sigma/el-x") + (synopsis "Emacs Lisp extensions") + (description "command@{emacs-el-x} defines the @code{dflet} macro to +provide the historic behavior of @code{flet}, as well as +@code{declare-function} stub for older Emacs.") + (license license:gpl2+))) + +(define-public emacs-mocker + (package + (name "emacs-mocker") + (version "0.3.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/sigma/mocker.el.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1lav7am41v63xgavq8pr88y828jmd1cxd4prjq7jlbxm6nvrwxh2")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("ert-runner"))) + (native-inputs + `(("ert-runner" ,emacs-ert-runner))) + (propagated-inputs + `(("emacs-el-x" ,emacs-el-x))) + (home-page "https://github.com/sigma/mocker.el") + (synopsis "Mocking framework for Emacs Lisp") + (description "Mocker.el is a framework for writing tests in Emacs Lisp. +It uses regular Lisp rather than a domain specific language (DSL), which +maximizes flexibility (at the expense of conciseness).") + (license license:gpl2+))) + +(define-public emacs-find-file-in-project + (package + (name "emacs-find-file-in-project") + (version "5.4.7") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/technomancy/find-file-in-project.git") + (commit version))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1sdnyqv69mipbgs9yax88m9b6crsa59rjhwrih197pifl4089awr")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'set-shell + ;; Otherwise Emacs shell-file-name is set to "/bin/sh", which doesn't + ;; work. + (lambda _ + (setenv "SHELL" (which "sh")) + #t))) + #:tests? #t + #:test-command '("./tests/test.sh"))) + (home-page "https://github.com/technomancy/find-file-in-project") + (synopsis "File/directory finder for Emacs") + (description "@code{find-file-in-project} allows to find files or +directories quickly in the current project. The project root is detected +automatically when Git, Subversion or Mercurial are used. It also provides +functions to assist in reviewing changes on files.") + (license license:gpl3+))) + +(define-public emacs-pyvenv + (package + (name "emacs-pyvenv") + (version "1.11") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jorgenschaefer/pyvenv.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1a346qdimr1dvj53q033aqnahwd2dhyn9jadrs019nm0bzgw7g63")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; This phase incorrectly attempts to substitute "activate" and fails + ;; doing so. + (delete 'patch-el-files)) + #:tests? #t + #:test-command '("ert-runner"))) + (native-inputs + `(("ert-runner" ,emacs-ert-runner) + ("emacs-mocker" ,emacs-mocker))) + (home-page "https://github.com/jorgenschaefer/pyvenv") + (synopsis "Virtualenv minor mode for Emacs") + (description "pyvenv.el is a minor mode to support using Python virtual +environments (virtualenv) inside Emacs.") + (license license:gpl3+))) + +(define-public emacs-highlight-indentation + (package + (name "emacs-highlight-indentation") + (version "0.7.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/antonj/Highlight-Indentation-for-Emacs.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "00l54k75qk24a0znzl4ij3s3nrnr2wy9ha3za8apphzlm98m907k")))) + (build-system emacs-build-system) + (home-page "https://github.com/antonj/Highlight-Indentation-for-Emacs/") + (synopsis "Highlighting indentation for Emacs") + (description "Provides two minor modes to highlight indentation guides in Emacs: +@enumerate +@item @code{highlight-indentation-mode}, which displays guidelines +indentation (space indentation only). +@item @code{highlight-indentation-current-column-mode}, which displays guidelines for the current-point indentation (space indentation only). +@end enumerate") + (license license:gpl2+))) + +(define-public emacs-elpy + (package + (name "emacs-elpy") + (version "1.27.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jorgenschaefer/elpy.git") + (commit version))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1b76y0kzk7s9ya8k9bpsgn31i9l0rxs4iz6lg7snhjgh03k0ssgv")))) + (build-system emacs-build-system) + (arguments + `(#:include (cons* "^elpy/[^/]+\\.py$" "^snippets\\/" %default-include) + #:phases + ;; TODO: Make `elpy-config' display Guix commands :) + (modify-phases %standard-phases + ;; One elpy test depends on being run inside a Python virtual + ;; environment to pass. We have nothing to gain from doing so here, + ;; so we just trick Elpy into thinking we are (see: + ;; https://github.com/jorgenschaefer/elpy/pull/1293). + (add-before 'check 'fake-virtualenv + (lambda _ + (setenv "VIRTUAL_ENV" "/tmp") + #t)) + (add-before 'check 'build-doc + (lambda _ + (with-directory-excursion "docs" + (invoke "make" "info" "man")) + ;; Move .info file at the root so that it can installed by the + ;; 'move-doc phase. + (rename-file "docs/_build/texinfo/Elpy.info" "Elpy.info") + #t)) + (add-after 'build-doc 'install-manpage + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (man1 (string-append out "/share/man/man1"))) + (mkdir-p man1) + (copy-file "docs/_build/man/elpy.1" + (string-append man1 "/elpy.1"))) + #t))) + #:tests? #t + #:test-command '("ert-runner"))) + (propagated-inputs + `(("emacs-company" ,emacs-company) + ("emacs-find-file-in-project" ,emacs-find-file-in-project) + ("emacs-highlight-indentation" ,emacs-highlight-indentation) + ("emacs-yasnippet" ,emacs-yasnippet) + ("pyvenv" ,emacs-pyvenv) + ("s" ,emacs-s))) + (native-inputs + `(("ert-runner" ,emacs-ert-runner) + ("emacs-f" ,emacs-f) + ("python" ,python-wrapper) + ("python-autopep8" ,python-autopep8) + ("python-black" ,python-black) + ("python-flake8" ,python-flake8) + ("python-jedi" ,python-jedi) + ("python-yapf" ,python-yapf) + ;; For documentation. + ("python-sphinx" ,python-sphinx) + ("texinfo" ,texinfo))) + (home-page "https://github.com/jorgenschaefer/elpy") + (synopsis "Python development environment for Emacs") + (description "Elpy brings powerful Python editing to Emacs. It combines +and configures a number of other packages written in Emacs Lisp as well as +Python, together offering features such as navigation, documentation, +completion, interactive development and more.") + (license license:gpl3+))) + +(define-public emacs-rainbow-delimiters + (package + (name "emacs-rainbow-delimiters") + (version "2.1.3") + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com/Fanael" + "/rainbow-delimiters/" version + "/rainbow-delimiters.el")) + (file-name (string-append "rainbow-delimiters-" version ".el")) + (sha256 + (base32 + "1b3kampwsjabhcqdp0khgff13wc5jqhy3rbvaa12vnv7qy22l9ck")))) + (build-system emacs-build-system) + (home-page "https://github.com/Fanael/rainbow-delimiters") + (synopsis "Highlight brackets according to their depth") + (description + "Rainbow-delimiters is a \"rainbow parentheses\"-like mode for Emacs which +highlights parentheses, brackets, and braces according to their depth. Each +successive level is highlighted in a different color, making it easy to spot +matching delimiters, orient yourself in the code, and tell which statements +are at a given level.") + (license license:gpl3+))) + +(define-public emacs-rainbow-identifiers + (package + (name "emacs-rainbow-identifiers") + (version "0.2.2") + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com/Fanael" + "/rainbow-identifiers/" version + "/rainbow-identifiers.el")) + (file-name (string-append "rainbow-identifiers-" version ".el")) + (sha256 + (base32 + "0325abxj47k0g1i8nqrq70w2wr6060ckhhf92krv1s072b3jzm31")))) + (build-system emacs-build-system) + (home-page "https://github.com/Fanael/rainbow-identifiers") + (synopsis "Highlight identifiers in source code") + (description + "Rainbow identifiers mode is an Emacs minor mode providing highlighting of +identifiers based on their names. Each identifier gets a color based on a hash +of its name.") + (license license:bsd-2))) + +(define-public emacs-rainbow-mode + (package + (name "emacs-rainbow-mode") + (version "1.0.1") + (source (origin + (method url-fetch) + (uri (string-append + "http://elpa.gnu.org/packages/rainbow-mode-" version ".el")) + (sha256 + (base32 + "0cpga4ax635rfpj7y2vmh7ank0yw00dcy20gjg1mj74r97by8csf")))) + (build-system emacs-build-system) + (home-page "http://elpa.gnu.org/packages/rainbow-mode.html") + (synopsis "Colorize color names in buffers") + (description + "This minor mode sets background color to strings that match color +names, e.g. #0000ff is displayed in white with a blue background.") + (license license:gpl3+))) + +(define-public emacs-visual-fill-column + (package + (name "emacs-visual-fill-column") + (version "1.11") + (source (origin + (method url-fetch) + (uri (string-append "https://codeload.github.com/joostkremers/" + "visual-fill-column/tar.gz/" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "13jnviakp607zcms7f8ams56mr8wffnq1pghlc6fvqs39663pgwh")))) + (build-system emacs-build-system) + (home-page "https://github.com/joostkremers/visual-fill-column") + (synopsis "Fill-column for visual-line-mode") + (description + "@code{visual-fill-column-mode} is a small Emacs minor mode that mimics +the effect of @code{fill-column} in @code{visual-line-mode}. Instead of +wrapping lines at the window edge, which is the standard behaviour of +@code{visual-line-mode}, it wraps lines at @code{fill-column}. If +@code{fill-column} is too large for the window, the text is wrapped at the +window edge.") + (license license:gpl3+))) + +(define-public emacs-writeroom + (package + (name "emacs-writeroom") + (version "3.7") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/joostkremers/writeroom-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0yqgp5h3kvvpgva4azakb2wnjl7gsyh45glf75crspv3xyq57f2r")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-visual-fill-column" ,emacs-visual-fill-column))) + (home-page "https://github.com/joostkremers/writeroom-mode") + (synopsis "Distraction-free writing for Emacs") + (description + "This package defines a minor mode for distraction-free writing. Some of +the default effects include entering fullscreen, deleting other windows of the +current frame, disabling the mode line, and adding margins to the buffer that +restrict the text width to 80 characters.") + (license license:bsd-3))) + +(define-public emacs-ido-completing-read+ + (package + (name "emacs-ido-completing-read+") + (version "3.12") + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com" + "/DarwinAwardWinner/ido-ubiquitous/v" + version "/ido-completing-read+.el")) + (file-name (string-append "ido-completing-read+-" version ".el")) + (sha256 + (base32 + "1cyalb0p7nfsm4n6n9q6rjmvn6adqc0fq8ybnlj3n41n289dkfjf")))) + (build-system emacs-build-system) + (home-page "https://github.com/DarwinAwardWinner/ido-ubiquitous") + (synopsis "Replacement for completing-read using ido") + (description + "The ido-completing-read+ function is a wrapper for ido-completing-read. +Importantly, it detects edge cases that ordinary ido cannot handle and either +adjusts them so ido can handle them, or else simply falls back to the standard +Emacs completion function instead.") + (license license:gpl3+))) + +(define-public emacs-ido-ubiquitous + (package + (name "emacs-ido-ubiquitous") + (version "3.12") + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com" + "/DarwinAwardWinner/ido-ubiquitous/v" + version "/ido-ubiquitous.el")) + (file-name (string-append "ido-ubiquitous-" version ".el")) + (sha256 + (base32 + "197ypji0fb6jsdcq40rpnknwlh3imas6s6jbsvkfm0pz9988c3q2")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-ido-completing-read+" ,emacs-ido-completing-read+))) + (home-page "https://github.com/DarwinAwardWinner/ido-ubiquitous") + (synopsis "Use ido (nearly) everywhere") + (description + "Ido-ubiquitous enables ido-style completion for almost every function +that uses the standard completion function completing-read.") + (license license:gpl3+))) + +(define-public emacs-yaml-mode + (package + (name "emacs-yaml-mode") + (version "0.0.13") + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com/yoshiki" + "/yaml-mode/v" version "/yaml-mode.el")) + (file-name (string-append "yaml-mode-" version ".el")) + (sha256 + (base32 + "0im88sk9dqw03x6d6zaspgvg9i0pfpgb8f2zygrmbifh2w4pwmvj")))) + (build-system emacs-build-system) + (home-page "https://github.com/yoshiki/yaml-mode") + (synopsis "Major mode for editing YAML files") + (description + "Yaml-mode is an Emacs major mode for editing files in the YAML data +serialization format. It was initially developed by Yoshiki Kurihara and many +features were added by Marshall Vandegrift. As YAML and Python share the fact +that indentation determines structure, this mode provides indentation and +indentation command behavior very similar to that of python-mode.") + (license license:gpl3+))) + +(define-public emacs-web-mode + (package + (name "emacs-web-mode") + (version "16") + (source (origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com/fxbois" + "/web-mode/v" version "/web-mode.el")) + (file-name (string-append "web-mode-" version ".el")) + (sha256 + (base32 + "1hs5w7kdvcyn4ihyw1kfjg48djn5p7lz4rlbhzzdqv1g56xqx3gw")))) + (build-system emacs-build-system) + (synopsis "Major mode for editing web templates") + (description "Web-mode is an Emacs major mode for editing web templates +aka HTML files embedding parts (CSS/JavaScript) and blocks (pre rendered by +client/server side engines). Web-mode is compatible with many template +engines: PHP, JSP, ASP, Django, Twig, Jinja, Mustache, ERB, FreeMarker, +Velocity, Cheetah, Smarty, CTemplate, Mustache, Blade, ErlyDTL, Go Template, +Dust.js, React/JSX, Angularjs, ejs, etc.") + (home-page "http://web-mode.org/") + (license license:gpl3+))) + +(define-public emacs-wgrep + (let ((commit "414be70bd313e482cd9f0b70fd2daad4ee23497c")) + ;; Late commit fixes compatibility issue with Emacs 26+. + (package + (name "emacs-wgrep") + (version (git-version "2.1.10" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/mhayashi1120/Emacs-wgrep") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1sdhd587q3pg92lhiayph87azhalmf1gzrnsprkmqvnphv7mvks9")))) + (build-system emacs-build-system) + (home-page "https://github.com/mhayashi1120/Emacs-wgrep") + (synopsis "Edit a grep buffer and apply those changes to the files") + (description + "Emacs wgrep allows you to edit a grep buffer and apply those changes +to the file buffer. Several backends are supported beside the classic grep: +ack, ag, helm and pt.") + (license license:gpl3+)))) + +(define-public emacs-helm + (package + (name "emacs-helm") + (version "3.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/" name "/helm/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0k2r0ccppaqfjvyszaxa16vf7g2qzj1clhfr6v646ncsy17laciw")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-async" ,emacs-async) + ("emacs-popup" ,emacs-popup))) + (home-page "https://emacs-helm.github.io/helm/") + (synopsis "Incremental completion and selection narrowing +framework for Emacs") + (description "Helm is incremental completion and selection narrowing +framework for Emacs. It will help steer you in the right direction when +you're looking for stuff in Emacs (like buffers, files, etc). Helm is a fork +of @code{anything.el} originally written by Tamas Patrovic and can be +considered to be its successor. Helm sets out to clean up the legacy code in +@code{anything.el} and provide a cleaner, leaner and more modular tool, that's +not tied in the trap of backward compatibility.") + (license license:gpl3+))) + +(define-public emacs-helm-swoop + (package + (name "emacs-helm-swoop") + (version "1.7.4") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/ShingoFukuyama/helm-swoop/archive/" + version + ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1ssivsjzlnkg049cg993l8fp09l5nhpz6asj7w5c91zp5kpc6fh7")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm))) + (home-page "https://github.com/ShingoFukuyama/helm-swoop") + (synopsis "Filter and jump to lines in an Emacs buffer using Helm") + (description + "This package builds on the Helm interface to provide several commands +for search-based navigation of buffers.") + (license license:gpl2+))) + +(define-public emacs-helm-projectile + (package + (name "emacs-helm-projectile") + (version "0.14.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/bbatsov/helm-projectile/archive/v" + version + ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "19cfmilqh8kbab3b2hmx6lyrj73q6vfmn3p730x95g23iz16mnd5")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-helm" ,emacs-helm) + ("emacs-projectile" ,emacs-projectile))) + (home-page "https://github.com/bbatsov/helm-projectile") + (synopsis "Helm integration for Projectile") + (description + "This Emacs library provides a Helm interface for Projectile.") + (license license:gpl3+))) + +(define-public emacs-helm-make + (let ((commit "feae8df22bc4b20705ea08ac9adfc2b43bb348d0") + (revision "1")) + (package + (name "emacs-helm-make") + (version (string-append "0.1.0-" revision "." (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/abo-abo/helm-make.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1y2v77mmd1bfkkz51cnk1l0dg3lvvxc39wlamnm7wjns66dbvlam")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-projectile" ,emacs-projectile))) + (home-page "https://github.com/abo-abo/helm-make") + (synopsis "Select a Makefile target with helm") + (description "@code{helm-make} or @code{helm-make-projectile} will give +you a @code{helm} selection of directory Makefile's targets. Selecting a +target will call @code{compile} on it.") + (license license:gpl3+)))) + +(define-public emacs-cider + (package + (name "emacs-cider") + (version "0.18.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/clojure-emacs/cider.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1m9kc88vga3q5d731qnpngnsa0n57pf21k3hll20rw8rggrx4vdn")))) + (build-system emacs-build-system) + (arguments + '(#:exclude ; Don't exclude 'cider-test.el'. + '("^\\.dir-locals\\.el$" "^test/"))) + (propagated-inputs + `(("emacs-clojure-mode" ,emacs-clojure-mode) + ("emacs-sesman" ,emacs-sesman) + ("emacs-spinner" ,emacs-spinner) + ("emacs-pkg-info" ,emacs-pkg-info) + ("emacs-queue" ,emacs-queue))) + (home-page "https://cider.readthedocs.io/") + (synopsis "Clojure development environment for Emacs") + (description + "CIDER (Clojure Interactive Development Environment that Rocks) aims to +provide an interactive development experience similar to the one you'd get +when programming in Emacs Lisp, Common Lisp (with SLIME or Sly), Scheme (with +Geiser) and Smalltalk. + +CIDER is the successor to the now deprecated combination of using SLIME + +swank-clojure for Clojure development. + +There are plenty of differences between CIDER and SLIME, but the core ideas +are pretty much the same (and SLIME served as the principle inspiration for +CIDER).") + (license license:gpl3+))) + +;; There hasn't been a tag or release since 2015, so we take the latest +;; commit. +(define-public emacs-sly + (let ((commit "486bfbe95612bcdc0960c490207970a188e0fbb9") + (revision "1")) + (package + (name "emacs-sly") + (version (string-append "1.0.0-" revision "." (string-take commit 9))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/joaotavora/sly.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0ib4q4k3h3qn88pymyjjmlmnpizdn1mfg5gpk5a715nqsgxlg09l")))) + (build-system emacs-build-system) + (arguments + `(#:include (cons "^lib\\/" %default-include) + #:phases + ;; The package provides autoloads. + (modify-phases %standard-phases + (delete 'make-autoloads)))) + (home-page "https://github.com/joaotavora/sly") + (synopsis "Sylvester the Cat's Common Lisp IDE") + (description + "SLY is Sylvester the Cat's Common Lisp IDE. SLY is a fork of SLIME, and +contains the following improvements over it: + +@enumerate +@item Completely redesigned REPL based on Emacs's own full-featured + @code{comint.el} +@item Live code annotations via a new @code{sly-stickers} contrib +@item Consistent interactive button interface. Everything can be copied to + the REPL. +@item Multiple inspectors with independent history +@item Regexp-capable @code{M-x sly-apropos} +@item Contribs are first class SLY citizens and enabled by default +@item Use ASDF to loads contribs on demand. +@end enumerate + +SLY tracks SLIME's bugfixes and all its familar features (debugger, inspector, +xref, etc...) are still available, but with better integration.") + (license license:gpl3+)))) + +(define-public emacs-lua-mode + (let ((commit "652e299cb967fccca827dda381d61a9c144d97de") + (revision "1")) + (package + (name "emacs-lua-mode") + (version (string-append "20151025." revision "-" (string-take commit 9))) + (home-page "https://github.com/immerrr/lua-mode/") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (file-name (string-append name "-" version ".checkout")) + (sha256 + (base32 + "053025k930wh0lak6rc1973ynfrmm8zsyzfqhhd39x7abkl41hc9")))) + (build-system emacs-build-system) + (synopsis "Major mode for lua") + (description + "This Emacs package provides a mode for @uref{https://www.lua.org/, +Lua programing language}.") + (license license:gpl2+)))) + +(define-public emacs-ebuild-mode + (package + (name "emacs-ebuild-mode") + (version "1.37") + (source (origin + (method url-fetch) + (uri (string-append + "https://dev.gentoo.org/~ulm/emacs/ebuild-mode" + "-" version ".tar.xz")) + (file-name (string-append name "-" version ".tar.xz")) + (sha256 + (base32 + "07dzrdjjczkxdfdgi60h4jjkvzi4p0k9rij2wpfp8s03ay3qldpp")))) + (build-system emacs-build-system) + (home-page "https://devmanual.gentoo.org") + (synopsis "Major modes for Gentoo package files") + (description + "This Emacs package provides modes for ebuild, eclass, eblit, GLEP42 +news items, openrc and runscripts.") + (license license:gpl2+))) + +(define-public emacs-evil + (let ((commit "230b87212c81aaa68ef5547a6b998d9c365fe139")) + (package + (name "emacs-evil") + (version (git-version "1.2.13" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-evil/evil") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0c9zy3bpck10gcrv79kd3h7i4ygd5bgbgy773n0lg7a2r5kwn1gx")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-undo-tree" ,emacs-undo-tree) + ("emacs-goto-chg" ,emacs-goto-chg))) + (home-page "https://github.com/emacs-evil/evil") + (synopsis "Extensible Vi layer for Emacs") + (description + "Evil is an extensible vi layer for Emacs. It emulates the +main features of Vim, and provides facilities for writing custom +extensions.") + (license license:gpl3+)))) + +(define-public emacs-evil-collection + (let ((commit "4e1f0e0b17153d460805a0da90d6191d66b2673d") + (revision "5")) + (package + (name "emacs-evil-collection") + (version (git-version "0.0.1" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-evil/evil-collection") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "11d5ppdnb2y2mwsdd9g62h7zds962kw3nss89zv5iwgcf9f1fb5x")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-evil" ,emacs-evil))) + (home-page "https://github.com/emacs-evil/evil-collection") + (synopsis "Collection of Evil bindings for many major and minor modes") + (description "This is a collection of Evil bindings for the parts of +Emacs that Evil does not cover properly by default, such as @code{help-mode}, +@code{M-x calendar}, Eshell and more.") + (license license:gpl3+)))) + +(define-public emacs-goto-chg + (package + (name "emacs-goto-chg") + (version "1.6") + (source + (origin + (method url-fetch) + ;; There is no versioned source. + (uri "https://www.emacswiki.org/emacs/download/goto-chg.el") + (file-name (string-append "goto-chg-" version ".el")) + (sha256 + (base32 + "078d6p4br5vips7b9x4v6cy0wxf6m5ij9gpqd4g33bryn22gnpij")))) + (build-system emacs-build-system) + ;; There is no other home page. + (home-page "https://www.emacswiki.org/emacs/goto-chg.el") + (synopsis "Go to the last change in the Emacs buffer") + (description + "This package provides @code{M-x goto-last-change} command that goes to +the point of the most recent edit in the current Emacs buffer. When repeated, +go to the second most recent edit, etc. Negative argument, @kbd{C-u -}, is +used for reverse direction.") + (license license:gpl2+))) + +(define-public emacs-monroe + (package + (name "emacs-monroe") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/sanel/monroe/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0icdx8shkd951phlnmcq1vqaxp1l667q5rjscskc5r22aylakh4w")))) + (build-system emacs-build-system) + (home-page "https://github.com/sanel/monroe") + (synopsis "Clojure nREPL client for Emacs") + (description + "Monroe is a nREPL client for Emacs, focused on simplicity and easy +distribution, primarily targeting Clojure users") + (license license:gpl3+))) + +(define-public emacs-orgalist + (package + (name "emacs-orgalist") + (version "1.9") + (source + (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/" + "orgalist-" version ".el")) + (sha256 + (base32 + "1rmmcyiiqkq54hn74nhzxzl4nvd902hv6gq341jwhrm7yiagffi6")))) + (build-system emacs-build-system) + (home-page "http://elpa.gnu.org/packages/orgalist.html") + (synopsis "Manage Org-like lists in non-Org buffers") + (description "Write Org mode's plain lists in non-Org buffers. More +specifically, Orgalist supports the syntax of Org mode for numbered, +unnumbered, description items, checkboxes, and counter cookies. + +The library also implements radio lists, i.e., lists written in Org +syntax later translated into the host format, e.g., LaTeX or HTML.") + (license license:gpl3+))) + +(define-public emacs-writegood-mode + (package + (name "emacs-writegood-mode") + (version "2.0.2") + (home-page "https://github.com/bnbeckwith/writegood-mode") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit (string-append "v" version)))) + (sha256 + (base32 + "1nnjn1r669hvvzfycllwap4w04m8rfsk4nzcg8057m1f263kj31b")) + (file-name (string-append name "-checkout")))) + (build-system emacs-build-system) + (synopsis "Polish up poor writing on the fly") + (description + "This minor mode tries to find and highlight problems with your writing +in English as you type. It primarily detects \"weasel words\" and abuse of +passive voice.") + (license license:gpl3+))) + +(define-public emacs-neotree + (package + (name "emacs-neotree") + (version "0.5.2") + (home-page "https://github.com/jaypei/emacs-neotree") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/jaypei/" name + "/archive/" version ".tar.gz")) + (sha256 + (base32 + "1zd6dchwyijnf7kgchfcp51gs938l204dk9z6mljrfqf2zy0gp12")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (synopsis "Folder tree view for Emacs") + (description "This Emacs package provides a folder tree view.") + (license license:gpl3+))) + +(define-public emacs-org + (package + (name "emacs-org") + ;; emacs-org-contrib inherits from this package. Please update its sha256 + ;; checksum as well. + (version "9.2") + (source (origin + (method url-fetch) + (uri (string-append "http://elpa.gnu.org/packages/org-" + version ".tar")) + (sha256 + (base32 + "14ydwh2r360fpi6v2g9rgf0zazy2ddq1pcdxvzn73h65glnnclz9")))) + (build-system emacs-build-system) + (home-page "https://orgmode.org/") + (synopsis "Outline-based notes management and organizer") + (description "Org is an Emacs mode for keeping notes, maintaining TODO +lists, and project planning with a fast and effective lightweight markup +language. It also is an authoring system with unique support for literate +programming and reproducible research.") + (license license:gpl3+))) + +(define-public emacs-org-contrib + (package + (inherit emacs-org) + (name "emacs-org-contrib") + (version "20181230") + (source (origin + (method url-fetch) + (uri (string-append "https://orgmode.org/elpa/org-plus-contrib-" + version ".tar")) + (sha256 + (base32 + "0gibwcjlardjwq19bh0zzszv0dxxlml0rh5iikkcdynbgndk1aa1")))) + (arguments + `(#:modules ((guix build emacs-build-system) + (guix build utils) + (guix build emacs-utils) + (ice-9 ftw) + (srfi srfi-1)) + #:phases + (modify-phases %standard-phases + (add-after 'install 'delete-org-files + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (org (assoc-ref inputs "org")) + (contrib-files + (map basename (find-files out))) + (org+contrib-files + (map basename (find-files org))) + (duplicates (lset-intersection + string=? contrib-files org+contrib-files))) + (with-directory-excursion + (string-append + out "/share/emacs/site-lisp/guix.d/org-contrib-" ,version) + (for-each delete-file duplicates)) + #t)))))) + (propagated-inputs + `(("arduino-mode" ,emacs-arduino-mode) + ("cider" ,emacs-cider) + ("org" ,emacs-org) + ("scel" ,emacs-scel))) + (synopsis "Contributed packages to Org mode") + (description "Org is an Emacs mode for keeping notes, maintaining TODO +lists, and project planning with a fast and effective plain-text system. + +This package is equivalent to org-plus-contrib, but only includes additional +files that you would find in @file{contrib/} from the git repository."))) + +(define-public emacs-flx + (package + (name "emacs-flx") + (version "0.6.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/lewang/" + "flx/archive/v" version ".tar.gz")) + (sha256 + (base32 + "0bkcpnf1j4i2fcc2rllwbz62l00sw2mcia6rm5amgwvlkqavmkv6")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (home-page "https://github.com/lewang/flx") + (synopsis "Fuzzy matching for Emacs") + (description + "Flx provides fuzzy matching for emacs a la sublime text. +The sorting algorithm is a balance between word beginnings (abbreviation) +and contiguous matches (substring). The longer the substring match, +the higher it scores. This maps well to how we think about matching. +Flx has support for ido (interactively do things) through flx-ido.") + (license license:gpl3+))) + +(define-public emacs-cyberpunk-theme + (package + (name "emacs-cyberpunk-theme") + (version "1.19") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/n3mo/cyberpunk-theme.el/" + "archive/" version ".tar.gz")) + (sha256 + (base32 + "05l5fxw1mn5py6mfhxrzyqjq0d8m5m1akfi46vrgh13r414jffvv")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (home-page "https://github.com/n3mo/cyberpunk-theme.el") + (synopsis "Cyberpunk theme for emacs built-in color theme support") + (description + "Cyberpunk color theme for the emacs 24+ built-in color theme support +known loosely as deftheme. Many mode-specific customizations are included.") + (license license:gpl3+))) + +(define-public emacs-danneskjold-theme + (let* ((commit "8733d2fe8743e8a01826ea6d4430ef376c727e57") + (revision "1")) + (package + (name "emacs-danneskjold-theme") + (version (string-append "0.0.0-" revision "." (string-take commit 7))) + (home-page "https://github.com/rails-to-cosmos/danneskjold-theme") + (source + (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0s6rbsb0y8i8m5b9xm4gw1p1cxsxdqnqxqqb638pygz9f76mbir1")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'delete-screenshots + (lambda _ + (delete-file-recursively "screenshots") #t))))) + (synopsis "High-contrast Emacs theme") + (description + "@code{danneskjold-theme} is a high-contrast theme for Emacs.") + (license license:gpl3+)))) + +(define-public emacs-dream-theme + (let* ((commit "107a11d74365046f28a1802a2bdb5e69e4a7488b") + (revision "1")) + (package + (name "emacs-dream-theme") + (version (string-append "0.0.0-" revision "." (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/djcb/dream-theme") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0za18nfkq4xqm35k6006vsixcbmvmxqgma4iw5sw37h8vmcsdylk")))) + (build-system emacs-build-system) + (home-page "https://github.com/djcb/dream-theme") + (synopsis "High-contrast Emacs theme") + (description + "@code{dream-theme} is a dark, clean theme for Emacs. It is inspired +by zenburn, sinburn and similar themes, but slowly diverging from them.") + (license license:gpl3+)))) + +(define-public emacs-auto-complete + (package + (name "emacs-auto-complete") + (version "1.5.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/auto-complete/" + "auto-complete/archive/v" version ".tar.gz")) + (sha256 + (base32 + "1jvq4lj00hwml75lpmlciazy8f3bbg13gffsfnl835p4qd8l7yqv")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-popup" ,emacs-popup))) + (home-page "https://github.com/auto-complete/auto-complete") + (synopsis "Intelligent auto-completion extension for Emacs") + (description + "Auto-Complete is an intelligent auto-completion extension for Emacs. +It extends the standard Emacs completion interface and provides an environment +that allows users to concentrate more on their own work. Its features are: +a visual interface, reduce overhead of completion by using statistic method, +extensibility.") + (license license:gpl3+))) + +(define-public emacs-nginx-mode + (package + (name "emacs-nginx-mode") + (version "1.1.9") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/ajc/nginx-mode/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0bzyrj6zz1hm67bkhw23bam7qc869s3zg7m1rb1c3aa4n0aw90cq")))) + (build-system emacs-build-system) + (home-page "https://github.com/ajc/nginx-mode") + (synopsis "Emacs major mode for editing nginx config files") + (description "This package provides an Emacs major mode for +editing nginx config files.") + (license license:gpl2+))) + +(define-public emacs-stream + (package + (name "emacs-stream") + (version "2.2.0") + (home-page "https://github.com/NicolasPetton/stream") + (source + (origin + (method url-fetch) + (file-name (string-append name "-" version ".tar.gz")) + (uri (string-append home-page "/archive/"version ".tar.gz")) + (sha256 + (base32 "03ql4nqfz5pn55mjly6clhvc3g7x2d28kj7mrlqmigvjbql39xxc")))) + (build-system emacs-build-system) + (synopsis "Implementation of streams for Emacs") + (description "This library provides an implementation of streams for Emacs. +Streams are implemented as delayed evaluation of cons cells.") + (license license:gpl3+))) + +(define-public emacs-el-search + (let ((commit "f26277bfbb3fc3fc74beea6592f294c439796bd4") + (revision "1")) + (package + (name "emacs-el-search") + ;; No ufficial release. + (version (string-append "0.0-" revision "." (string-take commit 7))) + (home-page "https://github.com/emacsmirror/el-search") + (source + (origin + (method git-fetch) + (file-name (string-append name "-" version ".tar.gz")) + (uri (git-reference + (commit commit) + (url (string-append home-page ".git")))) + (sha256 + (base32 "12xf40h9sb7xxg2r97gsia94q02543mgiiiw46fzh1ac7b7993g6")))) + (build-system emacs-build-system) + (inputs `(("emacs-stream" ,emacs-stream))) + (synopsis "Expression based interactive search for emacs-lisp-mode") + (description "This package provides expression based interactive search +procedures for emacs-lisp-mode.") + (license license:gpl3+)))) + +(define-public emacs-ht + (package + (name "emacs-ht") + (version "2.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/Wilfred/ht.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1lpba36kzxcc966fvsbrfpy8ah9gnvay0yk26gbyjil0rggrbqzj")))) + (build-system emacs-build-system) + (propagated-inputs `(("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/Wilfred/ht.el") + (synopsis "Hash table library for Emacs") + (description + "This package simplifies the use of hash tables in elisp. It also +provides functions to convert hash tables from and to alists and plists.") + (license license:gpl3+))) + +(define-public emacs-log4e + (package + (name "emacs-log4e") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/aki2o/log4e/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0nbdpbw353snda3v19l9hsm6gimppwnpxj18amm350bm81lyim2g")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'remove-tests + ;; Guile builder complains about null characters in some + ;; strings of test files. Remove "test" directory (it is not + ;; needed anyway). + (lambda _ + (delete-file-recursively "test")))))) + (home-page "https://github.com/aki2o/log4e") + (synopsis "Logging framework for elisp") + (description + "This package provides a logging framework for elisp. It allows +you to deal with multiple log levels.") + (license license:gpl3+))) + +(define-public emacs-gntp + (package + (name "emacs-gntp") + (version "0.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/tekai/gntp.el/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "16c1dfkia9yhl206bdhjr3b8kfvqcqr38jl5lq8qsyrrzsnmghny")))) + (build-system emacs-build-system) + (home-page "https://github.com/tekai/gntp.el") + (synopsis "Growl Notification Protocol for Emacs") + (description + "This package implements the Growl Notification Protocol GNTP +described at @uref{http://www.growlforwindows.com/gfw/help/gntp.aspx}. +It is incomplete as it only lets you send but not receive +notifications.") + (license license:bsd-3))) + +(define-public emacs-alert + (package + (name "emacs-alert") + (version "1.2") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/jwiegley/alert/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1693kck3k2iz5zhpmxwqyafxm68hr6gzs60lkxd3j1wlp2c9fwyr")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-gntp" ,emacs-gntp) + ("emacs-log4e" ,emacs-log4e))) + (home-page "https://github.com/jwiegley/alert") + (synopsis "Growl-style notification system for Emacs") + (description + "Alert is a Growl-workalike for Emacs which uses a common notification +interface and multiple, selectable \"styles\", whose use is fully +customizable by the user.") + (license license:gpl2+))) + +(define-public emacs-mu4e-alert + (package + (name "emacs-mu4e-alert") + (version "1.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/iqbalansari/mu4e-alert/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "07qc834qnxn8xi4bw5nawj8g91bmkzw0r0vahkgysp7r9xrf57gj")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-alert" ,emacs-alert) + ("emacs-s" ,emacs-s) + ("emacs-ht" ,emacs-ht) + ("mu" ,mu))) + (home-page "https://github.com/iqbalansari/mu4e-alert") + (synopsis "Desktop notification for mu4e") + (description + "This package provides desktop notifications for mu4e. +Additionally it can display the number of unread emails in the +mode-line.") + (license license:gpl3+))) + +(define-public emacs-pretty-mode + (package + (name "emacs-pretty-mode") + (version "2.0.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/akatov/pretty-mode/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1fan7m4vnqs8kpg7r54kx3g7faadkpkf9kzarfv8n57kq8w157pl")))) + (build-system emacs-build-system) + (home-page "https://github.com/akatov/pretty-mode") + (synopsis "Redisplay parts of the buffer as Unicode symbols") + (description + "Emacs minor mode for redisplaying parts of the buffer as pretty symbols.") + (license license:gpl3+))) + +(define-public emacs-yasnippet + (package + (name "emacs-yasnippet") + (version "0.13.0") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/joaotavora/yasnippet/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "12ls2x17agzbrj1xynjbmfa11igqxia4hj4fv6fpr66yci2r1plc")) + (modules '((guix build utils))) + (snippet + '(begin + ;; YASnippet expects a "snippets" subdirectory in the same + ;; directory as yasnippet.el, but we don't install it + ;; because it's a git submodule pointing to an external + ;; repository. Adjust `yas-snippet-dirs' to prevent + ;; warnings about a missing directory. + (substitute* "yasnippet.el" + (("^ +'yas-installed-snippets-dir\\)\\)\n") + "))\n")) + #t)))) + (build-system emacs-build-system) + (home-page "https://github.com/joaotavora/yasnippet") + (synopsis "Yet another snippet extension for Emacs") + (description + "YASnippet is a template system for Emacs. It allows you to type an +abbreviation and automatically expand it into function templates.") + (license license:gpl3+))) + +(define-public emacs-yasnippet-snippets + (let ((commit "885050d34737e2fb36a3e7759d60c09347bd4ce0") + (revision "1")) + (package + (name "emacs-yasnippet-snippets") + (version (string-append "1-" revision "." (string-take commit 8))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/AndreaCrotti/yasnippet-snippets") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1m935zgglw0iakzrixld5rcjz3wnj84f8wy2mvc3pggjri9l0qr9")))) + (build-system trivial-build-system) + (arguments + `(#:modules ((ice-9 ftw) + (ice-9 regex) + (guix build utils)) + #:builder + (begin + (use-modules (ice-9 ftw) + (ice-9 regex) + (guix build utils)) + (with-directory-excursion (assoc-ref %build-inputs "source") + (for-each (lambda (dir) + (copy-recursively + dir + (string-append %output + "/share/emacs/yasnippet-snippets/" + dir))) + (scandir "." (lambda (fname) + (and (string-match "-mode$" fname) + (directory-exists? fname)))))) + #t))) + (home-page "https://github.com/AndreaCrotti/yasnippet-snippets") + (synopsis "Collection of YASnippet snippets for many languages") + (description + "Provides Andrea Crotti's collection of YASnippet snippets. After installation, +the snippets will be in \"~/.guix-profile/share/emacs/yasnippet-snippets/\". +To make YASnippet aware of these snippets, add the above directory to +@code{yas-snippet-dirs}.") + (license license:expat)))) + +(define-public emacs-helm-c-yasnippet + (let ((commit "65ca732b510bfc31636708aebcfe4d2d845b59b0") + (revision "1")) + (package + (name "emacs-helm-c-yasnippet") + (version (string-append "0.6.7" "-" revision "." + (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-jp/helm-c-yasnippet") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1cbafjqlzxbg19xfdqsinsh7afq58gkf44rsg1qxfgm8g6zhr7f8")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-yasnippet" ,emacs-yasnippet))) + (home-page "https://github.com/emacs-jp/helm-c-yasnippet") + (synopsis "Helm integration for Yasnippet") + (description "This Emacs library provides Helm interface for +Yasnippet.") + (license license:gpl2+)))) + +(define-public emacs-helm-system-packages + (package + (name "emacs-helm-system-packages") + (version "1.10.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-helm/helm-system-packages") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "01by0c4lqi2cw8xmbxkjw7m9x78zssm31sx4hdpw5j35s2951j0f")))) + (build-system emacs-build-system) + (inputs + `(("recutils" ,recutils))) + (propagated-inputs + `(("emacs-helm" ,emacs-helm))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((recutils (assoc-ref inputs "recutils"))) + ;; Specify the absolute file names of the various + ;; programs so that everything works out-of-the-box. + (substitute* "helm-system-packages-guix.el" + (("recsel") (string-append recutils "/bin/recsel"))))))))) + (home-page "https://github.com/emacs-helm/helm-system-packages") + (synopsis "Helm System Packages is an interface to your package manager") + (description "List all available packages in Helm (with installed +packages displayed in their own respective face). Fuzzy-search, mark and +execute the desired action over any selections of packages: Install, +uninstall, display packages details (in Org Mode) or insert details at point, +find files owned by packages... And much more, including performing all the +above over the network.") + (license license:gpl3+))) + +(define-public emacs-memoize + (package + (name "emacs-memoize") + (version "1.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/skeeto/emacs-memoize/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "05ijgwi4ymxx31vpjm2pn356j85cykknajn14lrzz8pn5sh0vrg4")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("emacs" "--batch" + "-l" "memoize-test.el" + "-f" "ert-run-tests-batch-and-exit"))) + (home-page "https://github.com/skeeto/emacs-memoize") + (synopsis "Emacs lisp memoization library") + (description "@code{emacs-memoize} is an Emacs library for +memoizing functions.") + (license license:unlicense))) + +(define-public emacs-linum-relative + (package + (name "emacs-linum-relative") + (version "0.5") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/coldnew/linum-relative/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0s4frvr27866lw1rn3jal9wj5rkz9fx4yiszqv7w06azsdgsqksv")))) + (build-system emacs-build-system) + (home-page "https://github.com/coldnew/linum-relative") + (synopsis "Relative line numbering for Emacs") + (description "@code{emacs-linum-relative} displays the relative line +number on the left margin in Emacs.") + (license license:gpl2+))) + +(define-public emacs-idle-highlight + (package + (name "emacs-idle-highlight") + (version "1.1.3") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/nonsequitur/idle-highlight-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0kdv10hrgqpskjh0zvpnzwlkn5bccnqxas62gkws6njln57bf8nl")))) + (build-system emacs-build-system) + (home-page "https://www.emacswiki.org/emacs/IdleHighlight") + (synopsis "Highlights all occurrences of the word the point is on") + (description + "This Emacs package provides @code{idle-highlight-mode} that sets + an idle timer to highlight all occurrences in the buffer of the word under + the point.") + (license license:gpl3+))) + +(define-public emacs-ox-twbs + (package + (name "emacs-ox-twbs") + (version "1.1.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/marsmining/ox-twbs/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1zaq8dczq5wijjk36114k2x3hfrqig3lyx6djril6wyk67vczyqs")))) + (build-system emacs-build-system) + (home-page "https://github.com/marsmining/ox-twbs") + (synopsis "Export org-mode docs as HTML compatible with Twitter Bootstrap") + (description + "This Emacs package outputs your org-mode docs with a simple, clean and +modern look. It implements a new HTML back-end for exporting org-mode docs as +HTML compatible with Twitter Bootstrap. By default, HTML is exported with +jQuery and Bootstrap resources included via osscdn.") + (license license:gpl3+))) + +(define-public emacs-highlight-sexp + (package + (name "emacs-highlight-sexp") + (version "1.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/daimrod/highlight-sexp/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0jwx87qkln1rg9wmv4qkgkml935fh2pkgrg5x4ca6n5dgb4q6rj1")))) + (build-system emacs-build-system) + (home-page "https://github.com/daimrod/highlight-sexp") + (synopsis "Minor mode that highlights the s-exp at the current position") + (description + "This Emacs package highlights the s-exp at the current position.") + (license license:gpl3+))) + +(define-public emacs-highlight-stages + (let ((commit "29cbc5b78261916da042ddb107420083da49b271") + (revision "1")) + (package + (name "emacs-highlight-stages") + (version (string-append "1.1.0" "-" revision "." (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/zk-phi/highlight-stages.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0r6nbcrr0dqpgm8dir8ahzjy7rw4nrac48byamzrq96r7ajlxlv0")) + (patches + (search-patches "emacs-highlight-stages-add-gexp.patch")))) + (build-system emacs-build-system) + (home-page "https://github.com/wigust/highlight-stages") + (synopsis "Minor mode that highlights (quasi-quoted) expressions") + (description "@code{highlight-stages} provides an Emacs minor mode that +highlights quasi-quoted expressions.") + (license license:gpl3+)))) + +(define-public emacspeak + (package + (name "emacspeak") + (version "48.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/tvraman/emacspeak/releases/download/" + version "/emacspeak-" version ".tar.bz2")) + (sha256 + (base32 + "07imi3hji06b3r7v7v59978q76s8a7ynmxwfc9j03pgnv965lpjy")))) + (build-system gnu-build-system) + (arguments + '(#:make-flags (list (string-append "prefix=" + (assoc-ref %outputs "out"))) + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (lisp (string-append out + "/share/emacs/site-lisp/emacspeak"))) + (setenv "SHELL" (which "sh")) + ;; Configure Emacspeak according to etc/install.org. + (invoke "make" "config")))) + (add-after 'build 'build-espeak + (lambda _ + (invoke "make" "espeak"))) + (replace 'install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (lisp (string-append out "/share/emacs/site-lisp/emacspeak")) + (info (string-append out "/share/info")) + (emacs (string-append (assoc-ref inputs "emacs") + "/bin/emacs"))) + ;; According to etc/install.org, the Emacspeak directory should + ;; be copied to its installation destination. + (for-each + (lambda (file) + (copy-recursively file (string-append lisp "/" file))) + '("etc" "info" "js" "lisp" "media" "scapes" "servers" "sounds" + "stumpwm" "xsl")) + ;; Make sure emacspeak is loaded from the correct directory. + (substitute* "etc/emacspeak.sh" + (("exec FLAVOR.*") + (string-append "exec " emacs " -l " lisp + "/lisp/emacspeak-setup.el $CL_ALL"))) + ;; Install the convenient startup script. + (mkdir-p bin) + (copy-file "etc/emacspeak.sh" (string-append bin "/emacspeak"))) + #t)) + (add-after 'install 'wrap-program + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (emacspeak (string-append out "/bin/emacspeak")) + (espeak (string-append (assoc-ref inputs "espeak") + "/bin/espeak"))) + ;; The environment variable DTK_PROGRAM tells emacspeak what + ;; program to use for speech. + (wrap-program emacspeak + `("DTK_PROGRAM" ":" prefix (,espeak))) + #t)))) + #:tests? #f)) ; no check target + (inputs + `(("emacs" ,emacs) + ("espeak" ,espeak) + ("perl" ,perl) + ("tcl" ,tcl) + ("tclx" ,tclx))) + (home-page "http://emacspeak.sourceforge.net") + (synopsis "Audio desktop interface for Emacs") + (description + "Emacspeak is a speech interface that allows visually impaired users to +interact independently and efficiently with the computer. Audio formatting +--a technique pioneered by AsTeR-- and full support for W3C's Aural CSS (ACSS) +allows Emacspeak to produce rich aural presentations of electronic information. +By seamlessly blending all aspects of the Internet such as Web-surfing and +messaging, Emacspeak speech-enables local and remote information via a +consistent and well-integrated user interface.") + (license license:gpl2+))) + +(define-public emacs-adaptive-wrap + (package + (name "emacs-adaptive-wrap") + (version "0.5.1") + (source (origin + (method url-fetch) + (uri (string-append + "http://elpa.gnu.org/packages/adaptive-wrap-" + version ".el")) + (sha256 + (base32 + "0qi7gjprcpywk2daivnlavwsx53hl5wcqvpxbwinvigg42vxh3ll")))) + (build-system emacs-build-system) + (home-page "http://elpa.gnu.org/packages/adaptive-wrap.html") + (synopsis "Smart line-wrapping with wrap-prefix") + (description + "This Emacs package provides the @code{adaptive-wrap-prefix-mode} +minor mode which sets the wrap-prefix property on the fly so that +single-long-line paragraphs get word-wrapped in a way similar to what +you'd get with @kbd{M-q} using @code{adaptive-fill-mode}, but without +actually changing the buffer's text.") + (license license:gpl3+))) + +(define-public emacs-diff-hl + (package + (name "emacs-diff-hl") + (version "1.8.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/diff-hl-" + version ".tar")) + (sha256 + (base32 + "1vxc7z7c2qs0mx7l5sa4sybi5qbzv0s79flj74p1ynw8dl3qxg3d")))) + (build-system emacs-build-system) + (home-page "https://github.com/dgutov/diff-hl") + (synopsis + "Highlight uncommitted changes using VC") + (description + "@code{diff-hl-mode} highlights uncommitted changes on the side of the +window (using the fringe, by default), allows you to jump between +the hunks and revert them selectively.") + (license license:gpl3+))) + +(define-public emacs-diminish + (package + (name "emacs-diminish") + (version "0.45") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/myrjola/diminish.el/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0i3629sv5cfrrb00hcnmaqzgs8mk36yasc1ax3ry1ga09nr6rkj9")))) + (build-system emacs-build-system) + (home-page "https://github.com/myrjola/diminish.el") + (synopsis "Diminish minor modes with no modeline display") + (description "@code{emacs-diminish} implements hiding or +abbreviation of the mode line displays (lighters) of minor modes.") + (license license:gpl2+))) + +(define-public emacs-use-package + (let ((commit "da8c9e2840343906e732f9699e43d35a1f06481d") + (revision "1")) + (package + (name "emacs-use-package") + (version (git-version "2.3" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jwiegley/use-package") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0jz38pbq1p9h85i6qcsh3sfzkd103y6mw3rg5zd14dxigp8ir3xz")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-diminish" ,emacs-diminish))) + (arguments + `(#:tests? #t + #:test-command '("emacs" "--batch" + "-l" "use-package-tests.el" + "-f" "ert-run-tests-batch-and-exit"))) + (home-page "https://github.com/jwiegley/use-package") + (synopsis "Declaration for simplifying your .emacs") + (description "The use-package macro allows you to isolate package +configuration in your @file{.emacs} file in a way that is both +performance-oriented and tidy.") + (license license:gpl2+)))) + +(define-public emacs-strace-mode + (let* ((commit "6a69b4b06db6797af56f33eda5cb28af94e59f11") + (revision "1")) + (package + (name "emacs-strace-mode") + (version (string-append "0.0.2-" revision "." (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/pkmoore/strace-mode") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1lbk2kzdznf2bkfazizfbimaxxzfzv00lrz1ran9dc2zqbc0bj9f")))) + (build-system emacs-build-system) + (home-page "https://github.com/pkmoore/strace-mode") + (synopsis "Emacs major mode to highlight strace outputs") + (description "@code{emacs-strace-mode} provides an Emacs major mode + highlighting strace outputs.") + (license license:gpl3+)))) + +(define-public emacs-default-encrypt + (package + (name "emacs-default-encrypt") + (version "4.3") + (source + (origin + (method url-fetch) + (uri (string-append + "https://www.informationelle-selbstbestimmung-im-internet.de" + "/emacs/jl-encrypt" version "/jl-encrypt.el")) + (file-name (string-append "jl-encrypt-" version ".el")) + (sha256 + (base32 + "16i3rlfp3jxlqvndn8idylhmczync3gwmy8a019v29vyr48rnnr0")))) + (build-system emacs-build-system) + (home-page "https://www.informationelle-selbstbestimmung-im-internet.de/Emacs.html") + (synopsis "Automatically encrypt or sign Gnus messages in Emacs") + (description + "DefaultEncrypt is designed to be used with Gnus in Emacs. It +automatically encrypts messages that you send (e.g., email) when public keys +for all recipients are available, and it protects you from accidentally +sending un-encrypted messages. It can also be configured to automatically +sign messages that you send. For details and instructions on how to use +DefaultEncrypt, please refer to the home page or read the comments in the +source file, @file{jl-encrypt.el}.") + (license license:gpl3+))) + +(define-public emacs-htmlize + (package + (name "emacs-htmlize") + (version "1.53") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/hniksic/emacs-htmlize/archive/release/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1lzaf9m1qr9dhw4nn53g6wszk2vqw95gpsbrc3y85bams4cn24ga")))) + (build-system emacs-build-system) + (home-page "https://github.com/hniksic/emacs-htmlize") + (synopsis "Convert buffer text and decorations to HTML") + (description "@code{emacs-htmlize} converts the buffer text and +the associated decorations to HTML. Output to CSS, inline CSS and +fonts is supported.") + (license license:gpl2+))) + +(define-public emacs-xmlgen + (package + (name "emacs-xmlgen") + (version "0.5") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/philjackson/xmlgen/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0zay490vjby3f7455r0vydmjg7q1gwc78hilpfb0rg4gwz224z8r")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("emacs" "--batch" + "-l" "xmlgen-test.el" + "-f" "ert-run-tests-batch-and-exit"))) + (home-page "https://github.com/philjackson/xmlgen") + (synopsis "S-expression to XML domain specific language (DSL) in +Emacs Lisp") + (description "@code{emacs-xmlgen} provides S-expression to XML +conversion for Emacs Lisp.") + (license license:gpl2+))) + +(define-public emacs-cdlatex + (package + (name "emacs-cdlatex") + (version "4.7") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/cdominik/cdlatex/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0pivapphmykc6vhvpx7hdyl55ls37vc4jcrxpvs4yk7jzcmwa9xp")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-auctex" ,emacs-auctex))) + (home-page "https://github.com/cdominik/cdlatex") + (synopsis "Fast Emacs input methods for LaTeX environments and +math") + (description "CDLaTeX is an Emacs minor mode supporting fast +insertion of environment templates and math in LaTeX. Similar +commands are also offered as part of the AUCTeX package, but it is not +the same - CDLaTeX focuses on speediness for inserting LaTeX +constructs.") + (license license:gpl3+))) + +(define-public emacs-cnfonts + (package + (name "emacs-cnfonts") + (version "0.9.1") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/tumashu/cnfonts/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1l6cgcvc6md1zq97ccczankpyi0k4vjx6apflny6kjq3p33lyhf4")))) + (build-system emacs-build-system) + (home-page "https://github.com/tumashu/cnfonts") + (synopsis "Emacs Chinese fonts setup tool") + (description "cnfonts is a Chinese fonts setup tool, allowing for easy +configuration of Chinese fonts.") + (license license:gpl2+))) + +(define-public emacs-php-mode + (package + (name "emacs-php-mode") + (version "20171225.342") + (source (origin + (method url-fetch) + (uri (string-append + "https://melpa.org/packages/php-mode-" + version ".tar")) + (sha256 + (base32 + "1zz682f34v4wsm2dyj1gnrnvsrqdq1cy7j8p6cvc398w2fziyg3q")))) + (build-system emacs-build-system) + (home-page "https://github.com/ejmr/php-mode") + (synopsis "Major mode for editing PHP code") + (description "@code{php-mode} is a major mode for editing PHP source +code. It's an extension of C mode; thus it inherits all C mode's navigation +functionality. But it colors according to the PHP grammar and indents +according to the PEAR coding guidelines. It also includes a couple handy +IDE-type features such as documentation search and a source and class +browser.") + (license license:gpl3+))) + +(define-public emacs-pos-tip + (package + (name "emacs-pos-tip") + (version "0.4.6") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/pitkali/pos-tip/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "12jqfy26vjk7lq0aa8yn8zqj8c85fkvx7y9prj0pcn4wqiz2ad2r")))) + (build-system emacs-build-system) + ;; The following functions and variables needed by emacs-pos-tip are + ;; not included in emacs-minimal: + ;; x-display-pixel-width, x-display-pixel-height, x-show-tip + (arguments `(#:emacs ,emacs)) + (home-page "https://github.com/pitkali/pos-tip") + (synopsis "Show tooltip at point") + (description "The standard library tooltip.el provides a function for +displaying a tooltip at the mouse position. However, locating a tooltip at an +arbitrary buffer position in a window is not easy. Pos-tip provides such a +function to be used by other frontend programs.") + (license license:gpl2+))) + +(define-public emacs-pyim-basedict + (package + (name "emacs-pyim-basedict") + (version "0.3.1") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/tumashu/pyim-basedict/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0nfgxviavkgrpyfsw60xsws4fk51fcmgl8fp6zf4ibqjjbp53n3n")))) + (build-system emacs-build-system) + (home-page "https://github.com/tumashu/pyim-basedict") + (synopsis "Input method dictionary of pyim") + (description "Pyim-basedict is the default pinyin input method dictionary, +containing words from the rime project.") + (license license:gpl2+))) + +(define-public emacs-pyim + (package + (name "emacs-pyim") + (version "1.8") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/tumashu/pyim") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "16rma4cv7xgky0g3x4an27v30jdi6i1sqw43cl99zhkqvp43l3f9")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-async" ,emacs-async) + ("emacs-pyim-basedict" ,emacs-pyim-basedict) + ("emacs-popup" ,emacs-popup) + ("emacs-posframe" ,emacs-posframe))) + (home-page "https://github.com/tumashu/pyim") + (synopsis "Chinese input method") + (description "Chinese input method which supports quanpin, shuangpin, wubi +and cangjie.") + (license license:gpl2+))) + +(define-public emacs-posframe + (package + (name "emacs-posframe") + (version "0.4.2") + (source + (origin + (method url-fetch) + (uri (string-append + "https://elpa.gnu.org/packages/posframe-" version ".el")) + (sha256 + (base32 + "1h8vvxvsg41vc1nnglqjs2q0k1yzfsn72skga9s76qa3zxmx6kds")))) + (build-system emacs-build-system) + ;; emacs-minimal does not include the function font-info + (arguments `(#:emacs ,emacs)) + (home-page "https://github.com/tumashu/posframe") + (synopsis "Pop a posframe (a child frame) at point") + (description "@code{emacs-posframe} can pop a posframe at point. A +posframe is a child frame displayed within its root window's buffer. +@code{emacs-posframe} is fast and works well with CJK languages.") + (license license:gpl3+))) + +(define-public emacs-el2org + (package + (name "emacs-el2org") + (version "0.6.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/tumashu/el2org/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0gd3km1swwvg2w0kdi7370f54wgrflxn63gjgssfjc1iyc9sbqwq")))) + (build-system emacs-build-system) + (home-page "https://github.com/tumashu/el2org") + (synopsis "Convert Emacs-lisp file to org file") + (description "El2org is a simple tool, which can convert Emacs-lisp file +to org file, you can use this tool to write orgify commentary.") + (license license:gpl2+))) + +(define-public emacs-mustache + (package + (name "emacs-mustache") + (version "0.23") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/Wilfred/mustache.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0k9lcgil7kykkv1ylrgwy1g13ldjjmgi2cwmysgyb2vlj3jbwpdj")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-ht" ,emacs-ht) + ("emacs-s" ,emacs-s))) + (home-page "https://github.com/Wilfred/mustache.el") + (synopsis "Mustache templating library for Emacs") + (description "Mustache templating library for Emacs, mustache is +a simple web template system, which is described as a logic-less system +because it lacks any explicit control flow statements, both looping and +conditional evaluation can be achieved using section tags processing lists +and lambdas.") + (license license:gpl3+))) + +(define-public emacs-org2web + (package + (name "emacs-org2web") + (version "0.9.1") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/tumashu/org2web/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1c0ixcphlhp4c4qdiwq40bc3yp1gp1llp8pxrk4s7ny9n68s52zp")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-el2org" ,emacs-el2org) + ("emacs-ht" ,emacs-ht) + ("emacs-mustache" ,emacs-mustache) + ("emacs-simple-httpd" ,emacs-simple-httpd))) + (home-page "https://github.com/tumashu/org2web") + (synopsis "Static site generator based on org-mode ") + (description "Org2web is a static site generator based on org-mode, +which code derived from Kelvin H's org-page.") + (license license:gpl2+))) + +(define-public emacs-xelb + (package + (name "emacs-xelb") + (version "0.16") + (source (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/xelb-" + version ".tar")) + (sha256 + (base32 + "03wsr1jr7f7zfd80h864rd4makwh4widdnj1kjv2xyjwdgap9rl8")))) + (build-system emacs-build-system) + ;; The following functions and variables needed by emacs-xelb are + ;; not included in emacs-minimal: + ;; x-display-screens, x-keysym-table, x-alt-keysym, x-meta-keysym + ;; x-hyper-keysym, x-super-keysym, libxml-parse-xml-region + ;; x-display-pixel-width, x-display-pixel-height + (arguments + `(#:emacs ,emacs + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'regenerate-el-files + (lambda* (#:key inputs #:allow-other-keys) + (invoke "make" + (string-append "PROTO_PATH=" + (assoc-ref inputs "xcb-proto") + "/share/xcb") + (string-append "EMACS_BIN=" + (assoc-ref inputs "emacs") + "/bin/emacs -Q"))))))) + (native-inputs `(("xcb-proto" ,xcb-proto))) + (home-page "https://github.com/ch11ng/xelb") + (synopsis "X protocol Emacs Lisp binding") + (description "@code{emacs-xelb} is a pure Emacs Lisp implementation of the +X11 protocol based on the XML description files from the XCB project. It +features an object-oriented API and permits a certain degree of concurrency. +It should enable you to implement low-level X11 applications.") + (license license:gpl3+))) + +(define-public emacs-exwm + (package + (name "emacs-exwm") + (version "0.21") + (synopsis "Emacs X window manager") + (source (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/exwm-" + version ".tar")) + (sha256 + (base32 + "07ng1pgsnc3isfsyzh2gfc7391p9il8lb5xqf1z6yqn20w7k6xzj")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-xelb" ,emacs-xelb))) + (inputs + `(("xhost" ,xhost) + ("dbus" ,dbus))) + ;; The following functions and variables needed by emacs-exwm are + ;; not included in emacs-minimal: + ;; scroll-bar-mode, fringe-mode + ;; x-display-pixel-width, x-display-pixel-height + (arguments + `(#:emacs ,emacs + #:phases + (modify-phases %standard-phases + (add-after 'build 'install-xsession + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (xsessions (string-append out "/share/xsessions")) + (bin (string-append out "/bin")) + (exwm-executable (string-append bin "/exwm"))) + ;; Add a .desktop file to xsessions + (mkdir-p xsessions) + (mkdir-p bin) + (with-output-to-file + (string-append xsessions "/exwm.desktop") + (lambda _ + (format #t "[Desktop Entry]~@ + Name=~a~@ + Comment=~a~@ + Exec=~a~@ + TryExec=~@*~a~@ + Type=Application~%" ,name ,synopsis exwm-executable))) + ;; Add a shell wrapper to bin + (with-output-to-file exwm-executable + (lambda _ + (format #t "#!~a ~@ + ~a +SI:localuser:$USER ~@ + exec ~a --exit-with-session ~a \"$@\" --eval '~s' ~%" + (string-append (assoc-ref inputs "bash") "/bin/sh") + (string-append (assoc-ref inputs "xhost") "/bin/xhost") + (string-append (assoc-ref inputs "dbus") "/bin/dbus-launch") + (string-append (assoc-ref inputs "emacs") "/bin/emacs") + '(cond + ((file-exists-p "~/.exwm") + (load-file "~/.exwm")) + ((not (featurep 'exwm)) + (require 'exwm) + (require 'exwm-config) + (exwm-config-default) + (message (concat "exwm configuration not found. " + "Falling back to default configuration..."))))))) + (chmod exwm-executable #o555) + #t)))))) + (home-page "https://github.com/ch11ng/exwm") + (description "EXWM is a full-featured tiling X window manager for Emacs +built on top of XELB.") + (license license:gpl3+))) + +(define-public emacs-switch-window + (package + (name "emacs-switch-window") + (version "1.6.2") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/dimitri/switch-window") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0rci96asgamr6qp6nkyr5vwrnslswjxcjd96yccy4aivh0g66yfg")))) + (build-system emacs-build-system) + (home-page "https://github.com/dimitri/switch-window") + (synopsis "Emacs window switch tool") + (description "Switch-window is an emacs window switch tool, which +offer a visual way to choose a window to switch to, delete, split or +other operations.") + (license license:wtfpl2))) + +(define-public emacs-exwm-x + (package + (name "emacs-exwm-x") + (version "1.9.0") + (synopsis "Derivative window manager based on EXWM") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/tumashu/exwm-x") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "03l3dl7s1qys1kkh40rm1sfx7axy1b8sf5f6nyksj9ps6d30p5i4")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-exwm" ,emacs-exwm) + ("emacs-switch-window" ,emacs-switch-window) + ("emacs-ivy" ,emacs-ivy) + ("emacs-use-package" ,emacs-use-package))) + (inputs + `(("xhost" ,xhost) + ("dbus" ,dbus))) + ;; Need emacs instead of emacs-minimal, + ;; for emacs's bin path will be inserted into bin/exwm-x file. + (arguments + `(#:emacs ,emacs + #:phases + (modify-phases %standard-phases + (add-after 'build 'install-xsession + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (xsessions (string-append out "/share/xsessions")) + (bin (string-append out "/bin")) + (exwm-executable (string-append bin "/exwm-x"))) + ;; Add a .desktop file to xsessions + (mkdir-p xsessions) + (mkdir-p bin) + (with-output-to-file + (string-append xsessions "/exwm-x.desktop") + (lambda _ + (format #t "[Desktop Entry]~@ + Name=~a~@ + Comment=~a~@ + Exec=~a~@ + TryExec=~@*~a~@ + Type=Application~%" ,name ,synopsis exwm-executable))) + ;; Add a shell wrapper to bin + (with-output-to-file exwm-executable + (lambda _ + (format #t "#!~a ~@ + ~a +SI:localuser:$USER ~@ + exec ~a --exit-with-session ~a \"$@\" --eval '~s' ~%" + (string-append (assoc-ref inputs "bash") "/bin/sh") + (string-append (assoc-ref inputs "xhost") "/bin/xhost") + (string-append (assoc-ref inputs "dbus") "/bin/dbus-launch") + (string-append (assoc-ref inputs "emacs") "/bin/emacs") + '(require 'exwmx-loader)))) + (chmod exwm-executable #o555) + #t)))))) + (home-page "https://github.com/tumashu/exwm-x") + (description "EXWM-X is a derivative window manager based on EXWM, with focus +on mouse-control.") + (license license:gpl3+))) + +(define-public emacs-gnuplot + (package + (name "emacs-gnuplot") + (version "0.7.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/bruceravel/gnuplot-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0glzymrn138lwig7p4cj17x4if5jisr6l4g6wcbxisqkqgc1h01i")))) + (build-system gnu-build-system) + (native-inputs `(("emacs" ,emacs-minimal))) + (arguments + (let ((elisp-dir (string-append "/share/emacs/site-lisp/guix.d" + "/gnuplot-" version))) + `(#:modules ((guix build gnu-build-system) + (guix build utils) + (guix build emacs-utils)) + #:imported-modules (,@%gnu-build-system-modules + (guix build emacs-utils)) + #:configure-flags + (list (string-append "EMACS=" (assoc-ref %build-inputs "emacs") + "/bin/emacs") + (string-append "--with-lispdir=" %output ,elisp-dir)) + #:phases + (modify-phases %standard-phases + (add-after 'install 'generate-autoloads + (lambda* (#:key outputs #:allow-other-keys) + (emacs-generate-autoloads + "gnuplot" + (string-append (assoc-ref outputs "out") ,elisp-dir)) + #t)))))) + (home-page "https://github.com/bruceravel/gnuplot-mode") + (synopsis "Emacs major mode for interacting with gnuplot") + (description "@code{emacs-gnuplot} is an emacs major mode for interacting +with gnuplot.") + (license license:gpl2+))) + +(define-public emacs-transpose-frame + (package + (name "emacs-transpose-frame") + (version "0.1.0") + (source + (origin + (method url-fetch) + (uri "http://www.emacswiki.org/emacs/download/transpose-frame.el") + (file-name (string-append "transpose-frame-" version ".el")) + (sha256 + (base32 + "1f67yksgw9s6j0033hmqzaxx2a93jm11sd5ys7cc3li5gfh680m4")))) + (build-system emacs-build-system) + (home-page "https://www.emacswiki.org/emacs/TransposeFrame") + (synopsis "Transpose window arrangement in current frame") + (description "@code{emacs-transpose-frame} provides some interactive +functions which allows users to transpose windows arrangement in currently +selected frame.") + (license license:bsd-2))) + +(define-public emacs-key-chord + (package + (name "emacs-key-chord") + (version "0.6") + (source + (origin + (method url-fetch) + (uri "https://www.emacswiki.org/emacs/download/key-chord.el") + (file-name (string-append "key-chord-" version ".el")) + (sha256 + (base32 + "03m44pqggfrd53nh9dvpdjgm0rvca34qxmd30hr33hzprzjambxg")))) + (build-system emacs-build-system) + (home-page "https://www.emacswiki.org/emacs/key-chord.el") + (synopsis "Map pairs of simultaneously pressed keys to Emacs commands") + (description "@code{emacs-key-chord} provides @code{key-chord-mode}, a +mode for binding key chords to commands. A key chord is defined as two keys +pressed simultaneously or a single key quickly pressed twice.") + (license license:gpl2+))) + +(define-public emacs-evil-surround + (package + (name "emacs-evil-surround") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/timcharper/evil-surround/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0p572jgic3q1ia1nz37kclir729ay6i2f4sa7wnaapyxly2lwb3r")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-evil" ,emacs-evil))) + (home-page "https://github.com/timcharper/evil-surround") + (synopsis "Easily modify surrounding parantheses and quotes") + (description "@code{emacs-evil-surround} allows easy deletion, change and +addition of surrounding pairs, such as parantheses and quotes, in evil mode.") + (license license:gpl3+))) + +(define-public emacs-evil-commentary + (package + (name "emacs-evil-commentary") + (version "2.1.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/linktohack/evil-commentary/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1jdya0i921nwskwrzdsj0vrr3m7gm49dy6f6pk9p5nxaarfxk230")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-evil" ,emacs-evil))) + (home-page "https://github.com/linktohack/evil-commentary") + (synopsis "Comment out code in evil mode") + (description "@code{emacs-evil-commentary} adds keybindings to easily +comment out lines of code in evil mode. It provides @code{gcc} to comment out +lines, and @code{gc} to comment out the target of a motion.") + (license license:gpl3+))) + +;; Tests for emacs-ansi have a circular dependency with ert-runner, and +;; therefore cannot be run +(define-public emacs-ansi + (package + (name "emacs-ansi") + (version "0.4.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/rejeep/ansi.el/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "13jj4vbi98j3p17hs99bmy7g21jd5h4v3wpxk4pkvhylm3bfwjw8")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-s" ,emacs-s))) + (home-page "https://github.com/rejeep/ansi.el") + (synopsis "Convert strings to ANSI") + (description "@code{emacs-ansi} defines functions that turns simple +strings to ANSI strings. Turning a string into an ANSI string can be to add +color to a text, add color in the background of a text or adding a style, such +as bold, underscore or italic.") + (license license:gpl3+))) + +;; Tests for emacs-commander have a circular dependency with ert-runner, and +;; therefore cannot be run +(define-public emacs-commander + (package + (name "emacs-commander") + (version "0.7.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/rejeep/commander.el/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "196s2i15z7gwxa97l1wkxvjnfmj5n38wwm6d3g4zz15l2vqggc2y")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-f" ,emacs-f) + ("emacs-s" ,emacs-s))) + (home-page "https://github.com/rejeep/commander.el") + (synopsis "Emacs command line parser") + (description "@code{emacs-commander} provides command line parsing for +Emacs.") + (license license:gpl3+))) + +;; Tests for ert-runner have a circular dependency with ecukes, and therefore +;; cannot be run +(define-public emacs-ert-runner + (package + (name "emacs-ert-runner") + (version "0.7.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/rejeep/ert-runner.el/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1657nck9i96a4xgl8crfqq0s8gflzp21pkkzwg6m3z5npjxklgwp")))) + (build-system emacs-build-system) + (inputs + `(("emacs-ansi" ,emacs-ansi) + ("emacs-commander" ,emacs-commander) + ("emacs-dash" ,emacs-dash) + ("emacs-f" ,emacs-f) + ("emacs-s" ,emacs-s) + ("emacs-shut-up" ,emacs-shut-up))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'install-executable + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (substitute* "bin/ert-runner" + (("ERT_RUNNER=\"\\$\\(dirname \\$\\(dirname \\$0\\)\\)") + (string-append "ERT_RUNNER=\"" out + "/share/emacs/site-lisp/guix.d/ert-runner-" + ,version))) + (install-file "bin/ert-runner" (string-append out "/bin")) + (wrap-program (string-append out "/bin/ert-runner") + (list "EMACSLOADPATH" ":" 'prefix + (string-split (getenv "EMACSLOADPATH") #\:))) + #t)))) + #:include (cons* "^reporters/.*\\.el$" %default-include))) + (home-page "https://github.com/rejeep/ert-runner.el") + (synopsis "Opinionated Ert testing workflow") + (description "@code{ert-runner} is a tool for Emacs projects tested +using ERT. It assumes a certain test structure setup and can therefore make +running tests easier.") + (license license:gpl3+))) + +(define-public ert-runner + (deprecated-package "ert-runner" emacs-ert-runner)) + +(define-public emacs-disable-mouse + (package + (name "emacs-disable-mouse") + (version "0.2") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/purcell/disable-mouse/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0haqpq23r1wx04lsqrrg3p5visg9hx5i36dg55ab003wfsrlrzbc")))) + (build-system emacs-build-system) + (home-page "https://github.com/purcell/disable-mouse") + (synopsis "Disable mouse commands globally") + (description + "Provides @code{disable-mouse-mode} and @code{global-disable-mouse-mode}, +pair of minor modes which suppress all mouse events by intercepting them and +running a customisable handler command (@code{ignore} by default). ") + (license license:gpl3+))) + +(define-public emacs-json-reformat + (package + (name "emacs-json-reformat") + (version "0.0.6") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/gongo/json-reformat/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "11fbq4scrgr7m0iwnzcrn2g7xvqwm2gf82sa7zy1l0nil7265p28")) + (patches (search-patches "emacs-json-reformat-fix-tests.patch")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-undercover" ,emacs-undercover))) + (native-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-shut-up" ,emacs-shut-up) + ("ert-runner" ,emacs-ert-runner))) + (arguments + `(#:tests? #t + #:test-command '("ert-runner"))) + (home-page "https://github.com/gongo/json-reformat") + (synopsis "Reformatting tool for JSON") + (description "@code{json-reformat} provides a reformatting tool for +@url{http://json.org/, JSON}.") + (license license:gpl3+))) + +(define-public emacs-json-snatcher + (package + (name "emacs-json-snatcher") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Sterlingg/json-snatcher/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1nfiwsifpdiz0lbrqa77nl0crnfrv5h85ans9b0g5rggnmyshcfb")))) + (build-system emacs-build-system) + (home-page "https://github.com/sterlingg/json-snatcher") + (synopsis "Grabs the path to JSON values in a JSON file") + (description "@code{emacs-json-snatcher} grabs the path to JSON values in +a @url{http://json.org/, JSON} file.") + (license license:gpl3+))) + +(define-public emacs-json-mode + (package + (name "emacs-json-mode") + (version "1.7.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/joshwnj/json-mode/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "06h45p4cn767pk9sqi2zb1c65wy5gyyijqxzpglp80zwxhvajdz5")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-json-reformat" ,emacs-json-reformat) + ("emacs-json-snatcher" ,emacs-json-snatcher))) + (home-page "https://github.com/joshwnj/json-mode") + (synopsis "Major mode for editing JSON files") + (description "@code{json-mode} extends the builtin js-mode syntax +highlighting.") + (license license:gpl3+))) + +(define-public emacs-restclient + (let ((commit "07a3888bb36d0e29608142ebe743b4362b800f40") + (revision "1")) ;Guix package revision, + ;upstream doesn't have official releases + (package + (name "emacs-restclient") + (version (string-append revision "." + (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/pashky/restclient.el.git") + (commit commit))) + (sha256 + (base32 + "00lmjhb5im1kgrp54yipf1h9pshxzgjlg71yf2rq5n973gvb0w0q")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm))) + (home-page "https://github.com/pashky/restclient.el") + (synopsis "Explore and test HTTP REST webservices") + (description + "This tool allows for testing and exploration of HTTP REST Web services +from within Emacs. Restclient runs queries from a plan-text query sheet, +displays results pretty-printed in XML or JSON with @code{restclient-mode}") + (license license:public-domain)))) + +(define-public emacs-eimp + (let ((version "1.4.0") + (commit "2e7536fe6d8f7faf1bad7a8ae37faba0162c3b4f") + (revision "1")) + (package + (name "emacs-eimp") + (version (git-version version revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/nicferrier/eimp.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "154d57yafxbcf39r89n5j43c86rp2fki3lw3gwy7ww2g6qkclcra")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs #:allow-other-keys) + (let ((imagemagick (assoc-ref inputs "imagemagick"))) + ;; eimp.el is read-only in git. + (chmod "eimp.el" #o644) + (emacs-substitute-variables "eimp.el" + ("eimp-mogrify-program" + (string-append imagemagick "/bin/mogrify")))) + #t))))) + (inputs + `(("imagemagick" ,imagemagick))) + (home-page "https://github.com/nicferrier/eimp") + (synopsis "Interactive image manipulation utility for Emacs") + (description "@code{emacs-eimp} allows interactive image manipulation +from within Emacs. It uses the code@{mogrify} utility from ImageMagick to do +the actual transformations.") + (license license:gpl2+)))) + +(define-public emacs-dired-hacks + (let ((commit "eda68006ce73bbf6b9b995bfd70d08bec8cade36") + (revision "1")) + (package + (name "emacs-dired-hacks") + (version (string-append "0.0.1-" revision "." + (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Fuco1/dired-hacks.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1w7ssl9zssn5rcha6apf4h8drkd02k4xgvs203bdbqyqp9wz9brx")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-eimp" ,emacs-eimp) + ("emacs-f" ,emacs-f) + ("emacs-s" ,emacs-s))) + (home-page "https://github.com/Fuco1/dired-hacks") + (synopsis + "Collection of useful dired additions") + (description + "Collection of Emacs dired mode additions: +@itemize +@item dired-avfs +@item dired-columns +@item dired-filter +@item dired-hacks-utils +@item dired-images +@item dired-list +@item dired-narrow +@item dired-open +@item dired-rainbow +@item dired-ranger +@item dired-subtree +@item dired-tagsistant +@end itemize\n") + (license license:gpl3+)))) + +(define-public emacs-dired-sidebar + (let ((commit "06bd0d40bab812c61a668129daf29ba359424454") + (revision "0")) + (package + (name "emacs-dired-sidebar") + (home-page "https://github.com/jojojames/dired-sidebar") + (version (git-version "0.0.1" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference (url home-page) (commit commit))) + (sha256 + (base32 + "0lvwvq6sl80sha9fq5m4568sg534dhmifyjqw75bqddcbf3by84x")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dired-subtree" ,emacs-dired-hacks))) + (synopsis "Sidebar for Emacs using Dired") + (description + "This package provides a sidebar for Emacs similar to @code{NeoTree} +or @code{treemacs}, but leveraging @code{Dired} to do the job of display.") + (license license:gpl3+)))) + +(define-public emacs-which-key + (package + (name "emacs-which-key") + (version "3.3.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/justbur/emacs-which-key/archive/v" + version ".tar.gz")) + (sha256 + (base32 + "1lsj314111cp2hjjwnv3f46ws1za6bm39rgy3l19044xf6a68j5w")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("emacs" "--batch" + "-l" "which-key-tests.el" + "-f" "ert-run-tests-batch-and-exit"))) + (home-page "https://github.com/justbur/emacs-which-key") + (synopsis "Display available key bindings in popup") + (description + "@code{emacs-which-key} is a minor mode for Emacs that displays the key +bindings following your currently entered incomplete command (a prefix) in a +popup. For example, after enabling the minor mode if you enter C-x and wait +for the default of 1 second, the minibuffer will expand with all of the +available key bindings that follow C-x (or as many as space allows given your +settings).") + (license license:gpl3+))) + +(define-public emacs-ws-butler + (package + (name "emacs-ws-butler") + (version "0.6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/lewang/ws-butler.git") + (commit "323b651dd70ee40a25accc940b8f80c3a3185205"))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1a4b0lsmwq84qfx51c5xy4fryhb1ysld4fhgw2vr37izf53379sb")))) + (build-system emacs-build-system) + (native-inputs + `(("ert-runner" ,emacs-ert-runner))) + (arguments + `(#:tests? #t + #:test-command '("ert-runner" "tests"))) + (home-page "https://github.com/lewang/ws-butler") + (synopsis "Trim spaces from end of lines") + (description + "This Emacs package automatically and unobtrusively trims whitespace +characters from end of lines.") + (license license:gpl3+))) + +(define-public emacs-org-edit-latex + (package + (name "emacs-org-edit-latex") + (version "0.8.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/et2010/org-edit-latex/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1y4h6wrs8286h9pbsv4d8fr67a885vz8b2k80qgv5qddipi2i78p")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-auctex" ,emacs-auctex) + ;; The version of org in Emacs 25.2 is not sufficient, because the + ;; `org-latex-make-preamble' function is required. + ("emacs-org" ,emacs-org))) + (home-page "https://github.com/et2010/org-edit-latex") + (synopsis "Edit a latex fragment just like editing a src block") + (description "@code{emacs-org-edit-latex} is an extension for org-mode. +It lets you edit a latex fragment in a dedicated buffer just like editing a +src block.") + (license license:gpl3+))) + +(define-public emacs-emamux + (package + (name "emacs-emamux") + (version "0.14") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/syohex/emacs-emamux/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0wlqg4icy037bj70b0qmhvwvmiwhagpnx6pnxhq6gzy1hvwlilkx")))) + (build-system emacs-build-system) + (home-page "https://github.com/syohex/emacs-emamux") + (synopsis "Manipulate Tmux from Emacs") + (description + "@code{emacs-emamux} lets Emacs interact with the @code{tmux} terminal +multiplexer.") + (license license:gpl3+))) + +(define-public emacs-rpm-spec-mode + (package + (name "emacs-rpm-spec-mode") + (version "0.16") + (source + (origin + (method url-fetch) + ;; URI has the Fedora release number instead of the version + ;; number. This will have to updated manually every new release. + (uri (string-append + "https://src.fedoraproject.org/cgit/rpms" + "/emacs-rpm-spec-mode.git/snapshot" + "/emacs-rpm-spec-mode-f26.tar.gz")) + (sha256 + (base32 + "17dz80lhjrc89fj17pysl8slahzrqdkxgcjdk55zls6jizkr6kz3")))) + (build-system emacs-build-system) + (home-page "http://pkgs.fedoraproject.org/cgit/rpms/emacs-rpm-spec-mode.git") + (synopsis "Emacs major mode for editing RPM spec files") + (description "@code{emacs-rpm-spec-mode} provides an Emacs major mode for +editing RPM spec files.") + (license license:gpl2+))) + +(define-public emacs-git-messenger + (package + (name "emacs-git-messenger") + (version "0.18") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/syohex/emacs-git-messenger/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "17mqki6g0wx46fn7dcbcc2pjxik7vvrcb1j9jzxim8b9psbsbnp9")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-popup" ,emacs-popup))) + (arguments + `(#:tests? #t + #:test-command '("emacs" "--batch" "-l" "test/test.el" + "-f" "ert-run-tests-batch-and-exit"))) + (home-page "https://github.com/syohex/emacs-git-messenger") + (synopsis "Popup commit message at current line") + (description "@code{emacs-git-messenger} provides +@code{git-messenger:popup-message}, a function that when called, will popup +the last git commit message for the current line. This uses git-blame +internally.") + (license license:gpl3+))) + +(define-public emacs-gitpatch + (package + (name "emacs-gitpatch") + (version "0.5.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/tumashu/gitpatch/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1yj6pmic541lcnscjin300k380qp9xdfprs55xg1q57jrkq6f6k7")))) + (build-system emacs-build-system) + (home-page "https://github.com/tumashu/gitpatch") + (synopsis "Mail git patch from Emacs") + (description "@code{emacs-gitpatch} lets users easily send git patches, +created by @code{git format-patch}, from @code{magit}, @code{dired} and +@code{ibuffer} buffers.") + (license license:gpl3+))) + +(define-public emacs-erc-hl-nicks + (package + (name "emacs-erc-hl-nicks") + (version "1.3.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/leathekd/erc-hl-nicks" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1a1r2kc3688g8c2ybkpwh88kgmnqhg3h3032g2yn4zr9m0n3vpkr")))) + (build-system emacs-build-system) + (synopsis "Nickname highlighting for Emacs ERC") + (description "@code{erc-hl-nicks} highlights nicknames in ERC, an IRC +client for Emacs. The main features are: +@itemize +@item Auto-colorizes nicknames without having to specify colors +@item Ignores certain characters that IRC clients add to nicknames to avoid +duplicates (nickname, nickname’, nickname\", etc.) +@item Attempts to produce colors with a sufficient amount of contrast between +the nick color and the background color +@end itemize\n") + (home-page "https://github.com/leathekd/erc-hl-nicks") + (license license:gpl3+))) + +(define-public emacs-engine-mode + (package + (name "emacs-engine-mode") + (version "2.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/hrs/engine-mode/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1vm4p7pcp1vnwwxvps1bhm7i7hkabqqxl898knxf2hqvxys76684")))) + (build-system emacs-build-system) + (synopsis "Minor mode for defining and querying search engines") + (description "@code{engine-mode} is a global minor mode for Emacs. It +enables you to easily define search engines, bind them to keybindings, and +query them from the comfort of your editor.") + (home-page "https://github.com/hrs/engine-mode") + (license license:gpl3+))) + +(define-public emacs-prop-menu + (package + (name "emacs-prop-menu") + (version "0.1.2") + (source + (origin + (method url-fetch) + (uri (string-append + "http://stable.melpa.org/packages/prop-menu-" + version ".el")) + (sha256 + (base32 + "01bk4sjafzz7gqrkv9jg0pa85qr34vbk3q8ga2b0m61bndywzgpr")))) + (build-system emacs-build-system) + (home-page + "https://github.com/david-christiansen/prop-menu-el") + (synopsis + "Create and display a context menu based on text and overlay properties") + (description + "This is a library for computing context menus based on text +properties and overlays. The intended use is to have tools that +annotate source code and others that use these annotations, without +requiring a direct coupling between them, but maintaining +discoverability. + +Major modes that wish to use this library should first define an +appropriate value for @code{prop-menu-item-functions}. Then, they should +bind @code{prop-menu-by-completing-read} to an appropriate +key. Optionally, a mouse pop-up can be added by binding +@code{prop-menu-show-menu} to a mouse event.") + (license license:gpl3+))) + +(define-public emacs-idris-mode + (package + (name "emacs-idris-mode") + (version "0.9.19") + (source + (origin + (method url-fetch) + (uri (string-append + "http://stable.melpa.org/packages/idris-mode-" + version ".tar")) + (sha256 + (base32 + "02r1qqsxi6qk7q4cj6a6pygbj856dcw9vcmhfh0ib92j41v77q6y")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-prop-menu" ,emacs-prop-menu))) + (home-page + "https://github.com/idris-hackers/idris-mode") + (synopsis "Major mode for editing Idris code") + (description + "This is an Emacs mode for editing Idris code. It requires the latest +version of Idris, and some features may rely on the latest Git version of +Idris.") + (license license:gpl3+))) + +(define-public emacs-browse-at-remote + (package + (name "emacs-browse-at-remote") + (version "0.10.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/rmuslimov/browse-at-remote/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ymslsp6i1naw25zckv25bf4aaq6qwkbkn95qyzlwg869l802686")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-f" ,emacs-f) + ("emacs-s" ,emacs-s))) + (native-inputs + `(("ert-runner" ,emacs-ert-runner))) + (arguments + `(#:tests? #t + #:test-command '("ert-runner"))) + (home-page "https://github.com/rmuslimov/browse-at-remote") + (synopsis "Open github/gitlab/bitbucket/stash page from Emacs") + (description + "This Emacs package allows you to open a target page on +github/gitlab (or bitbucket) by calling @code{browse-at-remote} command. +It supports dired buffers and opens them in tree mode at destination.") + (license license:gpl3+))) + +(define-public emacs-tiny + (package + (name "emacs-tiny") + (version "0.2.1") + (source + (origin + (method url-fetch) + (uri (string-append "http://elpa.gnu.org/packages/tiny-" version ".tar")) + (sha256 + (base32 + "1cr73a8gba549ja55x0c2s554f3zywf69zbnd7v82jz5q1k9wd2v")))) + (build-system emacs-build-system) + (home-page "https://github.com/abo-abo/tiny") + (synopsis "Quickly generate linear ranges in Emacs") + (description + "The main command of the @code{tiny} extension for Emacs is @code{tiny-expand}. +It is meant to quickly generate linear ranges, e.g. 5, 6, 7, 8. Some elisp +proficiency is an advantage, since you can transform your numeric range with +an elisp expression.") + (license license:gpl3+))) + +(define-public emacs-emojify + (package + (name "emacs-emojify") + (version "0.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/iqbalansari/emacs-emojify/" + "releases/download/v" version "/emojify-" + version ".tar")) + (sha256 + (base32 + "0k84v2d2bkiwcky9fi1yyprgkj46g7wh6pyl9gzmcd7sqv051d5n")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'install-data + (lambda* (#:key outputs #:allow-other-keys) + (copy-recursively "data" + (string-append (assoc-ref outputs "out") + "/share/emacs/site-lisp/guix.d/" + "emojify-" ,version "/data")) + #t))))) + (propagated-inputs + `(("emacs-ht" ,emacs-ht))) + (home-page "https://github.com/iqbalansari/emacs-emojify") + (synopsis "Display emojis in Emacs") + (description "This package displays emojis in Emacs similar to how Github, +Slack, and other websites do. It can display plain ASCII like @code{:)} as +well as Github-style emojis like @code{:smile:}. It provides a minor mode +@code{emojify-mode} to enable the display of emojis in a buffer.") + (license license:gpl3+))) + +(define-public emacs-websocket + (package + (name "emacs-websocket") + (version "1.10") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ahyatt/emacs-websocket.git") + (commit version))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1dgrf7na6r6mmkknphzshlbd5fnzisg0qn0j7vfpa38wgsymaq52")))) + (build-system emacs-build-system) + (home-page "http://elpa.gnu.org/packages/websocket.html") + (synopsis "Emacs WebSocket client and server") + (description "This is an Elisp library for WebSocket clients to talk to +WebSocket servers, and for WebSocket servers to accept connections from +WebSocket clients. This library is designed to be used by other library +writers, to write applications that use WebSockets, and is not useful by +itself.") + (license license:gpl3+))) + +(define-public emacs-oauth2 + (package + (name "emacs-oauth2") + (version "0.11") + (source + (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/oauth2-" + version ".el")) + (sha256 + (base32 + "0ydkc9jazsnbbvfhd47mql52y7k06n3z7r0naqxkwb99j9blqsmp")))) + (build-system emacs-build-system) + (home-page "http://elpa.gnu.org/packages/oauth2.html") + (synopsis "OAuth 2.0 authorization protocol implementation") + (description + "This package provides an Elisp implementation of the OAuth 2.0 draft. +The main entry point is @code{oauth2-auth-and-store} which will return a token +structure. This token structure can be then used with +@code{oauth2-url-retrieve-synchronously} or @code{oauth2-url-retrieve} to +retrieve any data that need OAuth authentication to be accessed. If the token +needs to be refreshed, the code handles it automatically and stores the new +value of the access token.") + (license license:gpl3+))) + +(define-public emacs-circe + (package + (name "emacs-circe") + (version "2.10") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jorgenschaefer/circe.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "10gi14kwxd81blddpvqh95lgmpbfgp0m955naxix3bs3r6a75n4s")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("buttercup" "-L" ".") + #:phases + (modify-phases %standard-phases + ;; The HOME environment variable should be set to an existing + ;; directory for the tests to succeed. + (add-before 'check 'set-home + (lambda _ + (setenv "HOME" "/tmp") + #t))))) + (native-inputs + `(("emacs-buttercup" ,emacs-buttercup))) + ;; In order to securely connect to an IRC server using TLS, Circe requires + ;; the GnuTLS binary. + (propagated-inputs + `(("gnutls" ,gnutls))) + (home-page "https://github.com/jorgenschaefer/circe") + (synopsis "Client for IRC in Emacs") + (description "Circe is a Client for IRC in Emacs. It integrates well with +the rest of the editor, using standard Emacs key bindings and indicating +activity in channels in the status bar so it stays out of your way unless you +want to use it.") + (license license:gpl3+))) + +(define-public emacs-tracking + (package + (inherit emacs-circe) + (name "emacs-tracking") + (arguments + ;; "tracking.el" is a library extracted from Circe package. It requires + ;; "shorten.el". + `(#:include '("^shorten.el$" "^tracking.el$") + ,@(package-arguments emacs-circe))) + (home-page "https://github.com/jorgenschaefer/circe/wiki/Tracking") + (synopsis "Buffer tracking library") + (description "@code{tracking.el} provides a way for different modes to +notify the user that a buffer needs attention. The user then can cycle +through them using @key{C-c C-SPC}.") + (license license:gpl3+))) + +(define-public emacs-slack + (let ((commit "99a57501629a0329a9ca090c1ea1296462eda02d") + (revision "5")) + (package + (name "emacs-slack") + (version (git-version "0.0.2" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/yuya373/emacs-slack.git") + (commit commit))) + (file-name (git-file-name name commit)) + (sha256 + (base32 + "0jw1diypfw8pmzkq0napgxmfc0gqka7zcccgnw359604lr30k2z2")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-alert" ,emacs-alert) + ("emacs-emojify" ,emacs-emojify) + ("emacs-helm" ,emacs-helm) + ("emacs-request" ,emacs-request) + ("emacs-websocket" ,emacs-websocket) + ("emacs-oauth2" ,emacs-oauth2) + ("emacs-circe" ,emacs-circe))) + (home-page "https://github.com/yuya373/emacs-slack") + (synopsis "Slack client for Emacs") + (description "This package provides an Emacs client for the Slack +messaging service.") + (license license:gpl3+)))) + +(define-public emacs-bash-completion + (package + (name "emacs-bash-completion") + (version "2.1.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/szermatt/emacs-bash-completion/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1z0qck3v3ra6ivacn8n04w1v33a4xn01xx860761q31qzsv3sksq")))) + (inputs `(("bash" ,bash))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'install 'configure + (lambda* (#:key inputs #:allow-other-keys) + (let ((bash (assoc-ref inputs "bash"))) + (emacs-substitute-variables "bash-completion.el" + ("bash-completion-prog" (string-append bash "/bin/bash")))) + #t))))) + (home-page "https://github.com/szermatt/emacs-bash-completion") + (synopsis "Bash completion for the shell buffer") + (description + "@code{bash-completion} defines dynamic completion hooks for shell-mode +and shell-command prompts that are based on Bash completion.") + (license license:gpl2+))) + +(define-public emacs-easy-kill + (package + (name "emacs-easy-kill") + (version "0.9.3") + (source (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/easy-kill-" + version ".tar")) + (sha256 + (base32 + "17nw0mglmg877axwg1d0gs03yc0p04lzmd3pl0nsnqbh3303fnqb")))) + (build-system emacs-build-system) + (home-page "https://github.com/leoliu/easy-kill") + (synopsis "Kill and mark things easily in Emacs") + (description + "This package provides commands @code{easy-kill} and @code{easy-mark} to +let users kill or mark things easily.") + (license license:gpl3+))) + +(define-public emacs-csv-mode + (package + (name "emacs-csv-mode") + (version "1.7") + (source + (origin + (method url-fetch) + (uri (string-append "http://elpa.gnu.org/packages/csv-mode-" + version ".el")) + (sha256 + (base32 + "0r4bip0w3h55i8h6sxh06czf294mrhavybz0zypzrjw91m1bi7z6")))) + (build-system emacs-build-system) + (home-page + "http://elpa.gnu.org/packages/csv-mode.html") + (synopsis + "Major mode for editing comma/char separated values") + (description + "This Emacs package implements CSV mode, a major mode for editing records +in a generalized CSV (character-separated values) format.") + (license license:gpl3+))) + +(define-public emacs-transmission + (package + (name "emacs-transmission") + (version "0.12.1") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/holomorph/transmission/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1rrlgn96gi1ljfwbwvlyyxbq75xzamlbdhq1bpyadxxmxcvlmk3n")))) + (build-system emacs-build-system) + (home-page "https://github.com/holomorph/transmission") + (synopsis "Emacs interface to a Transmission session") + (description "This package provides an Emacs interface to interact with a +running session of the Transmission Bittorrent client. + +Features: + +@itemize +@item List, add, start/stop, verify, remove torrents. +@item Set speed limits, ratio limits, bandwidth priorities, trackers. +@item Navigate to the corresponding file list, torrent info, peer info +contexts. +@item Toggle downloading and set priorities for individual files. +@end itemize\n") + (license license:gpl3+))) + +(define-public emacs-polymode + (package + (name "emacs-polymode") + (version "0.1.5") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/vspinu/polymode.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0wwphs54jx48a3ca6x1qaz56j3j9bg4mv8g2akkffrzbdcb8sbc7")))) + (build-system emacs-build-system) + (arguments + `(#:include (cons* "^modes/.*\\.el$" %default-include) + #:phases + (modify-phases %standard-phases + (add-after 'set-emacs-load-path 'add-modes-subdir-to-load-path + (lambda _ + (setenv "EMACSLOADPATH" + (string-append (getenv "EMACSLOADPATH") + ":" (getcwd) "/modes" ":"))))))) + (home-page "https://github.com/vspinu/polymode") + (synopsis "Framework for multiple Emacs modes based on indirect buffers") + (description "Polymode is an Emacs package that offers generic support +for multiple major modes inside a single Emacs buffer. It is lightweight, +object oriented and highly extensible. Creating a new polymode typically +takes only a few lines of code. Polymode also provides extensible facilities +for external literate programming tools for exporting, weaving and tangling.") + (license license:gpl3+))) + +(define-public emacs-polymode-ansible + (let ((commit "b26094d029e25dc797b94254f797e7807a57e4c8")) + (package + (name "emacs-polymode-ansible") + ;; No upstream version release yet. + (version (git-version "0.1" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/mavit/poly-ansible") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "055shddqibib3hx2ykwdz910nrqws40cd407mq946l2bf6v87gj6")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-ansible-doc" ,emacs-ansible-doc) + ("emacs-jinja2-mode" ,emacs-jinja2-mode) + ("emacs-polymode" ,emacs-polymode) + ("emacs-yaml-mode" ,emacs-yaml-mode))) + (properties '((upstream-name . "poly-ansible"))) + (home-page "https://gitlab.com/mavit/poly-ansible/") + (synopsis "Polymode for Ansible - Jinja2 in YAML") + (description + "Edit YAML files for Ansible containing embedded Jinja2 templating.") + (license license:gpl3+)))) + +(define-public eless + (package + (name "eless") + (version "0.3") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/kaushalmodi/eless/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0gjnnhgw5xs1w3qfnkvwa2nv44gnxr8pkhx3c7qig45p8nh1461h")))) + (build-system trivial-build-system) + (inputs + `(("bash" ,bash))) + (native-inputs + `(("tar" ,tar) + ("gzip" ,gzip))) + (arguments + `(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (setenv "PATH" (string-append + (assoc-ref %build-inputs "tar") "/bin" ":" + (assoc-ref %build-inputs "gzip") "/bin")) + (invoke "tar" "xvf" (assoc-ref %build-inputs "source")) + (chdir (string-append "eless" "-" ,version)) + (substitute* "eless" (("/usr/bin/env bash") + (string-append (assoc-ref %build-inputs "bash") + "/bin/bash"))) + (install-file "eless" (string-append %output "/bin")) + (install-file "doc/eless.info" (string-append %output "/share/info")) + #t))) + (home-page "https://github.com/kaushalmodi/eless") + (synopsis "Use Emacs as a paginator") + (description "@code{eless} provides a combination of Bash script +and a minimal Emacs view-mode. + +Feautures: + +@itemize +@item Independent of a user’s Emacs config. +@item Customizable via the @code{(locate-user-emacs-file \"elesscfg\")} config. +@item Not require an Emacs server to be already running. +@item Syntax highlighting. +@item Org-mode file rendering. +@item @code{man} page viewer. +@item Info viewer. +@item Dired, wdired, (batch edit symbolic links). +@item Colored diffs, git diff, git log, ls with auto ANSI detection. +@item Filter log files lines matching a regexp. +@item Auto-revert log files similar to @code{tail -f}. +@item Quickly change frame and font sizes. +@end itemize\n") + (license license:expat))) + +(define-public emacs-evil-matchit + (package + (name "emacs-evil-matchit") + (version "2.2.6") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/redguardtoo/evil-matchit/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1yp9sl6542317mn1060ri90zyf6bs6qylagndhqy02p368q31rhi")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-evil" ,emacs-evil))) + (home-page "https://github.com/redguardtoo/evil-matchit") + (synopsis "Vim matchit ported into Emacs") + (description + "@code{evil-matchit} is a minor mode for jumping between matching tags in +evil mode using @kbd{%}. It is a port of @code{matchit} for Vim.") + (license license:gpl3+))) + +(define-public emacs-evil-smartparens + (package + (name "emacs-evil-smartparens") + (version "0.4.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/expez/evil-smartparens/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1bwzdd3054d407d5j4m3njsbvmc9r8zzp33m32pj3b3irxrl68q0")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-evil" ,emacs-evil) + ("emacs-smartparens" ,emacs-smartparens))) + (home-page "https://github.com/expez/evil-smartparens") + (synopsis "Emacs Evil integration for Smartparens") + (description "@code{emacs-evil-smartparens} is an Emacs minor mode which +makes Evil play nice with Smartparens. Evil is an Emacs minor mode that +emulates Vim features and provides Vim-like key bindings.") + (license license:gpl3+))) + +(define-public emacs-evil-quickscope + (package + (name "emacs-evil-quickscope") + (version "0.1.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/blorbx/evil-quickscope/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1r26a412mmar7vbf89zcifswiwpdg30mjzj32xdyqss57aqi83ma")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-evil" ,emacs-evil))) + (arguments + `(#:tests? #t + #:test-command '("emacs" "--batch" + "-l" "evil-quickscope-tests.el" + "-f" "ert-run-tests-batch-and-exit"))) + (home-page "https://github.com/blorbx/evil-quickscope") + (synopsis "Target highlighting for emacs evil-mode f,F,t and T commands") + (description "@code{emacs-evil-quickscope} highlights targets for Evil +mode’s f,F,t,T keys, allowing for quick navigation within a line. It is a +port of quick-scope for Vim. Evil is an Emacs minor mode that emulates Vim +features and provides Vim-like key bindings.") + (license license:gpl3+))) + +(define-public emacs-bongo + (package + (name "emacs-bongo") + (version "1.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/dbrock/bongo/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1pcsyyrvj7djjjwpaswd1i782hvqvlvs39cy9ns0k795si6xd64d")))) + (build-system emacs-build-system) + (home-page "https://github.com/dbrock/bongo") + (synopsis "Media player for Emacs") + (description + "This package provides a flexible media player for Emacs. @code{Bongo} +supports multiple backends such as @code{vlc}, @code{mpg123}, +@code{ogg123}, @code{speexdec}, @code{timidity}, @code{mikmod} and +@code{afplay}.") + (license license:gpl2+))) + +(define-public emacs-groovy-modes + (package + (name "emacs-groovy-modes") + (version "2.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/Groovy-Emacs-Modes/groovy-emacs-modes" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "15j0hnkx9nppjzda5cqsxxz5f3bq9hc4xfyjcdypzqiypcvmpa39")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-s" ,emacs-s))) + (home-page "https://github.com/Groovy-Emacs-Modes/groovy-emacs-modes") + (synopsis "Groovy related modes for Emacs") + (description + "This package provides @code{groovy-mode} for syntax highlighing in +Groovy source files, REPL integration with run-groovy and Grails project +navigation with the grails mode.") + (license license:gpl3+))) + +(define-public groovy-emacs-modes + (deprecated-package "groovy-emacs-modes" emacs-groovy-modes)) + +(define-public emacs-org-tree-slide + (let ((commit "dff8f1a4a64c8dd0a1fde0b0131e2fe186747134") + (revision "0")) + (package + (name "emacs-org-tree-slide") + (version (git-version "0.1" revision commit)) + (home-page "https://github.com/takaxp/org-tree-slide") + (source (origin + (method git-fetch) + (uri (git-reference (url home-page) (commit commit))) + (sha256 + (base32 + "153bg0x7ypla11pq51jmsgzfjklwwnrq56xgpbfhk1j16xwz9hyf")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (synopsis "Presentation tool for org-mode") + (description + "Org-tree-slide provides a slideshow mode to view org-mode files. Use +@code{org-tree-slide-mode} to enter the slideshow mode, and then @kbd{C->} and +@kbd{C-<} to jump to the next and previous slide.") + (license license:gpl3+)))) + +(define-public emacs-scratch-el + (let ((commit "2cdf2b841ce7a0987093f65b0cc431947549f897") + (revision "1")) + (package + (name "emacs-scratch-el") + (version (git-version "1.2" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ieure/scratch-el.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0wscsndynjmnliajqaz28r1ww81j8wh84zwaaswx51abhwgl0idf")))) + (build-system emacs-build-system) + (native-inputs + `(("texinfo" ,texinfo))) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'install 'install-doc + (lambda* (#:key outputs #:allow-other-keys) + (unless (invoke "makeinfo" "scratch.texi") + (error "makeinfo failed")) + (install-file "scratch.info" + (string-append (assoc-ref outputs "out") + "/share/info")) + #t))))) + (home-page "https://github.com/ieure/scratch-el/") + (synopsis "Create scratch buffers with the same mode as current buffer") + (description "Scratch is an extension to Emacs that enables one to create +scratch buffers that are in the same mode as the current buffer. This is +notably useful when working on code in some language; you may grab code into a +scratch buffer, and, by virtue of this extension, do so using the Emacs +formatting rules for that language.") + (license license:bsd-2)))) + +(define-public emacs-kv + (package + (name "emacs-kv") + (version "0.0.19") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/nicferrier/emacs-kv.git") + (commit "721148475bce38a70e0b678ba8aa923652e8900e"))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0r0lz2s6gvy04fwnafai668jsf4546h4k6zd6isx5wpk0n33pj5m")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("emacs" "--batch" "-l" "kv-tests.el" + "-f" "ert-run-tests-batch-and-exit"))) + (home-page "https://github.com/nicferrier/emacs-kv") + (synopsis "Key/Value data structures library for Emacs Lisp") + (description "@code{emacs-kv} is a collection of tools for dealing with +key/value data structures such as plists, alists and hash-tables in Emacs +Lisp.") + (license license:gpl3+))) + +(define-public emacs-esxml + (package + (name "emacs-esxml") + (version "0.3.4") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/tali713/esxml.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "00vv8a75wdklygdyr4km9mc2ismxak69c45jmcny41xl44rp9x8m")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-sources + (lambda _ + ;; See: https://github.com/tali713/esxml/pull/28. + (substitute* "css-lite.el" + ((";;; main interface") + (string-append ";;; main interface\n" + "(require 'cl-lib)")) + (("mapcan") + "cl-mapcan") + (("',\\(cl-mapcan #'process-css-rule rules\\)") + "(cl-mapcan #'process-css-rule ',rules)")) + (substitute* "esxml-form.el" + ((",esxml-form-field-defn") + "#'esxml-form-field-defn")) + ;; See: https://github.com/tali713/esxml/issues/25 + (delete-file "esxpath.el") + #t))))) + (propagated-inputs + `(("emacs-kv" ,emacs-kv))) + (home-page "https://github.com/tali713/esxml/") + (synopsis "SXML for EmacsLisp") + (description "This is XML/XHTML done with S-Expressions in EmacsLisp. +Simply, this is the easiest way to write HTML or XML in Lisp. This library +uses the native form of XML representation as used by many libraries already +included within Emacs. See @code{esxml-to-xml} for a concise description of +the format.") + (license license:gpl3+))) + +(define-public emacs-nov-el + (package + (name "emacs-nov-el") + (version "0.2.6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/wasamasa/nov.el.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "188h5gzn1zf443g0b7q5bpmvvpr6ds5h8aci8vxc92py56rhyrvc")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'embed-path-to-unzip + (lambda _ + (substitute* "nov.el" + (("\\(executable-find \"unzip\"\\)") + (string-append "\"" (which "unzip") "\""))) + #t))))) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-esxml" ,emacs-esxml))) + (inputs + `(("unzip" ,unzip))) + (home-page "https://github.com/wasamasa/nov.el/") + (synopsis "Major mode for reading EPUBs in Emacs") + (description "@code{nov.el} provides a major mode for reading EPUB +documents. + +Features: + +@itemize +@item Basic navigation (jump to TOC, previous/next chapter) +@item Remembering and restoring the last read position +@item Jump to next chapter when scrolling beyond end +@item Renders EPUB2 (@code{.ncx}) and EPUB3 (@code{<nav>}) TOCs +@item Hyperlinks to internal and external targets +@item Supports textual and image documents +@item View source of document files +@item Metadata display +@item Image rescaling +@end itemize +") + (license license:gpl3+))) + +(define-public epipe + (package + (name "epipe") + (version "0.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/cute-jumper/epipe/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "05a036852g4j63k1mhvyfrcsgkl9lczayi7x61570ysw3cli5wp5")))) + (build-system trivial-build-system) + (inputs + `(("bash" ,bash) + ("perl" ,perl))) + (native-inputs + `(("tar" ,tar) + ("gzip" ,gzip))) + (arguments + `(#:modules + ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + ;; Extract source + (setenv "PATH" (string-append + (assoc-ref %build-inputs "tar") "/bin" ":" + (assoc-ref %build-inputs "gzip") "/bin")) + (invoke "tar" "xvf" (assoc-ref %build-inputs "source")) + (chdir (string-append ,name "-" ,version)) + ;; Patch shebangs + (substitute* "epipe" + (("/usr/bin/env bash") + (string-append (assoc-ref %build-inputs "bash") "/bin/bash"))) + (patch-shebang "epipe.pl" + (list (string-append (assoc-ref %build-inputs "perl") + "/bin"))) + ;; Installation + (for-each (lambda (file) + (install-file file (string-append %output "/bin"))) + '("epipe" "epipe.pl")) + #t))) + (home-page "https://github.com/cute-jumper/epipe") + (synopsis "Pipe to the @code{emacsclient}") + (description "@code{epipe} provides an utility to use your editor in +the pipeline, featuring the support for running @code{emacsclient}.") + (license license:gpl3+))) + +(define-public emacs-hcl-mode + (package + (name "emacs-hcl-mode") + (version "0.03") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/syohex/emacs-hcl-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0pvw74qpwh0znqzp6syp4wxjqs7dp1hbn5h7xfk97mff9l5d8k6x")))) + (build-system emacs-build-system) + (home-page "https://github.com/syohex/emacs-hcl-mode") + (synopsis "Major mode for the Hashicorp Configuration Language") + (description + "@code{emacs-hcl-mode} provides an Emacs major mode for working with +@acronym{HCL, Hashicorp Configuration Language}. It provides syntax +highlighting and indentation support.") + (license license:gpl3+))) + +(define-public emacs-terraform-mode + (package + (name "emacs-terraform-mode") + (version "0.06") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/syohex/emacs-terraform-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0h9267ifdjmcin4sj8slxydbacx4bqicbvg8pa1qq2l72h9m5381")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-hcl-mode" ,emacs-hcl-mode))) + (home-page "https://github.com/syohex/emacs-terraform-mode") + (synopsis "Major mode for Terraform") + (description + "@code{emacs-terraform-mode} provides a major mode for working with +@uref{https://www.terraform.io/, Terraform} configuration files. Most of the +functionality is inherited from @code{hcl-mode}.") + (license license:gpl3+))) + +(define-public emacs-exec-path-from-shell + (package + (name "emacs-exec-path-from-shell") + (version "1.11") + (source + (origin + (method url-fetch) + (uri (string-append + "https://stable.melpa.org/packages/exec-path-from-shell-" + version ".el")) + (sha256 + (base32 + "03qjgb81cq1l3j54lvlf98r75vmmgd06mj6qh5wa6mz4xzp4w26r")))) + (build-system emacs-build-system) + (home-page "https://github.com/purcell/exec-path-from-shell") + (synopsis "Get environment variables such as @var{PATH} from the shell") + (description + "This library allows the user to set Emacs @var{exec-path} and @var{PATH} +from the shell @var{PATH}, so that @code{shell-command}, @code{compile} and +the like work as expected on systems on which Emacs is not guaranteed to +inherit a login shell's environment variables. It also allows other +environment variables to be retrieved from the shell, so that Emacs will see +the same values you get in a terminal.") + (license license:gpl3+))) + +(define-public emacs-deft + (package + (name "emacs-deft") + (version "0.8") + (source + (origin + (method url-fetch) + (uri (string-append "https://stable.melpa.org/packages/deft-" + version ".el")) + (sha256 + (base32 + "1vb9cjxskc7c0yyf9pvxy1fzypg1vrcgwnjz0m3hslinsgdyig58")))) + (build-system emacs-build-system) + (home-page "https://jblevins.org/projects/deft/") + (synopsis "Quickly browse, filter, and edit plain text notes") + (description + "Deft is an Emacs mode for quickly browsing, filtering, and editing +directories of plain text notes, inspired by Notational Velocity.") + (license license:bsd-3))) + +(define-public emacs-anzu + (package + (name "emacs-anzu") + (version "0.62") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/syohex/emacs-anzu/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "16cg3897x5znbmgk7sdy0qyd0fbic9dmmz0dchq2vz5z29yhg4cz")))) + (build-system emacs-build-system) + (home-page "https://github.com/syohex/emacs-anzu") + (synopsis "Show number of matches in mode-line while searching") + (description + "Anzu provides a minor mode which displays \"current match/total +matches\" in the mode line in various search modes. This is an Emacs port of +Anzu.zim.") + (license license:gpl3+))) + +(define-public emacs-emmet-mode + (package + (name "emacs-emmet-mode") + (version "1.0.8") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/smihica/emmet-mode" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0g3p22yabfcp98cfv9dgl9il2m2pd53isq2q11vb3s7qyn31f7zj")))) + (build-system emacs-build-system) + (home-page "https://github.com/smihica/emmet-mode") + (synopsis "Unofficial Emmet's support for Emacs") + (description + "Unfold CSS-selector-like expressions to markup. It is intended to be +used with SGML-like languages: XML, HTML, XHTML, XSL, etc.") + (license license:gpl3+))) + +(define-public emacs-ergoemacs-mode + (let ((commit "3ce23bba3cb50562693860f87f3528c471d603ba") + (revision "1")) + (package + (name "emacs-ergoemacs-mode") + (version (git-version "5.16.10.12" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ergoemacs/ergoemacs-mode.git") + (commit commit))) + (sha256 + (base32 + "1s3b9bridl78hh1mxmdk9nqlmqhibbaxk0a1cixmsf23s06w8w6l")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-undo-tree" ,emacs-undo-tree))) + (home-page "https://ergoemacs.github.io/") + (synopsis "Emacs mode based on common modern interface and ergonomics") + (description + "This package provides an efficient Emacs keybinding set based on +statistics of command frequency, and supports common shortcuts for open, +close, copy, cut, paste, undo, redo.") + (license license:gpl3+)))) + +(define-public emacs-password-store + (package + (name "emacs-password-store") + (version "1.7.3") + (source (origin + (method url-fetch) + (uri + (string-append "https://git.zx2c4.com/password-store/snapshot/" + "password-store-" version ".tar.xz")) + (sha256 + (base32 + "1x53k5dn3cdmvy8m4fqdld4hji5n676ksl0ql4armkmsds26av1b")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'extract-el-file + (lambda _ + (copy-file "contrib/emacs/password-store.el" "password-store.el") + (delete-file-recursively "contrib") + (delete-file-recursively "man") + (delete-file-recursively "src") + (delete-file-recursively "tests")))))) + (propagated-inputs + `(("emacs-f" ,emacs-f) + ("emacs-s" ,emacs-s) + ("emacs-with-editor" ,emacs-with-editor) + ("password-store" ,password-store))) + (home-page "https://git.zx2c4.com/password-store/tree/contrib/emacs") + (synopsis "Password store (pass) support for Emacs") + (description + "This package provides functions for working with pass (\"the +standard Unix password manager\").") + (license license:gpl2+))) + +(define-public emacs-pass + (package + (name "emacs-pass") + (version "1.8") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/NicolasPetton/pass/archive/" + version ".tar.gz")) + (sha256 + (base32 + "0aiz90gklk0cb8n4v1s3l0mx6pp2b7f4k2c0fjpihwmga13yklwn")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-password-store" ,emacs-password-store) + ("emacs-f" ,emacs-f))) + (home-page "https://github.com/NicolasPetton/pass") + (synopsis "Major mode for @file{password-store.el}") + (description "This is a major mode for managing password-store (pass) +keychains. The keychain entries are displayed in a directory-like structure +and can be consulted and modified.") + (license license:gpl3+))) + +(define-public emacs-evil-anzu + (package + (name "emacs-evil-anzu") + (version "0.03") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/syohex/emacs-evil-anzu" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "032hh2946z529cizqsg8pm6cpn5qdj8lfk3qskmx6xv3g2ra56ns")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-evil" ,emacs-evil) + ("emacs-anzu" ,emacs-anzu))) + (home-page "https://github.com/syohex/emacs-evil-anzu") + (synopsis "Anzu for evil-mode") + (description "@code{anzu} provides a minor mode that displays the current +match and total match information in the mode-line in various search modes.") + (license license:gpl3+))) + +(define-public emacs-pg + (let ((commit "4f6516ec3946d95dcef49abb6703cc89ecb5183d")) + (package + (name "emacs-pg") + (version (git-version "0.1" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference (url "https://github.com/cbbrowne/pg.el") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1zh7v4nnpzvbi8yj1ynlqlawk5bmlxi6s80b5f2y7hkdqb5q26k0")))) + (build-system emacs-build-system) + (home-page "https://github.com/cbbrowne/pg.el") + (synopsis "Emacs Lisp interface for PostgreSQL") + (description + "This package provides an Emacs Lisp interface for PostgreSQL.") + (license license:gpl3+)))) + +(define-public emacs-cl-generic + (package + (name "emacs-cl-generic") + (version "0.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/cl-generic-" + version ".el")) + (sha256 + (base32 + "0vb338bhjpsnrf60qgxny4z5rjrnifahnrv9axd4shay89d894zq")))) + (build-system emacs-build-system) + (home-page "https://elpa.gnu.org/packages/seq.html") + (synopsis + "Forward @code{cl-generic} compatibility for Emacs before version 25") + (description "This package provides a subset of the features of the +@code{cl-generic} package introduced in Emacs-25, for use on previous +@code{emacsen}.") + (license license:gpl3+))) + +(define-public emacs-finalize + (package + (name "emacs-finalize") + (version "2.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/skeeto/elisp-finalize/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "077fycy3i5f0kjw5z3rhf4kld5lbk2idz690nkwhkz04vppk4q4x")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-cl-generic" ,emacs-cl-generic))) + (home-page "https://github.com/skeeto/elisp-finalize") + (synopsis "Finalizers for Emacs Lisp") + (description + "This package will allows to immediately run a callback (a finalizer) +after its registered lisp object has been garbage collected. This allows for +extra resources, such as buffers and processes, to be cleaned up after the +object has been freed.") + (license license:unlicense))) + +(define-public emacs-emacsql + (package + (name "emacs-emacsql") + (version "3.0.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/skeeto/emacsql.git") + (commit (string-append version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1c84gxr1majqj4b59wgdy3lzm3ap66w9qsrnkx8hdbk9895ak81g")))) + (build-system emacs-build-system) + (arguments + `(#:modules ((guix build emacs-build-system) + (guix build utils) + (guix build emacs-utils) + (srfi srfi-26)) + #:phases + (modify-phases %standard-phases + (delete 'build) ;‘build-emacsql-sqlite’ compiles ‘*.el’ files. + (add-before 'install 'patch-elisp-shell-shebangs + (lambda _ + (substitute* (find-files "." "\\.el") + (("/bin/sh") (which "sh"))) + #t)) + (add-after 'patch-elisp-shell-shebangs 'setenv-shell + (lambda _ + (setenv "SHELL" "sh"))) + (add-after 'setenv-shell 'build-emacsql-sqlite + (lambda _ + (invoke "make" "binary" "CC=gcc"))) + (add-after 'build-emacsql-sqlite 'install-emacsql-sqlite + ;; This build phase installs emacs-emacsql binary. + (lambda* (#:key outputs #:allow-other-keys) + (install-file "sqlite/emacsql-sqlite" + (string-append (assoc-ref outputs "out") + "/bin")) + #t)) + (add-after 'install-emacsql-sqlite 'patch-emacsql-sqlite.el + ;; This build phase removes interactive prompts + ;; and makes sure Emacs look for binaries in the right places. + (lambda* (#:key outputs #:allow-other-keys) + (let ((file "emacsql-sqlite.el")) + (chmod file #o644) + (emacs-substitute-sexps file + ;; Make sure Emacs looks for ‘GCC’ binary in the right place. + ("(executable-find" (which "gcc")) + ;; Make sure Emacs looks for ‘emacsql-sqlite’ binary + ;; in the right place. + ("(defvar emacsql-sqlite-executable" + (string-append (assoc-ref outputs "out") + "/bin/emacsql-sqlite")))))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out"))) + (install-file "sqlite/emacsql-sqlite" + (string-append out "/bin")) + (for-each (cut install-file <> + (string-append out "/share/emacs/site-lisp/guix.d/" + "emacsql" "-" ,version)) + (find-files "." "\\.elc*$"))) + #t))))) + (inputs + `(("emacs-minimal" ,emacs-minimal) + ("mariadb" ,mariadb) + ("postgresql" ,postgresql))) + (propagated-inputs + `(("emacs-finalize" ,emacs-finalize) + ("emacs-pg" ,emacs-pg))) + (home-page "https://github.com/skeeto/emacsql") + (synopsis "Emacs high-level SQL database front-end") + (description "Any readable Lisp value can be stored as a value in EmacSQL, +including numbers, strings, symbols, lists, vectors, and closures. EmacSQL +has no concept of @code{TEXT} values; it's all just Lisp objects. The Lisp +object @code{nil} corresponds 1:1 with @code{NULL} in the database.") + (license license:gpl3+))) + +(define-public emacs-closql + (package + (name "emacs-closql") + (version "1.0.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacscollective/closql.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1xhpfjjkjqfc1k2rj77cscclz5r7gpvv3hi202x178vdcpipjwar")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-emacsql" ,emacs-emacsql))) + (home-page "https://github.com/emacscollective/closql") + (synopsis "Store EIEIO objects using EmacSQL") + (description + "This package allows to store uniform EIEIO objects in an EmacSQL +database. SQLite is used as backend. This library imposes some restrictions +on what kind of objects can be stored; it isn't intended to store arbitrary +objects. All objects have to share a common superclass and subclasses cannot +add any additional instance slots.") + (license license:gpl3))) + +(define-public emacs-epkg + ;; The release version is to old for the current database scheme. + (let ((commit "432312b9583ed7b88ad9644fd1bf2183765a892e")) + (package + (name "emacs-epkg") + (version (git-version "3.0.0" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacscollective/epkg.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0d882kahn7a0vri7a9r15lvmfx1zn2hsga6jfcc6jv0hqbswlb2k")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-closql" ,emacs-closql) + ("emacs-dash" ,emacs-dash))) + (home-page "https://emacsmirror.net") + (synopsis "Browse the Emacsmirror package database") + (description "This package provides access to a local copy of the +Emacsmirror package database. It provides low-level functions for querying +the database and a @file{package.el} user interface for browsing the database. +Epkg itself is not a package manager. + +Getting a local copy: + +@example +git clone https://github.com/emacsmirror/epkgs.git ~/.emacs.d/epkgs +cd ~/.emacs.d/epkgs +git submodule init +git config --global url.https://github.com/.insteadOf git@@github.com: +git submodule update +@end example + +Some submodule may be missing. In this case Git will prompt for a GitHub user +name and password. To skip it press a @key{Return} key. + +You could get a Epkg package list by invoking @code{epkg-list-packages} in +Emacs.") + (license license:gpl3+)))) + +(define-public emacs-elisp-slime-nav + (package + (name "emacs-elisp-slime-nav") + (version "0.9") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/purcell/elisp-slime-nav/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1vq7ym1q47p97gxrv45c9gm96d23xbp237vkmakikj6grngxjfb2")))) + (build-system emacs-build-system) + (home-page "https://github.com/purcell/elisp-slime-nav") + (synopsis "Make @code{M-.} and @code{M-,} work for elisp like they do in SLIME") + (description + "This package provides SLIME's convenient @code{M-.}and @code{M-,} navigation +in @code{emacs-lisp-mode}, together with an elisp equivalent of +@code{slime-describe-symbol}.") + (license license:gpl3+))) + +(define-public emacs-dedicated + (package + (name "emacs-dedicated") + (version "1.0.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/emacsorphanage/dedicated/archive/" + version + ".tar.gz")) + (sha256 + (base32 + "0nhbkp278cvcznb5rp3jp9ii3mjgb79zx8iwfrw7zfk3yg8688ni")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (home-page "https://github.com/emacsorphanage/dedicated") + (synopsis "Emacs minor mode for toggling a windows's \"dedicated\" flag") + (description + "This simple Emacs minor mode allows you to toggle a window's +\"dedicated\" flag. When a window is \"dedicated\", Emacs will not select +files into that window. This can be quite handy since many commands will use +another window to show results (compilation mode, starting info, and so on). +A dedicated window won't be used for such a purpose. For details, please read +the source file.") + (license license:gpl2+))) + +(define-public emacs-nnreddit + (let ((commit "9843f99d01fd8f1eea2fc685965a7c7f4eeb187a") + (revision "1")) + (package + (name "emacs-nnreddit") + (version (string-append "0.0.1-" revision "." + (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/paul-issartel/nnreddit.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0j4h3bnga640250jdq8bwyja49r41ssrsjd6lba4gzzllqk02nbn")))) + (build-system emacs-build-system) + (home-page "https://github.com/paul-issartel/nnreddit") + (synopsis "Reddit backend for the Gnus newsreader") + (description "@url{https://www.reddit.com} backend for the Gnus +newsreader.") + (license license:gpl3+)))) + +(define-public emacs-makey + (package + (name "emacs-makey") + (version "0.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/mickeynp/makey/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0kzl4q1wf2zhkx9nrymxa67n99iq0bj7zqhpaz4byksna1hsxfmv")))) + (build-system emacs-build-system) + (home-page "https://github.com/mickeynp/makey") + (synopsis "Emacs interactive command-line mode") + (description + "This package provides an Emacs interactive command-line mode.") + (license license:gpl3+))) + +(define-public emacs-outorg + (let ((commit "78b0695121fb974bc4e971eb4ef7f8afd6d89d64")) + (package + (name "emacs-outorg") + (version (git-version "2.0" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/alphapapa/outorg") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "03aclh4m3f7rb821gr9pwvnqkkl91px3qxdcarpf3ypa1x4fxvlj")))) + (build-system emacs-build-system) + (home-page "https://github.com/alphapapa/outorg") + (synopsis "Org-style comment editing") + (description "Outorg is for editing comment-sections of source-code +files in temporary Org-mode buffers. It turns conventional +literate-programming upside-down in that the default mode is the +programming-mode, and special action has to be taken to switch to the +text-mode (i.e. Org-mode).") + (license license:gpl3+)))) + +(define-public emacs-outshine + (let ((commit "5f1a6b70231d2811c522e4e5e8c89ff461b311d6")) + (package + (name "emacs-outshine") + (version (git-version "2.0" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/alphapapa/outshine.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1l9v1dfhgg7il11ifbhvcvrg3acfjk9sdxlc3lja1k54d7dp60jv")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-outorg" ,emacs-outorg))) + (home-page "https://github.com/alphapapa/outshine") + (synopsis "Emacs outline with outshine") + (description "Outshine attempts to bring the look and feel of +@code{org-mode} to an Emacs outside of the Org major-mode. It is an extension +of @code{outline-minor-mode} (@code{org-mode} itself derives from +outline-mode), so there is no such thing like an outshine mode, only +@code{outline-minor-mode} with outshine extensions loaded.") + (license license:gpl3+)))) + +(define-public emacs-parsebib + (package + (name "emacs-parsebib") + (version "2.3.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/joostkremers/parsebib/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0cxagnmc5ab6idmb26axpizhr4sqglkncc59768yavn3p04jyq63")))) + (build-system emacs-build-system) + (home-page "https://github.com/joostkremers/parsebib") + (synopsis "Library for parsing bib files") + (description + "This package provides an Emacs library for parsing bib files.") + (license license:gpl3+))) + +(define-public emacs-biblio + (package + (name "emacs-biblio") + (version "0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/cpitclaudel/biblio.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "109fvivsb4r0rbqljngqrmxqvbnbkqlivczx6brrvlr7ci625lhf")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-seq" ,emacs-seq) + ("emacs-dash" ,emacs-dash) + ("emacs-let-alist" ,emacs-let-alist))) + (home-page "https://github.com/cpitclaudel/biblio.el") + (synopsis "Browse and import bibliographic references") + (description "This package provides an extensible Emacs package for +browsing and fetching references. + +@file{biblio.el} makes it easy to browse and gather bibliographic references +and publications from various sources, by keywords or by DOI. References are +automatically fetched from well-curated sources, and formatted as BibTeX.") + (license license:gpl3+))) + +(define-public emacs-helm-bibtex + (let ((commit "8ed898fb5a68f18e9bb9973832a5c1f8abcfc463") + (revision "1")) + (package + (name "emacs-helm-bibtex") + (version (string-append "2.0.0" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/tmalsburg/helm-bibtex.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "14lyx0vbqr97p3anzrsp7m3q0kqclyjcdwplpraim403fcklzbnz")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-parsebib" ,emacs-parsebib) + ("emacs-s" ,emacs-s) + ("emacs-dash" ,emacs-dash) + ("emacs-f" ,emacs-f) + ("emacs-biblio" ,emacs-biblio) + ("emacs-ivy" ,emacs-ivy))) + (home-page "https://github.com/tmalsburg/helm-bibtex") + (synopsis "Bibliography manager based on Helm") + (description "This package provides bibliography manager for Emacs, +based on Helm and the bibtex-completion backend. + +Key features: + +@itemize +@item Quick access to your bibliography from within Emacs +@item Powerful search capabilities +@item Provides instant search results as you type +@item Tightly integrated with LaTeX authoring, emails, Org mode, etc. +@item Open the PDFs, URLs, or DOIs associated with an entry +@item Insert LaTeX cite commands, Ebib links, or Pandoc citations, +BibTeX entries, or plain text references at point, attach PDFs to emails +@item Support for note taking +@item Quick access to online bibliographic databases such as Pubmed, +arXiv, Google Scholar, Library of Congress, etc. +@item Imports BibTeX entries from CrossRef and other sources. +@end itemize\n") + (license license:gpl3+)))) + +(define-public emacs-ewmctrl + (let ((commit "3d0217c4d6cdb5c308b6cb4293574f470d4faacf")) + (package + (name "emacs-ewmctrl") + (version (git-version "0.0.1" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/flexibeast/ewmctrl.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0ilwvx0qryv3v6xf0gxqwnfm6pf96gxap8h9g3f6z6lk9ff4n1wi")))) + (build-system emacs-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-ewmctrl + ;; This build phase makes sure ‘ewmctrl’ looks + ;; for ‘wmctrl’ in the right place. + (lambda _ + (let ((file "ewmctrl.el")) + (chmod file #o644) + (emacs-substitute-sexps file + ("(defcustom ewmctrl-wmctrl-path" (which "wmctrl"))))))))) + (inputs + `(("wmctrl" ,wmctrl))) + (home-page "https://github.com/flexibeast/ewmctrl") + (synopsis "Emacs interface to @code{wmctrl}") + (description "@code{ewmctrl} provides an Emacs interface to +@code{wmctrl} command-line window-management program.") + (license license:gpl3+)))) + +(define-public emacs-helm-gtags + (package + (name "emacs-helm-gtags") + (version "1.5.6") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/syohex/emacs-helm-gtags/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1a10snhg6nnnan6w9a7mcziy26vxbsr3c35i0gcarnkdp2yqng36")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm))) + (home-page "https://github.com/syohex/emacs-helm-gtags") + (synopsis "Emacs Helm interface to GNU Global") + (description + "@code{emacs-helm-gtags} provides a Emacs Helm interface to GNU Global.") + (license license:gpl3+))) + +(define-public emacs-list-utils + (package + (name "emacs-list-utils") + (version "0.4.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/rolandwalker/list-utils/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1xc1xh8c82h5gdjbgpdsdclgwxkxbb7h3x3a2bscpm41g8pnan4p")))) + (build-system emacs-build-system) + (home-page "https://github.com/rolandwalker/list-utils") + (synopsis "List-manipulation utility functions") + (description "This package provides a list manipulation library for Emacs.") + (license license:gpl3+))) + +(define-public emacs-move-text + (package + (name "emacs-move-text") + (version "2.0.8") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/emacsfodder/move-text/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1sjfja9r25692pgcldgnjzkapzy970m14jh9l4pajysiqcdk72g0")))) + (build-system emacs-build-system) + (home-page "https://github.com/emacsfodder/move-text") + (synopsis "Move current line or region with M-up or M-down") + (description "This package provide functions to move the current line +using @kbd{M-up} or @kbd{M-down} if a region is marked, it will move the +region instead.") + (license license:gpl3+))) + +(define-public emacs-validate + (package + (name "emacs-validate") + (version "1.0.5") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/Malabarba/validate.el" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "125mbd111f1h1baw0z3fzm48y1bvaigljyzvvnqgrn0shxbj0khg")))) + (build-system emacs-build-system) + (home-page "https://github.com/Malabarba/validate.el") + (synopsis "Emacs library for scheme validation") + (description "This Emacs library provides two functions that perform +schema validation.") + (license license:gpl3+))) + +(define-public emacs-rainbow-blocks + (let ((commit "dd435d7bb34ff6f162a5f315df308b90b7e9f842")) + (package + (name "emacs-rainbow-blocks") + (version (git-version "1.0.0" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/istib/rainbow-blocks.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "06yfb3i7wzvqrhkb61zib9xvpb5i00s4frizkzff66im05k0n795")))) + (build-system emacs-build-system) + (home-page "https://github.com/istib/rainbow-blocks") + (synopsis "Highlight sexp blocks") + (description "Rainbow-blocks is an Emacs mode that highlights blocks +made of parentheses, brackets, and braces according to their depth. Each +successive level is highlighted in a different color. This makes it easy to +orient yourself in the code, and tell which statements are at a given level.") + (license license:gpl3+)))) + +(define-public emacs-hierarchy + (package + (name "emacs-hierarchy") + (version "0.7.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/DamienCassou/hierarchy/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1a463v5zk6zis2p8cs4mads3iyxh266yahi6j6y0paggfl2yhkc8")))) + (build-system emacs-build-system) + (home-page "https://github.com/DamienCassou/hierarchy") + (synopsis "Library to create and display hierarchy structures") + (description "This package provides an Emacs library to create, query, +navigate and display hierarchy structures.") + (license license:gpl3+))) + +(define-public emacs-tree-mode + (let ((commit "b06078826d5875d74b0e7b7ac47b0d0917610534") + (revision "1")) + (package + (name "emacs-tree-mode") + (version (string-append "0.0.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacsorphanage/tree-mode.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "13bbdhdmqg4x9yghanhr8fsbsxbnypzxdxgicz31sjjm675kpnix")))) + (build-system emacs-build-system) + (home-page "https://github.com/emacsorphanage/tree-mode") + (synopsis "Emacs mode to manage tree widgets") + (description + "This package provides an Emacs library to manage tree widgets.") + (license license:gpl3+)))) + +(define-public emacs-md4rd + (let ((commit "c55512c2f7680db2a1e73db6bdf93adecaf40fec") + (revision "1")) + (package + (name "emacs-md4rd") + (version (string-append "0.0.2" "-" revision "." + (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ahungry/md4rd.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0mvv1mvsrpkrmikcpfqf2zbawnzgq33j6zjdrlv48mcw57xb2ak9")))) + (propagated-inputs + `(("emacs-hierarchy" ,emacs-hierarchy) + ("emacs-request" ,emacs-request) + ("emacs-dash" ,emacs-dash) + ("emacs-s" ,emacs-s) + ("emacs-tree-mode" ,emacs-tree-mode))) + (build-system emacs-build-system) + (home-page "https://github.com/ahungry/md4rd") + (synopsis "Emacs Mode for Reddit") + (description + "This package allows to read Reddit from within Emacs interactively.") + (license license:gpl3+)))) + +(define-public emacs-pulseaudio-control + (let ((commit "1da372ec79f5d2fb901d1f9f0679fee8848fd011") + (revision "2")) + (package + (name "emacs-pulseaudio-control") + (version (git-version "0.0.1" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/flexibeast/pulseaudio-control.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "02xrsms2pjqdk6327midi61i5vg2h9cq5jwaxv43ldm68wl7hi6k")))) + (build-system emacs-build-system) + (arguments + '(#:phases (modify-phases %standard-phases + (add-after 'unpack 'patch-file-name + (lambda* (#:key inputs #:allow-other-keys) + (let ((pulseaudio (assoc-ref inputs "pulseaudio"))) + (chmod "pulseaudio-control.el" #o600) + (emacs-substitute-variables "pulseaudio-control.el" + ("pulseaudio-control-pactl-path" + (string-append pulseaudio "/bin/pactl"))) + #t)))))) + (inputs `(("pulseaudio" ,pulseaudio))) + (home-page "https://github.com/flexibeast/pulseaudio-control") + (synopsis "Control @code{pulseaudio} from Emacs") + (description + "This package allows to control @code{pulseaudio} from Emacs.") + (license license:gpl3+)))) + +(define-public emacs-datetime + (package + (name "emacs-datetime") + (version "0.3") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/doublep/datetime/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "12wqpj67rjij2ki7nmw38rz3k2bsq68pk6zswknlcn9qhp1zd9w9")))) + (build-system emacs-build-system) + (home-page "https://github.com/doublep/datetime/") + (synopsis "Library to work with dates in Emacs") + (description "Parsing, formatting, matching and recoding +timestamps and date-time format strings library for Emacs.") + (license license:gpl3+))) + +(define-public emacs-org-mind-map + (let ((commit "9d6e262bedd94daf9de269f4d56de277275677cb") + (revision "1")) + (package + (name "emacs-org-mind-map") + (version (string-append "0.0.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/theodorewiles/org-mind-map.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0jgkkgq7g64zckrmjib0hvz0qy3ynz5vz13qbmlpf096l3bb65wn")))) + (propagated-inputs + `(("emacs-dash" ,emacs-dash))) + (build-system emacs-build-system) + (home-page "https://github.com/theodorewiles/org-mind-map") + (synopsis "Create Graphviz directed graphs from Org files") + (description + "This package creates Graphviz directed graphs from Org files.") + (license license:gpl3+)))) + +(define-public emacs-npm-mode + (package + (name "emacs-npm-mode") + (version "0.6.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/mojochao/npm-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1kq1ww22dwf8c2i2b4z2ldbbmnihj65kb7n5vzvwkch9h4hxpqh5")))) + (build-system emacs-build-system) + (home-page "https://github.com/mojochao/npm-mode") + (synopsis "Minor mode for working with @code{npm} projects") + (description + "@code{npm-mode} provides a minor mode to work with @code{npm} projects.") + (license license:gpl3+))) + +(define-public emacs-seq + (package + (name "emacs-seq") + (version "2.20") + (source + (origin + (method url-fetch) + (uri (string-append "http://elpa.gnu.org/packages/seq-" version ".tar")) + (sha256 + (base32 + "0vrpx6nnyjb0gsypknzagimlhvcvi5y1rcdkpxyqr42415zr8d0n")))) + (build-system emacs-build-system) + (home-page "http://elpa.gnu.org/packages/seq.html") + (synopsis "Sequence manipulation functions") + (description "Sequence-manipulation functions that complement basic +functions provided by @file{subr.el}.") + (license license:gpl3+))) + +(define-public emacs-itail + (let ((commit "6e43c20da03be3b9c6ece93b7dc3495975ec1888") + (revision "1")) + (package + (name "emacs-itail") + (version (string-append "0.0.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/re5et/itail.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "044nzxh1hq41faxw3lix0wy78vfz304pjcaa5a11dqfz7q3gx5cv")))) + (build-system emacs-build-system) + (home-page "https://github.com/re5et/itail") + (synopsis "Interactive @code{tail} Emacs mode") + (description "@code{itail} provides interactive @code{tail} mode +that allows you to filter the tail with unix pipes and highlight the +contents of the tailed file. Works locally or on remote files using +tramp.") + (license license:gpl3+)))) + +(define-public emacs-loop + (package + (name "emacs-loop") + (version "1.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Wilfred/loop.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1z3rhh3zyjabz36410yz0lp4a0qwwj0387as662wvx3z9y54jia9")))) + (build-system emacs-build-system) + (home-page "https://github.com/Wilfred/loop.el") + (synopsis "Imperative loop structures for Emacs") + (description "Loop structures familiar to users of other languages. This +library adds a selection of popular loop structures as well as break and +continue.") + (license license:gpl3+))) + +(define-public emacs-elisp-refs + (package + (name "emacs-elisp-refs") + (version "1.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Wilfred/elisp-refs/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "02nzcn3v14n7mp7q32j5r4wdlpsw3zixzh6cf0cdyarfir6dly3p")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-f" ,emacs-f) + ("emacs-list-utils" ,emacs-list-utils) + ("emacs-loop" ,emacs-loop) + ("emacs-s" ,emacs-s) + ("emacs-shut-up" ,emacs-shut-up))) + (home-page "https://github.com/Wilfred/elisp-refs") + (synopsis "Find callers of elisp functions or macros") + (description "Find references to functions, macros or variables. Unlike a +dumb text search, @code{elisp-refs} actually parses the code, so it's never +confused by comments or @code{foo-bar} matching @code{foo}.") + (license license:gpl3+))) + +(define-public emacs-crux + (let ((commit "4f5c8fefd5a6aa52e128c4a0401cc86410d6ac8f") + (revision "1")) + (package + (name "emacs-crux") + (version (string-append "0.3.0" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/bbatsov/crux.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1fdxvv25cs01sg6fmvmzxpzvs50i6v8n2jya60lbavxqqhi0sbxd")))) + (build-system emacs-build-system) + (home-page "https://github.com/bbatsov/crux") + (synopsis "Collection of useful functions for Emacs") + (description + "@code{crux} provides a collection of useful functions for Emacs.") + (license license:gpl3+)))) + +(define-public emacs-edit-server + (package + (name "emacs-edit-server") + (version "1.13") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/stsquad/emacs_chrome/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1r92kqggslqasza718z4ka883mqfbnibdm43f0j9gaipk0msm2wf")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'chdir-elisp + ;; Elisp directory is not in root of the source. + (lambda _ + (chdir "servers")))))) + (home-page "https://github.com/stsquad/emacs_chrome") + (synopsis "Server that responds to edit requests from Chromium") + (description + "This package provides an edit server to respond to requests from Emacs.") + (license license:gpl3+))) + +(define-public emacs-m-buffer-el + (package + (name "emacs-m-buffer-el") + (version "0.15") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/phillord/m-buffer-el" + "/archive/" "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "17vdcc8q37q9db98jyww1c0ivinmwfcw4l04zccfacalra63a214")))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'install 'check + (lambda* (#:key inputs #:allow-other-keys) + (invoke "emacs" "--batch" "-L" "." + "-l" "test/m-buffer-test.el" + "-l" "test/m-buffer-at-test.el" + "-f" "ert-run-tests-batch-and-exit")))))) + (build-system emacs-build-system) + (home-page "https://github.com/phillord/m-buffer-el") + (synopsis "List oriented buffer operations for Emacs") + (description "@code{m-buffer} provides a set of list-orientated functions +for operating over the contents of Emacs buffers.") + (license license:gpl3+))) + +(define-public emacs-let-alist + (package + (name "emacs-let-alist") + (version "1.0.5") + (source + (origin + (method url-fetch) + (uri (string-append + "https://elpa.gnu.org/packages/let-alist-" version ".el")) + (sha256 + (base32 + "0r7b9jni50la1m79kklml11syg8d2fmdlr83pv005sv1wh02jszw")))) + (build-system emacs-build-system) + (home-page "https://elpa.gnu.org/packages/let-alist.html") + (synopsis "Easily let-bind values of an assoc-list by their names") + (description "This package offers a single macro, @code{let-alist}. This +macro takes a first argument (whose value must be an alist) and a body.") + (license license:gpl3+))) + +(define-public emacs-esup + (let ((commit "a589005a9a888537deef94d6fe38a9b8790c97c7") + (revision "1")) + (package + (name "emacs-esup") + (version (string-append "0.6" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jschaf/esup.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "04lxmd0h7mfjjl0qghrycgff0vcv950j1wqv0dbkr61jxp64n5fv")))) + ;; TODO: Add tests + (build-system emacs-build-system) + (home-page "https://github.com/jschaf/esup") + (synopsis "Emacs start up profiler") + (description "Benchmark Emacs Startup time without ever leaving +your Emacs.") + (license license:gpl2+)))) + +(define-public emacs-sourcemap + (package + (name "emacs-sourcemap") + (version "0.03") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/syohex/emacs-sourcemap/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0bmd5l3cx2iyl7vxn84xdhs80b07kpdpfwki28lh5d0kmm5qs6m6")))) + (build-system emacs-build-system) + (home-page "https://github.com/syohex/emacs-sourcemap") + (synopsis "Sourcemap parser") + (description "Sourcemap parser") + (license license:gpl3+))) + +(define-public emacs-macrostep + (let ((commit "424e3734a1ee526a1bd7b5c3cd1d3ef19d184267")) + (package + (name "emacs-macrostep") + (version (git-version "0.9" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/joddie/macrostep.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1fm40mxdn289cyzgw992223dgrjmwxn4q8svyyxfaxjrpb38jhjz")))) + (build-system emacs-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'check 'remove-test + ;; Fails because of requirement ‘/bin/sh’. + (lambda _ + (let ((file "macrostep-test.el")) + (chmod file #o644) + (emacs-batch-edit-file file + `(progn (progn (goto-char (point-min)) + (re-search-forward + "(ert-deftest macrostep-expand-c-macros") + (beginning-of-line) + (kill-sexp)) + (basic-save-buffer)))))) + (add-before 'install 'check + (lambda _ + (invoke "emacs" "--batch" "-L" "." + "-l" "macrostep-test.el" + "-f" "ert-run-tests-batch-and-exit")))))) + (home-page "https://github.com/joddie/macrostep") + (synopsis "Interactive macro-expander for Emacs") + (description "@code{macrostep} is an Emacs minor mode for interactively +stepping through the expansion of macros in Emacs Lisp source code. It lets +you see exactly what happens at each step of the expansion process by +pretty-printing the expanded forms inline in the source buffer, which is +temporarily read-only while macro expansions are visible. You can expand and +collapse macro forms one step at a time, and evaluate or instrument the +expansions for debugging with Edebug as normal (but see “Bugs and known +limitations”, below). Single-stepping through the expansion is particularly +useful for debugging macros that expand into another macro form. These can be +difficult to debug with Emacs’ built-in macroexpand, which continues expansion +until the top-level form is no longer a macro call.") + (license license:gpl3+)))) + +(define-public emacs-parent-mode + (package + (name "emacs-parent-mode") + (version "2.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Fanael/parent-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0gxbl5s1w96v6v55b7aaansgw4sxhzfx9nrsvpk3pfhsibs6yqjd")))) + (build-system emacs-build-system) + (home-page "https://github.com/Fanael/parent-mode") + (synopsis "Get major mode's parent modes") + (description "Get major mode's parent modes") + (license license:gpl3+))) + +(define-public emacs-lacarte + (package + (name "emacs-lacarte") + (version "0.1") + (source (origin + (method url-fetch) + (uri "https://www.emacswiki.org/emacs/download/lacarte.el") + (sha256 + (base32 + "1sbmk37ljq5j7dsw5c37sbxvlfgdqswh7bi4dknyjzfxlq50f4am")))) + (build-system emacs-build-system) + (home-page "https://www.emacswiki.org/emacs/lacarte.el") + (synopsis "Execute menu items as commands, with completion") + (description "Execute menu items as commands, with completion.") + (license license:gpl3))) + +(define-public emacs-company-lua + (let ((commit "0be8122f3adf57ad27953bf4b03545d6298d3da4")) + (package + (name "emacs-company-lua") + (version (git-version "0.1" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ptrv/company-lua.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1d9i165apgmwns7b2fd5wcpjpkah3dyj20v5sb8ynvz6qhhr5r9c")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-company" ,emacs-company) + ("emacs-s" ,emacs-s) + ("emacs-f" ,emacs-f) + ("emacs-lua-mode" ,emacs-lua-mode))) + (home-page "https://github.com/ptrv/company-lua") + (synopsis "Company backend for Lua") + (description + "This package provides Company backend for Lua programming language.") + (license license:gpl3+)))) + +(define-public emacs-beginend + (package + (name "emacs-beginend") + (version "2.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/DamienCassou/beginend/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0z4rbwffh9vxfvcrlvym4p73z7gf72q0b5iv33llbpcpbijknnrq")))) + ;; TODO: Run tests. + (build-system emacs-build-system) + (inputs + `(("emacs-undercover" ,emacs-undercover))) ; For tests. + (home-page "https://github.com/DamienCassou/beginend") + (synopsis "Redefine @code{M-<} and @code{M->} for Emacs modes") + (description "@code{beginend} redefines @code{M-<} and @code{M->} +keybindings for Emacs modes so that point moves to meaningful +locations. Redefined keys are still accessible by pressing the same +key again.") + (license license:gpl3+))) + +(define-public emacs-mbsync + (let ((commit "42077e83ae2db778ce0f8e22f8357b40355526b3") + (revision "1")) + (package + (name "emacs-mbsync") + (version (string-append "0.0.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/dimitri/mbsync-el.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0yj93y2mpxlir8x73znlg1slxlv4blm1vjv5h2w3j8lxg8bxvmn6")))) + (build-system emacs-build-system) + (home-page "https://github.com/dimitri/mbsync-el") + (synopsis "Interface to mbsync for Emacs") + (description "This package allows to call the @code{mbsync} from +within Emacs.") + (license license:gpl3+)))) + +(define-public emacs-ibuffer-projectile + (let ((commit "c18ac540ee46cb759fc5df18747f6e8d23563011") + (revision "1")) + (package + (name "emacs-ibuffer-projectile") + (version (string-append "0.2" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/purcell/ibuffer-projectile.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1nd26cwwdpnwj0g4w393rd59klpyr6wqrnyr6scmwb5d06bsm44n")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-projectile" ,emacs-projectile))) + (home-page "https://github.com/purcell/ibuffer-projectile") + (synopsis "Group ibuffer's list by projectile root") + (description "Adds functionality to Emacs @code{ibuffer} for +grouping buffers by their projectile root directory.") + (license license:gpl3+)))) + +(define-public emacs-helm-mode-manager + (package + (name "emacs-helm-mode-manager") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/istib/helm-mode-manager/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0wllj321z16hgrx0ddwzk5wz4mnnx5am7w5nclqclfc5dfdn92wm")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm))) + (home-page "https://github.com/istib/helm-mode-manager/") + (synopsis "Switch and toggle Emacs major and minor modes using Helm") + (description "This package provides a Helm interface for toggling Emacs +major or minor mode. + +@itemize +@item @code{helm-switch-major-mode} list of all major modes +@item @code{helm-enable-minor-mode} list of all inactive minor modes +@item @code{helm-disable-minor-mode} list of all ACTIVE minor modes +@end itemize\n + +Hitting @code{RET} enables the mode, @code{C-z} shows the mode +documentation.") + (license license:gpl3+))) + +(define-public emacs-hy-mode + (package + (name "emacs-hy-mode") + (version "1.0.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/hylang/hy-mode/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0b4pvbr2hf77bq2vsyfsv653q0dab7qzq85wc7kdziw7687jdf2z")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-s" ,emacs-s))) + (home-page "https://github.com/hylang/hy-mode") + (synopsis "Major mode for Hylang") + (description "This package provides a major mode for Hylang.") + (license license:gpl3+))) + +(define-public emacs-web-beautify + (package + (name "emacs-web-beautify") + (version "0.3.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/yasuyk/web-beautify/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1j57hwid74id4swkx2g0iljfawx0k9c7qjrwqc0mv657x9p78hcs")))) + (build-system emacs-build-system) + (home-page "https://github.com/yasuyk/web-beautify") + (synopsis "Format HTML, CSS and JavaScript, JSON") + (description "This package provides an Emacs functions to format HTML, +CSS, JavaScript, JSON.") + (license license:gpl3+))) + +(define-public emacs-helm-shell-history + (let ((commit "110d3c35c52fe4b89b29e79ea4c8626bce7266a1")) + (package + (name "emacs-helm-shell-history") + (version (git-version "0.1" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/yuutayamada/helm-shell-history.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "18fkjcz69g4dyaxhf9j8svr5x6dhsdnglddwisis8hdn504scpfj")))) + (build-system emacs-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'check 'patch-helm-shell-history-file + (lambda _ + (let ((file "helm-shell-history.el")) + (chmod file #o644) + (emacs-substitute-sexps file + ("(defvar helm-shell-history-file" + `(expand-file-name "~/.bash_history")))) + #t))))) + (propagated-inputs + `(("emacs-helm" ,emacs-helm))) + (home-page "https://github.com/yuutayamada/helm-shell-history") + (synopsis "Find shell history with Emacs Helm") + (description "This package provides an Emacs Helm interface to search +throw a shell history.") + (license license:gpl3+)))) + +(define-public emacs-discover-my-major + (package + (name "emacs-discover-my-major") + (version "1.0") + (source + (origin + (method url-fetch) + (uri + (string-append "https://github.com/steckerhalter/discover-my-major" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0nah41f92rrl2l405kpqr6iaks11jyclgl4z7ilfymbr4ifmsiyl")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-makey" ,emacs-makey))) + (home-page "https://github.com/steckerhalter/discover-my-major") + (synopsis "Discover key bindings for the current Emacs major mode") + (description "This package provides allows to discover key bindings and +their meaning for the current Emacs major-mode.") + (license license:gpl3+))) + +(define-public emacs-org-ref + (let ((commit "8c9b5d7efb9f0c1ad5186b8203bdd017f4249129") + (revision "1")) + (package + (name "emacs-org-ref") + (version (string-append "1.1.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jkitchin/org-ref.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1rxz0bjdsayk0slv23i07d9xhj2m7s4hsc81wc2d1cs52dkr5zmz")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-helm" ,emacs-helm) + ("emacs-helm-bibtex" ,emacs-helm-bibtex) + ("emacs-ivy" ,emacs-ivy) + ("emacs-hydra" ,emacs-hydra) + ("emacs-key-chord" ,emacs-key-chord) + ("emacs-s" ,emacs-s) + ("emacs-f" ,emacs-f) + ("emacs-pdf-tools" ,emacs-pdf-tools))) + (home-page "https://github.com/jkitchin/org-ref") + (synopsis "Citations, cross-references and bibliographies in org-mode") + (description + "Lisp code to setup bibliography, cite, ref and label org-mode links. +Also sets up reftex and helm for org-mode citations. The links are +clickable and do things that are useful. + +The default setup uses helm-bibtex. + +You should really read org-ref.org in this package for details.") + (license license:gpl3+)))) + +(define-public emacs-org-reveal + (package + (name "emacs-org-reveal") + ;; There are no proper tag, so we use the latest commit of the stable + ;; branch, as does MELPA. + (version "20161027.926") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/yjwen/org-reveal.git") + (commit "001567cc12d50ba07612edd1718b86a12e8c2547"))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "18rma8smjrskbjyna076zhvx79zs5r5vinb537h8mw13pfxd6cm8")))) + (build-system emacs-build-system) + (home-page "https://github.com/yjwen/org-reveal") + (synopsis "Org and Reveal.js powered HTML presentation tool") + (description "Org-Reveal is a command@{org-mode} extension that allows to +create beautiful presentations (slides) with 3D effects from simple but +powerful Org contents.") + (license license:gpl3+))) + +(define-public emacs-add-hooks + (package + (name "emacs-add-hooks") + (version "3.1.1") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/nickmccurdy/add-hooks/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "03a28gb3298g7pc2qji9hi44p4d99ljp5mpi9cmg42ldv8fl6549")))) + (build-system emacs-build-system) + (home-page "https://github.com/nickmccurdy/add-hooks/") + (synopsis "Emacs function for setting multiple hooks") + (description "This package provides a @code{add-hooks} function tidies up +duplicate hook and function names further into a single declarative call.") + (license license:gpl3+))) + +(define-public emacs-fancy-narrow + (package + (name "emacs-fancy-narrow") + (version "0.9.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Malabarba/fancy-narrow/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0rf2rnzg82pdqch041yyx3f9ddixffkk9s2ydzg8hwy66sg3385n")))) + (build-system emacs-build-system) + (home-page "https://github.com/Malabarba/fancy-narrow/releases") + (synopsis "Imitate @code{narrow-to-region} with more eye candy") + (description + "Unlike @code{narrow-to-region}, which completely hides text outside +the narrowed region, this package simply de-emphasizes the text, makes it +read-only, and makes it unreachable. This leads to a much more natural +feeling where the region stays static (instead of being brutally moved to a +blank slate) and is clearly highlighted with respect to the rest of the +buffer.") + (license license:gpl2+))) + +(define-public emacs-know-your-http-well + (package + (name "emacs-know-your-http-well") + (version "0.5.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/for-GET/know-your-http-well/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1y3kwz88awcgwaivlswq0q4g2i02762r23lpwg61bfqy5lrjjqnj")))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'install-json-files + (lambda* (#:key outputs #:allow-other-keys) + (for-each (lambda (directory) + (copy-recursively directory + (string-append + (assoc-ref outputs "out") + directory))) + '("js" "json")))) + (add-after 'unpack 'chdir-elisp + ;; Elisp directory is not in root of the source. + (lambda _ + (chdir "emacs")))))) + (build-system emacs-build-system) + (home-page "https://github.com/for-GET/know-your-http-well") + (synopsis "Meaning of HTTP headers codes") + (description "Meaning of HTTP headers codes.") + (license license:gpl3+))) + +(define-public emacs-navi-mode + (let ((commit "c1d38e8237f4e14af020a0b7d4f118ea198ab674")) + (package + (name "emacs-navi-mode") + (version (git-version "2.0" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/alphapapa/navi.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0jj5spk14hgb7zb1cd2n8whcw4k1kd5zb6llwj96v178yaws7l8k")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-outshine" ,emacs-outshine) + ("emacs-outorg" ,emacs-outorg))) + (home-page "https://github.com/alphapapa/navi") + (synopsis "Emacs major-mode for easy buffer-navigation") + (description + "This package provides an Emacs major-mode for easy buffer-navigation") + (license license:gpl3+)))) + +(define-public emacs-download-region + (let ((commit "eb9e557529a73b4cfc8281c70dd0d95db333fffa") + (revision "1")) + (package + (name "emacs-download-region") + (version (string-append "0.0.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/zk-phi/download-region.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0v52djg39b6k2snizd9x0qc009ws5y0ywqsfwhqgcbs5ymzh7dsc")))) + (build-system emacs-build-system) + (home-page "https://github.com/zk-phi/download-region") + (synopsis "In buffer download manager for Emacs") + (description "@code{download-region} provides in buffer +downloading manager for Emacs.") + (license license:gpl3+)))) + +(define-public emacs-helpful + (package + (name "emacs-helpful") + (version "0.15") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/Wilfred/helpful/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1xmvhphzb4hbg647dz4lafy6hd19b7bk3lxni6irqrzdsrclhzn6")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-elisp-refs" ,emacs-elisp-refs))) + (home-page "https://github.com/Wilfred/helpful") + (synopsis "More contextual information in Emacs help") + (description "@code{helpful} is an alternative to the built-in Emacs help +that provides much more contextual information. + +@itemize +@item Show the source code for interactively defined functions (unlike the +built-in Help). +@item Fall back to the raw sexp if no source is available. +@item Show where a function is being called. +@item Docstrings will Highlight the summary (the first sentence), include +cross-references, hide superfluous puncuation. +@item Show you the properties that have been applied to the current +symbol. This provides visibility of features like edebug or byte-code +optimisation. +@item Provide a separate @code{helpful-command} function to view interactive +functions. +@item Display any keybindings that apply to interactive functions. +@item Trace, disassemble functions from inside Helpful. This is discoverable +and doesn't require memorisation of commands. +@end itemize\n") + (license license:gpl3+))) + +(define-public emacs-logview + (package + (name "emacs-logview") + (version "0.9") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/doublep/logview/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1vd11ppm46ldqsiwhqgw91p34gbjh1y82r9mxcn9r2gj65nvhxcp")))) + (propagated-inputs + `(("emacs-datetime" ,emacs-datetime))) + (build-system emacs-build-system) + (home-page "https://github.com/doublep/logview/") + (synopsis "Emacs mode for viewing log files") + (description "@code{logview} provides an Emacs mode to view log files.") + (license license:gpl3+))) + +(define-public emacs-suggest + (package + (name "emacs-suggest") + (version "0.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Wilfred/suggest.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1760fm3j19w8xxcawq6s859h86q1rdg69pg9yz48n76kwfk3vlgp")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-loop" ,emacs-loop) + ("emacs-dash" ,emacs-dash) + ("emacs-s" ,emacs-s) + ("emacs-f" ,emacs-f))) + (home-page "https://github.com/Wilfred/suggest.el") + (synopsis "Suggest Elisp functions that give the output requested") + (description "Suggest.el will find functions that give the output +requested. It's a great way of exploring list, string and arithmetic +functions.") + (license license:gpl3+))) + +(define-public emacs-benchmark-init + (package + (name "emacs-benchmark-init") + (version "1.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/dholm/benchmark-init-el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0szyqr4nncwz4vd5gww1vz31kf9r2lx25p4d0d09pm35974x53kz")))) + (build-system emacs-build-system) + (home-page "https://github.com/dholm/benchmark-init-el") + (synopsis "Benchmark Emacs @code{require} and @code{load} calls") + (description "@code{benchmark-init} provides a way to keep track of where +time is being spent during Emacs startup in order to optimize startup time.") + (license license:gpl3+))) + +(define-public emacs-emms-player-simple-mpv + ;; A new mpv backend is included in Emms from 5.0. + (deprecated-package "emacs-emms-player-simple-mpv" emacs-emms)) + +(define-public emacs-magit-org-todos-el + (let ((commit "df206287737b9671f2e36ae7b1474ebbe9940d2a")) + (package + (name "emacs-magit-org-todos-el") + (version (git-version "0.1.1" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/danielma/magit-org-todos.el.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0kdp7k7jnnrkhsg0xh1c3h7iz0vgi120gf5xwl1hxy61avivnxrn")))) + (propagated-inputs + `(("magit" ,emacs-magit))) + (build-system emacs-build-system) + (home-page "https://github.com/danielma/magit-org-todos.el") + (synopsis "Get todo.org into Emacs Magit status") + (description "This package allows you to get @file{todo.org} into your +magit status. + +If you have a @file{todo.org} file with @code{TODO} items in the root of your +repository, @code{magit-org-todos} will create a section in your Magit status +buffer with each of your todos.") + (license license:gpl3+)))) + +(define-public emacs-f3 + (package + (name "emacs-f3") + (version "0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/cosmicexplorer/f3/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "06b8i1jvklm5k3k90n65f197l1miq1xlxqkqpbppw4h3rhl4y98h")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm))) + (home-page "https://github.com/cosmicexplorer/f3") + (synopsis "Fantastic File Finder for Emacs") + (description + "The Fantastic File Finder for Emacs. Find files fast, using helm.") + (license license:gpl3+))) + +(define-public emacs-lice-el + (let ((commit "4339929927c62bd636f89bb39ea999d18d269250")) + (package + (name "emacs-lice-el") + (version (git-version "0.2" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/buzztaiki/lice-el.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0879z761b7gajkhq176ps745xpdrivch349crransv8fnsc759yb")))) + (build-system emacs-build-system) + (home-page "https://github.com/buzztaiki/lice-el") + (synopsis "License and header template for Emacs") + (description "@code{lice.el} provides following features: + +@itemize +@item License template management. +@item File header insertion. +@end itemize\n") + (license license:gpl3+)))) + +(define-public emacs-academic-phrases + (let ((commit "0823ed8c24b26c32f909b896a469833ec4d7b656")) + (package + (name "emacs-academic-phrases") + (version (git-version "0.1" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/nashamri/academic-phrases.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0qfzsq8jh05w4zkr0cvq3i1hdn97bq344vcqjg46sib26x3wpz6r")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-s" ,emacs-s) + ("emacs-ht" ,emacs-ht))) + (home-page "https://github.com/nashamri/academic-phrases") + (synopsis "Bypass that mental block when writing your papers") + (description + "When writing your academic paper, you might get stuck trying to find +the right phrase that captures your intention. This package tries to +alleviate that problem by presenting you with a list of phrases organized by +the topic or by the paper section that you are writing. This package has +around 600 phrases so far. + +Using this package is easy, just call @code{academic-phrases} to get a list of +phrases organized by topic, or call @code{academic-phrases-by-section} to +browse the phrases by the paper section and fill-in the blanks if required.") + (license license:gpl3+)))) + +(define-public emacs-auto-yasnippet + (let ((commit "d1ccfea87312c6dd8cf8501ab5b71b1d3d44d95b")) + (package + (name "emacs-auto-yasnippet") + (version (git-version "0.3.0" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/abo-abo/auto-yasnippet.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1i8k2qiyzd5rq0zplk4xb5nfa5mp0ibxbzwqj6c7877waq7244xk")))) + (build-system emacs-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'install 'check + (lambda _ + (invoke "emacs" "--batch" + "-l" "auto-yasnippet.el" + "-l" "auto-yasnippet-test.el" + "-f" "ert-run-tests-batch-and-exit")))))) + (propagated-inputs + `(("emacs-yasnippet" ,emacs-yasnippet))) + (home-page "https://github.com/abo-abo/auto-yasnippet/") + (synopsis "Quickly create disposable yasnippets") + (description "This package provides a hybrid of keyboard macros and +yasnippet. You create the snippet on the go, usually to be used just in the +one place. It's fast, because you're not leaving the current buffer, and all +you do is enter the code you'd enter anyway, just placing ~ where you'd like +yasnippet fields and mirrors to be.") + (license license:gpl3+)))) + +(define-public emacs-highlight-numbers + (package + (name "emacs-highlight-numbers") + (version "0.2.3") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/Fanael/highlight-numbers/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "030v5p11d4n0581ncv499l1fqrmfziy756q6378x2bv22ixghqqp")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-parent-mode" ,emacs-parent-mode))) + (home-page "https://github.com/Fanael/highlight-numbers") + (synopsis "Highlight numbers in source code") + (description "@code{highlight-numbers-mode} provides a minor mode for +syntax highlighting of numeric literals in source code. + +It s customizable: it's easy to add or redefine what exactly consitutes a +\"number\" in given major mode. See @code{highlight-numbers-modelist}.") + (license license:gpl3+))) + +(define-public emacs-darkroom + (package + (name "emacs-darkroom") + (version "0.1") + (source (origin + (method url-fetch) + (uri (string-append "https://elpa.gnu.org/packages/darkroom-" + version ".el")) + (sha256 + (base32 + "0fif8fm1h7x7g16949shfnaik5f5488clsvkf8bi5izpqp3vi6ak")))) + (build-system emacs-build-system) + (home-page "https://elpa.gnu.org/packages/darkroom.html") + (synopsis "Remove visual distractions and focus on writing") + (description "@code{darkroom-mode} makes visual distractions disappear. +The mode-line is temporarily elided, text is enlarged and margins are adjusted +so that it's centered on the window. + +@code{darkroom-tentative-mode} is similar, but it doesn't immediately turn-on +@code{darkroom-mode}, unless the current buffer lives in the sole window of +the Emacs frame (i.e. all other windows are deleted). Whenever the frame is +split to display more windows and more buffers, the buffer exits +@code{darkroom-mode}. Whenever they are deleted, the buffer re-enters +@code{darkroom-mode}.") + (license license:gpl3+))) + +(define-public emacs-rsw-elisp + (package + (name "emacs-rsw-elisp") + (version "1.0.5") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/rswgnu/rsw-elisp" + "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1jnn7xfwl3wxc87v44ccsf1wwp80par3xgcvfb1icd6zchjmlcps")))) + (build-system emacs-build-system) + (home-page "https://github.com/rswgnu/rsw-elisp") + (synopsis "Improved expressions that interactively evaluate Emacs Lisp") + (description "This package improves and replaces the GNU Emacs commands +that interactively evaluate Emacs Lisp expressions. The new commands replace +standard key bindings and are all prefixed with @code{rsw-elisp-}. They work +the same way as the old commands when called non-interactively; only the +interactive behavior should be different.") + (license license:gpl3+))) + +(define-public emacs-default-text-scale + (let ((commit "968e985e219235f3e744d6d967e592acbaf6e0a8") + (revision "1")) + (package + (name "emacs-default-text-scale") + (version (string-append "0.1" "-" revision "." + (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/purcell/default-text-scale") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0zds01c3q5yny6ab1fxfkzzgn1kgl3q23lxxap905f4qd70v922h")))) + (build-system emacs-build-system) + (home-page "https://github.com/purcell/default-text-scale") + (synopsis "Adjust the font size in all Emacs frames") + (description "This package provides commands for increasing or +decreasing the default font size in all GUI Emacs frames.") + (license license:gpl3+)))) + +(define-public emacs-visual-regexp + (package + (name "emacs-visual-regexp") + (version "1.1.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/benma/visual-regexp.el/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1czmhvcivlcdyz7rfm0vd4a3xsgmy4qbvbl6yjxc217wrxqflr92")))) + (build-system emacs-build-system) + (home-page "https://github.com/benma/visual-regexp.el/") + (synopsis "Regexp command with interactive visual feedback") + (description "This package provides an Emacs regexp command with +interactive visual feedback.") + (license license:gpl3+))) + +(define-public emacs-faceup + (let ((commit "6c92dad56a133e14e7b27831e1bcf9b3a71ff154") + (revision "1")) + (package + (name "emacs-faceup") + (version (string-append "0.0.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Lindydancer/faceup.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1yzmy7flrhrh0i10bdszx8idx6r8h6czm4vm4q0z6fp5fw94zwrx")))) + (build-system emacs-build-system) + (home-page "https://github.com/Lindydancer/faceup") + (synopsis "Markup language for faces and font-lock regression testing") + (description "Emacs is capable of highlighting buffers based on +language-specific @code{font-lock} rules. This package makes it possible to +perform regression test for packages that provide font-lock rules.") + (license license:gpl3+)))) + +(define-public emacs-racket-mode + (let ((commit "b977873e6128f8399432dcd60cc39f6a6f803d9c") + (revision "2")) + (package + (name "emacs-racket-mode") + (version (string-append "0.0.2" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/greghendershott/racket-mode") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0vp4bbbplqvmnhjpl6ajrlydmrhqzil56cfbs18m5c5fddx0zlh7")))) + (build-system emacs-build-system) + (arguments + `(#:include '("\\.el$" "\\.rkt$"))) + (propagated-inputs + `(("emacs-faceup" ,emacs-faceup) + ("emacs-s" ,emacs-s))) + (home-page "https://github.com/greghendershott/racket-mode") + (synopsis "Major mode for Racket language") + (description "@code{racket-mode} provides: + +@itemize +@item Focus on Racket (not various Schemes). +@item Follow DrRacket concepts where applicable. +@item Thorough font-lock and indent. +@end itemize\n") + (license license:gpl3+)))) + +(define-public emacs-grep-context + (let ((commit "a17c57e66687a54e195e08afe776bdd60cb6c0a7")) + (package + (name "emacs-grep-context") + (version (git-version "0.1" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/mkcms/grep-context.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1nqfa6kjzjshww4hnwg1c0vcr90bdjihy3kmixq3c3jkvxg99b62")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/nashamri/academic-phrases") + (synopsis "Increase context in compilation and grep buffers") + (description + "This package provides an Emacs package for more context in +compilation/grep buffers. Works with @code{wgrep}, @code{ack}, @code{ag}, +@code{ivy}.") + (license license:gpl3+)))) + +(define-public emacs-helm-firefox + (let ((commit "0ad34b7b5abc485a86cae6920c14de861cbeb085") + (revision "1")) + (package + (name "emacs-helm-firefox") + (version (string-append "0.0.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-helm/helm-firefox.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "08mjsi2f9s29fkk35cj1rrparjnkm836qmbfdwdz7y51f9varjbs")))) + (propagated-inputs + `(("emacs-helm" ,emacs-helm))) + (build-system emacs-build-system) + (home-page "https://github.com/emacs-helm/helm-firefox") + (synopsis "Display firefox bookmarks with Emacs Helm interface") + (description "Display firefox bookmarks with Emacs Helm interface") + (license license:gpl3+)))) + +(define-public emacs-interactive-align + (package + (name "emacs-interactive-align") + (version "0.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/mkcms/interactive-align/" + "archive/" "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0sibpgb4lp6yy3pziak8f3hz4b28yj0dqy2nzh51z3d0b63h528m")))) + (build-system emacs-build-system) + (home-page "https://github.com/mkcms/interactive-align/") + (synopsis "Interactive align-regexp command in Emacs") + (description "Interactive align-regexp command in Emacs") + (license license:gpl3+))) + +(define-public emacs-shift-number + (package + (name "emacs-shift-number") + (version "0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/alezost/shift-number.el" + "/archive/" "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1g79m0hqn9jgpm565vvh8pdfzndc4vw7xisnh5qysj55qfg8cb1x")))) + (build-system emacs-build-system) + (home-page "https://github.com/alezost/shift-number.el") + (synopsis "Increase or decrease the number at point") + (description "@code{emacs-shift-number} provides commands +@code{shift-number-up} to increase and @code{shift-number-down} to +decrease the number at point.") + (license license:gpl3+))) + +(define-public emacs-highlight-defined + (package + (name "emacs-highlight-defined") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/Fanael/highlight-defined/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1ryd66989b5byqdw8jmjrjf0c78iiz72wibld750skcnj5h5h506")))) + (build-system emacs-build-system) + (home-page "https://github.com/Fanael/highlight-defined") + (synopsis "Syntax highlighting of known Elisp symbols") + (description "Minor mode providing syntax highlighting of known Emacs Lisp +symbols. Currently the code distinguishes Lisp functions, built-in functions, +macros, faces and variables. To enable call @code{highlight-defined-mode}. ") + (license license:gpl3+))) + +(define-public emacs-parinfer-mode + (package + (name "emacs-parinfer-mode") + (version "0.4.10") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/DogLooksGood/parinfer-mode/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "06ba9qi59sm9ih9m38fbr8kj4qkvrm58n0c0ngfjz60gnr9x9pcv")))) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-rainbow-delimiters" ,emacs-rainbow-delimiters) + ("emacs-company" ,emacs-company))) + (build-system emacs-build-system) + (home-page "https://github.com/DogLooksGood/parinfer-mode/") + (synopsis "Lisp structure editing mode") + (description "@code{parinfer-mode} is a proof-of-concept editor +mode for Lisp programming languages. It will infer some changes to +keep Parens and Indentation inline with one another.") + (license license:gpl3+))) + +(define-public emacs-helm-eww + (let ((commit "9d36acc433bcf689598b1b4d7d47c9aeb84d6b44")) + (package + (name "emacs-helm-eww") + (version (git-version "0.1" "3" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-helm/helm-eww.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "06gnf84gx6qbhcw1h5jhjnvcdxkdpv0npm53x3pgqybbll5rn5dy")))) + (propagated-inputs + `(("emacs-helm" ,emacs-helm))) + (build-system emacs-build-system) + (home-page "https://github.com/emacs-helm/helm-eww/") + (synopsis "Helm interface to EWW") + (description "This package provides a Helm interface for EWW buffers, +bookmarks and history.") + (license license:gpl3+)))) + +(define-public emacs-stumpwm-mode + (let ((commit "8fbe071d2c6c040794060a354eb377218dc10b35") + (revision "1")) + (package + (name "emacs-stumpwm-mode") + (version (string-append "0.0.1-" revision "." + (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/stumpwm/stumpwm-contrib.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1dfwsvz1c8w6j4jp0kzaz78ml3f5dp0a5pvf090kwpbpg176r7iq")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'chdir-elisp + ;; Elisp directory is not in root of the source. + (lambda _ + (chdir "util/swm-emacs")))))) + (home-page "https://github.com/stumpwm/stumpwm-contrib") + (synopsis "Emacs minor-mode for Stumpwm") + (description "Emacs minor-mode for Stumpwm") + (license license:gpl3+)))) + +(define-public emacs-irfc + (package + (name "emacs-irfc") + (version "20130824.507") + (source + (origin + (method url-fetch) + (uri "https://www.emacswiki.org/emacs/download/irfc.el") + (file-name (string-append "irfc-" version ".el")) + (sha256 + (base32 + "197ybqwbj8qjh2p9pkf5mvqnrkpcgmv8c5s2gvl6msyrabk0mnca")))) + (build-system emacs-build-system) + (home-page "https://www.emacswiki.org/emacs/download/irfc.el") + (synopsis "Interface for IETF RFC document") + (description + "This package provides an Emacs interface for IETF RFC document.") + (license license:gpl3+))) + +(define-public emacs-ido-vertical-mode + (package + (name "emacs-ido-vertical-mode") + (version "0.1.6") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/creichert/ido-vertical-mode.el/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0dprdxq8wvqd45dinwj92k0kixr07c8xvspa6i613mjcpxgwjg53")))) + (build-system emacs-build-system) + (home-page "https://github.com/creichert/ido-vertical-mode.el") + (synopsis "Makes ido-mode display vertically") + (description "Makes ido-mode display prospects vertically.") + (license license:gpl3+))) + +(define-public emacs-wordgen + (package + (name "emacs-wordgen") + (version "0.1.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Fanael/wordgen.el/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1h2iyixdm49h53pwj9ics9gb9h3g6wa4hainpnjg6mfarf49jkmg")))) + (build-system emacs-build-system) + (home-page "https://github.com/Fanael/wordgen.el") + (synopsis "Random word generator") + (description "This package provides functions to generate random words +using user-provided rules.") + (license license:gpl3+))) + +(define-public emacs-on-screen + (package + (name "emacs-on-screen") + (version "1.3.2") + (source + (origin + (method url-fetch) + (uri (string-append + "http://elpa.gnu.org/packages/on-screen-" version ".el")) + (file-name (string-append name "-" version ".el")) + (sha256 + (base32 + "15d18mjgv1pnwl6kf3pr5w64q1322p1l1qlfvnckglwmzy5sl2qv")))) + (build-system emacs-build-system) + (home-page + "https://github.com/michael-heerdegen/on-screen.el") + (synopsis "Guide your eyes while scrolling") + (description + "Scrolling can be distracting because your eyes may lose +orientation. This library implements a minor mode that highlights +the previously visible buffer part after each scroll.") + (license license:gpl3+))) + +(define-public emacs-highlight-escape-sequences + (let ((commit "08d846a7aa748209d65fecead2b6a766c3e5cb41") + (revision "1")) + (package + (name "emacs-highlight-escape-sequences") + (version (string-append "0.0.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/dgutov/highlight-escape-sequences.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "05mc3w1f8ykf80914a1yddw6j8cmh0h57llm07xh89s53821v2is")))) + (build-system emacs-build-system) + (home-page "https://github.com/dgutov/highlight-escape-sequences") + (synopsis "Highlight escape sequences in Emacs") + (description "@code{highlight-escape-sequences} provides an +Emacs minor mode to escape sequences in code.") + (license license:gpl3+)))) + +(define-public emacs-dashboard + (package + (name "emacs-dashboard") + (version "1.2.4") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/rakanalh/emacs-dashboard/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1738lmbgq6gk24hcwic0qjyajr21l5xzhya4pv58dw1bhd6vxv9g")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-page-break-lines" ,emacs-page-break-lines))) + (arguments '(#:include '("\\.el$" "\\.txt$" "\\.png$"))) + (home-page "https://github.com/rakanalh/emacs-dashboard") + (synopsis "Startup screen extracted from Spacemacs") + (description "This package provides an extensible Emacs dashboard, with +sections for bookmarks, projectil projects, org-agenda and more. ") + (license license:gpl3+))) + +(define-public emacs-slime-company + (package + (name "emacs-slime-company") + (version "1.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/anwyn/slime-company/archive/" + "v" version ".tar.gz")) + (sha256 + (base32 + "1myl79pxj501xfr5qc5a24qddsn2l5iaamg7rf7fpny7mr9v70ar")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-slime" ,emacs-slime) + ("emacs-company" ,emacs-company))) + (home-page "https://company-mode.github.io") + (synopsis "SLIME completion backend for @code{company-mode}") + (description + "This is a backend implementation for the completion package +@code{company-mode} which supports the normal and the fuzzy completion +modes of SLIME.") + (license license:gpl3+))) + +(define-public emacs-sml-mode + (package + (name "emacs-sml-mode") + (version "6.8") + (source + (origin + (method url-fetch) + (uri (string-append "http://elpa.gnu.org/packages/sml-mode-" + version ".el")) + (sha256 + (base32 + "105fcrz5qp95f2n3fdm3awr6z58sbrjihjss6qnrg4lz2ggbc328")))) + (build-system emacs-build-system) + (home-page "http://elpa.gnu.org/packages/sml-mode.html") + (synopsis "Major mode for editing (Standard) ML") + (description "SML-MODE is a major Emacs mode for editing Standard ML. +It provides syntax highlighting and automatic indentation and +comes with sml-proc which allows interaction with an inferior SML +interactive loop.") + (license license:gpl3+))) + +(define-public emacs-eros + (let ((commit "a42e45c9b2397156c684330b0fc90ee0eba773f5") + (revision "1")) + (package + (name "emacs-eros") + (version (string-append "0.0.1" "-" revision "." + (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/xiongtx/eros.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0whlsq90v13fz69k3wjrwcwb9gkpfxqjd75mg3nrp85j9nwhb5i4")))) + (build-system emacs-build-system) + (home-page "https://github.com/xiongtx/eros") + (synopsis "Evaluation result overlays") + (description "@code{eros} provides evaluation result overlays.") + (license license:gpl3+)))) + +(define-public emacs-stickyfunc-enhance + (let ((commit "13bdba51fcd83ccbc3267959d23afc94d458dcb0") + (revision "1")) + (package + (name "emacs-stickyfunc-enhance") + (version "0.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/tuhdo/semantic-stickyfunc-enhance.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "16dxjsr5nj20blww4xpd4jzgjprzzh1nwvb810ggdmp9paf4iy0g")))) + (build-system emacs-build-system) + (home-page "https://github.com/tuhdo/semantic-stickyfunc-enhance") + (synopsis "Enhancement to stock @code{semantic-stickyfunc-mode}") + (description + "@code{semantic-stickyfunc-mode} shows the function point is currently +in at the first line of the current buffer. This is useful when you have a +very long function that spreads more than a screen, and you don't have to +scroll up to read the function name and then scroll down to original position.") + (license license:gpl3+)))) + +(define-public emacs-git-auto-commit-mode + (package + (name "emacs-git-auto-commit-mode") + (version "4.4.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/ryuslash/git-auto-commit-mode/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "04avxmalsl3b7zi2vipfw9rb4wrwysnipsbch96skviql9axk870")))) + (build-system emacs-build-system) + (home-page "https://github.com/ryuslash/git-auto-commit-mode") + (synopsis "Emacs Minor mode to automatically commit and push") + (description "@code{git-auto-commit-mode} is an Emacs minor mode that +tries to commit changes to a file after every save. + +When @code{gac-automatically-push-p} is non-nil, it also tries to push to +the current upstream.") + (license license:gpl3+))) + +(define-public emacs-company-restclient + (package + (name "emacs-company-restclient") + (version "0.1.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/iquiw/company-restclient/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1kr3f0wgqlk7r171bvb2kinv7fanwj2md01wdpx04qkgwcr1as00")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-company" ,emacs-company) + ("emacs-know-your-http-well" ,emacs-know-your-http-well) + ("emacs-restclient" ,emacs-restclient))) + (home-page "https://github.com/iquiw/company-restclient") + (synopsis "Company-mode completion back-end for restclient-mode") + (description "@code{company-mode} back-end for +@code{restclient-mode}. + +It provides auto-completion for HTTP methods and headers in +@code{restclient-mode}. Completion source is given by +@code{know-your-http-well}.") + (license license:gpl3+))) + +(define-public emacs-noflet + (let ((version "20170629") + (revision "1") + (commit "7ae84dc3257637af7334101456dafe1759c6b68a")) + (package + (name "emacs-noflet") + (version (git-version version revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/nicferrier/emacs-noflet") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0g70gnmfi8n24jzfci9nrj0n9bn1qig7b8f9f325rin8h7x32ypf")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'require-dash + ;; noflet.el uses -map from dash, but (require 'dash) is + ;; missing. So, add it. + (lambda _ + (substitute* "noflet.el" + ((";;; Code:") ";;; Code:\n(require 'dash)")) + #t))))) + (propagated-inputs + `(("emacs-dash" ,emacs-dash))) + (home-page "https://github.com/nicferrier/emacs-noflet") + (synopsis "Locally override functions") + (description "@code{emacs-noflet} let's you locally override functions, +in the manner of @command{flet}, but with access to the original function +through the symbol: @command{this-fn}.") + (license license:gpl3+)))) + +(define-public emacs-dumb-jump + (package + (name "emacs-dumb-jump") + (version "0.5.2") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/jacktasia/dumb-jump/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "07n0xjgpxjpf3vp9gxchkjpydyj0zm166930as0kwiwkhjlsirsf")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #f ; FIXME: Tests freeze when run. + #:test-command '("ert-runner") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'set-shell + (lambda _ + ;; Setting the SHELL environment variable is required for the + ;; tests to find sh. + (setenv "SHELL" (which "sh")) + #t))))) + (native-inputs + `(("emacs-el-mock" ,emacs-el-mock) + ("emacs-noflet" ,emacs-noflet) + ("emacs-undercover" ,emacs-undercover) + ("ert-runner" ,emacs-ert-runner))) + (propagated-inputs + `(("emacs-f" ,emacs-f) + ("emacs-popup" ,emacs-popup))) + (home-page "https://github.com/jacktasia/dumb-jump") + (synopsis "Jump to definition for multiple languages without configuration") + (description "Dumb Jump is an Emacs \"jump to definition\" package with +support for multiple programming languages that favors \"just working\" over +speed or accuracy. This means minimal --- and ideally zero --- configuration +with absolutely no stored indexes (tags) or persistent background processes. +Dumb Jump performs best with The Silver Searcher @command{ag} or ripgrep +@command{rg} installed.") + (license license:gpl3+))) + +(define-public emacs-dts-mode + (let ((commit "9ee0854446dcc6c53d2b8d2941051768dba50344") + (revision "1")) + (package + (name "emacs-dts-mode") + (version (string-append "0.1.0-" revision "." (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/bgamari/dts-mode.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1k8lljdbc90nd29xrhdrsscxavzdq532wq2mg7ljc94krj7538b1")))) + (build-system emacs-build-system) + (home-page "https://github.com/bgamari/dts-mode.git") + (synopsis "Emacs minor mode for editing device tree files") + (description + "This package provides an Emacs minor mode for highlighting +device tree files.") + (license license:gpl3+)))) + +(define-public emacs-daemons + (package + (name "emacs-daemons") + (version "2.0.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/cbowdon/daemons.el") + (commit version))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "00bkzfaw3bqykcks610vk9wlpa2z360xn32bpsrycacwfv29j7g4")))) + (build-system emacs-build-system) + (home-page "https://github.com/cbowdon/daemons.el") + (synopsis "Emacs UI for managing init system services") + (description + "This is an Emacs mode to give you a UI for managing init system +daemons (services) for those getting tired of typing out @code{sudo service +my_thing reload} all the time. It offers a consistent UI over different init +systems.") + (license license:gpl3+))) + +(define-public emacs-esh-autosuggest + (package + (name "emacs-esh-autosuggest") + (version "2.0.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/dieggsy/esh-autosuggest") + (commit version))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "116pdjgpjy9b0psm5kzwkwy7dq8vn0p6dy75dl1zsy2xrjf1iqdw")))) + (build-system emacs-build-system) + (propagated-inputs `(("emacs-company" ,emacs-company))) + (home-page "https://github.com/dieggsy/esh-autosuggest") + (synopsis "Fish-like autosuggestions in Eshell") + (description + "This package assumes you use something other than company for eshell +completion (e.g. @code{eshell-pcomplete}, @code{completion-at-point}, +@code{helm-esh-pcomplete}). @code{company-mode} is used solely as a mechanism +for history autosuggestions. + +Unless you're using @code{use-package}'s hook keyword, you can enable the +autosuggestions with: +@code{(add-hook 'eshell-mode-hook #'esh-autosuggest-mode)}") + (license license:gpl3+))) + +(define-public emacs-desktop-environment + (package + (name "emacs-desktop-environment") + (version "0.2.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/DamienCassou/desktop-environment.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1fal3yfmqg10cb53qsf5gsq2gvyz9w16wmlpnpjwjzwnjfn6l73r")))) + (build-system emacs-build-system) + (home-page "https://gitlab.petton.fr/DamienCassou/desktop-environment") + (synopsis "Control your GNU/Linux desktop environment from Emacs") + (description + "This package helps you control your GNU/Linux desktop from Emacs. +With @code{desktop-environment}, you can control the brightness and volume as +well as take screenshots and lock your screen. The package depends on the +availability of shell commands to do the hard work for us. These commands can +be changed by customizing the appropriate variables.") + (license license:gpl3+))) + +(define-public emacs-org-caldav + (package + (name "emacs-org-caldav") + (version "20180403") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/dengste/org-caldav/raw/" + "8d3492c27a09f437d2d94f2736c56d7652e87aa0" + "/org-caldav.el")) + (sha256 + (base32 + "1fh4gh68ddj0is99z2ccyh97v6psnyda61n2dsadzqhcxn51amlc")))) + (build-system emacs-build-system) + (propagated-inputs `(("emacs-org" ,emacs-org))) + (home-page "https://github.com/dengste/org-caldav") + (synopsis + "Sync Org files with external calendars via the CalDAV protocol") + (description + "Synchronize between events in Org-mode files and a CalDAV calendar. +This code is still alpha.") + (license license:gpl3+))) + +(define-public emacs-zotxt + (package + (name "emacs-zotxt") + (version "20180518") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/egh/zotxt-emacs/archive/" + "23a4a9f74a658222027d53a9a83cd4bcc583ca8b" + ".tar.gz")) + (sha256 + (base32 + "1qlibaciqgsva6fc7vv9krssjq00bi880396jk7llbi3c52q9n1y")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-deferred" ,emacs-deferred) + ("emacs-request" ,emacs-request))) + (home-page "https://github.com/egh/zotxt-emacs") + (synopsis "Integrate Emacs with Zotero") + (description "This package provides two integration features between Emacs +and the Zotero research assistant: Insertion of links to Zotero items into an +Org-mode file, and citations of Zotero items in Pandoc Markdown files.") + (license license:gpl3+))) + +(define-public emacs-evil-ediff + ;; Evil-Ediff is included in Evil Collection from 20180617. + (deprecated-package "emacs-evil-ediff" emacs-evil-collection)) + +(define-public emacs-evil-magit + (let ((commit "dbf5a646a7ce1c35c229dfdc423bd5ecd927a3a8")) + (package + (name "emacs-evil-magit") + (version (git-version "0.4.2" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-evil/evil-magit") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0ya0dkviq4pi92ab69a4j674y5r1hc1x3x7r7hlm97ag3a6zfkav")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-evil" ,emacs-evil) + ("magit" ,emacs-magit))) + (home-page + "https://github.com/emacs-evil/evil-magit") + (synopsis "Evil-based key bindings for Magit") + (description + "This Emacs library configures Magit and Evil to play well with each other. +For some background see @url{https://github.com/magit/evil-magit/issues/1}. +See the README at @url{https://github.com/justbur/evil-magit} for a table +describing the key binding changes.") + (license license:gpl3+)))) + +(define-public emacs-evil-mu4e + ;; Evil-mu4e is included in Evil Collection from 20180617. + (deprecated-package "emacs-evil-mu4e" emacs-evil-collection)) + +(define-public emacs-evil-multiedit + (package + (name "emacs-evil-multiedit") + (version "1.3.9") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/hlissner/evil-multiedit") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "19h3kqylqzbjv4297wkzzxdmn9yxbg6z4ga4ssrqri90xs7m3rw3")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-evil" ,emacs-evil) + ("emacs-iedit" ,emacs-iedit))) + (home-page + "https://github.com/hlissner/evil-multiedit") + (synopsis "Multiple cursors for Evil mode") + (description + "This plugin was an answer to the lack of proper multiple cursor support +in Emacs+Evil. It allows you to select and edit matches interactively, +integrating @code{iedit-mode} into Evil mode with an attempt at sensible +defaults.") + (license license:gpl3+))) + +(define-public emacs-evil-org + (let ((commit "b6d652a9163d3430a9e0933a554bdbee5244bbf6")) + (package + (name "emacs-evil-org") + (version (git-version "0.1.1" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Somelauw/evil-org-mode") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "176hrw7y7nczffbyhsa167b8rvfacsmcafm2gpkrdjqlrikbmrhl")))) + (build-system emacs-build-system) + (propagated-inputs `(("emacs-evil" ,emacs-evil))) + (home-page + "https://github.com/Somelauw/evil-org-mode") + (synopsis "Evil keybindings for Org mode") + (description + "This package adds supplemental Evil mode key-bindings to Emacs +Org-mode. It features: +@itemize +@item normal, visual and insert mode bindings; +@item key bindings organised in key themes; +@item operators like > and < to work on headings; +@item text objects; +@item table support; +@item calendar (date selection) support; +@item agenda support. +@end itemize\n") + (license license:gpl3+)))) + +(define-public emacs-fish-completion + (let ((commit "bac15fda1392a891070574dfe5d2d50b10831e8b")) + (package + (name "emacs-fish-completion") + (version (git-version "20180616" "1" commit)) + (source + (origin + (method url-fetch) + (uri (string-append + "https://gitlab.com/Ambrevar/emacs-fish-completion/repository/" + "archive.tar.gz?ref=" + commit)) + (sha256 + (base32 + "093qzdrbkl7dhjk16zq8i13kh1phyigkblcfrbgbrxjqd2ndrfdi")))) + (build-system emacs-build-system) + (inputs `(("fish" ,fish))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((fish (assoc-ref inputs "fish"))) + ;; Specify the absolute file names of the various + ;; programs so that everything works out-of-the-box. + (emacs-substitute-variables + "fish-completion.el" + ("fish-completion-command" + (string-append fish "/bin/fish"))))))))) + (home-page + "https://gitlab.com/Ambrevar/emacs-fish-completion") + (synopsis "Fish completion for Emacs pcomplete") + (description + "This package provides completion for the Fish shell to pcomplete (used +by shell and Eshell). You can set it up globally with: + +@example +(when (and (executable-find \"fish\") + (require 'fish-completion nil t)) + (global-fish-completion-mode)) +@end example + +Alternatively, you can call the @code{fish-completion-mode} manually or in +shell/Eshell mode hook. + +The package @code{emacs-bash-completion} is an optional dependency: if available, +@code{fish-completion-complete} can be configured to fall back on bash to further +try completing. See @code{fish-completion-fallback-on-bash-p}.") + (license license:gpl3+)))) + +(define-public emacs-gif-screencast + (let ((commit "12b25442b97b84abae74ecb5190a9d14ff7cfe5a")) + (package + (name "emacs-gif-screencast") + (version (git-version "20180616" "1" commit)) + (source + (origin + (method url-fetch) + (uri (string-append + "https://gitlab.com/Ambrevar/emacs-gif-screencast/" + "repository/archive.tar.gz?ref=" + commit)) + (sha256 + (base32 + "0lc457i78xjkn5idr2aaiadkh76zcsksj84z0qh80a9y775syrgh")))) + (build-system emacs-build-system) + (inputs + `(("scrot" ,scrot) + ("imagemagick" ,imagemagick) + ("gifsicle" ,gifsicle))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((scrot (assoc-ref inputs "scrot")) + (imagemagick (assoc-ref inputs "imagemagick")) + (gifsicle (assoc-ref inputs "gifsicle"))) + ;; Specify the absolute file names of the various + ;; programs so that everything works out-of-the-box. + (emacs-substitute-variables + "gif-screencast.el" + ("gif-screencast-program" + (string-append scrot "/bin/scrot")) + ("gif-screencast-convert-program" + (string-append imagemagick "/bin/convert")) + ("gif-screencast-cropping-program" + (string-append imagemagick "/bin/mogrify")) + ("gif-screencast-optimize-program" + (string-append imagemagick "/bin/gifsicle"))))))))) + (home-page + "https://gitlab.com/Ambrevar/emacs-gif-screencast") + (synopsis "One-frame-per-action GIF recording") + (description + "Call @code{gif-screencast} to start a recording. +A screenshot is taken for every user action. Call +@code{gif-screencast-stop} (<f9> by default) to finish recording and create +the GIF result.") + (license license:gpl3+)))) + +(define-public emacs-google-translate + (package + (name "emacs-google-translate") + (version "0.11.16") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/atykhonov/google-translate/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "01n9spj1d0gjfj39x526rl3m9c28wnx9afipmf5s8y77cx3mfwhl")))) + (build-system emacs-build-system) + (home-page "https://github.com/atykhonov/google-translate") + (synopsis "Emacs interface to Google Translate") + (description + "This packages provides an Emacs interface to the Google Translate +on-line service.") + (license license:gpl3+))) + +(define-public emacs-helm-company + (let ((commit "d3fc093a0e833b4dee6561c00d6df3d62aa50f3f")) + (package + (name "emacs-helm-company") + (version (git-version "0.2.3" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Sodel-the-Vociferous/helm-company") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1ciirsanhajdqm5iwl8k9ywf4jha1wdv4sc4d9kslyrfr9zn4q6k")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-company" ,emacs-company))) + (home-page "https://github.com/Sodel-the-Vociferous/helm-company") + (synopsis "Helm interface for company-mode") + (description + "This is a Helm interface to company-mode, a text completion +framework.") + (license license:gpl3+)))) + +(define-public emacs-helm-descbinds + (let ((commit "033be73f21778633813264ce1634a6e1ad873d8e")) + (package + (name "emacs-helm-descbinds") + (version (git-version "1.13" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-helm/helm-descbinds") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1n89p56qwa243w1c85i5awnaf7piwjsvfi7nmnsrwm33hix5dknk")))) + (build-system emacs-build-system) + (propagated-inputs `(("emacs-helm" ,emacs-helm))) + (home-page "https://github.com/emacs-helm/helm-descbinds") + (synopsis "Convenient @code{describe-bindings} with Helm") + (description + "This package is a replacement of @code{describe-bindings} for Helm. +@code{describe-bindings} is replaced with @code{helm-descbinds}. As usual, +type @code{C-h b}, or any incomplete key sequence plus @code{C-h}, to run +@code{helm-descbinds}. The bindings are presented in a similar way as +@code{describe-bindings} does, but you can use completion to find the command +you searched for and execute it, or view its documentation.") + (license license:gpl3+)))) + +(define-public emacs-helm-emms + (let ((commit "d3f9bdef8ff0d093eaf6e26af50ea905ab53fdec")) + (package + (name "emacs-helm-emms") + (version (git-version "1.3" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-helm/helm-emms") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0bdb8xp0yp3gijpa9i2rc17gfzjhzlm92vdzw93i10qpd1xhj4aa")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-emms" ,emacs-emms))) + (home-page + "https://github.com/emacs-helm/helm-emms") + (synopsis "Emms for Helm") + (description "Helm interface for Emms to browse all tracks and all folders +from @code{emms-source-file-default-directory}.") + (license license:gpl3+)))) + +(define-public emacs-helm-exwm + (let ((commit "56266f261ba3b3d2753b374b50da20eb768c06f5")) + (package + (name "emacs-helm-exwm") + (version (git-version "20180703" "2" commit)) + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/emacs-helm/helm-exwm/archive/" + commit + ".tar.gz")) + (sha256 + (base32 + "0n7hdiajw5vxl8ha2r9r4cl4i7crza25348825wb6acwhhzijxcj")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-exwm" ,emacs-exwm))) + (home-page + "https://github.com/emacs-helm/helm-exwm") + (synopsis "Helm for EXWM buffers") + (description + "@code{helm-exwm} runs a Helm session over the list of EXWM buffers. +@code{helm-exwm-switch} is a convenience X application launcher using Helm to +switch between the various windows of one or several specific applications. +See @code{helm-exwm-switch-browser} for an example.") + (license license:gpl3+)))) + +(define-public emacs-helm-flycheck + (let ((commit "3cf7d3bb194acacc6395f88360588013d92675d6")) + (package + (name "emacs-helm-flycheck") + (version (git-version "0.4" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/yasuyk/helm-flycheck") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1a2yfxhz04klwhcandqvfzysxp6b7bxyxx1xk1x3kds5hif5fkl4")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-flycheck" ,emacs-flycheck) + ("emacs-helm" ,emacs-helm))) + (home-page "https://github.com/yasuyk/helm-flycheck") + (synopsis "Show Flycheck errors with Helm") + (description + "This integrates Flycheck with Helm.") + (license license:gpl3+)))) + +(define-public emacs-helm-ls-git + (let ((commit "76654c776a7f6e2e5290645e748aac2a746f7daa")) + (package + (name "emacs-helm-ls-git") + (version (git-version "1.9.1" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-helm/helm-ls-git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0vsq1n3xl3ghy5zik2scm7jrs501n4kybdqd6yw6j0cv4jxdqbr0")))) + (build-system emacs-build-system) + (propagated-inputs `(("emacs-helm" ,emacs-helm))) + (home-page "https://github.com/emacs-helm/helm-ls-git") + (synopsis "Helm interface for listing the files in a Git repository") + (description + "This package provides a Helm interface for Git files. +@itemize +@item Display the open buffers in project. +@item Display a status source showing state of project (modified files etc.). +@item Display a list of all files in project under git control. +@item Quickly look at diffs of modified files. +@item Allow switching to @code{git status} with your preferred frontend +(vc-dir, Magit,etc.). +@item Full integration of git-grep, also allow usage of @code{helm-grep} (you +can use ack-grep instead of grep). +@item Integrate usage of gid from id-utils. +@item Full integration with @code{helm-find-files}, allow you to browse +projects unrelated to current-buffer. +@item In addition, all actions of type files and buffers are provided. +@end itemize\n") + (license license:gpl3+)))) + +(define-public emacs-helm-mu + (let ((commit "77e6fea24e01481418738421dbcfe28ef1bd63cf")) + (package + (name "emacs-helm-mu") + (version (git-version "20180513" "1" commit)) + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/emacs-helm/helm-mu/archive/" + commit + ".tar.gz")) + (sha256 + (base32 + "0qm4xi3i957scm50nar398pv4x8y03si10l77jb9ckjaviyq2hj9")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("mu" ,mu))) + (home-page + "https://github.com/emacs-helm/helm-mu") + (synopsis + "Helm sources for searching emails and contacts") + (description + "Helm sources for searching emails and contacts using @code{mu} and +@code{mu4e}. Mu is an indexer for maildirs and mu4e is a mutt-like MUA for +Emacs build on top of mu. Mu is highly efficient making it possible to get +instant results even for huge maildirs. It also provides search operators, +e.g: @code{from:Peter to:Anne flag:attach search term}.") + (license license:gpl3+)))) + +(define-public emacs-helm-pass + (let ((commit "ebcbef1a962795a36e3491ae926e2a4b8a8b0ebb")) + (package + (name "emacs-helm-pass") + (version (git-version "20180416" "1" commit)) + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/jabranham/helm-pass/archive/" + commit + ".tar.gz")) + (sha256 + (base32 + "1pgq4hj9wvz7z2fyxwsvbh6rmc1akya84v382nx26rr76iavz6wi")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-password-store" ,emacs-password-store))) + (home-page + "https://github.com/jabranham/helm-pass") + (synopsis "Helm interface to pass, the standard Unix password manager") + (description + "Users of @code{helm-pass} may also be interested in functionality +provided by other Emacs packages dealing with pass: +@itemize +@item @code{emacs-password-store}, which @code{helm-pass} relies on. +@item @code{emacs-pass}, a major mode for @code{pass}. +@item @code{auth-source-pass.el}: integration of Emacs' auth-source with +@code{pass}, included in Emacs 26+). +@end itemize\n") + (license license:gpl3+)))) + +(define-public emacs-image+ + (let ((commit "6834d0c09bb4df9ecc0d7a559bd7827fed48fffc")) + (package + (name "emacs-image+") + (version (git-version "0.6.2" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/mhayashi1120/Emacs-imagex") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0v66wk9nh0raih4jhrzmmyi5lbysjnmbv791vm2230ffi2hmwxnd")))) + (build-system emacs-build-system) + (inputs `(("imagemagick" ,imagemagick))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((imagemagick (assoc-ref inputs "imagemagick"))) + ;; Specify the absolute file names of the various + ;; programs so that everything works out-of-the-box. + (chmod "image+.el" #o666) + (emacs-substitute-variables + "image+.el" + ("imagex-convert-command" + (string-append imagemagick "/bin/convert")) + ("imagex-identify-command" + (string-append imagemagick "/bin/identify"))))))))) + (home-page "https://github.com/mhayashi1120/Emacs-imagex") + (synopsis "Image manipulation extensions for Emacs") + (description + "Image+ provides keybindings allowing you to zoom in or zoom out of an +image, rotate it, save modified images, and more.") + (license license:gpl3+)))) + +(define-public emacs-package-lint + (let ((commit "69bb89d00ba212b734c676ad056aa793c450b288")) + (package + (name "emacs-package-lint") + (version (git-version "0.5" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/purcell/package-lint") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1hfricsgmy3x9snnd2p4xq6vnnv94qdsxxnxp07b3hqc9bhw31rq")))) + (build-system emacs-build-system) + (home-page "https://github.com/purcell/package-lint") + (synopsis "Linting library for elisp package authors") + (description + "This provides a list of issues with the Emacs package metadata of a file, +e.g. the package dependencies it requires. See function +@code{package-lint-buffer}. Checks will currently be enabled only if a +\"Package-Requires:\" or \"Package-Version:\" header is present in the +file.") + (license license:gpl3+)))) + +(define-public emacs-picpocket + (let ((version "40") + (commit "6fd88b8711c4370662c0f9c462170187d092a046")) + (package + (name "emacs-picpocket") + (version version) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/johanclaesson/picpocket") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1mdzzxf7xm7zwrpnqqxa27d1cr31pd72d7ilbwljv13qp177a3yw")))) + (build-system emacs-build-system) + (arguments ; needed for running tests + `(#:tests? #t + #:emacs ,emacs + #:test-command '("emacs" "--batch" + "-l" "picpocket-test.el" + "-f" "ert-run-tests-batch-and-exit"))) + (home-page "https://github.com/johanclaesson/picpocket") + (synopsis "Image viewer for Emacs") + (description + "Picpocket is an image viewer for GNU Emacs. It has commands for: + +@itemize +@item File operations on the picture files (delete, move, copy, hardlink). +@item Scale and rotate the picture. +@item Associate pictures with tags which are saved to disk. +@item Filter pictures according to tags. +@item Customizing keystrokes for quick tagging and file operations. +@item Undo and browse history of undoable commands. +@end itemize") + (license license:gpl3+)))) + +(define-public emacs-wgrep-helm + ;; `emacs-wgrep-helm' was mistakenly added. + (deprecated-package "emacs-wgrep-helm" emacs-wgrep)) + +(define-public emacs-mu4e-conversation + (let ((commit "e7d4bfcb0d392b0aed1f705ccac2419a168d1f5e")) + (package + (name "emacs-mu4e-conversation") + (version (git-version "20181126" "4" commit)) + (source + (origin + (method url-fetch) + (uri (string-append + "https://gitlab.com/Ambrevar/mu4e-conversation/" + "repository/archive.tar.gz?ref=" + commit)) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0b52hf9rm2afba9pvgink9bwqm705sk0y5qikp0ff5sk53wqvy29")))) + (build-system emacs-build-system) + (propagated-inputs + `(("mu" ,mu))) + (home-page + "https://gitlab.com/Ambrevar/mu4e-conversation") + (synopsis + "Show a complete thread in a single buffer") + (description + "This package offers an alternate view to mu4e's e-mail display. It +shows all e-mails of a thread in a single view, where each correspondent has +their own face. Threads can be displayed linearly (in which case e-mails are +displayed in chronological order) or as an Org document where the node tree +maps the thread tree.") + (license license:gpl3+)))) + +(define-public emacs-pinentry + (let ((commit "dcc9ba03252ee5d39e03bba31b420e0708c3ba0c") + (revision "1")) + (package + (name "emacs-pinentry") + (version (git-version "0.1" revision commit)) + (source + (origin + (method url-fetch) + (uri (string-append + "http://git.savannah.gnu.org/cgit/emacs/elpa.git/plain" + "/packages/pinentry/pinentry.el?id=" commit)) + (file-name (string-append "pinentry.el")) + (sha256 + (base32 + "1lf30q6r8nz5cjzclbb9bbymsk2y75nskvb55hnjdv93gr3j0sik")))) + (build-system emacs-build-system) + (propagated-inputs + `(("gnupg" ,gnupg))) + (home-page "https://elpa.gnu.org/packages/pinentry.html") + (synopsis "GnuPG Pinentry server implementation") + (description + "This package allows GnuPG passphrase to be prompted through the +minibuffer instead of graphical dialog. + +To use, add @code{allow-emacs-pinentry} to @code{~/.gnupg/gpg-agent.conf}, +reload the configuration with @code{gpgconf --reload gpg-agent}, and start the +server with @code{M-x pinentry-start}.") + (license license:gpl3+)))) + +(define-public emacs-org-brain + (package + (name "emacs-org-brain") + (version "0.5") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Kungsgeten/org-brain.git") + (commit "3faf9303af3f2356e3444e69c22dc6c5774047d1"))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1ad681zk6kckw2zbk0r4iaj4bw8cfqrbd1s3gdwgdjlzq81q9mmj")))) + (build-system emacs-build-system) + (home-page "https://github.com/Kungsgeten/org-brain") + (synopsis "Org-mode wiki and concept-mapping for Emacs") + (description "@code{emacs-org-brain} implements a variant of concept +mapping in Emacs, using @code{org-mode}. An org-brain is a network of +org-mode entries, where each entry is a file or a headline, and you can get a +visual overview of the relationships between the entries: parents, children, +siblings and friends. This visual overview can also be used to browse your +entries. You can think of entries as nodes in a mind map, or pages in a +wiki.") + (license license:expat))) + +(define-public emacs-recent-addresses + (let ((commit "afbbfdc43b81e620acf827ca20d297e0c517b6eb") + (revision "1")) + (package + (name "emacs-recent-addresses") + (home-page "http://nschum.de/src/emacs/recent-addresses/") + (version (git-version "0.1" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + ;; Note: Use a branch that works with Helm. Submitted + ;; at <https://github.com/nschum/recent-addresses.el/pull/1>. + (url "https://github.com/civodul/recent-addresses.el") + (commit commit))) + (sha256 + (base32 + "0ajrq0galjmdyjdjyxazykjyax3gh6hvfk4s7l657pi11g0q5zax")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (synopsis "Record recently-used email addressed and auto-complete them") + (description + "@code{recent-addresses} is an Emacs package that allows you to quickly +look up previously used email addresses. It can be used alongside the Gnus +email client.") + (license license:gpl2+)))) + +(define-public emacs-fold-dwim + (let ((commit "c46f4bb2ce91b4e307136320e72c28dd50b6cd8b") + (revision "0")) + (package + (name "emacs-fold-dwim") + (version (git-version "1.2" revision commit)) + (home-page "https://github.com/emacsattic/fold-dwim") + (source (origin + (method git-fetch) + (uri (git-reference (url home-page) (commit commit))) + (sha256 + (base32 + "1yz1wis31asw6xa5maliyd1ck2q02xnnh7dc6swgj9cb4wi7k6i1")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (synopsis "Unified user interface for Emacs folding modes") + (description + "DWIM stands for \"do what I mean\", as in the idea that one keystroke +can do different things depending on the context. In this package, it means +that, if the cursor is in a currently hidden folded construction, we want to +show it; if it's not, we want to hide whatever fold the cursor is in.") + (license license:gpl2+)))) + +(define-public emacs-markup-faces + (package + (name "emacs-markup-faces") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://stable.melpa.org/packages/markup-faces-" + version ".el")) + (sha256 + (base32 + "124dxbaa25fwxnpwsygpz7pw6da6dnnw7y2lic3jf8rgz7lw4v32")))) + (build-system emacs-build-system) + (home-page "https://github.com/sensorflo/markup-faces") + (synopsis "Collection of Emacs faces for markup language modes") + (description "emacs-markup-faces is like font-lock-faces, but tailored for +markup languages instead programming languages. The sub group markup-faces-text +is also intended for 'text viewing modes' such as info or (wo)man. This gives a +common look and feel, or let's say theme, across different markup language modes +and 'text viewing modes' respectively.") + (license license:gpl3+))) + +(define-public emacs-adoc-mode + (package + (name "emacs-adoc-mode") + (version "0.6.6") + (source + (origin + (method url-fetch) + (uri (string-append "https://stable.melpa.org/packages/adoc-mode-" + version ".el")) + (sha256 + (base32 + "1c6hrgxxsnl2c19rgjykpm7r4xg9lp6bmk5z6bi7g8pqlrgwffcy")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-markup-faces" ,emacs-markup-faces))) + (home-page "https://github.com/sensorflo/adoc-mode/wiki") + (synopsis "AsciiDoc mode for Emacs") + (description "This package provides an Emacs major mode for editing AsciiDoc +files. It focuses on highlighting the document to improve readability.") + (license license:gpl2+))) + +(define-public emacs-rust-mode + (let ((commit + ;; Last release is old (2016), use more recent commit to get bug + ;; fixes. + "64b4a2450e4d4c47f6307851c9b2598cd2254d68") + (revision "0")) + (package + (name "emacs-rust-mode") + (version (git-version "0.3.0" revision commit)) + (source (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/rust-lang/rust-mode") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0pbz36lljgb7bdgx3h3g0pq1nss1kvn8mhk1l3mknsmynd6w4nd8")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (invoke "sh" "run_rust_emacs_tests.sh")))))) + (home-page "https://github.com/rust-lang/rust-mode") + (synopsis "Major Emacs mode for editing Rust source code") + (description "This package provides a major Emacs mode for editing Rust +source code.") + (license (list license:expat + license:asl2.0))))) + +(define-public emacs-ztree + (let ((commit "c54425a094353ec40a8179f9eab3596f76c6cf94")) + (package + (name "emacs-ztree") + (version (git-version "1.0.5" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/fourier/ztree") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0j8fpxds8m1zi04nrs8vv21091abvh4n8ab76f1sgdxnp4l5cfb0")))) + (build-system emacs-build-system) + (home-page "https://github.com/fourier/ztree") + (synopsis "Directory tree comparison mode for Emacs") + (description "Ztree is a project dedicated to implementation of several +text-tree applications inside GNU Emacs. It consists of 2 subprojects: +@command{ztree-diff} and @command{ztree-dir} (the basis of +@command{ztree-diff}).") + (license license:gpl3)))) + +(define-public emacs-helm-org-contacts + (let ((commit "0af703bd9a43032b89fdf5559673151d1ac2fffc")) + (package + (name "emacs-helm-org-contacts") + (version (git-version "20180707" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/tmalsburg/helm-org-contacts") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1cl7cm2ic9pg4vc9cdh84vzjj1x2lpd5ymimiva8h4l17kiphk4s")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-helm" ,emacs-helm) + ("emacs-s" ,emacs-s))) + (home-page "https://github.com/tmalsburg/helm-org-contacts") + (synopsis "Helm source for org-contacts") + (description "This Helm source can be used to search contacts stored in +org-contacts format. There are actions for inserting postal addresses, email +addresses, and phone numbers in the buffer where @command{helm-org-contacts} +was called.") + (license license:gpl3)))) + +(define-public emacs-dired-du + (package + (name "emacs-dired-du") + (version "0.5.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://elpa.gnu.org/packages/dired-du-" + version ".tar")) + (sha256 + (base32 + "1091scnrjh0a4gja4z6jxic6ghy1yryv46qk9c76pmh50cpw6766")))) + (build-system emacs-build-system) + (home-page "http://elpa.gnu.org/packages/dired-du.html") + (synopsis "Dired with recursive directory sizes") + (description + "Display the recursive size of directories in Dired. +This file defines a minor mode @command{dired-du-mode} to show the recursive +size of directories in Dired buffers. If @command{du} program is available, +then the directory sizes are obtained with it. Otherwise, the directory sizes +are obtained with Lisp. The former is faster and provide a more precise +value. For directories where the user doesn't have read permission, the +recursive size is not obtained. Once this mode is enabled, every new Dired +buffer displays recursive dir sizes.") + (license license:gpl3+))) + +(define-public emacs-pcre2el + ;; Last release is very old so we get the latest commit. + (let ((commit "0b5b2a2c173aab3fd14aac6cf5e90ad3bf58fa7d")) + (package + (name "emacs-pcre2el") + (version (git-version "1.8" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/joddie/pcre2el") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "14br6ad138qx1z822wqssswqiihxiynz1k69p6mcdisr2q8yyi1z")))) + (build-system emacs-build-system) + (home-page "https://github.com/joddie/pcre2el") + (synopsis "Convert between PCRE, Emacs and rx regexp syntax") + (description "@code{pcre2el} or @code{rxt} (RegeXp Translator or RegeXp +Tools) is a utility for working with regular expressions in Emacs, based on a +recursive-descent parser for regexp syntax. In addition to converting (a +subset of) PCRE syntax into its Emacs equivalent, it can do the following: + +@itemize +@item convert Emacs syntax to PCRE +@item convert either syntax to @code{rx}, an S-expression based regexp syntax +@item untangle complex regexps by showing the parse tree in @code{rx} form and +highlighting the corresponding chunks of code +@item show the complete list of strings (productions) matching a regexp, +provided the list is finite +@item provide live font-locking of regexp syntax (so far only for Elisp +buffers – other modes on the TODO list). +@end itemize\n") + (license license:gpl3)))) + +(define-public emacs-magit-todos + (package + (name "emacs-magit-todos") + (version "1.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/alphapapa/magit-todos") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1mvzbxshr6zjdim3jd368ar1hy5l7n22i03cpvzdmrw83kkwdyhd")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-async" ,emacs-async) + ("emacs-dash" ,emacs-dash) + ("emacs-f" ,emacs-f) + ("emacs-hl-todo" ,emacs-hl-todo) + ("magit" ,emacs-magit) + ("emacs-pcre2el" ,emacs-pcre2el) + ("emacs-s" ,emacs-s))) + (home-page "https://github.com/alphapapa/magit-todos") + (synopsis "Show source files' TODOs (and FIXMEs, etc) in Magit status buffer") + (description "This package displays keyword entries from source code +comments and Org files in the Magit status buffer. Activating an item jumps +to it in its file. By default, it uses keywords from @code{hl-todo}, minus a +few (like NOTE).") + (license license:gpl3))) + +(define-public emacs-git-annex + ;; Unreleased version has a fontification fix. + (let ((commit "ebdb44aef1883f1b2b8058e05d30fb9315b03707") + (revision "1")) + (package + (name "emacs-git-annex") + (version (string-append "1.1-" revision "." (string-take commit 8))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jwiegley/git-annex-el") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1mzv40gj7k10h7h5s43my8msgzjpj680qprqa9pp8nbyhl49v3wh")))) + (build-system emacs-build-system) + (home-page "https://github.com/jwiegley/git-annex-el") + (synopsis "Emacs integration for git-annex") + (description "Enhances Dired and buffers visiting annex files with +git-annex functionality. In Dired, the names of annex files are shortened by +hiding the symbolic links and fontified based on whether content is present. +Commands for performing some common operations (e.g., unlocking and adding +files) are provided.") + (license license:gpl2+)))) + +(define-public emacs-hackernews + (let ((commit "d8c450bbc76d6bb65ec5cdb6c3b888a23f3769e9")) + (package + (name "emacs-hackernews") + (version (git-version "0.4.0" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/clarete/hackernews.el") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "06mp4n6c300jv5lhwf50ircfjckzr2p1zd38s4mqnxxjlf1maim7")))) + (build-system emacs-build-system) + (home-page "https://github.com/clarete/hackernews.el") + (synopsis "Hacker News client for Emacs") + (description "The @command{hackernews} package is able to fetch stories +from six different Hacker News feeds, namely top, new, best, ask, show and job +stories. The default feed is top stories, which corresponds to the Hacker +News homepage.") + (license license:gpl3)))) + +(define-public emacs-youtube-dl + (let ((commit "7c9d7a7d05b72a7d1b1257a36c5e2b2567b185dd")) + (package + (name "emacs-youtube-dl") + (version (git-version "1.0" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/skeeto/youtube-dl-emacs/") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0mh4s089a4x8s380agzb2306kdp1hl204px1n5rrrrdcls7imnh6")))) + (build-system emacs-build-system) + (inputs + `(("youtube-dl" ,youtube-dl))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs #:allow-other-keys) + (let ((youtube-dl (assoc-ref inputs "youtube-dl"))) + ;; .el is read-only in git. + (chmod "youtube-dl.el" #o644) + ;; Specify the absolute file names of the various + ;; programs so that everything works out-of-the-box. + (emacs-substitute-variables + "youtube-dl.el" + ("youtube-dl-program" + (string-append youtube-dl "/bin/youtube-dl"))))))))) + (home-page "https://github.com/skeeto/youtube-dl-emacs/") + (synopsis "Emacs youtube-dl download manager") + (description "This package manages a video download queue for +@command{youtube-dl}, which serves as the back end. It manages a single +@command{youtube-dl} subprocess, downloading one video at a time. New videos +can be queued at any time.") + (license license:unlicense)))) + +(define-public emacs-org-web-tools + (package + (name "emacs-org-web-tools") + (version "1.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/alphapapa/org-web-tools") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0kak9h5ny00d39gnwspv53nadnag01brw2fq9zk5wpfc91h9bjng")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-esxml" ,emacs-esxml) + ("emacs-s" ,emacs-s))) + (inputs + `(("pandoc" ,ghc-pandoc))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-exec-paths + (lambda* (#:key inputs #:allow-other-keys) + (let ((pandoc (assoc-ref inputs "pandoc"))) + (substitute* "org-web-tools.el" + (("\"pandoc\"") (string-append "\"" pandoc "/bin/pandoc\""))) + #t)))))) + (home-page "https://github.com/alphapapa/org-web-tools") + (synopsis "Display/Process web page as Org-mode content") + (description "This package contains library functions and commands useful +for retrieving web page content and processing it into Org-mode content. + +For example, you can copy a URL to the clipboard or kill-ring, then run a +command that downloads the page, isolates the “readable” content with +@command{eww-readable}, converts it to Org-mode content with Pandoc, and +displays it in an Org-mode buffer. Another command does all of that but +inserts it as an Org entry instead of displaying it in a new buffer.") + (license license:gpl3+))) + +(define-public emacs-blimp + (let ((commit "e420763d6d18b5d1be552cdbc47f91418343db03")) + (package + (name "emacs-blimp") + (version (git-version "0.0.0" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/walseb/blimp") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "09wmhpym516b81dfq8smdmysh1fn610dzlyvyl2rkx8600f0fizd")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-eimp" ,emacs-eimp))) + (home-page "https://github.com/walseb/blimp") + (synopsis "Emacs wrapper around all Imagemagick commands") + (description "Blimp (Bustling Image Manipulation Package) is a complete +wrapper around all Imagemagick commands with descriptions, autocompletion (for +some commands) and hints displayed in prompt using @command{eimp.el} to +execute its commands and resize images.") + (license license:gpl3+)))) + +(define-public emacs-synosaurus + (let ((commit "8bf95b935976ec0a1964cf175ed57cc5f6f93bdb")) + (package + (name "emacs-synosaurus") + (version (git-version "0.1.0" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/hpdeifel/synosaurus") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "15by9jccab6kyplxa6k0glzaivxkqdigl33gl2qi2cvy6f2q7gva")))) + (build-system emacs-build-system) + (propagated-inputs + `(("wordnet" ,wordnet))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((wn (assoc-ref inputs "wordnet"))) + ;; .el is read-only in git. + (chmod "synosaurus-wordnet.el" #o644) + ;; Specify the absolute file names of the various + ;; programs so that everything works out-of-the-box. + (emacs-substitute-variables + "synosaurus-wordnet.el" + ("wordnet-command" + (string-append wn "/bin/wn"))))))))) + (home-page "https://github.com/hpdeifel/synosaurus") + (synopsis "Extensible thesaurus mode for Emacs") + (description "Synosaurus is a thesaurus fontend for Emacs with pluggable +backends, including the @command{wordnet} offline backend.") + (license license:gpl3+)))) + +(define-public emacs-all-the-icons + (package + (name "emacs-all-the-icons") + (version "3.2.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/domtronn/all-the-icons.el.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1sdl33117lccznj38021lwcdnpi9nxmym295q6y460y4dm4lx0jn")))) + (build-system emacs-build-system) + (arguments + `(#:include '("\\.el$" "^data/" "^fonts/") + ;; Compiling "test/" fails with "Symbol’s value as variable is void: + ;; all-the-icons--root-code". Ignoring tests. + #:exclude '("^test/") + #:tests? #f)) + (propagated-inputs + `(("f" ,emacs-f) + ("memoize" ,emacs-memoize))) + (home-page "https://github.com/domtronn/all-the-icons.el") + (synopsis "Collect icon fonts and propertize them within Emacs") + (description "All-the-icons is a utility package to collect various icon +fonts and propertize them within Emacs. Icon fonts allow you to propertize +and format icons the same way you would normal text. This enables things such +as better scaling of and anti aliasing of the icons.") + ;; Package is released under Expat license. Elisp files are licensed + ;; under GPL3+. Fonts come with various licenses: Expat for + ;; "all-the-icons.ttf" and "file-icons.ttf", Apache License 2.0 for + ;; "material-design-icons.ttf", and SIL OFL 1.1 for "fontawesome.ttf", + ;; "ocitcons.ttf" and "weathericons.ttf". + (license + (list license:expat license:gpl3+ license:silofl1.1 license:asl2.0)))) + +(define-public emacs-powerline + (package + (name "emacs-powerline") + (version "2.4") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/milkypostman/powerline.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1hp3xp18943n0rlggz55150020ivw8gvi1vyxkr4z8xhpwq4gaar")))) + (build-system emacs-build-system) + (home-page "https://github.com/milkypostman/powerline/") + (synopsis "Mode-line plugin for Emacs") + (description "Powerline is a utility plugin which allows you to create +a better-looking, more functional Emacs mode-line. A collection of predefined +themes comes with the package.") + (license license:gpl3+))) + +(define-public emacs-spaceline + (package + (name "emacs-spaceline") + (version "2.0.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/TheBB/spaceline.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1q8r95zfrh0vxna5ml2pq9b9f66clfqcl4d2qy2aizkvzyxg6skl")))) + (build-system emacs-build-system) + (propagated-inputs + `(("dash" ,emacs-dash) + ("powerline" ,emacs-powerline) + ("s" ,emacs-s))) + (home-page "https://github.com/TheBB/spaceline") + (synopsis "Powerline theme from Spacemacs") + (description "Spaceline provides Spacemacs' mode-line theme. +This package provides features for three kinds of users. + +@itemize +@item You just want to use the Spacemacs mode-line theme and forget about it. +@item You want to use something similar to the Spacemacs mode-line theme, but +with a handful of easy tweaks. +@item You want an easy-to-use library for building your own mode-line from +scratch, and you think the Spacemacs theme looks good. +@end itemize") + (license license:gpl3+))) + +(define-public emacs-column-marker + (package + (name "emacs-column-marker") + (version "9") + (source + (origin + (method url-fetch) + (uri "https://www.emacswiki.org/emacs/download/column-marker.el") + (sha256 (base32 "05bv198zhqw5hqq6cr11mhz02dpca74hhp1ycwq369m0yb2naxy9")))) + (build-system emacs-build-system) + (home-page "https://www.emacswiki.org/emacs/ColumnMarker") + (synopsis "Emacs mode for highlighting columns") + (description + "With @code{column-marker.el} you can highlight any number of text columns. +Three such highlight column markers are provided by default. This is +especially useful for languages like COBOL or Fortran where certain columns +have special meaning. It is also handy for aligning text across long vertical +distances. Multi-column characters, such as @kbd{TAB} are treated +correctly.") + (license license:gpl2+))) + +(define-public emacs-slime-repl-ansi-color + (let ((commit "ad03263f5d4de473bc173b64a6fc3dc1106393d7")) + (package + (name "emacs-slime-repl-ansi-color") + (version (git-version "0.0.0" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/deadtrickster/slime-repl-ansi-color") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0bpg7gxz310x7bnlg324c507sxc5gxwwz6h64h6kdq141r73vbi4")))) + (build-system emacs-build-system) + (home-page "https://github.com/deadtrickster/slime-repl-ansi-color") + (synopsis "Color ANSI codes in the REPL of SLIME") + (description "Color ANSI codes in the REPL of SLIME") + (license license:gpl2+)))) + +(define-public emacs-helm-slime + (let ((commit "9980925f3e5f6ac5a30369d2a544e82006a79c76")) + (package + (name "emacs-helm-slime") + (version (git-version "0.0.0" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-helm/helm-slime") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0xa07gpfkzwn522x9573mq5mfxvbawdgd0m93gqj6w5a14wk8zzh")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-slime" ,emacs-slime))) + (home-page "https://github.com/emacs-helm/helm-slime") + (synopsis "Helm for SLIME, the Superior Lisp Interaction Mode for Emacs") + (description "Helm-SLIME defines a few new commands: + +@itemize +@item helm-slime-complete: Select a symbol from the SLIME completion systems. +@item helm-slime-list-connections: Yet another slime-list-connections with Helm. +@item: helm-slime-apropos: Yet another slime-apropos with Helm. +@item helm-slime-repl-history: Select an input from the SLIME REPL history and insert it. +@end itemize\n") + (license license:gpl3+)))) + +(define-public emacs-gtk-look + (package + (name "emacs-gtk-look") + (version "29") + (source (origin + (method url-fetch) + (uri "https://download.tuxfamily.org/user42/gtk-look.el") + (sha256 + (base32 + "14p2nwrd51cr1v06fxbjjn6jdrkf9d6vcxhmscm0kl677s25ypsp")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda _ + ;; File is read-only. + (chmod "gtk-look.el" #o644) + (emacs-substitute-variables "gtk-look.el" + ("gtk-lookup-devhelp-indices" + '(list (expand-file-name "~/.guix-profile/share/gtk-doc/html/*/*.devhelp*")))) + #t))))) + (home-page "http://user42.tuxfamily.org/gtk-look/index.html") + (synopsis "Find and display HTML documentation for GTK, GNOME and Glib") + (description "@command{gtk-look} finds and displays HTML documentation for +GTK, GNOME and Glib functions and variables in Emacs, similar to what +info-lookup-symbol does for info files (C-h S). The documentation is expected +to be devhelp indexes with HTML files. The location of the indexes can be +customized. In addition to C code development @command{gtk-look} is good for + +@itemize +@item @command{perl-gtk2}, recognising class funcs like +@command{Gtk2::Label->new} and bare method names like @command{set_text}. +@item @command{guile-gnome}, recognising methods like @command{set-text} and +classes like @command{<gtk-window>}. +@end itemize\n") + (license license:gpl3+))) + +(define-public emacs-ov + (package + (name "emacs-ov") + (version "1.0.6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ShingoFukuyama/ov.el.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0qxk2rf84j86syxi8xknsq252irwg7sz396v3bb4wqz4prpj0kzc")))) + (build-system emacs-build-system) + (home-page "https://github.com/ShingoFukuyama/ov.el") + (synopsis "Overlay library for Emacs Lisp") + (description "@code{ov.el} provides a simple way to manipulate overlays in +Emacs.") + (license license:gpl3+))) + +(define-public emacs-matrix-client + (let ((commit "a0623667b07a4bf60980c97b078e9faed97ace79")) + (package + (name "emacs-matrix-client") + (version (git-version "0.0.0" "3" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jgkamat/matrix-client-el.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1zya8id3y9wzjaj7nplq7br6nhm3lsskv0fkn1xr1y77fzcfgcdb")))) + (build-system emacs-build-system) + (propagated-inputs + `(("a" ,emacs-a) + ("anaphora" ,emacs-anaphora) + ("dash" ,emacs-dash) + ("esxml" ,emacs-esxml) + ("f" ,emacs-f) + ("frame-purpose" ,emacs-frame-purpose) + ("ht" ,emacs-ht) + ("ov" ,emacs-ov) + ("rainbow-identifiers" ,emacs-rainbow-identifiers) + ("request" ,emacs-request) + ("s" ,emacs-s) + ("tracking" ,emacs-tracking))) + (home-page "https://github.com/jgkamat/matrix-client-el") + (synopsis "Matrix client for Emacs") + (description "@code{matrix-client} is a simple chat UI to Matrix.org +rooms. It also provides an API which allows Emacs to seamlessly create +RPC channels with users and other software.") + (license license:gpl3+)))) + +(define-public emacs-sesman + (package + (name "emacs-sesman") + (version "0.3.3") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/vspinu/sesman.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0r32f8ma9ddczxrrdz0nadp14j3zmk10q1ch02gb82synkx3xdra")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("make" "test"))) + (home-page "https://github.com/vspinu/sesman") + (synopsis "Session manager for Emacs based IDEs") + (description "Sesman provides facilities for session management and +interactive session association with the current contexts (project, directory, +buffers). While sesman can be used to manage arbitrary sessions, it primary +targets the Emacs based IDEs (CIDER, ESS, Geiser, Robe, SLIME etc.)") + (license license:gpl3+))) + +(define-public emacs-buttercup + (package + (name "emacs-buttercup") + (version "1.16") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jorgenschaefer/emacs-buttercup.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0dckgcyzsav6ld78bcyrrygy1cz1jvqgav6vy8f6klpmk3r8xrl1")))) + (build-system emacs-build-system) + (arguments + `(#:tests? #t + #:test-command '("make" "test") + #:phases + (modify-phases %standard-phases + (add-after 'install 'install-bin + (lambda* (#:key outputs #:allow-other-keys) + (install-file "bin/buttercup" + (string-append (assoc-ref outputs "out") "/bin")) + #t))))) + (home-page "https://github.com/jorgenschaefer/emacs-buttercup") + (synopsis "Behavior driven emacs lisp testing framework") + (description "Buttercup is a behavior-driven development framework for +testing Emacs Lisp code. It allows to group related tests so they can share +common set-up and tear-down code, and allows the programmer to \"spy\" on +functions to ensure they are called with the right arguments during testing.") + (license license:gpl3+))) + +(define-public emacs-wordnut + (let ((commit "feac531404041855312c1a046bde7ea18c674915") + (revision "0")) + (package + (name "emacs-wordnut") + (version (git-version "0.1" revision commit)) + (home-page "https://github.com/gromnitsky/wordnut") + (source (origin + (method git-fetch) + (uri (git-reference (url home-page) (commit commit))) + (sha256 + (base32 + "1jl0b6g64a9w0q7bfvwha67vgws5xd15b7mkfyb5gkz3pymqhfxn")) + (patches + (search-patches "emacs-wordnut-require-adaptive-wrap.patch")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (propagated-inputs + `(("wordnet" ,wordnet) + ("emacs-adaptive-wrap" ,emacs-adaptive-wrap))) + (synopsis "Major mode for WordNet") + (description "This Emacs package provides an interface for +@code{wordnet}. Features include completion, if the query is not found +too ambiguous and navigation in the result buffer.") + (license license:gpl3+)))) + +(define-public emacs-frame-purpose + (package + (name "emacs-frame-purpose") + (version "1.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/alphapapa/frame-purpose.el.git") + (commit version))) + (sha256 + (base32 + "0jq2aam1yvccw887ighd1wm2xkvk5bv53ffiz3crcl16a255aj4q")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (inputs + `(("dash" ,emacs-dash))) + (synopsis "Purpose-specific frames for Emacs") + (description "@code{frame-purpose} makes it easy to open purpose-specific +frames that only show certain buffers, e.g. by buffers’ major mode, their +filename or directory, etc, with custom frame/X-window titles, icons, and +other frame parameters.") + (home-page "https://github.com/alphapapa/frame-purpose.el") + (license license:gpl3+))) + +(define-public emacs-arduino-mode + (let ((commit "3e2bad4569ad26e929e6db2cbcff0d6d36812698")) ;no release yet + (package + (name "emacs-arduino-mode") + (version (git-version "0" "0" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/bookest/arduino-mode.git") + (commit commit))) + (sha256 + (base32 + "1yvaqjc9hadbnnay5fprnh890xsp53kidad1zpb4a5z4a5z61n3c")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (synopsis "Emacs major mode for editing Arduino sketches") + (description "Emacs major mode for editing Arduino sketches.") + (home-page "https://github.com/bookest/arduino-mode") + (license license:gpl3+)))) + +(define-public emacs-general + (let ((commit "675050199b5a30d54a24b58a367db32c0bdc47f5")) + (package + (name "emacs-general") + (version (git-version "0" "0" commit)) + (home-page "https://github.com/noctuid/general.el") + (source (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit commit))) + (sha256 + (base32 + "175yyhzk57yk1sskxh3d2jzhrh2waiibbcfsll167qxr117yji5h")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (synopsis "More convenient key definitions in emacs") + (description "@code{general.el} provides a more convenient method for +binding keys in emacs (for both evil and non-evil users). Like +@code{use-package}, which provides a convenient, unified interface for +managing packages, @code{general.el} is intended to provide a convenient, +unified interface for key definitions. While this package does implement some +completely new functionality (such as the ability to make vim-style +keybindings under non-prefix keys with an optional timeout), its primary +purpose is to build on existing functionality to make key definition more +clear and concise. @code{general-define-key} is user-extensible and supports +defining multiple keys in multiple keymaps at once, implicitly wrapping key +strings with (@code{kbd ...}), using named prefix key sequences (like the +leader key in vim), and much more.") + (license license:gpl3+)))) + +(define-public emacs-tldr + (let ((commit "398b197c8d2238628b07e1b32d0f373876279f4c")) + (package + (name "emacs-tldr") + (version (git-version "0" "0" commit)) + (home-page "https://github.com/kuanyui/tldr.el") + (source (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit commit))) + (sha256 + (base32 + "0iq7qlis6c6r2qkdpncrhh5vsihkhvy5x4y1y8cjb7zxkh62w33f")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (synopsis "Simplified and community-driven man pages for Emacs") + (description "@code{emacs-tldr} allows the user to access tldr pages +from within emacs. The @code{tldr} pages are a community effort to simplify +the man pages with practical examples.") + (license license:wtfpl2)))) + +(define-public emacs-window-layout + (package + (name "emacs-window-layout") + (version "1.4") + (home-page "https://github.com/kiwanami/emacs-window-layout") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit (string-append "v" version)))) + (sha256 + (base32 + "0wgqi8r844lbx52fn6az8c1n8m681rp6dkfzd54wmdk1ka7zmvv6")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (synopsis "Simple window layout management framework for emacs") + (description "A window-layout management library that can split a frame +or a window into some windows according to a layout recipe.") + (license license:gpl3+))) + +(define-public emacs-e2wm + (package + (name "emacs-e2wm") + (version "1.4") + (home-page "https://github.com/kiwanami/emacs-window-manager") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit (string-append "v" version)))) + (sha256 + (base32 + "12midsrx07pdrsr1qbl2rpi7xyhxqx08bkz7n7gf8vsmqkpfp56s")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-window-layout" ,emacs-window-layout))) + (synopsis "Equilibrium Emacs Window Manager") + (description "E2WM is a window manager for Emacs. It enables to +customize the place of pop-up window, how the windows are split, how the +buffers are located in the windows, keybinds to manipulate windows and +buffers, etc. It also has plug-ins to help your Emacs life.") + (license license:gpl3+))) + +(define-public emacs-ctable + (let ((commit "b8830d1ca95abb100a81bc32011bd17d5ecba000")) + (package + (name "emacs-ctable") + (version (git-version "0.1.2" "1" commit)) + (home-page "https://github.com/kiwanami/emacs-ctable") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (sha256 + (base32 + "0pg303pnqscrsbx9579hc815angszsgf9vpd2z2f8p4f4ka6a00h")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (synopsis "Table component for Emacs Lisp") + (description "This program is a table component for Emacs Lisp. Other +programs can use this table component for the application UI.") + (license license:gpl3+)))) + +(define-public emacs-epc + (let ((commit "e1bfa5ca163273859336e3cc89b4b6460f7f8cda")) + (package + (name "emacs-epc") + (version (git-version "0.1.1" "1" commit)) + (home-page "https://github.com/kiwanami/emacs-epc") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (sha256 + (base32 + "15nkrjgi64f829isfd6xrhl4zw8jirr8pkas7nisrbk1av868hx0")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-deferred" ,emacs-deferred) + ("emacs-ctable" ,emacs-ctable))) + (synopsis "RPC stack for Emacs Lisp") + (description "This program is an asynchronous RPC stack for Emacs. +Using this RPC stack, Emacs can communicate with the peer process +smoothly. Because the protocol employs S-expression encoding and consists of +asynchronous communications, the RPC response is fairly good.") + (license license:gpl3+)))) + +(define-public emacs-edbi + (let ((commit "6f50aaf4bde75255221f2292c7a4ad3fa9d918c0")) + (package + (name "emacs-edbi") + (version (git-version "0.1.3" "1" commit)) + (home-page "https://github.com/kiwanami/emacs-edbi") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (sha256 + (base32 + "0x0igyvdcm4863n7zndvcv6wgzwgn7324cbfjja6xd7r0k936zdy")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (inputs + `(("perl" ,perl) + ("perl-rpc-epc-service" ,perl-rpc-epc-service) + ("perl-dbi" ,perl-dbi) + ;; TODO: Adding support for perl-dbd-mysql and others would + ;; dramatically increase the closure size. Make several packages? + ("perl-dbd-sqlite" ,perl-dbd-sqlite))) + (propagated-inputs + `(("emacs-e2wm" ,emacs-e2wm) + ("emacs-epc" ,emacs-epc))) + (arguments + `(#:include '("\\.el$" "\\.pl$") + #:phases + (modify-phases %standard-phases + (add-after 'install 'patch-path + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((perl (assoc-ref inputs "perl")) + (dir (string-append (assoc-ref outputs "out") + "/share/emacs/site-lisp/guix.d/edbi-" + ,version))) + (substitute* (string-append dir "/edbi.el") + (("\"perl\"") (string-append "\"" perl "/bin/perl\""))) + (chmod (string-append dir "/edbi-bridge.pl") #o555) + (wrap-program (string-append dir "/edbi-bridge.pl") + `("PERL5LIB" ":" prefix (,(getenv "PERL5LIB")))) + #t)))))) + (synopsis "Database Interface for Emacs Lisp") + (description "This program connects the database server through Perl's +DBI, and provides DB-accessing API and the simple management UI.") + (license license:gpl3+)))) + +(define-public emacs-edbi-sqlite + (let ((commit "52cb9ca1af7691b592f2cfd2f007847e7a4ccd5f")) + (package + (name "emacs-edbi-sqlite") + (version (git-version "0.1.1" "1" commit)) + (home-page "https://github.com/proofit404/edbi-sqlite") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (sha256 + (base32 + "1vll81386fx90lq5sy4rlxcik6mvw7zx5cc51f0yaca9bkcckp51")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-edbi" ,emacs-edbi))) + (synopsis "Open SQLite files in Emacs") + (description "This package is a convenience wrapper for @command{edbi} +to open SQLite databases.") + (license license:gpl3+)))) diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index 899a37452f..a488289f11 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -1,46 +1,21 @@ ;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com> -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org> -;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Alex Kost <alezost@gmail.com> -;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> -;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2016, 2017, 2018 Chris Marusich <cmmarusich@gmail.com> -;;; Copyright © 2015, 2016, 2018 Christopher Lemmer Webber <cwebber@dustycloud.org> -;;; Copyright © 2016 Adriano Peluso <catonano@gmail.com> -;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2016 David Thompson <davet@gnu.org> -;;; Copyright © 2016 Matthew Jordan <matthewjordandevops@yandex.com> -;;; Copyright © 2016, 2017 Roel Janssen <roel@gnu.org> -;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is> -;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> -;;; Copyright © 2016, 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> -;;; Copyright © 2016, 2017, 2018 Alex Vong <alexvong1995@gmail.com> -;;; Copyright © 2016, 2017, 2018 Arun Isaac <arunisaac@systemreboot.net> -;;; Copyright © 2017 Christopher Baines <mail@cbaines.net> -;;; Copyright © 2017, 2018 Mathieu Othacehe <m.othacehe@gmail.com> -;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org> -;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com> -;;; Copyright © 2017, 2018 Kyle Meyer <kyle@kyleam.com> -;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net> -;;; Copyright © 2017 George Clemmer <myglc2@gmail.com> -;;; Copyright © 2017, 2018 Feng Shu <tumashu@163.com> +;;; Copyright © 2014, 2015, 2016, 2017 Alex Kost <alezost@gmail.com> +;;; Copyright © 2016, 2018 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch> +;;; Copyright © 2016 David Thompson <dthompson2@worcester.edu> +;;; Copyright © 2016 Nils Gillmann <ng0@n0.is> +;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com> +;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> -;;; Copyright © 2017, 2018 Oleg Pykhalov <go.wigust@gmail.com> -;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com> -;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com> -;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> -;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org> -;;; Copyright © 2017, 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com> -;;; Copyright © 2018 Sohom Bhattacharjee <soham.bhattacharjee15@gmail.com> -;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org> -;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> -;;; Copyright © 2018, 2019 Tim Gesthuizen <tim.gesthuizen@yahoo.de> -;;; Copyright © 2018 Jack Hill <jackhill@jackhill.us> -;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr> -;;; Copyright © 2018 Alex Branham <alex.branham@gmail.com> -;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de> -;;; Copyright © 2018 Pierre Langlois <pierre.langlois@gmx.com> +;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -60,68 +35,34 @@ (define-module (gnu packages emacs) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) - #:use-module (guix cvs-download) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix build-system gnu) - #:use-module (guix build-system cmake) - #:use-module (guix build-system emacs) #:use-module (guix build-system glib-or-gtk) - #:use-module (guix build-system trivial) #:use-module (gnu packages) - #:use-module (gnu packages admin) - #:use-module (gnu packages audio) - #:use-module (gnu packages bash) - #:use-module (gnu packages cmake) - #:use-module (gnu packages code) - #:use-module (gnu packages databases) - #:use-module (gnu packages guile) - #:use-module (gnu packages gtk) - #:use-module (gnu packages gnome) - #:use-module (gnu packages ncurses) - #:use-module (gnu packages python) - #:use-module (gnu packages tex) - #:use-module (gnu packages texinfo) - #:use-module (gnu packages tcl) - #:use-module (gnu packages tls) - #:use-module (gnu packages pkg-config) - #:use-module (gnu packages xorg) - #:use-module (gnu packages lesstif) - #:use-module (gnu packages llvm) - #:use-module (gnu packages image) - #:use-module (gnu packages linux) - #:use-module (gnu packages version-control) - #:use-module (gnu packages imagemagick) - #:use-module (gnu packages w3m) - #:use-module (gnu packages wget) + #:use-module (gnu packages acl) #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages compression) - #:use-module (gnu packages xml) - #:use-module (gnu packages glib) - #:use-module (gnu packages acl) - #:use-module (gnu packages mail) - #:use-module (gnu packages package-management) - #:use-module (gnu packages perl) - #:use-module (gnu packages pdf) - #:use-module (gnu packages scheme) - #:use-module (gnu packages xiph) - #:use-module (gnu packages mp3) - #:use-module (gnu packages gettext) + #:use-module (gnu packages fontutils) #:use-module (gnu packages fribidi) #:use-module (gnu packages gd) - #:use-module (gnu packages fontutils) - #:use-module (gnu packages password-utils) - #:use-module (gnu packages pulseaudio) - #:use-module (gnu packages xdisorg) - #:use-module (gnu packages shells) - #:use-module (gnu packages gnupg) - #:use-module (gnu packages video) - #:use-module (gnu packages haskell) - #:use-module (gnu packages wordnet) + #:use-module (gnu packages gettext) + #:use-module (gnu packages glib) + #:use-module (gnu packages gnome) ; for librsvg + #:use-module (gnu packages gtk) + #:use-module (gnu packages guile) + #:use-module (gnu packages image) + #:use-module (gnu packages imagemagick) + #:use-module (gnu packages linux) ; alsa-lib + #:use-module (gnu packages ncurses) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages texinfo) + #:use-module (gnu packages tls) + #:use-module (gnu packages xml) + #:use-module (gnu packages xorg) #:use-module (guix utils) - #:use-module (srfi srfi-1) - #:use-module (ice-9 match)) + #:use-module (srfi srfi-1)) (define-public emacs (package @@ -330,5374 +271,6 @@ editor (without an X toolkit)" ) (lambda _ (invoke "mkdir" "-p" "src/deps"))))))))) - -;;; -;;; Emacs hacking. -;;; - -(define-public emacs-geiser - (package - (name "emacs-geiser") - (version "0.10") - (source (origin - (method url-fetch) - (uri (string-append "mirror://savannah/geiser/" version - "/geiser-" version ".tar.gz")) - (sha256 - (base32 - "0pj3l7p8d60c9b4vfprnv6g5l61d74pls4b5dvd84cn4ky9mzwjv")))) - (build-system gnu-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-after 'install 'post-install - (lambda* (#:key outputs #:allow-other-keys) - (symlink "geiser-install.el" - (string-append (assoc-ref outputs "out") - "/share/emacs/site-lisp/" - "geiser-autoloads.el")) - #t))))) - (inputs `(("guile" ,guile-2.2))) - (native-inputs `(("emacs" ,emacs-minimal))) - (home-page "https://nongnu.org/geiser/") - (synopsis "Collection of Emacs modes for Guile and Racket hacking") - (description - "Geiser is a collection of Emacs major and minor modes that conspire with -one or more Scheme implementations to keep the Lisp Machine Spirit alive. The -continuously running Scheme interpreter takes the center of the stage in -Geiser. A bundle of Elisp shims orchestrates the dialog between the Scheme -implementation, Emacs and, ultimately, the schemer, giving them access to live -metadata.") - (license license:bsd-3))) - -(define-public geiser - (deprecated-package "geiser" emacs-geiser)) - -(define-public emacs-paredit - (package - (name "emacs-paredit") - (version "24") - (source (origin - (method url-fetch) - (uri (string-append "http://mumble.net/~campbell/emacs/paredit-" - version ".el")) - (sha256 - (base32 - "0pp3n8q6kc70blqsaw0zlzp6bc327dpgdrjr0cnh7hqg1lras7ka")))) - (build-system emacs-build-system) - (home-page "http://mumble.net/~campbell/emacs/paredit/") - (synopsis "Emacs minor mode for editing parentheses") - (description - "ParEdit (paredit.el) is a minor mode for performing structured editing -of S-expression data. The typical example of this would be Lisp or Scheme -source code. - -ParEdit helps **keep parentheses balanced** and adds many keys for moving -S-expressions and moving around in S-expressions. Its behavior can be jarring -for those who may want transient periods of unbalanced parentheses, such as -when typing parentheses directly or commenting out code line by line.") - (license license:gpl3+))) - -(define-public paredit - (deprecated-package "paredit" emacs-paredit)) - -(define-public git-modes - (package - (name "emacs-git-modes") - (version "1.2.8") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/magit/git-modes/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0h49f68yn0q4lg054adqii4qja1z2pzybm7nf4kvpq7fzjrzgv1q")))) - (build-system emacs-build-system) - (home-page "https://github.com/magit/git-modes") - (synopsis "Emacs major modes for Git configuration files") - (description - "This package provides Emacs major modes for editing various Git -configuration files, such as .gitattributes, .gitignore, and .git/config.") - (license license:gpl3+))) - -(define-public git-modes/old-name - (deprecated-package "git-modes" git-modes)) - -(define-public emacs-with-editor - (package - (name "emacs-with-editor") - (version "2.8.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/magit/with-editor.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1bbzvxnjpxqyvi808isld025b3pcidn4r2xf8hnk9bmzcfdvdr6q")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/magit/with-editor") - (synopsis "Emacs library for using Emacsclient as EDITOR") - (description - "This package provides an Emacs library to use the Emacsclient as -@code{$EDITOR} of child processes, making sure they know how to call home. -For remote processes a substitute is provided, which communicates with Emacs -on stdout instead of using a socket as the Emacsclient does.") - (license license:gpl3+))) - -(define-public emacs-magit - (package - (name "emacs-magit") - (version "2.13.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/magit/magit/releases/download/" - version "/magit-" version ".tar.gz")) - (sha256 - (base32 - "1ygaah3dd3nxpyd17297xgvdcgr7pgzzwlmpnmchki0kiwgg3sbc")))) - (build-system gnu-build-system) - (native-inputs `(("texinfo" ,texinfo) - ("emacs" ,emacs-minimal))) - (inputs - `(("git" ,git) - ("perl" ,perl))) - (propagated-inputs - `(("dash" ,emacs-dash) - ("ghub" ,emacs-ghub) - ("magit-popup" ,emacs-magit-popup) - ("with-editor" ,emacs-with-editor))) - (arguments - `(#:test-target "test" - #:tests? #f ; tests are not included in the release - - #:make-flags - (list (string-append "PREFIX=" %output) - ;; Don't put .el files in a sub-directory. - (string-append "lispdir=" %output "/share/emacs/site-lisp") - (string-append "DASH_DIR=" - (assoc-ref %build-inputs "dash") - "/share/emacs/site-lisp/guix.d/dash-" - ,(package-version emacs-dash)) - (string-append "GHUB_DIR=" - (assoc-ref %build-inputs "ghub") - "/share/emacs/site-lisp/guix.d/ghub-" - ,(package-version emacs-ghub)) - (string-append "MAGIT_POPUP_DIR=" - (assoc-ref %build-inputs "magit-popup") - "/share/emacs/site-lisp/guix.d/magit-popup-" - ,(package-version emacs-magit-popup)) - (string-append "WITH_EDITOR_DIR=" - (assoc-ref %build-inputs "with-editor") - "/share/emacs/site-lisp/guix.d/with-editor-" - ,(package-version emacs-with-editor))) - - #:phases - (modify-phases %standard-phases - (delete 'configure) - (add-before - 'build 'patch-exec-paths - (lambda* (#:key inputs #:allow-other-keys) - (let ((perl (assoc-ref inputs "perl"))) - (substitute* "lisp/magit-sequence.el" - (("perl") (string-append perl "/bin/perl"))) - #t)))))) - (home-page "https://magit.vc/") - (synopsis "Emacs interface for the Git version control system") - (description - "With Magit, you can inspect and modify your Git repositories with Emacs. -You can review and commit the changes you have made to the tracked files, for -example, and you can browse the history of past changes. There is support for -cherry picking, reverting, merging, rebasing, and other common Git -operations.") - (license license:gpl3+))) - -(define-public magit - (deprecated-package "magit" emacs-magit)) - -(define-public emacs-magit-svn - (package - (name "emacs-magit-svn") - (version "2.2.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/magit/magit-svn/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1c3n377v436zaxamlsz04y1ahdhp96x1vd43zaryv4y10m02ba47")))) - (build-system trivial-build-system) - (native-inputs `(("emacs" ,emacs-minimal) - ("tar" ,tar) - ("gzip" ,gzip))) - (propagated-inputs `(("dash" ,emacs-dash) - ("with-editor" ,emacs-with-editor) - ("magit" ,emacs-magit))) - (arguments - `(#:modules ((guix build utils) - (guix build emacs-utils)) - - #:builder - (begin - (use-modules (guix build utils) - (guix build emacs-utils)) - - (let* ((tar (string-append (assoc-ref %build-inputs "tar") - "/bin/tar")) - (PATH (string-append (assoc-ref %build-inputs "gzip") - "/bin")) - (emacs (string-append (assoc-ref %build-inputs "emacs") - "/bin/emacs")) - (magit (string-append (assoc-ref %build-inputs "magit") - "/share/emacs/site-lisp")) - (dash (string-append (assoc-ref %build-inputs "dash") - "/share/emacs/site-lisp/guix.d/dash-" - ,(package-version emacs-dash))) - (with-editor (string-append (assoc-ref %build-inputs "with-editor") - "/share/emacs/site-lisp/guix.d/with-editor-" - ,(package-version emacs-with-editor))) - (source (assoc-ref %build-inputs "source")) - (lisp-dir (string-append %output "/share/emacs/site-lisp"))) - (setenv "PATH" PATH) - (invoke tar "xvf" source) - - (install-file (string-append "magit-svn-" ,version "/magit-svn.el") - lisp-dir) - - (with-directory-excursion lisp-dir - (parameterize ((%emacs emacs)) - (emacs-generate-autoloads ,name lisp-dir) - (setenv "EMACSLOADPATH" - (string-append ":" magit ":" dash ":" with-editor)) - (emacs-batch-eval '(byte-compile-file "magit-svn.el")))) - #t)))) - (home-page "https://github.com/magit/magit-svn") - (synopsis "Git-SVN extension to Magit") - (description - "This package is an extension to Magit, the Git Emacs mode, providing -support for Git-SVN.") - (license license:gpl3+))) - -(define-public magit-svn - (deprecated-package "magit-svn" emacs-magit-svn)) - -(define-public emacs-magit-popup - (package - (name "emacs-magit-popup") - (version "2.12.5") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/magit/magit-popup.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "13riknyqr6vxqll80sfhvz165flvdz367rbd0pr5slb01bnfsi2i")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'install 'make-info - (lambda _ - (invoke "make" "info")))))) - (native-inputs - `(("texinfo" ,texinfo))) - (propagated-inputs - `(("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/magit/magit-popup") - (synopsis "Define prefix-infix-suffix command combos") - (description - "This library implements a generic interface for toggling switches and -setting options and then invoking an Emacs command which does something with -these arguments. The prototypical use is for the command to call an external -process, passing on the arguments as command line arguments.") - (license license:gpl3+))) - -(define-public emacs-treepy - (package - (name "emacs-treepy") - (version "0.1.1") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/volrath/treepy.el.git") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "04zwm6gx9pxfvgfkizx6pvb1ql8pqxjyzqp8flz0432x0gq5nlxk")))) - (build-system emacs-build-system) - (home-page - "https://github.com/volrath/treepy.el") - (synopsis "Tree traversal tools") - (description - "Generic tools for recursive and iterative tree traversal based on -clojure.walk and clojure.zip respectively.") - (license license:gpl3+))) - -(define-public emacs-graphql - (package - (name "emacs-graphql") - (version "0.1.1") - (source (origin - (modules '((guix build utils))) - ;; Remove examples file with references to external packages as - ;; they do not exist at compilation time. - (snippet - '(begin (delete-file "examples.el") - #t)) - (method git-fetch) - (uri (git-reference - (url "https://github.com/vermiculus/graphql.el.git") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0sp0skc1rnhi39szfbq1i99pdgd3bhn4c15cff05iqhjy2d4hniw")))) - (build-system emacs-build-system) - (home-page - "https://github.com/vermiculus/graphql.el") - (synopsis "GraphQL utilities") - (description - "GraphQL.el provides a generally-applicable domain-specific language for -creating and executing GraphQL queries against your favorite web services. -GraphQL is a data query language and runtime designed and used to request and -deliver data to mobile and web apps.") - (license license:gpl3+))) - -(define-public emacs-ghub - (package - (name "emacs-ghub") - (version "2.0.1") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/magit/ghub/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0d0qj5r1bm2aidi61rigrdaycxnyb7y1ivb3h8rpvvapsf8sk7z0")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'install 'make-info - (lambda _ - (invoke "make" "info")))))) - (native-inputs - `(("texinfo" ,texinfo))) - (home-page "https://github.com/magit/ghub") - (synopsis "Emacs client library for Github API and Gitlab API") - (description - "This package provides 2 files: @file{ghub.el} and @file{glab.el}, -which are the libraries that provide basic support for using the Github and -Gitlab APIs from Emacs packages. It abstracts access to API resources using -only a handful of functions that are not resource-specific.") - (license license:gpl3+))) - -(define-public emacs-scribble-mode - (let ((commit "34e9e5edb921813b6483e0fefa848efb6ee4b314") - (version "0.0") - (revision 0)) - (package - (name "emacs-scribble-mode") - (version (if (zero? revision) - version - (string-append version "-" - (number->string revision) - "." (string-take commit 7)))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-pe/scribble-mode.git") - (commit commit))) - (sha256 - (base32 - "0598byqpz2q6yi2q4dwd77jj9z3n99z34d3an51s9m2za0nh1qvp")))) - (build-system emacs-build-system) - (home-page "https://github.com/emacs-pe/scribble-mode") - (synopsis "Emacs mode for editing the Scribble documentation syntax.") - (description - "This package provides basic syntax highlighting and editing support -for editing Racket's Scribble documentation syntax in Emacs.") - (license license:gpl3+)))) - -(define-public emacs-haskell-mode - (package - (name "emacs-haskell-mode") - (version "16.1") - (source (origin - (method url-fetch) - (file-name (string-append name "-" version ".tar.gz")) - (uri (string-append - "https://github.com/haskell/haskell-mode/archive/v" - version ".tar.gz")) - (sha256 - (base32 "0g6lcjw7lcgavv3yrd8xjcyqgfyjl787y32r1z14amw2f009m78h")) - (patches - (search-patches ; backport test failure fixes - "haskell-mode-unused-variables.patch" - "haskell-mode-make-check.patch")))) - (inputs - `(("emacs-el-search" ,emacs-el-search) ; for tests - ("emacs-stream" ,emacs-stream))) ; for tests - (propagated-inputs - `(("emacs-dash" ,emacs-dash))) - (native-inputs - `(("emacs" ,emacs-minimal) - ("texinfo" ,texinfo))) - (build-system gnu-build-system) - (arguments - `(#:make-flags (list (string-append "EMACS=" - (assoc-ref %build-inputs "emacs") - "/bin/emacs")) - #:modules ((ice-9 match) - (srfi srfi-26) - ,@%gnu-build-system-modules) - #:phases - (modify-phases %standard-phases - (delete 'configure) - (add-before - 'build 'pre-build - (lambda* (#:key inputs #:allow-other-keys) - (define (el-dir store-dir) - (match (find-files store-dir "\\.el$") - ((f1 f2 ...) (dirname f1)) - (_ ""))) - - (let ((sh (string-append (assoc-ref inputs "bash") "/bin/sh"))) - (define emacs-prefix? (cut string-prefix? "emacs-" <>)) - - (setenv "SHELL" "sh") - (setenv "EMACSLOADPATH" - (string-concatenate - (map (match-lambda - (((? emacs-prefix? name) . dir) - (string-append (el-dir dir) ":")) - (_ "")) - inputs))) - (substitute* (find-files "." "\\.el") (("/bin/sh") sh)) - ;; embed filename to fix test failure - (let ((file "tests/haskell-cabal-tests.el")) - (substitute* file - (("\\(buffer-file-name\\)") - (format #f "(or (buffer-file-name) ~s)" file)))) - #t))) - (replace - 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (el-dir (string-append out "/share/emacs/site-lisp")) - (doc (string-append - out "/share/doc/haskell-mode-" ,version)) - (info (string-append out "/share/info"))) - (define (copy-to-dir dir files) - (for-each (lambda (f) - (install-file f dir)) - files)) - - (with-directory-excursion "doc" - (invoke "makeinfo" "haskell-mode.texi") - (install-file "haskell-mode.info" info)) - (copy-to-dir doc '("CONTRIBUTING.md" "NEWS" "README.md")) - (copy-to-dir el-dir (find-files "." "\\.elc?")) - ;; These are part of other packages. - (with-directory-excursion el-dir - (for-each delete-file '("dash.el" "ert.el"))) - #t)))))) - (home-page "https://github.com/haskell/haskell-mode") - (synopsis "Haskell mode for Emacs") - (description - "This is an Emacs mode for editing, debugging and developing Haskell -programs.") - (license license:gpl3+))) - -(define-public haskell-mode - (deprecated-package "haskell-mode" emacs-haskell-mode)) - -(define-public emacs-flycheck - (package - (name "emacs-flycheck") - (version "31") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/flycheck/flycheck/releases/download/" - version "/flycheck-" version ".tar")) - (sha256 - (base32 - "01rnwan16m7cyyrfca3c5c60mbj2r3knkpzbhji2fczsf0wns240")) - (modules '((guix build utils))) - (snippet `(begin - ;; Change 'flycheck-version' so that it does not - ;; attempt to get its version from pkg-info.el. - (substitute* "flycheck.el" - (("\\(pkg-info-version-info 'flycheck\\)") - (string-append "\"" ,version "\""))) - #t)))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash))) - (home-page "https://www.flycheck.org") - (synopsis "On-the-fly syntax checking") - (description - "This package provides on-the-fly syntax checking for GNU Emacs. It is a -replacement for the older Flymake extension which is part of GNU Emacs, with -many improvements and additional features. - -Flycheck provides fully-automatic, fail-safe, on-the-fly background syntax -checking for over 30 programming and markup languages with more than 70 -different tools. It highlights errors and warnings inline in the buffer, and -provides an optional IDE-like error list.") - (license license:gpl3+))) ;+GFDLv1.3+ for the manual - -(define-public emacs-a - (package - (name "emacs-a") - (version "0.1.1") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/plexus/a.el.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "00v9w6qg3bkwdhypq0ssf0phdh0f4bcq59c20lngd6vhk0204dqi")))) - (build-system emacs-build-system) - (home-page "https://github.com/plexus/a.el/") - (synopsis - "Emacs library for dealing with association lists and hash tables") - (description "@code{emacs-a} provides Emacs Lisp functions for dealing -with associative structures in a uniform and functional way. These functions -can take association lists, hash tables, and in some cases vectors (where the -index is considered the key).") - (license license:gpl3+))) - - -;;; -;;; Web browsing. -;;; - -(define-public emacs-w3m - ;; Emacs-w3m follows a "rolling release" model. - (package - (name "emacs-w3m") - (version "2018-11-11") - (source (origin - (method cvs-fetch) - (uri (cvs-reference - (root-directory - ":pserver:anonymous@cvs.namazu.org:/storage/cvsroot") - (module "emacs-w3m") - (revision version))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0nvahdbjs12zg7zsk4gql02mvnv56cf1rwj2f5p42lwp3xvswiwp")))) - (build-system gnu-build-system) - (native-inputs `(("autoconf" ,autoconf) - ("texinfo" ,texinfo) - ("emacs" ,emacs-minimal))) - (inputs `(("w3m" ,w3m) - ("imagemagick" ,imagemagick))) - (arguments - `(#:modules ((guix build gnu-build-system) - (guix build utils) - (guix build emacs-utils)) - #:imported-modules (,@%gnu-build-system-modules - (guix build emacs-utils)) - #:configure-flags - (let ((out (assoc-ref %outputs "out"))) - (list (string-append "--with-lispdir=" - out "/share/emacs/site-lisp") - (string-append "--with-icondir=" - out "/share/images/emacs-w3m") - ;; Leave .el files uncompressed, otherwise GC can't - ;; identify run-time dependencies. See - ;; <http://lists.gnu.org/archive/html/guix-devel/2015-12/msg00208.html> - "--without-compress-install")) - #:tests? #f ; no check target - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'autoconf - (lambda _ - (invoke "autoconf"))) - (add-before 'configure 'support-emacs! - (lambda _ - ;; For some reason 'AC_PATH_EMACS' thinks that 'Emacs 26' is - ;; unsupported. - (substitute* "configure" - (("EMACS_FLAVOR=unsupported") - "EMACS_FLAVOR=emacs")) - #t)) - (add-before 'build 'patch-exec-paths - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out")) - (w3m (assoc-ref inputs "w3m")) - (imagemagick (assoc-ref inputs "imagemagick")) - (coreutils (assoc-ref inputs "coreutils"))) - (make-file-writable "w3m.el") - (emacs-substitute-variables "w3m.el" - ("w3m-command" (string-append w3m "/bin/w3m")) - ("w3m-touch-command" - (string-append coreutils "/bin/touch")) - ("w3m-icon-directory" - (string-append out "/share/images/emacs-w3m"))) - (make-file-writable "w3m-image.el") - (emacs-substitute-variables "w3m-image.el" - ("w3m-imagick-convert-program" - (string-append imagemagick "/bin/convert")) - ("w3m-imagick-identify-program" - (string-append imagemagick "/bin/identify"))) - #t))) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (invoke "make" "install" "install-icons") - (with-directory-excursion - (string-append (assoc-ref outputs "out") - "/share/emacs/site-lisp") - (for-each delete-file '("ChangeLog" "ChangeLog.1")) - (symlink "w3m-load.el" "w3m-autoloads.el") - #t)))))) - (home-page "http://emacs-w3m.namazu.org/") - (synopsis "Simple Web browser for Emacs based on w3m") - (description - "Emacs-w3m is an emacs interface for the w3m web browser.") - (license license:gpl2+))) - -(define-public emacs-wget - (package - (name "emacs-wget") - (version "0.5.0") - (source (origin - (method url-fetch) - (uri (string-append "mirror://debian/pool/main/w/wget-el/wget-el_" - version ".orig.tar.gz")) - (sha256 - (base32 "10byvyv9dk0ib55gfqm7bcpxmx2qbih1jd03gmihrppr2mn52nff")))) - (build-system gnu-build-system) - (inputs `(("wget" ,wget))) - (native-inputs `(("emacs" ,emacs-minimal))) - (arguments - `(#:modules ((guix build gnu-build-system) - (guix build utils) - (guix build emacs-utils)) - #:imported-modules (,@%gnu-build-system-modules - (guix build emacs-utils)) - #:tests? #f ; no check target - #:phases - (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key outputs #:allow-other-keys) - (substitute* "Makefile" - (("/usr/local") (assoc-ref outputs "out")) - (("/site-lisp/emacs-wget") "/site-lisp")) - #t)) - (add-before 'build 'patch-exec-paths - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((wget (assoc-ref inputs "wget"))) - (emacs-substitute-variables "wget.el" - ("wget-command" (string-append wget "/bin/wget")))) - #t)) - (add-after 'install 'post-install - (lambda* (#:key outputs #:allow-other-keys) - (emacs-generate-autoloads - "wget" (string-append (assoc-ref outputs "out") - "/share/emacs/site-lisp/")) - #t))))) - (home-page "http://www.emacswiki.org/emacs/EmacsWget") - (synopsis "Simple file downloader for Emacs based on wget") - (description - "Emacs-wget is an emacs interface for the wget file downloader.") - (license license:gpl2+))) - - -;;; -;;; Multimedia. -;;; - -(define-public emacs-emms - (package - (name "emacs-emms") - (version "5.1") - (source (origin - (method url-fetch) - (uri (string-append "mirror://gnu/emms/emms-" - version ".tar.gz")) - (sha256 - (base32 - "149ddczyx6x10zn4mn8g0rll1rwf4yciv8x6j0qdnlbwszblx2x6")) - (modules '((guix build utils))) - (snippet - '(begin - (substitute* "Makefile" - (("/usr/bin/install-info") - ;; No need to use 'install-info' since it would create a - ;; useless 'dir' file. - "true") - (("^INFODIR=.*") - ;; Install Info files to $out/share/info, not $out/info. - "INFODIR := $(PREFIX)/share/info\n") - (("/site-lisp/emms") - ;; Install directly in share/emacs/site-lisp, not in a - ;; sub-directory. - "/site-lisp") - (("^all: (.*)\n" _ rest) - ;; Build 'emms-print-metadata'. - (string-append "all: " rest " emms-print-metadata\n"))) - #t)))) - (build-system gnu-build-system) - (arguments - `(#:modules ((guix build gnu-build-system) - (guix build utils) - (guix build emacs-utils) - (ice-9 ftw)) - #:imported-modules (,@%gnu-build-system-modules - (guix build emacs-utils)) - - #:phases - (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out")) - (flac (assoc-ref inputs "flac")) - (vorbis (assoc-ref inputs "vorbis-tools")) - (alsa (assoc-ref inputs "alsa-utils")) - (mpg321 (assoc-ref inputs "mpg321")) - (mp3info (assoc-ref inputs "mp3info")) - (opus (assoc-ref inputs "opus-tools"))) - ;; Specify the installation directory. - (substitute* "Makefile" - (("PREFIX=.*$") - (string-append "PREFIX := " out "\n"))) - - (setenv "SHELL" (which "sh")) - (setenv "CC" "gcc") - - ;; Specify the absolute file names of the various - ;; programs so that everything works out-of-the-box. - (with-directory-excursion "lisp" - (emacs-substitute-variables - "emms-player-mpg321-remote.el" - ("emms-player-mpg321-remote-command" - (string-append mpg321 "/bin/mpg321"))) - (substitute* "emms-player-simple.el" - (("\"ogg123\"") - (string-append "\"" vorbis "/bin/ogg123\""))) - (substitute* "emms-player-simple.el" - (("\"mpg321\"") - (string-append "\"" mpg321 "/bin/mpg321\""))) - (emacs-substitute-variables "emms-info-ogginfo.el" - ("emms-info-ogginfo-program-name" - (string-append vorbis "/bin/ogginfo"))) - (emacs-substitute-variables "emms-info-opusinfo.el" - ("emms-info-opusinfo-program-name" - (string-append opus "/bin/opusinfo"))) - (emacs-substitute-variables "emms-info-libtag.el" - ("emms-info-libtag-program-name" - (string-append out "/bin/emms-print-metadata"))) - (emacs-substitute-variables "emms-info-mp3info.el" - ("emms-info-mp3info-program-name" - (string-append mp3info "/bin/mp3info"))) - (emacs-substitute-variables "emms-info-metaflac.el" - ("emms-info-metaflac-program-name" - (string-append flac "/bin/metaflac"))) - (emacs-substitute-variables "emms-source-file.el" - ("emms-source-file-gnu-find" (which "find"))) - (substitute* "emms-volume-amixer.el" - (("\"amixer\"") - (string-append "\"" alsa "/bin/amixer\""))) - (substitute* "emms-tag-editor.el" - (("\"mp3info\"") - (string-append "\"" mp3info "/bin/mp3info\""))))))) - (add-before 'install 'pre-install - (lambda* (#:key outputs #:allow-other-keys) - ;; The 'install' rule expects the target directories to exist. - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (man1 (string-append out "/share/man/man1"))) - (mkdir-p bin) - (mkdir-p man1) - - ;; Ensure that files are not rejected by gzip - (let ((early-1980 315619200)) ; 1980-01-02 UTC - (ftw "." (lambda (file stat flag) - (unless (<= early-1980 (stat:mtime stat)) - (utime file early-1980 early-1980)) - #t))) - #t))) - (add-after 'install 'post-install - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (symlink "emms-auto.el" - (string-append out "/share/emacs/site-lisp/" - "emms-autoloads.el"))) - #t))) - #:tests? #f)) - (native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils) - ("texinfo" ,texinfo))) - (inputs `(("alsa-utils" ,alsa-utils) - ("flac" ,flac) ;for metaflac - ("vorbis-tools" ,vorbis-tools) - ("mpg321" ,mpg321) - ("taglib" ,taglib) - ("mp3info" ,mp3info) - ("opus-tools" ,opus-tools))) - (properties '((upstream-name . "emms"))) - (synopsis "Emacs Multimedia System") - (description - "EMMS is the Emacs Multimedia System. It is a small front-end which -can control one of the supported external players. Thus, it supports -whatever formats are supported by your music player. It also -supports tagging and playlist management, all behind a clean and -light user interface.") - (home-page "https://www.gnu.org/software/emms/") - (license license:gpl3+))) - -(define-public emacs-emms-player-mpv - ;; A new mpv backend is included in Emms from 5.0. - (deprecated-package "emacs-emms-player-mpv" emacs-emms)) - -(define-public emacs-emms-mode-line-cycle - (package - (name "emacs-emms-mode-line-cycle") - (version "0.2.5") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/momomo5717/emms-mode-line-cycle" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0ifszi930pnaxk1x8pcydmvnp06868gc7nfx14q17zbajbx735k6")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emms" ,emacs-emms))) - (home-page "https://github.com/momomo5717/emms-mode-line-cycle") - (synopsis "Display the EMMS mode line as a ticker") - (description - "This is a minor mode for updating the EMMS mode-line string cyclically -within a specified width. It is useful for displaying long track titles.") - (license license:gpl3+))) - - -;;; -;;; Miscellaneous. -;;; - -(define-public emacs-bbdb - (package - (name "emacs-bbdb") - (version "3.1.2") - (source (origin - (method url-fetch) - (uri (string-append "mirror://savannah/bbdb/bbdb-" - version ".tar.gz")) - (sha256 - (base32 - "1gs16bbpiiy01w9pyg12868r57kx1v3hnw04gmqsmpc40l1hyy05")) - (modules '((guix build utils))) - (snippet - ;; We don't want to build and install the PDF. - '(begin - (substitute* "doc/Makefile.in" - (("^doc_DATA = .*$") - "doc_DATA =\n")) - #t)))) - (build-system gnu-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-after 'install 'post-install - (lambda* (#:key outputs #:allow-other-keys) - ;; Add an autoloads file with the right name for guix.el. - (let* ((out (assoc-ref outputs "out")) - (site (string-append out "/share/emacs/site-lisp"))) - (with-directory-excursion site - (symlink "bbdb-loaddefs.el" "bbdb-autoloads.el"))) - #t))))) - (native-inputs `(("emacs" ,emacs-minimal))) - (home-page "https://savannah.nongnu.org/projects/bbdb/") - (synopsis "Contact management utility for Emacs") - (description - "BBDB is the Insidious Big Brother Database for GNU Emacs. It provides -an address book for email and snail mail addresses, phone numbers and the -like. It can be linked with various Emacs mail clients (Message and Mail -mode, Rmail, Gnus, MH-E, and VM). BBDB is fully customizable.") - (license license:gpl3+))) - -(define-public bbdb - (deprecated-package "bbdb" emacs-bbdb)) - -(define-public emacs-aggressive-indent - (package - (name "emacs-aggressive-indent") - (version "1.8.3") - (source (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/" - "aggressive-indent-" version ".el")) - (sha256 - (base32 - "0jnzccl50x0wapprgwxinp99pwwa6j43q6msn4gv437j7swy8wnj")))) - (build-system emacs-build-system) - (home-page "https://elpa.gnu.org/packages/aggressive-indent.html") - (synopsis "Minor mode to aggressively keep your code always indented") - (description - "@code{aggressive-indent-mode} is a minor mode that keeps your code -always indented. It reindents after every change, making it more reliable -than @code{electric-indent-mode}.") - (license license:gpl2+))) - -(define-public emacs-ag - (package - (name "emacs-ag") - (version "0.47") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/Wilfred/ag.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1rlmp6wnyhqfg86dbz17r914msp58favn4kd4yrdwyia265a4lar")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'install 'make-info - (lambda _ - (with-directory-excursion "docs" - (invoke "make" "info")))) - (add-after 'install 'install-info - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (info (string-append out "/share/info"))) - (install-file "docs/_build/texinfo/agel.info" info) - #t)))))) - (native-inputs - `(("python-sphinx" ,python-sphinx) - ("texinfo" ,texinfo))) - (propagated-inputs - `(("dash" ,emacs-dash) - ("s" ,emacs-s) - ;; We need to use 'ag' as the executable on remote systems. - ("the-silver-searcher" ,the-silver-searcher))) - (home-page "https://github.com/Wilfred/ag.el") - (synopsis "Front-end for ag (the-silver-searcher) for Emacs") - (description "This package provides the ability to use the silver -searcher, a code searching tool, sometimes abbreviated to @code{ag}. Features -include version control system awareness, use of Perl compatible regular -expressions, editing the search results directly and searching file names -rather than the contents of files.") - (license license:gpl3+))) - -(define-public emacs-async - (package - (name "emacs-async") - (home-page "https://github.com/jwiegley/emacs-async") - (version "1.9.3") - (source (origin - (method git-fetch) - (uri (git-reference - (url home-page) - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1zsnb6dy8p6y68xgidv3dfxaga4biramfw8fq7wac0sc50vc98vq")))) - (build-system emacs-build-system) - (synopsis "Asynchronous processing in Emacs") - (description - "This package provides the ability to call asynchronous functions and -processes. For example, it can be used to run dired commands (for copying, -moving, etc.) asynchronously using @code{dired-async-mode}. Also it is used -as a library for other Emacs packages.") - (license license:gpl3+))) - -(define-public emacs-auctex - (package - (name "emacs-auctex") - (version "12.1.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://elpa.gnu.org/packages/auctex-" - version - ".tar")) - (sha256 - (base32 - "0iy5x61xqkxaph2hq64sg50l1c6yp6qhzppwadayxkdz00b46sas")))) - (build-system emacs-build-system) - ;; We use 'emacs' because AUCTeX requires dbus at compile time - ;; ('emacs-minimal' does not provide dbus). - (arguments - `(#:emacs ,emacs - #:include '("\\.el$" "^images/" "^latex/" "\\.info$") - #:exclude '("^tests/" "^latex/README"))) - (native-inputs - `(("perl" ,perl))) - (home-page "https://www.gnu.org/software/auctex/") - (synopsis "Integrated environment for TeX") - (description - "AUCTeX is a comprehensive customizable integrated environment for -writing input files for TeX, LaTeX, ConTeXt, Texinfo, and docTeX using Emacs -or XEmacs.") - (license license:gpl3+))) - -(define-public emacs-autothemer - (package - (name "emacs-autothemer") - (version "0.2.2") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/sebastiansturm/autothemer/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0rd28r9wfrbll212am4ih9hrvypx785aff76va2cbfxdwm9kixsa")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/sebastiansturm/autothemer") - (synopsis "Conveniently create Emacs themes") - (description - "Autothemer provides a thin layer on top of @code{deftheme} and -@code{custom-theme-set-faces} that creates a new custom color theme, based on -a set of simplified face specifications and a user-supplied color palette") - (license license:gpl3+))) - -(define-public emacs-howm - (package - (name "emacs-howm") - (version "1.4.4") - (source - (origin - (method url-fetch) - (uri (string-append "http://howm.sourceforge.jp/a/howm-" - version ".tar.gz")) - (sha256 - (base32 - "0ddm91l6z58j7x59fa966j6q1rg4cinyza4r8ibg80hprn5h31qk")))) - (build-system gnu-build-system) - (native-inputs - `(("emacs" ,emacs-minimal))) - (arguments - `(#:configure-flags - (list (string-append "--with-howmdir=" %output - "/share/emacs/site-lisp/guix.d/howm-" ,version)) - #:modules ((guix build gnu-build-system) - ((guix build emacs-build-system) #:prefix emacs:) - (guix build utils)) - #:imported-modules (,@%gnu-build-system-modules - (guix build emacs-build-system) - (guix build emacs-utils)) - #:phases - (modify-phases %standard-phases - (add-after 'install 'make-autoloads - (assoc-ref emacs:%standard-phases 'make-autoloads))))) - (home-page "http://howm.osdn.jp/") - (synopsis "Note-taking tool for Emacs") - (description "Howm is a note-taking tool for Emacs. Like -code@{emacs-wiki.el}, it facilitates using hyperlinks and doing full-text -searches. Unlike code@{emacs-wiki.el}, it can be combined with any format.") - (license license:gpl1+))) - -(define-public emacs-calfw - (package - (name "emacs-calfw") - (version "1.6") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/kiwanami/emacs-calfw/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1zr91xr0f1xfcv78yxka8vs5ximmq2ixmqf2pkb57kwwnxlypq4i")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-howm" ,emacs-howm))) - (home-page "https://github.com/kiwanami/emacs-calfw/") - (synopsis "Calendar framework for Emacs") - (description - "This package displays a calendar view with various schedule data in the -Emacs buffer.") - (license license:gpl3+))) - -(define-public emacs-direnv - (package - (name "emacs-direnv") - (version "1.2.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/wbolster/emacs-direnv/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0m9nxawklhiiysyibzzhh2zkxgq1fskqvaqb06f7r8dnhabfy9fr")))) - (build-system emacs-build-system) - (propagated-inputs - `(("dash" ,emacs-dash) - ("with-editor" ,emacs-with-editor))) - (home-page "https://github.com/wbolster/emacs-direnv") - (synopsis "Direnv integration for Emacs") - (description - "This package provides support for invoking direnv to get the environment -for the current file and updating the environment within Emacs to match. - -Direnv can be invoked manually, and a global minor mode is included that will -update the environment when the active buffer changes. - -Using emacs-direnv means that programs started from Emacs will use the -environment set through Direnv.") - (license license:gpl3+))) - -(define-public emacs-ggtags - (package - (name "emacs-ggtags") - (version "0.8.13") - (source - (origin - (method url-fetch) - (uri (string-append "http://elpa.gnu.org/packages/ggtags-" - version ".el")) - (sha256 - (base32 - "1qa7lcrcmf76sf6dy8sxbg4adq7rg59fm0n5848w3qxgsr0h45fg")))) - (build-system emacs-build-system) - (inputs - `(("global" ,global))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs #:allow-other-keys) - (chmod "ggtags.el" #o644) - (emacs-substitute-variables "ggtags.el" - ("ggtags-executable-directory" - (string-append (assoc-ref inputs "global") "/bin"))) - #t))))) - (home-page "https://github.com/leoliu/ggtags") - (synopsis "Frontend to the GNU Global source code tagging system") - (description "@code{ggtags} provides a frontend to the GNU Global source -code tagging system. - -Features: - -@itemize -@item Build on @code{compile.el} for asynchronicity and its large feature-set. -@item Automatically update Global's tag files when needed with tuning for -large source trees. -@item Intuitive navigation among multiple matches with mode-line display of -current match, total matches and exit status. -@item Read tag with completion. -@item Show definition at point. -@item Jump to #include files. -@item Support search history and saving a search to register/bookmark. -@item Query replace. -@item Manage Global's environment variables on a per-project basis. -@item Highlight (definition) tag at point. -@item Abbreviated display of file names. -@item Support all Global search backends: @code{grep}, @code{idutils}, etc. -@item Support exuberant ctags @url{http://ctags.sourceforge.net/} and -@code{pygments} backend. -@item Support all Global's output formats: @code{grep}, @code{ctags-x}, -@code{cscope} etc. -@item Support projects on remote hosts (e.g. via @code{tramp}). -@item Support eldoc. -@item Search @code{GTAGSLIBPATH} for references and symbols. -@end itemize\n") - (license license:gpl3+))) - -(define-public emacs-go-mode - (package - (name "emacs-go-mode") - (version "1.5.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/dominikh/go-mode.el.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1nd2h50yb0493wvf1h7fzplq45rmqn2w7kxpgnlxzhkvq99v8vzf")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'make-writable - (lambda _ - (for-each make-file-writable (find-files "." "\\.el$")) - #t))))) - (home-page "https://github.com/dominikh/go-mode.el") - (synopsis "Go mode for Emacs") - (description - "This package provides go-mode, an Emacs mode for working with software -written in the Go programming language.") - (license license:bsd-3))) - -(define-public emacs-google-maps - (package - (name "emacs-google-maps") - (version "1.0.0") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/jd/google-maps.el/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "014bxapm4d8vjxbzrfjdpsavxyfx981mlcb10aq5rmigr6il8ybs")))) - (build-system emacs-build-system) - (home-page "https://github.com/jd/google-maps.el") - (synopsis "Access Google Maps from Emacs") - (description "The @code{google-maps} package allows to display Google -Maps directly inside Emacs.") - (license license:gpl3+))) - -(define-public emacs-graphviz-dot-mode - (let ((commit "c456a2b65c734089e6c44e87209a5a432a741b1a") - (revision "1")) - (package - (name "emacs-graphviz-dot-mode") - (version (string-append "0.3.11-" revision "." - (string-take commit 7))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ppareit/graphviz-dot-mode.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0j1r2rspaakw37b0mx7pwpvdsvixq9sw3xjbww5piihzpdxz58z1")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'install 'make-info - (lambda* (#:key inputs #:allow-other-keys) - (with-directory-excursion "texinfo" - (substitute* "Makefile" - (("\\/usr\\/bin\\/gzip") - (string-append (assoc-ref inputs "gzip") "/bin/gzip"))) - (invoke "make" - "clean" - "info" - (string-append "TEXINFODIR=" - (assoc-ref inputs "texinfo") - "/bin"))))) - (add-after 'install 'install-info - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (info (string-append out "/share/info"))) - (install-file "texinfo/graphviz-dot-mode.info.gz" info) - #t)))))) - (native-inputs - `(("texinfo" ,texinfo) - ("gzip" ,gzip))) - (home-page "http://ppareit.github.com/graphviz-dot-mode") - (synopsis "Major mode for editing Graphviz Dot files") - (description - "This Emacs packages helps you to create @file{.dot} or @file{.gv} -files using the dot syntax, and use Graphviz to convert these files to -diagrams.") - (license license:gpl2+)))) - -(define-public emacs-mmm-mode - (package - (name "emacs-mmm-mode") - (version "0.5.5") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/purcell/mmm-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0c5ing3hcr74k78hqhrfwiv6m3n8hqfrw89j2x34vf60f4iyqzqc")))) - (build-system gnu-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'autogen - (lambda _ - (invoke "sh" "autogen.sh")))))) - (native-inputs - `(("autoconf" ,autoconf) - ("automake" ,automake) - ("emacs" ,emacs-minimal) - ("texinfo" ,texinfo))) - (home-page "https://github.com/purcell/mmm-mode") - (synopsis "Allow multiple major modes in an Emacs buffer") - (description - "MMM Mode is a minor mode that allows multiple major modes to coexist in a -single buffer.") - (license license:gpl3+))) - -(define-public emacs-tablist - (package - (name "emacs-tablist") - (version "0.70") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/politza/tablist/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "177d6s7ym1mwz1nhnl09r14z3n093g9a2szm97xsaig0c204xz9c")))) - (build-system emacs-build-system) - (home-page "https://github.com/politza/tablist") - (synopsis "Extension for @code{tabulated-list-mode}") - (description "Tablist is the Emacs package that provides several -additional features to @code{tabulated-list-mode}: it adds marks, -filters, new key bindings and faces. It can be enabled by -@code{tablist-mode} or @code{tablist-minor-mode} commands.") - (license license:gpl3+))) - -(define-public emacs-pdf-tools - (package - (name "emacs-pdf-tools") - (version "0.80") - (home-page "https://github.com/politza/pdf-tools") - (source (origin - (method git-fetch) - (uri (git-reference (url home-page) - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1i4647vax5na73basc5dz4lh9kprir00fh8ps4i0l1y3ippnjs2s")) - (patches (search-patches "emacs-pdf-tools-poppler.patch")) - (modules '((guix build utils))) - (snippet - '(begin - ;; In addition to the above patch, we need this additional - ;; provision for compatibility with Poppler 0.72: - (substitute* "server/poppler-hack.cc" - (("getCString") "c_str")) - #t)))) - (build-system gnu-build-system) - (arguments - `(#:tests? #f ; there are no tests - #:modules ((guix build gnu-build-system) - ((guix build emacs-build-system) #:prefix emacs:) - (guix build utils) - (guix build emacs-utils)) - #:imported-modules (,@%gnu-build-system-modules - (guix build emacs-build-system) - (guix build emacs-utils)) - #:phases - (modify-phases %standard-phases - ;; Build server side using 'gnu-build-system'. - (add-after 'unpack 'enter-server-dir - (lambda _ (chdir "server") #t)) - (add-after 'enter-server-dir 'autogen - (lambda _ - (invoke "bash" "autogen.sh"))) - - ;; Build emacs side using 'emacs-build-system'. - (add-after 'compress-documentation 'enter-lisp-dir - (lambda _ (chdir "../lisp") #t)) - (add-after 'enter-lisp-dir 'emacs-patch-variables - (lambda* (#:key outputs #:allow-other-keys) - (for-each make-file-writable (find-files ".")) - - ;; Set path to epdfinfo program. - (emacs-substitute-variables "pdf-info.el" - ("pdf-info-epdfinfo-program" - (string-append (assoc-ref outputs "out") - "/bin/epdfinfo"))) - ;; Set 'pdf-tools-handle-upgrades' to nil to avoid "auto - ;; upgrading" that pdf-tools tries to perform. - (emacs-substitute-variables "pdf-tools.el" - ("pdf-tools-handle-upgrades" '())))) - (add-after 'emacs-patch-variables 'emacs-set-emacs-load-path - (assoc-ref emacs:%standard-phases 'set-emacs-load-path)) - (add-after 'emacs-set-emacs-load-path 'emacs-install - (assoc-ref emacs:%standard-phases 'install)) - (add-after 'emacs-install 'emacs-build - (assoc-ref emacs:%standard-phases 'build)) - (add-after 'emacs-install 'emacs-make-autoloads - (assoc-ref emacs:%standard-phases 'make-autoloads))))) - (native-inputs `(("autoconf" ,autoconf) - ("automake" ,automake) - ("pkg-config" ,pkg-config) - ("emacs" ,emacs-minimal))) - (inputs `(("poppler" ,poppler) - ("cairo" ,cairo) - ("glib" ,glib) - ("libpng" ,libpng) - ("zlib" ,zlib))) - (propagated-inputs `(("tablist" ,emacs-tablist))) - (synopsis "Emacs support library for PDF files") - (description - "PDF Tools is, among other things, a replacement of DocView for PDF -files. The key difference is that pages are not pre-rendered by -e.g. ghostscript and stored in the file-system, but rather created on-demand -and stored in memory.") - (license license:gpl3+))) - -(define-public emacs-dash - (package - (name "emacs-dash") - (version "2.14.1") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/magnars/dash.el.git") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1kzijmjxjxgr7p8clphzvmm47vczckbs8mza9an77c25bn627ywl")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("./run-tests.sh"))) - (home-page "https://github.com/magnars/dash.el") - (synopsis "Modern list library for Emacs") - (description "This package provides a modern list API library for Emacs.") - (license license:gpl3+))) - -(define-public emacs-bui - (package - (name "emacs-bui") - (version "1.2.1") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://notabug.org/alezost/emacs-bui.git") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0sszdl4kvqbihdh8d7mybpp0d8yw2p3gyiipjcxz9xhvvmw3ww4x")))) - (build-system emacs-build-system) - (propagated-inputs - `(("dash" ,emacs-dash))) - (home-page "https://notabug.org/alezost/emacs-bui") - (synopsis "Buffer interface library for Emacs") - (description - "BUI (Buffer User Interface) is a library for making @code{list} and -@code{info} interfaces to display an arbitrary data of the same -type, for example: packages, buffers, files, etc.") - (license license:gpl3+))) - -(define-public emacs-guix - (package - (name "emacs-guix") - (version "0.5.1.1") - (source (origin - (method url-fetch) - (uri (string-append "https://emacs-guix.gitlab.io/website/" - "releases/emacs-guix-" version ".tar.gz")) - (sha256 - (base32 - "1gxg7lan3njc2yg2d02b2zij0d2cm2pv2q08nqz86s85jk3b6m03")))) - (build-system gnu-build-system) - (arguments - `(#:configure-flags - (let ((guix (assoc-ref %build-inputs "guix")) - (gcrypt (assoc-ref %build-inputs "guile-gcrypt")) - (geiser (assoc-ref %build-inputs "geiser")) - (dash (assoc-ref %build-inputs "dash")) - (bui (assoc-ref %build-inputs "bui")) - (magit-popup (assoc-ref %build-inputs "magit-popup")) - (edit-indirect (assoc-ref %build-inputs "edit-indirect")) - (site-lisp "/share/emacs/site-lisp") - (site-scm "/share/guile/site") - (site-go "/lib/guile") - (guile-dir (lambda (dir) - (car (find-files dir - (lambda (file stat) - (string-prefix? - "2." (basename file))) - #:directories? #t))))) - (list (string-append "--with-guix-site-dir=" - (guile-dir (string-append guix site-scm))) - (string-append "--with-guix-site-ccache-dir=" - (guile-dir (string-append guix site-go)) - "/site-ccache") - (string-append "--with-guile-gcrypt-site-dir=" - (guile-dir (string-append gcrypt site-scm))) - (string-append "--with-guile-gcrypt-site-ccache-dir=" - (guile-dir (string-append gcrypt site-go)) - "/site-ccache") - (string-append "--with-geiser-lispdir=" geiser site-lisp) - (string-append "--with-dash-lispdir=" - dash site-lisp "/guix.d/dash-" - ,(package-version emacs-dash)) - (string-append "--with-bui-lispdir=" - bui site-lisp "/guix.d/bui-" - ,(package-version emacs-bui)) - (string-append "--with-editindirect-lispdir=" - edit-indirect site-lisp "/guix.d/edit-indirect-" - ,(package-version emacs-edit-indirect)) - (string-append "--with-popup-lispdir=" - magit-popup site-lisp "/guix.d/magit-popup-" - ,(package-version emacs-magit-popup)))))) - (native-inputs - `(("pkg-config" ,pkg-config) - ("emacs" ,emacs-minimal))) - (inputs - `(("guile" ,guile-2.2) - ("guix" ,guix))) - (propagated-inputs - `(("geiser" ,emacs-geiser) - ("guile-gcrypt" ,guile-gcrypt) - ("dash" ,emacs-dash) - ("bui" ,emacs-bui) - ("edit-indirect" ,emacs-edit-indirect) - ("magit-popup" ,emacs-magit-popup))) - (home-page "https://emacs-guix.gitlab.io/website/") - (synopsis "Emacs interface for GNU Guix") - (description - "Emacs-Guix provides a visual interface, tools and features for the GNU -Guix package manager. Particularly, it allows you to do various package -management tasks from Emacs. To begin with, run @code{M-x guix-about} or -@code{M-x guix-help} command.") - (license license:gpl3+))) - -(define-public emacs-build-farm - (package - (name "emacs-build-farm") - (version "0.2.2") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://notabug.org/alezost/emacs-build-farm.git") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0i0bwbav5861j2y15j9nd5m9rdqg9q97zgcbld8pivr9nyxy63lz")))) - (build-system emacs-build-system) - (propagated-inputs - `(("bui" ,emacs-bui) - ("magit-popup" ,emacs-magit-popup))) - (home-page "https://notabug.org/alezost/emacs-build-farm") - (synopsis "Emacs interface for Hydra and Cuirass build farms") - (description - "This Emacs package provides an interface for Hydra and -Cuirass (build farms used by Nix and Guix). It allows you to look at -various data related to the build farm projects, jobsets, builds and -evaluations. The entry point is @code{M-x build-farm} command.") - (license license:gpl3+))) - -(define-public emacs-d-mode - (package - (name "emacs-d-mode") - (version "2.0.9") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/Emacs-D-Mode-Maintainers/Emacs-D-Mode/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "127aa77ix3p7w4g339bx026df9y649dahlr3v359z0hs40zjz3kd")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-undercover" ,emacs-undercover))) - (home-page "https://github.com/Emacs-D-Mode-Maintainers/Emacs-D-Mode") - (synopsis "Emacs major mode for editing D code") - (description "This package provides an Emacs major mode for highlighting -code written in the D programming language. This mode is currently known to -work with Emacs 24 and 25.") - (license license:gpl2+))) - -(define-public emacs-keyfreq - (package - (name "emacs-keyfreq") - (version "20160516.716") - (source - (origin - (method url-fetch) - (uri (string-append "http://melpa.org/packages/keyfreq-" - version ".el")) - (sha256 - (base32 - "008hd7d06qskc3mx0bbdgpgy2pwxr8185fzlyqf9qjg49y74p6g8")))) - (build-system emacs-build-system) - (home-page "https://github.com/dacap/keyfreq") - (synopsis "Track Emacs command frequencies") - (description "@code{emacs-keyfeq} tracks and shows how many times you used -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") - (version "0.6.6") - (source (origin - (method git-fetch) - (uri (git-reference - (url "http://dr-qubit.org/git/undo-tree.git") - (commit (string-append "release/" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1hnh2mnmw179gr094r561w6cw1haid0lpvpqvkc24wpj82vphzpa")))) - (build-system emacs-build-system) - (home-page "http://www.dr-qubit.org/emacs.php") - (synopsis "Treat undo history as a tree") - (description "Tree-like interface to Emacs undo system, providing -graphical tree presentation of all previous states of buffer that -allows easily move between them.") - (license license:gpl3+))) - -(define-public emacs-s - (package - (name "emacs-s") - (version "1.12.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/magnars/s.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0xbl75863pcm806zg0x1lw7qznzjq2c8320k8js7apyag8q4srvh")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:emacs ,emacs ; FIXME: tests fail with emacs-minimal - #:test-command '("./run-tests.sh"))) - (home-page "https://github.com/magnars/s.el") - (synopsis "Emacs string manipulation library") - (description "This package provides an Emacs library for manipulating -strings.") - (license license:gpl3+))) - -(define-public emacs-symon - (package - (name "emacs-symon") - (version "20160630") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/zk-phi/symon/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0h4jcgdnq98wc9rj72nwyazq8498yg55jfljiij5qwbn1xf1g5zz")))) - (build-system emacs-build-system) - (home-page "https://github.com/zk-phi/symon") - (synopsis "Tiny graphical system monitor") - (description - "Tiny graphical system monitor for the Emacs minibuffer when idle.") - (license license:gpl2+))) - -(define-public emacs-sx - (let ((version "20180212") - (revision "1") - (commit "833435fbf90d1c9e927d165b155f3b1ef39271de")) - (package - (name "emacs-sx") - (version (git-version version revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/vermiculus/sx.el") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1369xaxq1vy3d9yh862ddnhddikdpg2d0wv1ly00pnvdp9v4cqgd")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-markdown-mode" ,emacs-markdown-mode))) - (home-page "https://github.com/vermiculus/sx.el") - (synopsis "Emacs StackExchange client") - (description - "Emacs StackExchange client. Ask and answer questions on -Stack Overflow, Super User, and other StackExchange sites.") - (license license:gpl3+)))) - -(define-public emacs-f - (package - (name "emacs-f") - (version "0.20.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/rejeep/f.el.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1a47xk3yp1rp17fqg7ldl3d3fb888h0fz3sysqfdz1bfdgs8a9bk")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-s" ,emacs-s) - ("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/rejeep/f.el") - (synopsis "Emacs API for working with files and directories") - (description "This package provides an Emacs library for working with -files and directories.") - (license license:gpl3+))) - -(define-public emacs-git-gutter - (package - (name "emacs-git-gutter") - (version "0.90") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/syohex/" name "/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1nmhvhpq1l56mj2yq3ag23rw3x4xgnsy8szp30s26l0yjnkhc4qg")))) - (build-system emacs-build-system) - (home-page "https://github.com/syohex/emacs-git-gutter") - (synopsis "See and manage hunks of text in a version control system") - (description - "This package is an Emacs minor mode for displaying and interacting with -hunks of text managed in a version control system. Added modified and deleted -areas can be indicated with symbols on the edge of the buffer, and commands -can be used to move between and perform actions on these hunks. - -Git, Mercurial, Subversion and Bazaar are supported, and many parts of the -display and behaviour is easily customisable.") - (license license:gpl3+))) - -(define-public emacs-git-timemachine - (package - (name "emacs-git-timemachine") - (version "4.5") - (source - (origin - (method url-fetch) - (uri (string-append "https://gitlab.com/pidu/git-timemachine" - "/-/archive/" version - "/git-timemachine-" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0ii40qcincasg7s1yrvqcxkqcqzb4sfs7gcxscn6m4x4ans165zy")))) - (build-system emacs-build-system) - (home-page "https://gitlab.com/pidu/git-timemachine") - (synopsis "Step through historic versions of Git-controlled files") - (description "This package enables you to step through historic versions -of files under Git version control from within Emacs.") - (license license:gpl3+))) - -(define-public emacs-minitest - (let ((commit "1aadb7865c1dc69c201cecee275751ecec33a182") - (revision "1")) - (package - (name "emacs-minitest") - (version (git-version "0.8.0" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/arthurnn/minitest-emacs") - (commit commit))) - (file-name (git-file-name name commit)) - (sha256 - (base32 - "1l18zqpdzbnqj2qawq8hj7z7pl8hr8z9d8ihy8jaiqma915hmhj1")))) - (build-system emacs-build-system) - (arguments - '(#:include (cons "^snippets\\/minitest-mode\\/" %default-include) - #:exclude (delete "^[^/]*tests?\\.el$" %default-exclude))) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-f" ,emacs-f))) - (home-page "https://github.com/arthurnn/minitest-emacs") - (synopsis "Emacs minitest mode") - (description - "The minitest mode provides commands to run the tests for the current -file or line, as well as rerunning the previous tests, or all the tests for a -project. - -This package also includes relevant snippets for yasnippet.") - (license license:expat)))) - -(define-public emacs-el-mock - (package - (name "emacs-el-mock") - (version "1.25.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/rejeep/el-mock.el/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "16xw94n58xxn3zvgyj72bmzs0k5lkvswjmzs79ws9n7rzdivb38b")))) - (build-system emacs-build-system) - (home-page "https://github.com/rejeep/el-mock.el") - (synopsis "Tiny mock and stub framework in Emacs Lisp") - (description - "Emacs Lisp Mock is a library for mocking and stubbing using readable -syntax. Most commonly Emacs Lisp Mock is used in conjunction with Emacs Lisp -Expectations, but it can be used in other contexts.") - (license license:gpl3+))) - -(define-public emacs-espuds - (package - (name "emacs-espuds") - (version "0.3.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/ecukes/espuds/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0xv551376pbmh735a3zjwc9z4qdx6ngj1vpq3xqjpn0a1rwjyn4k")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-s" ,emacs-s) - ("emacs-dash" ,emacs-dash) - ("emacs-f" ,emacs-f))) - (home-page "https://github.com/ecukes/espuds") - (synopsis "Common step definitions for Ecukes") - (description "Espuds is a collection of the most commonly used step -definitions for testing with the Ecukes framework.") - (license license:gpl3+))) - -(define-public emacs-spark - (let ((version "20160503") ; no proper tag, use date of commit - (commit "0bf148c3ede3b31d56fd75f347cdd0b0eae60025") - (revision "1")) - (package - (name "emacs-spark") - (version (git-version version revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/alvinfrancis/spark.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1ykqr86j17mi95s08d9fp02d7ych1331b04dcqxzxnmpkhwngyj1")))) - (build-system emacs-build-system) - (home-page "https://github.com/alvinfrancis/spark") - (synopsis "Sparkline generation library for Emacs Lisp") - (description "@code{emacs-spark} is a sparkline generation library for -Emacs Lisp. It generates a sparkline string given a list of numbers. It is a -port of @code{cl-spark} to Emacs Lisp.") - (license license:expat)))) - -(define-public emacs-es-mode - (package - (name "emacs-es-mode") - (version "4.3.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/dakrone/es-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0y86qdcb3g7fkcb4pzsjh3syzql6w3314hg1wqxq4a8bbk3y0cgr")))) - (build-system emacs-build-system) - (propagated-inputs - ;; The version of org in Emacs 24.5 is not sufficient, and causes tables - ;; to be rendered incorrectly - `(("emacs-dash" ,emacs-dash) - ("emacs-org" ,emacs-org) - ("emacs-spark" ,emacs-spark))) - (home-page "https://github.com/dakrone/es-mode") - (synopsis "Major mode for editing Elasticsearch queries") - (description "@code{es-mode} includes highlighting, completion and -indentation support for Elasticsearch queries. Also supported are -@code{es-mode} blocks in @code{org-mode}, for which the results of queries can -be processed through @code{jq}, or in the case of aggregations, can be -rendered in to a table. In addition, there is an @code{es-command-center} -mode, which displays information about Elasticsearch clusters.") - (license license:gpl3+))) - -(define-public emacs-expand-region - (package - (name "emacs-expand-region") - (version "0.11.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/magnars/expand-region.el" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "08dy1f411sh9wwww53rjw80idcf3vpki6ba2arl4hl5jcw9651g0")))) - (build-system emacs-build-system) - (home-page "https://github.com/magnars/expand-region.el") - (synopsis "Increase selected region by semantic units") - (description - "Expand region increases the selected region by semantic units. Just -keep pressing the key until it selects what you want. There's also -@code{er/contract-region} if you expand too far.") - (license license:gpl3+))) - -(define-public emacs-fill-column-indicator - (package - (name "emacs-fill-column-indicator") - (version "1.89") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/alpaker/Fill-Column-Indicator" - "/archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "09ab01np14bdcsr38xf95kpnvxzqr46mdjmphg3pigwnx39a3jvg")))) - (build-system emacs-build-system) - (home-page "https://www.emacswiki.org/emacs/FillColumnIndicator") - (synopsis "Graphically indicate the fill column") - (description - "Fill-column-indicator graphically indicates the location of the fill -column by drawing a thin line down the length of the editing window.") - (license license:gpl3+))) - -(define-public emacs-grep-a-lot - (package - (name "emacs-grep-a-lot") - (version "1.0.7") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ZungBang/emacs-grep-a-lot.git") - (commit "9f9f645b9e308a0d887b66864ff97d0fca1ba4ad"))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1f8262mrlinzgnn4m49hbj1hm3c1mvzza24py4b37sasn49546lw")))) - (build-system emacs-build-system) - (home-page "https://github.com/ZungBang/emacs-grep-a-lot") - (synopsis "Enables multiple grep buffers in Emacs") - (description - "This Emacs package allows managing multiple grep buffers.") - (license license:gpl3+))) - -(define-public emacs-inf-ruby - (package - (name "emacs-inf-ruby") - (version "2.5.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/nonsequitur/inf-ruby/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0m7323k649ckxql1grsdnf71bjhys7l4qb8wbpphb1mr1q8i4066")))) - (build-system emacs-build-system) - (home-page "https://github.com/nonsequitur/inf-ruby") - (synopsis "Provides a REPL buffer connected to a Ruby subprocess in Emacs") - (description - "@code{inf-ruby} provides a Read Eval Print Loop (REPL) buffer, allowing -for easy interaction with a ruby subprocess. Features include support for -detecting specific uses of Ruby, e.g. when using rails, and using a -appropriate console.") - (license license:gpl3+))) - -(define-public emacs-znc - (package - (name "emacs-znc") - (version "0.0.2") - (source - (origin - (method url-fetch) - (uri (string-append "https://marmalade-repo.org/packages/znc-" - version ".el")) - (sha256 - (base32 - "1d8lqvybgyazin5z0g1c4l3rg1vzrrvf0saqs53jr1zcdg0lianh")))) - (build-system emacs-build-system) - (home-page "https://github.com/sshirokov/ZNC.el") - (synopsis "Make ERC and ZNC get along better") - (description - "This is a thin wrapper around @code{erc} that enables one to use the ZNC -IRC bouncer with ERC.") - (license license:expat))) - -(define-public emacs-shut-up - (package - (name "emacs-shut-up") - (version "0.3.2") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/cask/shut-up/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "09kzrjdkb569iviyg7ydwq44yh84m3f9hkl7jizfrlk0w4gz67d1")))) - (build-system emacs-build-system) - (home-page "https://github.com/cask/shut-up") - (synopsis "Silence Emacs") - (description "This package silences most output of Emacs when running an -Emacs shell script.") - (license license:expat))) - -(define-public emacs-undercover - (package - (name "emacs-undercover") - (version "0.6.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/sviridov/undercover.el/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0f48fi0xnbsqs382rgh85m9mq1wdnr0yib7as9xhwzvq0hsr5m0a")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-shut-up" ,emacs-shut-up))) - (home-page "https://github.com/sviridov/undercover.el") - (synopsis "Test coverage library for Emacs Lisp") - (description - "Undercover is a test coverage library for software written in Emacs -Lisp.") - (license license:expat))) - -(define-public emacs-paren-face - (package - (name "emacs-paren-face") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/tarsius/paren-face/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0y4qrhxa9332vsvr999jg7qj1ymnfgwpf591yi4a4jgg90pm7qnn")))) - (build-system emacs-build-system) - (home-page "https://github.com/tarsius/paren-face") - (synopsis "Face for parentheses in lisp modes") - (description - "This library defines a face named @code{parenthesis} used just for -parentheses. The intended purpose of this face is to make parentheses less -visible in Lisp code by dimming them. Lispers probably don't need to be -constantly made aware of the existence of the parentheses. Dimming them might -be even more useful for people new to lisp who have not yet learned to -subconsciously blend out the parentheses.") - (license license:gpl3+))) - -(define-public emacs-page-break-lines - (package - (name "emacs-page-break-lines") - (version "0.11") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/purcell/page-break-lines/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1zzhziq5kbrm9rxk30kx2glz455fp1blqxg8cpcf6l8xl3w8z4pg")))) - (build-system emacs-build-system) - (home-page "https://github.com/purcell/page-break-lines") - (synopsis "Display page breaks as tidy horizontal lines") - (description - "This library provides a global mode which displays form feed characters -as horizontal rules.") - (license license:gpl3+))) - -(define-public emacs-simple-httpd - (package - (name "emacs-simple-httpd") - (version "1.4.6") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/skeeto/emacs-web-server/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "01r7h3imnj4qx1m53a2wjafvbylcyz5f9r2rg2cs7ky3chlg220r")))) - (build-system emacs-build-system) - (home-page "https://github.com/skeeto/emacs-http-server") - (synopsis "HTTP server in pure Emacs Lisp") - (description - "This package provides a simple HTTP server written in Emacs Lisp to -serve files and directory listings.") - (license license:unlicense))) - -(define-public emacs-skewer-mode - (package - (name "emacs-skewer-mode") - (version "1.6.2") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/skeeto/skewer-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "07jpz374j0j964szy3zznrkyja2kpdl3xa87wh7349mzxivqxdx0")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-simple-httpd" ,emacs-simple-httpd) - ("emacs-js2-mode" ,emacs-js2-mode))) - (arguments '(#:include '("\\.el$" "\\.js$" "\\.html$"))) - (home-page "https://github.com/skeeto/skewer-mode") - (synopsis "Live web development in Emacs") - (description - "Skewer-mode provides live interaction with JavaScript, CSS, and HTML in -a web browser. Expressions are sent on-the-fly from an editing buffer to be -evaluated in the browser, just like Emacs does with an inferior Lisp process -in Lisp modes.") - (license license:unlicense))) - -(define-public emacs-string-inflection - (package - (name "emacs-string-inflection") - (version "1.0.6") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/akicho8/string-inflection") - (commit "a150e7bdda60b7824d3a936750ce23f73b0e4edd"))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1k0sm552iawi49v4zis6dbb81d1rzgky9v0dpv7nj31gnb7bmy7k")))) - (build-system emacs-build-system) - (native-inputs - `(("ert-runner" ,emacs-ert-runner))) - (arguments - `(#:tests? #t - #:test-command '("ert-runner"))) - (home-page "https://github.com/akicho8/string-inflection") - (synopsis "Convert symbol names between different naming conventions") - (description - "This Emacs package provides convenient methods for manipulating the -naming style of a symbol. It supports different naming conventions such as: - -@enumerate -@item camel case -@item Pascal case -@item all upper case -@item lower case separated by underscore -@item etc... -@end enumerate\n") - (license license:gpl2+))) - -(define-public emacs-stripe-buffer - (package - (name "emacs-stripe-buffer") - (version "0.2.5") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/sabof/stripe-buffer/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1p515dq7raly5hw94kiwm3vzsfih0d8af622q4ipvvljsm98aiik")))) - (build-system emacs-build-system) - (home-page "https://github.com/sabof/stripe-buffer/") - (synopsis "Add stripes to list buffers") - (description - "This Emacs package adds faces to add stripes to list buffers and org -tables.") - (license license:gpl2+))) - -(define-public emacs-rich-minority - (package - (name "emacs-rich-minority") - (version "1.0.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Malabarba/rich-minority/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1l0cb0q7kyi88nwfqd542psnkgwnjklpzc5rx32gzd3lkwkrbr8v")))) - (build-system emacs-build-system) - (home-page "https://github.com/Malabarba/rich-minority") - (synopsis "Clean-up and beautify the list of minor modes") - (description - "This Emacs package hides and/or highlights minor modes in the -mode-line.") - (license license:gpl2+))) - -(define-public emacs-robe - (package - (name "emacs-robe") - (version "0.8.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/dgutov/robe/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1vp45y99fwj88z04ah4yppz4z568qcib646az6m9az5ar0f203br")))) - (build-system emacs-build-system) - (arguments - '(#:include (cons "^lib\\/" %default-include))) - (propagated-inputs - `(("emacs-inf-ruby" ,emacs-inf-ruby))) - (home-page "https://github.com/dgutov/robe") - (synopsis "Ruby code assistance tool for Emacs") - (description - "Robe can provide information on loaded classes and modules in Ruby code, -as well as where methods are defined. This allows the user to jump to method -definitions, modules and classes, display method documentation and provide -method and constant name completion.") - (license license:gpl3+))) - -(define-public emacs-rspec - (package - (name "emacs-rspec") - (version "1.11") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/pezra/rspec-mode/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1j0a7ms5516nlg60qfyn730pfxys6acm0rgyxh5xfkpi6jafgpvw")))) - (build-system emacs-build-system) - (home-page "https://github.com/pezra/rspec-mode") - (synopsis "Provides a rspec mode for working with RSpec") - (description - "The Emacs RSpec mode provides keybindings for Ruby source files, e.g. to -verify the spec associated with the current buffer, or entire project, as well -as moving between the spec files, and coresponding code files. - -Also included are keybindings for spec files and Dired buffers, as well as -snippets for yasnippet.") - (license license:gpl3+))) - -(define-public emacs-smart-mode-line - (package - (name "emacs-smart-mode-line") - (version "2.12.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Malabarba/smart-mode-line/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1hn8s6laijmg7w1bgwdfrki6h9vxkbgr8rmmssvd5yqyad5w2sba")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-rich-minority" ,emacs-rich-minority))) - (home-page "https://github.com/Malabarba/smart-mode-line") - (synopsis "Color-coded smart mode-line") - (description - "Smart Mode Line is a mode-line theme for Emacs. It aims to be easy to -read from small to large monitors by using colors, a prefix feature, and smart -truncation.") - (license license:gpl2+))) - -(define-public emacs-sr-speedbar - (let ((commit "77a83fb50f763a465c021eca7343243f465b4a47") - (revision "0")) - (package - (name "emacs-sr-speedbar") - (version (git-version "20161025" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacsorphanage/sr-speedbar.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0sd12555hk7z721y00kv3crdybvcn1i08wmd148z5imayzibj153")))) - (build-system emacs-build-system) - (home-page "https://www.emacswiki.org/emacs/SrSpeedbar") - (synopsis "Same frame Emacs @code{speedbar}") - (description - "This Emacs package allows you to show @code{M-x speedbar} in the -same frame (in an extra window). You can customize the initial width of -the speedbar window.") - (license license:gpl3+)))) - -(define-public emacs-shell-switcher - (package - (name "emacs-shell-switcher") - (version "1.0.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/DamienCassou/shell-switcher" - "/archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1c23mfkdqz2g9rixd9smm323vzlvhzz3ng34ambcqjfq309qb2nz")))) - (build-system emacs-build-system) - (home-page "https://github.com/DamienCassou/shell-switcher") - (synopsis "Provide fast switching between shell buffers") - (description - "This package provides commands to quickly switch between shell buffers.") - (license license:gpl3+))) - -(define-public emacs-ob-ipython - (package - (name "emacs-ob-ipython") - (version "20150704.8807064693") - (source (origin - (method git-fetch) - (uri (git-reference - (commit "880706469338ab59b5bb7dbe8460016f89755364") - (url "https://github.com/gregsexton/ob-ipython.git"))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1scf25snbds9ymagpny30ijbsg479r3nm0ih01dy4m9d0g7qryb7")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-f" ,emacs-f))) - (home-page "http://www.gregsexton.org") - (synopsis "Org-Babel functions for IPython evaluation") - (description "This package adds support to Org-Babel for evaluating Python -source code using IPython.") - (license license:gpl3+))) - -(define-public emacs-debbugs - (package - (name "emacs-debbugs") - (version "0.16") - (source (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/debbugs-" - version ".tar")) - (sha256 - (base32 - "0y3bq803c7820h15g66d1648skxfhlfa2v6vincj6xk5ssp44s9p")))) - (build-system emacs-build-system) - (arguments '(#:include '("\\.el$" "\\.wsdl$" "\\.info$"))) - (propagated-inputs - `(("emacs-async" ,emacs-async))) - (home-page "https://elpa.gnu.org/packages/debbugs.html") - (synopsis "Access the Debbugs bug tracker in Emacs") - (description - "This package lets you access the @uref{http://bugs.gnu.org,GNU Bug -Tracker} from within Emacs. - -For instance, it defines the command @code{M-x debbugs-gnu} for listing bugs, -and the command @code{M-x debbugs-gnu-search} for bug searching. If you -prefer the listing of bugs as TODO items of @code{org-mode}, you could use -@code{M-x debbugs-org} and related commands. - -A minor mode @code{debbugs-browse-mode} let you browse URLs to the GNU Bug -Tracker as well as bug identifiers prepared for @code{bug-reference-mode}.") - (license license:gpl3+))) - -(define-public emacs-ert-expectations - (package - (name "emacs-ert-expectations") - (version "0.2") - (source - (origin - (method url-fetch) - (uri "https://www.emacswiki.org/emacs/download/ert-expectations.el") - (sha256 - (base32 - "0cwy3ilsid90abzzjb7ha2blq9kmv3gfp3icwwfcz6qczgirq6g7")))) - (build-system emacs-build-system) - (home-page "https://www.emacswiki.org/emacs/ert-expectations.el") - (synopsis "Simple unit test framework for Emacs Lisp") - (description "@code{emacs-ert-expectations} is a simple unit test -framework for Emacs Lisp to be used with @code{ert}.") - (license license:gpl3+))) - -(define-public emacs-deferred - (package - (name "emacs-deferred") - (version "0.5.1") - (home-page "https://github.com/kiwanami/emacs-deferred") - (source (origin - (method git-fetch) - (uri (git-reference - (url home-page) - (commit (string-append "v" version)))) - (sha256 - (base32 - "0xy9zb6wwkgwhcxdnslqk52bq3z24chgk6prqi4ks0qcf2bwyh5h")) - (file-name (string-append name "-" version)))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'set-shell - ;; Setting the SHELL environment variable is required for the tests - ;; to find sh. - (lambda _ - (setenv "SHELL" (which "sh")) - #t)) - (add-before 'check 'fix-makefile - (lambda _ - (substitute* "Makefile" - (("\\$\\(CASK\\) exec ") "")) - #t))) - #:tests? #t - #:test-command '("make" "test"))) - (native-inputs - `(("emacs-ert-expectations" ,emacs-ert-expectations) - ("emacs-undercover" ,emacs-undercover) - ("ert-runner" ,emacs-ert-runner))) - (synopsis "Simple asynchronous functions for Emacs Lisp") - (description - "The @code{deferred.el} library provides support for asynchronous tasks. -The API is almost the same as that of -@uref{https://github.com/cho45/jsdeferred, JSDeferred}, a JavaScript library -for asynchronous tasks.") - (license license:gpl3+))) - -(define-public emacs-butler - (package - (name "emacs-butler") - (version "0.2.4") - (home-page "https://github.com/AshtonKem/Butler") - (source (origin - (method git-fetch) - (uri (git-reference - (url home-page) - (commit version))) - (sha256 - (base32 - "1pii9dw4skq7nr4na6qxqasl36av8cwjp71bf1fgppqpcd9z8skj")) - (file-name (string-append name "-" version)))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-deferred" ,emacs-deferred))) - (synopsis "Emacs client for Jenkins") - (description - "Butler provides an interface to connect to Jenkins continuous -integration servers. Users can specify a list of server in the -@code{butler-server-list} variable and then use @code{M-x butler-status} to -view the build status of those servers' build jobs, and possibly to trigger -build jobs.") - (license license:gpl3+))) - -(define-public emacs-company - (package - (name "emacs-company") - (version "0.9.7") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/company-mode/company-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "19flv38f2qhxda8lbk2ckywvibd72vbzmn4hchqz6d8acsknh4sb")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'fix-bin-dir - (lambda _ - ;; The company-files-candidates-normal-root test looks - ;; for the /bin directory, but the build environment has - ;; no /bin directory. Modify the test to look for the - ;; /tmp directory. - (substitute* "test/files-tests.el" - (("/bin/") "/tmp/")) - #t))) - #:tests? #t - #:test-command '("make" "test-batch"))) - (home-page "http://company-mode.github.io/") - (synopsis "Modular text completion framework") - (description - "Company is a modular completion mechanism. Modules for retrieving -completion candidates are called back-ends, modules for displaying them are -front-ends. Company comes with many back-ends, e.g. @code{company-elisp}. -These are distributed in separate files and can be used individually.") - (license license:gpl3+))) - -(define-public emacs-irony-mode - (package - (name "emacs-irony-mode") - (version "1.2.0") - (home-page "https://github.com/Sarcasm/irony-mode") - (source (origin - (method git-fetch) - (uri (git-reference - (url (string-append home-page ".git")) - (commit (string-append "v" version)))) - (sha256 - (base32 - "0nhjrnlmss535jbshjjd30vydbr8py21vkx4p294w6d8vg2rssf8")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (inputs `(("server" ,emacs-irony-mode-server))) - (arguments `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs #:allow-other-keys) - (chmod "irony.el" #o644) - (emacs-substitute-variables "irony.el" - ("irony-server-install-prefix" - (assoc-ref inputs "server"))) - #t))))) - (synopsis "C/C++/ObjC Code completion and syntax checks for Emacs") - (description "Irony-mode provides Clang-assisted syntax checking and -completion for C, C++, and ObjC in GNU Emacs. Using @code{libclang} it can -provide syntax checking and autocompletion on compiler level which is very -resistent against false positives. It also integrates well with other -packages like @code{eldoc-mode} and especially @code{company-mode} as -described on the homepage.") - (license license:gpl3+))) - -(define-public emacs-irony-mode-server - (package (inherit emacs-irony-mode) - (name "emacs-irony-mode-server") - (inputs - `(("clang" ,clang))) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (invoke "cmake" - "server" - (string-append "-DCMAKE_INSTALL_PREFIX=" out)) #t)))))) - (build-system cmake-build-system) - (synopsis "Server for the Emacs @dfn{irony mode}"))) - -(define-public emacs-company-irony - (package - (name "emacs-company-irony") - (version "1.1.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Sarcasm/company-irony.git") - (commit (string-append "v" version)))) - (sha256 (base32 - "1qgyam2vyjw90kpxns5cd6bq3qiqjhzpwrlvmi18vyb69qcgqd8a")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (inputs - `(("emacs-irony-mode" ,emacs-irony-mode) - ("emacs-company" ,emacs-company))) - (synopsis "C++ completion backend for Company using irony-mode") - (description "This backend for company-mode allows for C++ code completion -with irony-mode using clang-tooling.") - (home-page "https://github.com/Sarcasm/company-irony") - (license license:gpl3+))) - -(define-public emacs-flycheck-irony - (package - (name "emacs-flycheck-irony") - (version "0.1.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Sarcasm/flycheck-irony.git") - (commit (string-append "v" version)))) - (sha256 - (base32 "0qa5a8wzvzxwqql92ibc9s43k8sj3vwn7skz9hfr8av0skkhx996")) - (file-name (string-append name "-" version)))) - (build-system emacs-build-system) - (inputs - `(("irony-mode" ,emacs-irony-mode) - ("flycheck-mode" ,emacs-flycheck) - ("emacs-company" ,emacs-company))) - (synopsis "Live syntax checking frontend for Flycheck using irony-mode") - (description "This package provides a frontend for Flycheck that lets -irony-mode do the syntax checking.") - (home-page "https://github.com/Sarcasm/flycheck-irony") - (license license:gpl3+))) - -(define-public emacs-irony-eldoc - (package - (name "emacs-irony-eldoc") - (version (package-version emacs-irony-mode)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ikirill/irony-eldoc.git") - (commit "0df5831eaae264a25422b061eb2792aadde8b3f2"))) - (sha256 (base32 "1l5qpr66v1l12fb50yh73grb2rr85xxmbj19mm33b5rdrq2bqmmd")) - (file-name (string-append name "-" version)))) - (build-system emacs-build-system) - (inputs - `(("irony-mode" ,emacs-irony-mode))) - (synopsis "Eldoc integration for irony-mode") - (description "Irony-eldoc is an eldoc extension that shows documentation -for the current function or variable in the minibuffer.") - (home-page "https://github.com/ikirill/irony-eldoc") - (license license:gpl3+))) - -(define-public emacs-company-quickhelp - (package - (name "emacs-company-quickhelp") - (version "2.3.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/expez/company-quickhelp/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0xrn2z1dgk5gmkmp2jkn9g83ckk39lqp5pyyv8rl7f6gqvib3qh0")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-pos-tip" ,emacs-pos-tip) - ("emacs-company" ,emacs-company))) - (home-page "https://github.com/expez/company-quickhelp") - (synopsis "Popup documentation for completion candidates") - (description "@code{company-quickhelp} shows documentation for the -completion candidate when using the Company text completion framework.") - (license license:gpl3+))) - -(define-public emacs-multiple-cursors - (package - (name "emacs-multiple-cursors") - (version "1.4.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/magnars/multiple-cursors.el/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0hihihlvcvzayg5fnqzcg45fhvlmq6xlq58syy00rjwbry9w389k")))) - (build-system emacs-build-system) - (home-page "https://github.com/magnars/multiple-cursors.el") - (synopsis "Multiple cursors for Emacs") - (description - "This package adds support to Emacs for editing text with multiple -simultaneous cursors.") - (license license:gpl3+))) - -(define-public emacs-typo - (package - (name "emacs-typo") - (version "1.1") - (home-page "https://github.com/jorgenschaefer/typoel") - (source (origin - (method git-fetch) - (uri (git-reference - (url home-page) - (commit (string-append "v" version)))) - (sha256 - (base32 - "1jhd4grch5iz12gyxwfbsgh4dmz5hj4bg4gnvphccg8dsnni05k2")) - (file-name (string-append name "-" version)))) - (build-system emacs-build-system) - (synopsis "Minor mode for typographic editing") - (description - "This package provides two Emacs modes, @code{typo-mode} and -@code{typo-global-mode}. These modes automatically insert Unicode characters -for quotation marks, dashes, and ellipses. For example, typing @kbd{\"} -automatically inserts a Unicode opening or closing quotation mark, depending -on context.") - (license license:gpl3+))) - -(define-public emacs-scheme-complete - (let ((commit "9b5cf224bf2a5994bc6d5b152ff487517f1a9bb5")) - (package - (name "emacs-scheme-complete") - (version (string-append "20151223." (string-take commit 8))) - (source - (origin - (file-name (string-append name "-" version)) - (method git-fetch) - (uri (git-reference - (url "https://github.com/ashinn/scheme-complete.git") - (commit commit))) - (sha256 - (base32 - "141wn9l0m33w0g3dqmx8nxbfdny1r5xbr6ak61rsz21bk0qafs7x")) - (patches - (search-patches "emacs-scheme-complete-scheme-r5rs-info.patch")))) - (build-system emacs-build-system) - (home-page "https://github.com/ashinn/scheme-complete") - (synopsis "Smart tab completion for Scheme in Emacs") - (description - "This file provides a single function, @code{scheme-smart-complete}, -which you can use for intelligent, context-sensitive completion for any Scheme -implementation in Emacs. To use it just load this file and bind that function -to a key in your preferred mode.") - (license license:public-domain)))) - -(define-public emacs-scel - (let ((version "20170629") - (revision "1") - (commit "aeea3ad4be9306d14c3a734a4ff54fee10ac135b")) - (package - (name "emacs-scel") - (version (git-version version revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/supercollider/scel.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0jvmzs1lsjyndqshhii2y4mnr3wghai26i3p75453zrpxpg0zvvw")))) - (build-system emacs-build-system) - (arguments - `(#:modules ((guix build emacs-build-system) - ((guix build cmake-build-system) #:prefix cmake:) - (guix build utils)) - #:imported-modules (,@%emacs-build-system-modules - (guix build cmake-build-system)) - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key outputs #:allow-other-keys) - (substitute* "el/CMakeLists.txt" - (("share/emacs/site-lisp/SuperCollider") - (string-append - "share/emacs/site-lisp/guix.d/scel-" ,version))) - ((assoc-ref cmake:%standard-phases 'configure) - #:outputs outputs - #:configure-flags '("-DSC_EL_BYTECOMPILE=OFF")))) - (add-after 'set-emacs-load-path 'add-el-dir-to-emacs-load-path - (lambda _ - (setenv "EMACSLOADPATH" - (string-append (getcwd) "/el:" (getenv "EMACSLOADPATH"))) - #t)) - (replace 'install (assoc-ref cmake:%standard-phases 'install))))) - (inputs - `(("supercollider" ,supercollider))) - (native-inputs - `(("cmake" ,cmake))) - (home-page "https://github.com/supercollider/scel") - (synopsis "SuperCollider Emacs interface") - (description "@code{emacs-scel} is an Emacs interface to SuperCollider. -SuperCollider is a platform for audio synthesis and algorithmic composition.") - (license license:gpl2+)))) - -(define-public emacs-mit-scheme-doc - (package - (name "emacs-mit-scheme-doc") - (version "20140203") - (source - (origin - (modules '((guix build utils))) - (snippet - ;; keep only file of interest - '(begin - (for-each delete-file '("dot-emacs.el" "Makefile")) - (install-file "6.945-config/mit-scheme-doc.el" ".") - (delete-file-recursively "6.945-config") - #t)) - (file-name (string-append name "-" version ".tar.bz2")) - (method url-fetch) - (uri (string-append "http://groups.csail.mit.edu/mac/users/gjs/" - "6.945/dont-panic/emacs-basic-config.tar.bz2")) - (sha256 - (base32 - "0dqidg2bd66pawqfarvwca93w5gqf9mikn1k2a2rmd9ymfjpziq1")))) - (build-system emacs-build-system) - (inputs `(("mit-scheme" ,mit-scheme))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure-doc - (lambda* (#:key inputs #:allow-other-keys) - (let* ((mit-scheme-dir (assoc-ref inputs "mit-scheme")) - (doc-dir (string-append mit-scheme-dir "/share/doc/" - "mit-scheme-" - ,(package-version mit-scheme)))) - (substitute* "mit-scheme-doc.el" - (("http://www\\.gnu\\.org/software/mit-scheme/documentation/mit-scheme-ref/") - (string-append "file:" doc-dir "/mit-scheme-ref/"))))))))) - (home-page "http://groups.csail.mit.edu/mac/users/gjs/6.945/dont-panic/") - (synopsis "MIT-Scheme documentation lookup for Emacs") - (description - "This package provides a set of Emacs functions to search definitions of -identifiers in the MIT-Scheme documentation.") - (license license:gpl2+))) - -(define-public emacs-constants - (package - (name "emacs-constants") - (version "2.6") - (home-page "https://staff.fnwi.uva.nl/c.dominik/Tools/constants") - (source - (origin - (file-name (string-append name "-" version ".tar.gz")) - (method url-fetch) - (uri (string-append "https://github.com/fedeinthemix/emacs-constants" - "/archive/v" version ".tar.gz")) - (sha256 - (base32 - "0pnrpmmxq8mh5h2hbrp5vcym0j0fh6dv3s7c5ccn18wllhzg9g7n")))) - (build-system emacs-build-system) - (synopsis "Enter definition of constants into an Emacs buffer") - (description - "This package provides functions for inserting the definition of natural -constants and units into an Emacs buffer.") - (license license:gpl2+))) - -(define-public emacs-tagedit - (package - (name "emacs-tagedit") - (version "1.4.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/magnars/tagedit/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1apfnann4qklfdsmdi7icjsj18x7gwx8d83iqr4z25clszz95xfq")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-s" ,emacs-s) - ("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/magnars/tagedit") - (synopsis "Some paredit-like features for html-mode") - (description - "This package provides a collection of paredit-like functions for editing -in @code{html-mode}.") - (license license:gpl3+))) - -(define-public emacs-slime - (package - (name "emacs-slime") - (version "2.22") - (source - (origin - (file-name (string-append name "-" version ".tar.gz")) - (method url-fetch) - (uri (string-append - "https://github.com/slime/slime/archive/v" - version ".tar.gz")) - (sha256 - (base32 - "07vaib1n4zyh5yy30gdpq0bc5cv6w84piml5b3mfc9ibjhaykkms")))) - (build-system emacs-build-system) - (native-inputs - `(("texinfo" ,texinfo))) - (arguments - `(#:include '("\\.el$" "\\.lisp$" "\\.asd$" "contrib") - #:exclude '("^slime-tests.el" "^contrib/test/" - "^contrib/Makefile$" "^contrib/README.md$") - #:phases - (modify-phases %standard-phases - (add-before 'install 'configure - (lambda* _ - (emacs-substitute-variables "slime.el" - ("inferior-lisp-program" "sbcl")) - #t)) - (add-before 'install 'install-doc - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (info-dir (string-append out "/share/info")) - (doc-dir (string-append out "/share/doc/" - ,name "-" ,version)) - (doc-files '("doc/slime-refcard.pdf" - "README.md" "NEWS" "PROBLEMS" - "CONTRIBUTING.md"))) - (with-directory-excursion "doc" - (substitute* "Makefile" - (("infodir=/usr/local/info") - (string-append "infodir=" info-dir))) - (invoke "make" "html/index.html") - (invoke "make" "slime.info") - (install-file "slime.info" info-dir) - (copy-recursively "html" (string-append doc-dir "/html"))) - (for-each (lambda (f) - (install-file f doc-dir) - (delete-file f)) - doc-files) - (delete-file-recursively "doc") - #t)))))) - (home-page "https://github.com/slime/slime") - (synopsis "Superior Lisp Interaction Mode for Emacs") - (description - "SLIME extends Emacs with support for interactive programming in -Common Lisp. The features are centered around @command{slime-mode}, -an Emacs minor mode that complements the standard @command{lisp-mode}. -While lisp-mode supports editing Lisp source files, @command{slime-mode} -adds support for interacting with a running Common Lisp process -for compilation, debugging, documentation lookup, and so on.") - (license (list license:gpl2+ license:public-domain)))) - -(define-public emacs-popup - (package - (name "emacs-popup") - (version "0.5.3") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/auto-complete/popup-el/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1yrgfj8y69xmcb6kwgplhq68ndm9410qwh7sd2knnd1gchpphdc0")))) - (build-system emacs-build-system) - (home-page "https://github.com/auto-complete/popup-el") - (synopsis "Visual Popup User Interface for Emacs") - (description - "Popup.el is a visual popup user interface library for Emacs. -This provides a basic API and common UI widgets such as popup tooltips -and popup menus.") - (license license:gpl3+))) - -(define-public emacs-puppet-mode - (let ((commit "b3ed5057166a4f49dfa9be638523a348b55a2fd2") - (revision "1")) - (package - (name "emacs-puppet-mode") - ;; The last release, 0.3 was several years ago, and there have been many - ;; commits since - (version (git-version "0.3" revision commit)) - (source - (origin - (method url-fetch) - (uri (string-append - "https://raw.githubusercontent.com/voxpupuli/puppet-mode/" - commit "/puppet-mode.el")) - (sha256 - (base32 - "1indycxawsl0p2aqqg754f6735q3cmah9vd886rpn0ncc3ipi1xm")))) - (build-system emacs-build-system) - (home-page "https://github.com/voxpupuli/puppet-mode") - (synopsis "Emacs major mode for the Puppet configuration language") - (description - "This package provides support for the Puppet configuration language, -including syntax highlighting, indentation of expressions and statements, -linting of manifests and integration with Puppet Debugger.") - ;; Also incorporates work covered by the Apache License, Version 2.0 - (license license:gpl3+)))) - -(define-public emacs-god-mode - (let ((commit "6cf0807b6555eb6fcf8387a4e3b667071ef38964") - (revision "1")) - (package - (name "emacs-god-mode") - (version (string-append "20151005.925." - revision "-" (string-take commit 9))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/chrisdone/god-mode.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1am415k4xxcva6y3vbvyvknzc6bma49pq3p85zmpjsdmsp18qdix")))) - (build-system emacs-build-system) - (home-page "https://github.com/chrisdone/god-mode") - (synopsis "Minor mode for entering commands without modifier keys") - (description - "This package provides a global minor mode for entering Emacs commands -without modifier keys. It's similar to Vim's separation of commands and -insertion mode. When enabled all keys are implicitly prefixed with -@samp{C-} (among other helpful shortcuts).") - (license license:gpl3+)))) - -(define-public emacs-jinja2-mode - (package - (name "emacs-jinja2-mode") - (version "0.2") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/paradoxxxzero/jinja2-mode/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0cgxjab1kla2zc2fj7bzib6i7snp08zshandmp9kqcm85l262xpn")))) - (build-system emacs-build-system) - (home-page "https://github.com/paradoxxxzero/jinja2-mode") - (synopsis "Major mode for jinja2") - (description - "Emacs major mode for jinja2 with: syntax highlighting, -sgml/html integration, and indentation (working with sgml).") - (license license:gpl3+))) - -(define-public emacs-rfcview - (package - (name "emacs-rfcview") - (version "0.13") - (home-page "http://www.loveshack.ukfsn.org/emacs") - (source (origin - (method url-fetch) - (uri "http://www.loveshack.ukfsn.org/emacs/rfcview.el") - (sha256 - (base32 - "0ympj5rxig383zl2jf0pzdsa80nnq0dpvjiriq0ivfi98fj7kxbz")))) - (build-system emacs-build-system) - (synopsis "Prettify Request for Comments (RFC) documents") - (description "The Internet Engineering Task Force (IETF) and the Internet -Society (ISOC) publish various Internet-related protocols and specifications -as \"Request for Comments\" (RFC) documents and Internet Standard (STD) -documents. RFCs and STDs are published in a simple text form. This package -provides an Emacs major mode, rfcview-mode, which makes it more pleasant to -read these documents in Emacs. It prettifies the text and adds -hyperlinks/menus for easier navigation. It also provides functions for -browsing the index of RFC documents and fetching them from remote servers or -local directories.") - (license license:gpl3+))) - -(define-public emacs-ffap-rfc-space - (package - (name "emacs-ffap-rfc-space") - (version "12") - (home-page "http://user42.tuxfamily.org/ffap-rfc-space/index.html") - (source (origin - (method url-fetch) - (uri "http://download.tuxfamily.org/user42/ffap-rfc-space.el") - (sha256 - (base32 - "1iv61dv57a73mdps7rn6zmgz7nqh14v0ninidyrasy45b1nv6gck")))) - (build-system emacs-build-system) - (synopsis "Make ffap recognize an RFC with a space before its number") - (description "The Internet Engineering Task Force (IETF) and the -Internet Society (ISOC) publish various Internet-related protocols and -specifications as \"Request for Comments\" (RFC) documents. The -built-in Emacs module \"ffap\" (Find File at Point) has the ability to -recognize names at point which look like \"RFC1234\" and \"RFC-1234\" -and load the appropriate RFC from a remote server. However, it fails -to recognize a name like \"RFC 1234\". This package enhances ffap so -that it correctly finds RFCs even when a space appears before the -number.") - (license license:gpl3+))) - -(define-public emacs-org-bullets - (package - (name "emacs-org-bullets") - (version "0.2.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/sabof/org-bullets/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1dyxvpb73vj80v8br2q9rf255hfphrgaw91fbvwdcd735np9pcnh")))) - (build-system emacs-build-system) - (home-page "https://github.com/sabof/org-bullets") - (synopsis "Show bullets in org-mode as UTF-8 characters") - (description - "This package provides an Emacs minor mode causing bullets in -@code{org-mode} to be rendered as UTF-8 characters.") - (license license:gpl3+))) - -(define-public emacs-org-pomodoro - (package - (name "emacs-org-pomodoro") - (version "2.1.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/lolownia/org-pomodoro/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1jalsggw3q5kvj353f84x4nl04a5vmq07h75ggppy1627lb31zm4")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-alert" ,emacs-alert))) - (home-page "https://github.com/lolownia/org-pomodoro") - (synopsis "Pomodoro technique for org-mode") - (description "@code{emacs-org-pomodoro} adds very basic support for -Pomodoro technique in Emacs org-mode. - -Run @code{M-x org-pomodoro} for the task at point or select one of the -last tasks that you clocked time for. Each clocked-in pomodoro starts -a timer of 25 minutes and after each pomodoro a break timer of 5 -minutes is started automatically. Every 4 breaks a long break is -started with 20 minutes. All values are customizable.") - (license license:gpl3+))) - -(define-public emacs-org-trello - (package - (name "emacs-org-trello") - (version "0.8.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/org-trello/org-trello/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0549mnf5cgwn8b8jbl38fljbaxmh1605sv9j8f3lsa95jhs1zpa0")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-deferred" ,emacs-deferred) - ("emacs-f" ,emacs-f) - ("emacs-helm" ,emacs-helm) - ("emacs-request" ,emacs-request) - ("emacs-s" ,emacs-s))) - (home-page "https://org-trello.github.io") - (synopsis "Emacs minor mode for interacting with Trello") - (description "This package provides an Emacs minor mode to extend -@code{org-mode} with Trello abilities. Trello is an online project -organizer.") - (license license:gpl3+))) - -(define-public emacs-atom-one-dark-theme - (let ((commit "1f1185bf667a38d3d0d180ce85fd4c131818aae2") - (revision "0")) - (package - (name "emacs-atom-one-dark-theme") - (version (git-version "0.4.0" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jonathanchu/atom-one-dark-theme.git") - (commit commit))) - (sha256 - (base32 - "1alma16hg3mfjly8a9s3mrswkjjx4lrpdnf43869hn2ibkn7zx9z")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (home-page "https://github.com/jonathanchu/atom-one-dark-theme") - (synopsis "Atom One Dark color theme for Emacs") - (description "An Emacs port of the Atom One Dark theme from Atom.io.") - (license license:gpl3+)))) - -(define-public emacs-zenburn-theme - (package - (name "emacs-zenburn-theme") - (version "2.6") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/bbatsov/zenburn-emacs/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0qc9d1rwq55yzh8shbppyd6izy1grpyr8kqh5zdgm7c5jccngpr4")))) - (build-system emacs-build-system) - (home-page "https://github.com/bbatsov/zenburn-emacs") - (synopsis "Low contrast color theme for Emacs") - (description - "Zenburn theme is a port of the popular Vim Zenburn theme for Emacs. -It is built on top of the custom theme support in Emacs 24 or later.") - (license license:gpl3+))) - -(define-public emacs-solarized-theme - (package - (name "emacs-solarized-theme") - (version "1.2.2") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/bbatsov/solarized-emacs/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1ha3slc6d9wi9ilkhmwrzkvf308n6ph7b0k69pk369s9304awxzx")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/bbatsov/solarized-emacs") - (synopsis "Port of the Solarized theme for Emacs") - (description - "Solarized for Emacs is a port of the Solarized theme for Vim. This -package provides a light and a dark variant.") - (license license:gpl3+))) - -(define-public emacs-ahungry-theme - (package - (name "emacs-ahungry-theme") - (version "1.10.0") - (source - (origin (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/ahungry-theme-" - version ".tar")) - (sha256 - (base32 - "14q5yw56n82qph09bk7wmj5b1snhh9w0nk5s1l7yn9ldg71xq6pm")))) - (build-system emacs-build-system) - (home-page "https://github.com/ahungry/color-theme-ahungry") - (synopsis "Ahungry color theme for Emacs") - (description "Ahungry theme for Emacs provides bright and bold colors. -If you load it from a terminal, you will be able to make use of the -transparent background. If you load it from a GUI, it will default to a -dark background.") - (license license:gpl3+))) - -(define-public emacs-2048-game - (package - (name "emacs-2048-game") - (version "20151026.1233") - (source - (origin - (method url-fetch) - (uri (string-append "https://melpa.org/packages/2048-game-" - version ".el")) - (sha256 - (base32 - "0gy2pvz79whpavp4jmz8h9krzn7brmvv3diixi1d4w51pcdvaldd")))) - (build-system emacs-build-system) - (home-page "https://bitbucket.org/zck/2048.el") - (synopsis "Implementation of the game 2048 in Emacs Lisp") - (description - "This program is an implementation of 2048 for Emacs. -The goal of this game is to create a tile with value 2048. The size of the -board and goal value can be customized.") - (license license:gpl3+))) - -(define-public emacs-base16-theme - (package - (name "emacs-base16-theme") - (version "2.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://stable.melpa.org/packages/base16-theme-" - version ".tar")) - (sha256 - (base32 - "0z6hrwz2jlz6jbr381rcqcqvx6hss5cad352klx07rark7zccacj")))) - (build-system emacs-build-system) - (home-page "https://github.com/belak/base16-emacs") - (synopsis "Base16 color themes for Emacs") - (description - "Base16 provides carefully chosen syntax highlighting and a default set -of sixteen colors suitable for a wide range of applications. Base16 is not a -single theme but a set of guidelines with numerous implementations.") - (license license:expat))) - -(define-public emacs-smartparens - (package - (name "emacs-smartparens") - (version "1.11.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/Fuco1/smartparens/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0q5as813xs8y29i3v2rm97phd6m7xsmmw6hwbvx57gwmi8i1c409")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-markdown-mode" ,emacs-markdown-mode))) - (home-page "https://github.com/Fuco1/smartparens") - (synopsis "Paredit-like insertion, wrapping and navigation with user -defined pairs") - (description - "Smartparens is a minor mode for Emacs that deals with parens pairs -and tries to be smart about it. It started as a unification effort to -combine functionality of several existing packages in a single, -compatible and extensible way to deal with parentheses, delimiters, tags -and the like. Some of these packages include autopair, textmate, -wrap-region, electric-pair-mode, paredit and others. With the basic -features found in other packages it also brings many improvements as -well as completely new features.") - (license license:gpl3+))) - -(define-public emacs-highlight-symbol - (package - (name "emacs-highlight-symbol") - (version "1.3") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/nschum/highlight-symbol.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1n7k1qns0fn0jsyc0hrjac5nzk21xw48yc30vyrhwvc51h0b9g90")))) - (build-system emacs-build-system) - (home-page "https://nschum.de/src/emacs/highlight-symbol") - (synopsis "Automatic and manual symbol highlighting for Emacs") - (description - "Use @code{highlight-symbol} to toggle highlighting of the symbol at -point throughout the current buffer. Use @code{highlight-symbol-mode} to keep -the symbol at point highlighted. - -The functions @code{highlight-symbol-next}, @code{highlight-symbol-prev}, -@code{highlight-symbol-next-in-defun} and -@code{highlight-symbol-prev-in-defun} allow for cycling through the locations -of any symbol at point. Use @code{highlight-symbol-nav-mode} to enable key -bindings @code{M-p} and @code{M-p} for navigation. When -@code{highlight-symbol-on-navigation-p} is set, highlighting is triggered -regardless of @code{highlight-symbol-idle-delay}. - -@code{highlight-symbol-query-replace} can be used to replace the symbol. ") - (license license:gpl2+))) - -(define-public emacs-hl-todo - (package - (name "emacs-hl-todo") - (version "1.9.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://raw.githubusercontent.com/tarsius/hl-todo/" - version "/hl-todo.el")) - (file-name (string-append "hl-todo-" version ".el")) - (sha256 - (base32 - "0728givzh7xv5i88ac9if8byj1p8bilrj1fnizca10s0rv100hdr")))) - (build-system emacs-build-system) - (home-page "https://github.com/tarsius/hl-todo") - (synopsis "Emacs mode to highlight TODO and similar keywords") - (description - "This package provides an Emacs mode to highlight TODO and similar -keywords in comments and strings. This package also provides commands for -moving to the next or previous keyword and to invoke @code{occur} with a -regexp that matches all known keywords.") - (license license:gpl3+))) - -(define-public emacs-perspective - (package - (name "emacs-perspective") - (version "1.12") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/nex3/perspective-el/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "078ahh0kmhdylq5ib9c81c76kz1n02xwc83pm729d00i84ibviic")))) - (build-system emacs-build-system) - (home-page "https://github.com/nex3/perspective-el") - (synopsis "Switch between named \"perspectives\"") - (description - "This package provides tagged workspaces in Emacs, similar to workspaces in -windows managers such as Awesome and XMonad. @code{perspective.el} provides -multiple workspaces (or \"perspectives\") for each Emacs frame. Each -perspective is composed of a window configuration and a set of buffers. -Switching to a perspective activates its window configuration, and when in a -perspective only its buffers are available by default.") - ;; This package is released under the same license as Emacs (GPLv3+) or - ;; the Expat license. - (license license:gpl3+))) - -(define-public emacs-test-simple - (package - (name "emacs-test-simple") - (version "1.3.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/test-simple-" - version ".el")) - (sha256 - (base32 - "1yd61jc9ds95a5n09052kwc5gasy57g4lxr0jsff040brlyi9czz")))) - (build-system emacs-build-system) - (home-page "https://github.com/rocky/emacs-test-simple") - (synopsis "Simple unit test framework for Emacs Lisp") - (description - "Test Simple is a simple unit test framework for Emacs Lisp. It -alleviates the need for context macros, enclosing specifications or required -test tags. It supports both interactive and non-interactive use.") - (license license:gpl3+))) - -(define-public emacs-load-relative - (package - (name "emacs-load-relative") - (version "1.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/load-relative-" - version ".el")) - (sha256 - (base32 - "1hfxb2436jdsi9wfmsv47lkkpa5galjf5q81bqabbsv79rv59dps")))) - (build-system emacs-build-system) - (home-page "http://github.com/rocky/emacs-load-relative") - (synopsis "Emacs Lisp relative file loading related functions") - (description - "Provides functions which facilitate writing multi-file Emacs packages -and running from the source tree without having to \"install\" code or fiddle -with @{load-path}. - -The main function, @code{load-relative}, loads an Emacs Lisp file relative to -another (presumably currently running) Emacs Lisp file.") - (license license:gpl3+))) - -(define-public emacs-loc-changes - (package - (name "emacs-loc-changes") - (version "1.2") - (source - (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/loc-changes-" - version ".el")) - (sha256 - (base32 - "1x8fn8vqasayf1rb8a6nma9n6nbvkx60krmiahyb05vl5rrsw6r3")))) - (build-system emacs-build-system) - (home-page "https://github.com/rocky/emacs-loc-changes") - (synopsis "Keeps track of positions even after buffer changes") - (description - "This Emacs package provides a mean to track important buffer positions -after buffer changes.") - (license license:gpl3+))) - -(define-public emacs-realgud - (package - (name "emacs-realgud") - (version "1.4.5") - (source - (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/realgud-" - version ".tar")) - (sha256 - (base32 - "108wgxg7fb4byaiasgvbxv2hq7b00biq9f0mh9hy6vw4160y5w24")) - (patches - ;; Patch awaiting inclusion upstream (see: - ;; https://github.com/realgud/realgud/pull/226). - (search-patches "emacs-realgud-fix-configure-ac.patch")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:phases - (modify-phases %standard-phases - (add-after 'set-emacs-load-path 'fix-autogen-script - (lambda _ - (substitute* "autogen.sh" - (("./configure") "sh configure")))) - (add-after 'fix-autogen-script 'autogen - (lambda _ - (setenv "CONFIG_SHELL" "sh") - (invoke "sh" "autogen.sh"))) - (add-after 'fix-autogen-script 'set-home - (lambda _ - (setenv "HOME" (getenv "TMPDIR")))) - (add-before 'patch-el-files 'remove-realgud-pkg.el - (lambda _ - ;; XXX: This file is auto-generated at some point and causes - ;; substitute* to crash during the `patch-el-files' phase with: - ;; ERROR: In procedure stat: No such file or directory: - ;; "./realgud-pkg.el" - (delete-file "./realgud-pkg.el") - ;; FIXME: `patch-el-files' crashes on this file with error: - ;; unable to locate "bashdb". - (delete-file "./test/test-regexp-bashdb.el")))) - #:include (cons* ".*\\.el$" %default-include))) - (native-inputs - `(("autoconf" ,autoconf) - ("automake" ,automake) - ("emacs-test-simple" ,emacs-test-simple))) - (propagated-inputs - `(("emacs-load-relative" ,emacs-load-relative) - ("emacs-loc-changes" ,emacs-loc-changes))) - (home-page "https://github.com/realgud/realgud/") - (synopsis - "Modular front-end for interacting with external debuggers") - (description - "RealGUD is a modular, extensible GNU Emacs front-end for interacting -with external debuggers. It integrates various debuggers such as gdb, pdb, -ipdb, jdb, lldb, bashdb, zshdb, etc. and allows to visually step code in the -sources. Unlike GUD, it also supports running multiple debug sessions in -parallel.") - (license license:gpl3+))) - -(define-public emacs-request - (package - (name "emacs-request") - (version "0.3.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/tkf/emacs-request.git") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0wyxqbb35yqf6ci47531lk32d6fppamx9d8826kdz983vm87him7")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-deferred" ,emacs-deferred))) - (home-page "https://github.com/tkf/emacs-request") - (synopsis "Package for speaking HTTP in Emacs Lisp") - (description "This package provides a HTTP request library with multiple -backends. It supports url.el which is shipped with Emacs and the curl command -line program.") - (license license:gpl3+))) - -(define-public emacs-rudel - (package - (name "emacs-rudel") - (version "0.3.1") - (source - (origin - (method url-fetch) - (uri (string-append "http://elpa.gnu.org/packages/rudel-" - version ".tar")) - (sha256 - (base32 - "0glqa68g509p0s2vcc0i8kzlddnc9brd9jqhnm5rzxz4i050cvnz")))) - (build-system emacs-build-system) - (home-page "http://rudel.sourceforge.net/") - (synopsis "Collaborative editing framework") - (description - "Rudel is a collaborative editing environment for GNU Emacs. Its purpose -is to share buffers with other users in order to edit the contents of those -buffers collaboratively. Rudel supports multiple backends to enable -communication with other collaborative editors using different protocols, -though currently Obby (for use with the Gobby editor) is the only -fully-functional one.") - (license license:gpl3+))) - -(define-public emacs-hydra - (package - (name "emacs-hydra") - (version "0.14.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/abo-abo/hydra") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0ln4z2796ycy33g5jcxkqvm7638qxy4sipsab7d2864hh700cikg")))) - (build-system emacs-build-system) - (home-page "https://github.com/abo-abo/hydra") - (synopsis "Make Emacs bindings that stick around") - (description - "This package can be used to tie related commands into a family of short -bindings with a common prefix---a Hydra. Once you summon the Hydra (through -the prefixed binding), all the heads can be called in succession with only a -short extension. Any binding that isn't the Hydra's head vanquishes the -Hydra. Note that the final binding, besides vanquishing the Hydra, will still -serve its original purpose, calling the command assigned to it. This makes -the Hydra very seamless; it's like a minor mode that disables itself -automatically.") - (license license:gpl3+))) - -(define-public emacs-ivy - (package - (name "emacs-ivy") - (version "0.10.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/abo-abo/swiper.git") - (commit version))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "14vnigqb5c3yi4q9ysw1fiwdqyqwyklqpb9wnjf81chm7s2mshnr")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'install 'install-doc - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (info (string-append out "/share/info"))) - (with-directory-excursion "doc" - (invoke "makeinfo" "ivy.texi") - (install-file "ivy.info" info) - #t))))))) - (propagated-inputs - `(("emacs-hydra" ,emacs-hydra))) - (native-inputs - `(("texinfo" ,texinfo))) - (home-page "http://oremacs.com/swiper/") - (synopsis "Incremental vertical completion for Emacs") - (description - "This package provides @code{ivy-read} as an alternative to -@code{completing-read} and similar functions. No attempt is made to determine -the best candidate. Instead, the user can navigate candidates with -@code{ivy-next-line} and @code{ivy-previous-line}. The matching is done by -splitting the input text by spaces and re-building it into a regular -expression.") - (license license:gpl3+))) - -(define-public emacs-ivy-yasnippet - (let ((commit "32580b4fd23ebf9ca7dde96704f7d53df6e253cd") - (revision "2")) - (package - (name "emacs-ivy-yasnippet") - (version (git-version "0.1" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/mkcms/ivy-yasnippet.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1wfg6mmd5gl1qgvayyzpxlkh9s7jgn20y8l1vh1zbj1czvv51xp8")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-ivy" ,emacs-ivy) - ("emacs-yasnippet" ,emacs-yasnippet) - ("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/mkcms/ivy-yasnippet") - (synopsis "Preview @code{yasnippets} with @code{ivy}") - (description "This package allows you to select @code{yasnippet} -snippets using @code{ivy} completion. When current selection changes in the -minibuffer, the snippet contents are temporarily expanded in the buffer. To -use it, call @code{M-x ivy-yasnippet} (but make sure you have enabled -@code{yas-minor-mode} first).") - (license license:gpl3+)))) - -(define-public emacs-ivy-rich - (package - (name "emacs-ivy-rich") - (version "0.1.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Yevgnen/ivy-rich/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "14r3mx5rkd4wz0ls5pv5w6c7la3z9iy93d3jfind3xyg4kywy95c")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-ivy" ,emacs-ivy))) - (home-page "https://github.com/Yevgnen/ivy-rich") - (synopsis "More friendly interface for @code{ivy}") - (description - "This package extends @code{ivy} by showing more information in the -minibuffer for each candidate. It adds columns showing buffer modes, file -sizes, docstrings, etc. If @code{emacs-all-the-icons} is installed, it can -show icons as well.") - (license license:gpl3+))) - -(define-public emacs-avy - (package - (name "emacs-avy") - (version "0.4.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/abo-abo/avy/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1wdrq512h25ymzjbf2kbsdymvd2ryfwzb6bh5bc3yv7q203im796")))) - (build-system emacs-build-system) - (home-page "https://github.com/abo-abo/avy") - (synopsis "Tree-based completion for Emacs") - (description - "This package provides a generic completion method based on building a -balanced decision tree with each candidate being a leaf. To traverse the tree -from the root to a desired leaf, typically a sequence of @code{read-key} can -be used. - -In order for @code{read-key} to make sense, the tree needs to be visualized -appropriately, with a character at each branch node. So this completion -method works only for things that you can see on your screen, all at once, -such as the positions of characters, words, line beginnings, links, or -windows.") - (license license:gpl3+))) - -(define-public emacs-ace-window - (package - (name "emacs-ace-window") - (version "0.9.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/abo-abo/ace-window/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1p2sgfl5dml4zbd6ldql6lm2m9vmd236ah996ni32x254s48j5pn")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-avy" ,emacs-avy))) - (home-page "https://github.com/abo-abo/ace-window") - (synopsis "Quickly switch windows in Emacs") - (description - "@code{ace-window} is meant to replace @code{other-window}. -In fact, when there are only two windows present, @code{other-window} is -called. If there are more, each window will have its first character -highlighted. Pressing that character will switch to that window.") - (license license:gpl3+))) - -(define-public emacs-iedit - (package - (name "emacs-iedit") - (version "0.9.9.9") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/victorhge/iedit/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1hv8q6pr85ss9g3158l1fqv3m62vsq8rslsi86jicr2dcxyascr0")))) - (build-system emacs-build-system) - (home-page "http://www.emacswiki.org/emacs/Iedit") - (synopsis "Edit multiple regions in the same way simultaneously") - (description - "This package is an Emacs minor mode and allows you to edit one -occurrence of some text in a buffer (possibly narrowed) or region, and -simultaneously have other occurrences edited in the same way. - -You can also use Iedit mode as a quick way to temporarily show only the buffer -lines that match the current text being edited. This gives you the effect of -a temporary @code{keep-lines} or @code{occur}.") - (license license:gpl3+))) - -(define-public emacs-zoutline - (let ((commit "b3ee0f0e0b916838c2d2c249beba74ffdb8d5699") - (revision "0")) - (package - (name "emacs-zoutline") - (version (git-version "0.1" revision commit)) - (home-page "https://github.com/abo-abo/zoutline") - (source (origin - (method git-fetch) - (uri (git-reference (url home-page) (commit commit))) - (sha256 - (base32 - "0sd0017piw0dis6dhpq5dkqd3acisxqgipl7dj8gmc1vnswhdwr8")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (synopsis "Simple outline library") - (description - "This library provides helpers for outlines. Outlines allow users to -navigate code in a tree-like fashion.") - (license license:gpl3+)))) - -(define-public emacs-lispy - ;; Release 0.26.0 was almost 3 years ago, and there have been ~772 commits - ;; since. - (let ((commit "c2a358a7a15fcf056a5b7461a8e690b481b03b80") - (revision "0")) - (package - (name "emacs-lispy") - (version (git-version "0.26.0" revision commit)) - (home-page "https://github.com/abo-abo/lispy") - (source (origin - (method git-fetch) - (uri (git-reference (url home-page) (commit commit))) - (sha256 - (base32 - "1g6756qqx2n4cx8jac6mlwayilsiyc5rz8nrqjnywvzc75xdinjd")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-ace-window" ,emacs-ace-window) - ("emacs-iedit" ,emacs-iedit) - ("emacs-ivy" ,emacs-ivy) - ("emacs-hydra" ,emacs-hydra) - ("emacs-zoutline" ,emacs-zoutline))) - (synopsis "Modal S-expression editing") - (description - "Due to the structure of Lisp syntax it's very rare for the programmer -to want to insert characters right before \"(\" or right after \")\". Thus -unprefixed printable characters can be used to call commands when the point is -at one of these special locations. Lispy provides unprefixed keybindings for -S-expression editing when point is at the beginning or end of an -S-expression.") - (license license:gpl3+)))) - -(define-public emacs-lispyville - ;; Later versions need a more recent Evil, with an evil-define-key* - ;; supporting nil for the state. - (let ((commit "b4291857ed6a49a67c4ea77522889ce51fb171ab") - (revision "0")) - (package - (name "emacs-lispyville") - (version (git-version "0.1" revision commit)) - (home-page "https://github.com/noctuid/lispyville") - (source (origin - (method git-fetch) - (uri (git-reference (url home-page) (commit commit))) - (sha256 - (base32 - "095zibzc3naknahdrnb59g9rbljy8wz9rkc7rf8avb3wxlwvxhm3")) - (file-name (git-file-name name version)))) - (propagated-inputs - `(("emacs-evil" ,emacs-evil) - ("emacs-lispy" ,emacs-lispy))) - (build-system emacs-build-system) - (synopsis "Minor mode for integrating Evil with lispy") - (description - "LispyVille's main purpose is to provide a Lisp editing environment -suited towards Evil users. It can serve as a minimal layer on top of lispy -for better integration with Evil, but it does not require the use of lispy’s -keybinding style. The provided commands allow for editing Lisp in normal -state and will work even without lispy being enabled.") - (license license:gpl3+)))) - -(define-public emacs-clojure-mode - (package - (name "emacs-clojure-mode") - (version "5.6.1") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/clojure-emacs/clojure-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1f4k1hncy5ygh4izn7mqfp744nnisrp9ywn2njknbjxx34ai1q88")))) - (build-system emacs-build-system) - (native-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-s" ,emacs-s) - ("ert-runner" ,emacs-ert-runner))) - (arguments - `(#:tests? #t - #:test-command '("ert-runner"))) - (home-page "https://github.com/clojure-emacs/clojure-mode") - (synopsis "Major mode for Clojure code") - (description - "This Emacs package provides font-lock, indentation, navigation and basic -refactoring for the @uref{http://clojure.org, Clojure programming language}. -It is recommended to use @code{clojure-mode} with paredit or smartparens.") - (license license:gpl3+))) - -(define-public emacs-epl - (package - (name "emacs-epl") - (version "0.8") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/cask/epl/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1511n3a3f5gvaf2b4nh018by61ciyzi3y3603fzqma7p9hrckarc")))) - (build-system emacs-build-system) - (home-page "https://github.com/cask/epl") - (synopsis "Emacs Package Library") - (description - "A package management library for Emacs, based on @code{package.el}. - -The purpose of this library is to wrap all the quirks and hassle of -@code{package.el} into a sane API.") - (license license:gpl3+))) - -(define-public emacs-queue - (package - (name "emacs-queue") - (version "0.2") - (source (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/queue-" - version ".el")) - (sha256 - (base32 - "0cx2848sqnnkkr4zisvqadzxngjyhmb36mh0q3if7q19yjjhmrkb")))) - (build-system emacs-build-system) - (home-page "http://www.dr-qubit.org/tags/computing-code-emacs.html") - (synopsis "Queue data structure for Emacs") - (description - "This Emacs library provides queue data structure. These queues can be -used both as a first-in last-out (FILO) and as a first-in first-out (FIFO) -stack, i.e. elements can be added to the front or back of the queue, and can -be removed from the front. This type of data structure is sometimes called an -\"output-restricted deque\".") - (license license:gpl3+))) - -(define-public emacs-pkg-info - (package - (name "emacs-pkg-info") - (version "0.6") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/lunaryorn/pkg-info.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1gy1jks5mmm02gg1c8gcyr4f8a9s5ggzhk56gv33b9mzjqzi5rd5")))) - (build-system emacs-build-system) - (propagated-inputs `(("emacs-epl" ,emacs-epl))) - (home-page "https://github.com/lunaryorn/pkg-info.el") - (synopsis "Information about Emacs packages") - (description - "This library extracts information from the installed Emacs packages.") - (license license:gpl3+))) - -(define-public emacs-spinner - (package - (name "emacs-spinner") - (version "1.7.3") - (source (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/spinner-" - version ".el")) - (sha256 - (base32 - "19kp1mmndbmw11sgvv2ggfjl4pyf5zrsbh3871f0965pw9z8vahd")))) - (build-system emacs-build-system) - (home-page "https://github.com/Malabarba/spinner.el") - (synopsis "Emacs mode-line spinner for operations in progress") - (description - "This Emacs package adds spinners and progress-bars to the mode-line for -ongoing operations.") - (license license:gpl3+))) - -(define-public emacs-sparql-mode - (package - (name "emacs-sparql-mode") - (version "2.0.1") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/ljos/sparql-mode/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1s93mkllxnhy7fw616cnnc2danacdlarys0g3cn89drh0llh53cv")))) - (build-system emacs-build-system) - (home-page "https://github.com/ljos/sparql-mode") - (synopsis "SPARQL mode for Emacs") - (description "This package provides a major mode for Emacs that provides -syntax highlighting for SPARQL. It also provides a way to execute queries -against a SPARQL HTTP endpoint, such as is provided by Fuseki. It is also -possible to query other endpoints like DBPedia.") - (license license:gpl3+))) - -(define-public emacs-better-defaults - (package - (name "emacs-better-defaults") - (version "0.1.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/technomancy/better-defaults" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "08fg4zslzlxbvyil5g4gwvwd22fh4zsgqprs5wh9hv1rgc6757m2")))) - (build-system emacs-build-system) - (home-page "https://github.com/technomancy/better-defaults") - (synopsis "Better defaults for Emacs") - (description - "Better defaults attempts to address the most obvious deficiencies of the -Emacs default configuration in uncontroversial ways that nearly everyone can -agree upon.") - (license license:gpl3+))) - -(define-public emacs-eprime - (let ((commit "17a481af26496be91c07139a9bfc05cfe722506f")) - (package - (name "emacs-eprime") - (version (string-append "20140513-" (string-take commit 7))) - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com" - "/AndrewHynes/eprime-mode/" - commit "/eprime-mode.el")) - (file-name (string-append "eprime-" version ".el")) - (sha256 - (base32 - "0v68lggkyq7kbcr9zyi573m2g2x251xy3jadlaw8kx02l8krwq8d")))) - (build-system emacs-build-system) - (home-page "https://github.com/AndrewHynes/eprime-mode") - (synopsis "E-prime checking mode for Emacs") - (description "This package provides an E-prime checking mode for Emacs -that highlights non-conforming text. The subset of the English language called -E-Prime forbids the use of the \"to be\" form to strengthen your writing.") - (license license:gpl3+)))) - -(define-public emacs-julia-mode - ;; XXX: Upstream version remained stuck at 0.3. See - ;; <https://github.com/JuliaEditorSupport/julia-emacs/issues/46>. - (let ((commit "115d4dc8a07445301772da8376b232fa8c7168f4") - (revision "1")) - (package - (name "emacs-julia-mode") - (version (string-append "0.3-" revision "." (string-take commit 8))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/JuliaEditorSupport/julia-emacs.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1is4dcv6blslpzbjcg8l2jpxi8xj96q4cm0nxjxsyswpm8bw8ki0")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("emacs" "--batch" - "-l" "julia-mode-tests.el" - "-f" "ert-run-tests-batch-and-exit"))) - (home-page "https://github.com/JuliaEditorSupport/julia-emacs") - (synopsis "Major mode for Julia") - (description "This Emacs package provides a mode for the Julia -programming language.") - (license license:expat)))) - -(define-public emacs-smex - (package - (name "emacs-smex") - (version "3.0") - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com" - "/nonsequitur/smex/" version "/smex.el")) - (file-name (string-append "smex-" version ".el")) - (sha256 - (base32 - "0ar310zx9k5y4i1vl2rawvi712xj9gx77160860jbs691p77cxqp")))) - (build-system emacs-build-system) - (home-page "https://github.com/nonsequitur/smex/") - (synopsis "M-x interface with Ido-style fuzzy matching") - (description - "Smex is a M-x enhancement for Emacs. Built on top of Ido, it provides a -convenient interface to your recently and most frequently used commands. And -to all the other commands, too.") - (license license:gpl3+))) - -(define-public emacs-js2-mode - (package - (name "emacs-js2-mode") - (version "20180301") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/mooz/js2-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "13aghgwaqrmbf3pbifcry52kya454wnh1gbdh5805n1n6xgjm5w3")))) - (build-system emacs-build-system) - (home-page "https://github.com/mooz/js2-mode/") - (synopsis "Improved JavaScript editing mode for Emacs") - (description - "Js2-mode provides a JavaScript major mode for Emacs that is more -advanced than the built-in javascript-mode. Features include accurate syntax -highlighting using a recursive-descent parser, on-the-fly reporting of syntax -errors and strict-mode warnings, smart line-wrapping within comments and -strings, and code folding.") - (license license:gpl3+))) - -(define-public emacs-nodejs-repl - (package - (name "emacs-nodejs-repl") - (version "0.2.0") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/abicky/nodejs-repl.el" - "/archive/" version ".tar.gz")) - (sha256 - (base32 - "0hq2cqdq2668yf48g7qnkci90nhih1gnhacsgz355jnib56lhmkz")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (home-page "https://github.com/abicky/nodejs-repl.el") - (synopsis "Node.js REPL inside Emacs") - (description - "This program is derived from comint-mode and provides the following -features: - -@itemize -@item TAB completion same as Node.js REPL -@item file name completion in string -@item incremental history search -@end itemize") - (license license:gpl3+))) - -(define-public emacs-typescript-mode - (package - (name "emacs-typescript-mode") - (version "0.3") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/ananthakumaran/typescript.el" - "/archive/v" version ".tar.gz")) - (sha256 - (base32 - "1gqjirm8scf0wysm7x97zdfbs4qa5nqdl64jfbkd18iskv5mg3rj")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (home-page "https://github.com/ananthakumaran/typescript.el") - (synopsis "Emacs major mode for editing Typescript code") - (description - "This is based on Karl Landstrom's barebones @code{typescript-mode}. -This is much more robust and works with @code{cc-mode}'s comment -filling (mostly). The modifications to the original @code{javascript.el} mode -mainly consisted in replacing \"javascript\" with \"typescript\" - -The main features of this Typescript mode are syntactic highlighting (enabled -with @code{font-lock-mode} or @code{global-font-lock-mode}), automatic -indentation and filling of comments and C preprocessor fontification.") - (license license:gpl3+))) - -(define-public emacs-tide - (package - (name "emacs-tide") - (version "2.8.3.1") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/ananthakumaran/tide" - "/archive/v" version ".tar.gz")) - (sha256 - (base32 - "1k0kzqiv1hfs0kqm37947snzhrsmand3i9chvm6a2r5lb8v9q47y")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-s" ,emacs-s) - ("emacs-flycheck" ,emacs-flycheck) - ("emacs-typescript-mode" ,emacs-typescript-mode))) - (home-page "https://github.com/ananthakumaran/tide") - (synopsis "Typescript IDE for Emacs") - (description - "Tide is an Interactive Development Environment (IDE) for Emacs which -provides the following features: - -@itemize -@item ElDoc -@item Auto complete -@item Flycheck -@item Jump to definition, Jump to type definition -@item Find occurrences -@item Rename symbol -@item Imenu -@item Compile On Save -@item Highlight Identifiers -@item Code Fixes -@item Code Refactor -@item Organize Imports -@end itemize") - (license license:gpl3+))) - -(define-public emacs-markdown-mode - (package - (name "emacs-markdown-mode") - (version "2.3") - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com/jrblevin" - "/markdown-mode/v" version - "/markdown-mode.el")) - (file-name (string-append "markdown-mode-" version ".el")) - (sha256 - (base32 - "152whyrq3dqlqy5wv4mdd94kmal19hs5kwaxjcp2gp2r97lsmdmi")))) - (build-system emacs-build-system) - (home-page "http://jblevins.org/projects/markdown-mode/") - (synopsis "Emacs Major mode for Markdown files") - (description - "Markdown-mode is a major mode for editing Markdown-formatted text files -in Emacs.") - (license license:gpl3+))) - -(define-public emacs-edit-indirect - (package - (name "emacs-edit-indirect") - (version "0.1.5") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Fanael/edit-indirect") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0by1x53pji39fjrj5bd446kz831nv0vdgw2jqasbym4pc1p2947r")))) - (build-system emacs-build-system) - (home-page "https://github.com/Fanael/edit-indirect") - (synopsis "Edit regions in separate buffers") - (description "This package allows you to edit regions in separate buffers, -like @code{org-edit-src-code} but for arbitrary regions.") - (license license:gpl3+))) - -(define-public emacs-projectile - (package - (name "emacs-projectile") - (version "0.14.0") - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com/bbatsov" - "/projectile/v" version "/projectile.el")) - (file-name (string-append "projectile-" version ".el")) - (sha256 - (base32 - "1ql1wnzhblbwnv66hf2y0wq45g71hh6s9inc090lmhm1vgylbd1f")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-pkg-info" ,emacs-pkg-info))) - (home-page "https://github.com/bbatsov/projectile") - (synopsis "Manage and navigate projects in Emacs easily") - (description - "This library provides easy project management and navigation. The -concept of a project is pretty basic - just a folder containing special file. -Currently git, mercurial and bazaar repos are considered projects by default. -If you want to mark a folder manually as a project just create an empty -.projectile file in it.") - (license license:gpl3+))) - -(define-public emacs-elfeed - (package - (name "emacs-elfeed") - (version "3.0.0") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/skeeto/elfeed/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1wkdrxr6zzqb48czqqv34l87bx8aqjk1739ddqg933aqh241kfvn")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("make" "test"))) - (home-page "https://github.com/skeeto/elfeed") - (synopsis "Atom/RSS feed reader for Emacs") - (description - "Elfeed is an extensible web feed reader for Emacs, supporting both Atom -and RSS, with a user interface inspired by notmuch.") - (license license:gpl3+))) - -(define-public emacs-el-x - (package - (name "emacs-el-x") - (version "0.3.1") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/sigma/el-x.git") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1i6j44ssxm1xdg0mf91nh1lnprwsaxsx8vsrf720nan7mfr283h5")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - ;; Move the source files to the top level, which is included in - ;; the EMACSLOADPATH. - (add-after 'unpack 'move-source-files - (lambda _ - (let ((el-files (find-files "./lisp" ".*\\.el$"))) - (for-each (lambda (f) - (rename-file f (basename f))) - el-files)) - #t))))) - (home-page "https://github.com/sigma/el-x") - (synopsis "Emacs Lisp extensions") - (description "command@{emacs-el-x} defines the @code{dflet} macro to -provide the historic behavior of @code{flet}, as well as -@code{declare-function} stub for older Emacs.") - (license license:gpl2+))) - -(define-public emacs-mocker - (package - (name "emacs-mocker") - (version "0.3.1") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/sigma/mocker.el.git") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1lav7am41v63xgavq8pr88y828jmd1cxd4prjq7jlbxm6nvrwxh2")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("ert-runner"))) - (native-inputs - `(("ert-runner" ,emacs-ert-runner))) - (propagated-inputs - `(("emacs-el-x" ,emacs-el-x))) - (home-page "https://github.com/sigma/mocker.el") - (synopsis "Mocking framework for Emacs Lisp") - (description "Mocker.el is a framework for writing tests in Emacs Lisp. -It uses regular Lisp rather than a domain specific language (DSL), which -maximizes flexibility (at the expense of conciseness).") - (license license:gpl2+))) - -(define-public emacs-find-file-in-project - (package - (name "emacs-find-file-in-project") - (version "5.4.7") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/technomancy/find-file-in-project.git") - (commit version))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1sdnyqv69mipbgs9yax88m9b6crsa59rjhwrih197pifl4089awr")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'set-shell - ;; Otherwise Emacs shell-file-name is set to "/bin/sh", which doesn't - ;; work. - (lambda _ - (setenv "SHELL" (which "sh")) - #t))) - #:tests? #t - #:test-command '("./tests/test.sh"))) - (home-page "https://github.com/technomancy/find-file-in-project") - (synopsis "File/directory finder for Emacs") - (description "@code{find-file-in-project} allows to find files or -directories quickly in the current project. The project root is detected -automatically when Git, Subversion or Mercurial are used. It also provides -functions to assist in reviewing changes on files.") - (license license:gpl3+))) - -(define-public emacs-pyvenv - (package - (name "emacs-pyvenv") - (version "1.11") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jorgenschaefer/pyvenv.git") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1a346qdimr1dvj53q033aqnahwd2dhyn9jadrs019nm0bzgw7g63")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - ;; This phase incorrectly attempts to substitute "activate" and fails - ;; doing so. - (delete 'patch-el-files)) - #:tests? #t - #:test-command '("ert-runner"))) - (native-inputs - `(("ert-runner" ,emacs-ert-runner) - ("emacs-mocker" ,emacs-mocker))) - (home-page "https://github.com/jorgenschaefer/pyvenv") - (synopsis "Virtualenv minor mode for Emacs") - (description "pyvenv.el is a minor mode to support using Python virtual -environments (virtualenv) inside Emacs.") - (license license:gpl3+))) - -(define-public emacs-highlight-indentation - (package - (name "emacs-highlight-indentation") - (version "0.7.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/antonj/Highlight-Indentation-for-Emacs.git") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "00l54k75qk24a0znzl4ij3s3nrnr2wy9ha3za8apphzlm98m907k")))) - (build-system emacs-build-system) - (home-page "https://github.com/antonj/Highlight-Indentation-for-Emacs/") - (synopsis "Highlighting indentation for Emacs") - (description "Provides two minor modes to highlight indentation guides in Emacs: -@enumerate -@item @code{highlight-indentation-mode}, which displays guidelines -indentation (space indentation only). -@item @code{highlight-indentation-current-column-mode}, which displays guidelines for the current-point indentation (space indentation only). -@end enumerate") - (license license:gpl2+))) - -(define-public emacs-elpy - (package - (name "emacs-elpy") - (version "1.27.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jorgenschaefer/elpy.git") - (commit version))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1b76y0kzk7s9ya8k9bpsgn31i9l0rxs4iz6lg7snhjgh03k0ssgv")))) - (build-system emacs-build-system) - (arguments - `(#:include (cons* "^elpy/[^/]+\\.py$" "^snippets\\/" %default-include) - #:phases - ;; TODO: Make `elpy-config' display Guix commands :) - (modify-phases %standard-phases - ;; One elpy test depends on being run inside a Python virtual - ;; environment to pass. We have nothing to gain from doing so here, - ;; so we just trick Elpy into thinking we are (see: - ;; https://github.com/jorgenschaefer/elpy/pull/1293). - (add-before 'check 'fake-virtualenv - (lambda _ - (setenv "VIRTUAL_ENV" "/tmp") - #t)) - (add-before 'check 'build-doc - (lambda _ - (with-directory-excursion "docs" - (invoke "make" "info" "man")) - ;; Move .info file at the root so that it can installed by the - ;; 'move-doc phase. - (rename-file "docs/_build/texinfo/Elpy.info" "Elpy.info") - #t)) - (add-after 'build-doc 'install-manpage - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (man1 (string-append out "/share/man/man1"))) - (mkdir-p man1) - (copy-file "docs/_build/man/elpy.1" - (string-append man1 "/elpy.1"))) - #t))) - #:tests? #t - #:test-command '("ert-runner"))) - (propagated-inputs - `(("emacs-company" ,emacs-company) - ("emacs-find-file-in-project" ,emacs-find-file-in-project) - ("emacs-highlight-indentation" ,emacs-highlight-indentation) - ("emacs-yasnippet" ,emacs-yasnippet) - ("pyvenv" ,emacs-pyvenv) - ("s" ,emacs-s))) - (native-inputs - `(("ert-runner" ,emacs-ert-runner) - ("emacs-f" ,emacs-f) - ("python" ,python-wrapper) - ("python-autopep8" ,python-autopep8) - ("python-black" ,python-black) - ("python-flake8" ,python-flake8) - ("python-jedi" ,python-jedi) - ("python-yapf" ,python-yapf) - ;; For documentation. - ("python-sphinx" ,python-sphinx) - ("texinfo" ,texinfo))) - (home-page "https://github.com/jorgenschaefer/elpy") - (synopsis "Python development environment for Emacs") - (description "Elpy brings powerful Python editing to Emacs. It combines -and configures a number of other packages written in Emacs Lisp as well as -Python, together offering features such as navigation, documentation, -completion, interactive development and more.") - (license license:gpl3+))) - -(define-public emacs-rainbow-delimiters - (package - (name "emacs-rainbow-delimiters") - (version "2.1.3") - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com/Fanael" - "/rainbow-delimiters/" version - "/rainbow-delimiters.el")) - (file-name (string-append "rainbow-delimiters-" version ".el")) - (sha256 - (base32 - "1b3kampwsjabhcqdp0khgff13wc5jqhy3rbvaa12vnv7qy22l9ck")))) - (build-system emacs-build-system) - (home-page "https://github.com/Fanael/rainbow-delimiters") - (synopsis "Highlight brackets according to their depth") - (description - "Rainbow-delimiters is a \"rainbow parentheses\"-like mode for Emacs which -highlights parentheses, brackets, and braces according to their depth. Each -successive level is highlighted in a different color, making it easy to spot -matching delimiters, orient yourself in the code, and tell which statements -are at a given level.") - (license license:gpl3+))) - -(define-public emacs-rainbow-identifiers - (package - (name "emacs-rainbow-identifiers") - (version "0.2.2") - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com/Fanael" - "/rainbow-identifiers/" version - "/rainbow-identifiers.el")) - (file-name (string-append "rainbow-identifiers-" version ".el")) - (sha256 - (base32 - "0325abxj47k0g1i8nqrq70w2wr6060ckhhf92krv1s072b3jzm31")))) - (build-system emacs-build-system) - (home-page "https://github.com/Fanael/rainbow-identifiers") - (synopsis "Highlight identifiers in source code") - (description - "Rainbow identifiers mode is an Emacs minor mode providing highlighting of -identifiers based on their names. Each identifier gets a color based on a hash -of its name.") - (license license:bsd-2))) - -(define-public emacs-rainbow-mode - (package - (name "emacs-rainbow-mode") - (version "1.0.1") - (source (origin - (method url-fetch) - (uri (string-append - "http://elpa.gnu.org/packages/rainbow-mode-" version ".el")) - (sha256 - (base32 - "0cpga4ax635rfpj7y2vmh7ank0yw00dcy20gjg1mj74r97by8csf")))) - (build-system emacs-build-system) - (home-page "http://elpa.gnu.org/packages/rainbow-mode.html") - (synopsis "Colorize color names in buffers") - (description - "This minor mode sets background color to strings that match color -names, e.g. #0000ff is displayed in white with a blue background.") - (license license:gpl3+))) - -(define-public emacs-visual-fill-column - (package - (name "emacs-visual-fill-column") - (version "1.11") - (source (origin - (method url-fetch) - (uri (string-append "https://codeload.github.com/joostkremers/" - "visual-fill-column/tar.gz/" version)) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "13jnviakp607zcms7f8ams56mr8wffnq1pghlc6fvqs39663pgwh")))) - (build-system emacs-build-system) - (home-page "https://github.com/joostkremers/visual-fill-column") - (synopsis "Fill-column for visual-line-mode") - (description - "@code{visual-fill-column-mode} is a small Emacs minor mode that mimics -the effect of @code{fill-column} in @code{visual-line-mode}. Instead of -wrapping lines at the window edge, which is the standard behaviour of -@code{visual-line-mode}, it wraps lines at @code{fill-column}. If -@code{fill-column} is too large for the window, the text is wrapped at the -window edge.") - (license license:gpl3+))) - -(define-public emacs-writeroom - (package - (name "emacs-writeroom") - (version "3.7") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/joostkremers/writeroom-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0yqgp5h3kvvpgva4azakb2wnjl7gsyh45glf75crspv3xyq57f2r")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-visual-fill-column" ,emacs-visual-fill-column))) - (home-page "https://github.com/joostkremers/writeroom-mode") - (synopsis "Distraction-free writing for Emacs") - (description - "This package defines a minor mode for distraction-free writing. Some of -the default effects include entering fullscreen, deleting other windows of the -current frame, disabling the mode line, and adding margins to the buffer that -restrict the text width to 80 characters.") - (license license:bsd-3))) - -(define-public emacs-ido-completing-read+ - (package - (name "emacs-ido-completing-read+") - (version "3.12") - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com" - "/DarwinAwardWinner/ido-ubiquitous/v" - version "/ido-completing-read+.el")) - (file-name (string-append "ido-completing-read+-" version ".el")) - (sha256 - (base32 - "1cyalb0p7nfsm4n6n9q6rjmvn6adqc0fq8ybnlj3n41n289dkfjf")))) - (build-system emacs-build-system) - (home-page "https://github.com/DarwinAwardWinner/ido-ubiquitous") - (synopsis "Replacement for completing-read using ido") - (description - "The ido-completing-read+ function is a wrapper for ido-completing-read. -Importantly, it detects edge cases that ordinary ido cannot handle and either -adjusts them so ido can handle them, or else simply falls back to the standard -Emacs completion function instead.") - (license license:gpl3+))) - -(define-public emacs-ido-ubiquitous - (package - (name "emacs-ido-ubiquitous") - (version "3.12") - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com" - "/DarwinAwardWinner/ido-ubiquitous/v" - version "/ido-ubiquitous.el")) - (file-name (string-append "ido-ubiquitous-" version ".el")) - (sha256 - (base32 - "197ypji0fb6jsdcq40rpnknwlh3imas6s6jbsvkfm0pz9988c3q2")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-ido-completing-read+" ,emacs-ido-completing-read+))) - (home-page "https://github.com/DarwinAwardWinner/ido-ubiquitous") - (synopsis "Use ido (nearly) everywhere") - (description - "Ido-ubiquitous enables ido-style completion for almost every function -that uses the standard completion function completing-read.") - (license license:gpl3+))) - -(define-public emacs-yaml-mode - (package - (name "emacs-yaml-mode") - (version "0.0.13") - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com/yoshiki" - "/yaml-mode/v" version "/yaml-mode.el")) - (file-name (string-append "yaml-mode-" version ".el")) - (sha256 - (base32 - "0im88sk9dqw03x6d6zaspgvg9i0pfpgb8f2zygrmbifh2w4pwmvj")))) - (build-system emacs-build-system) - (home-page "https://github.com/yoshiki/yaml-mode") - (synopsis "Major mode for editing YAML files") - (description - "Yaml-mode is an Emacs major mode for editing files in the YAML data -serialization format. It was initially developed by Yoshiki Kurihara and many -features were added by Marshall Vandegrift. As YAML and Python share the fact -that indentation determines structure, this mode provides indentation and -indentation command behavior very similar to that of python-mode.") - (license license:gpl3+))) - -(define-public emacs-web-mode - (package - (name "emacs-web-mode") - (version "16") - (source (origin - (method url-fetch) - (uri (string-append "https://raw.githubusercontent.com/fxbois" - "/web-mode/v" version "/web-mode.el")) - (file-name (string-append "web-mode-" version ".el")) - (sha256 - (base32 - "1hs5w7kdvcyn4ihyw1kfjg48djn5p7lz4rlbhzzdqv1g56xqx3gw")))) - (build-system emacs-build-system) - (synopsis "Major mode for editing web templates") - (description "Web-mode is an Emacs major mode for editing web templates -aka HTML files embedding parts (CSS/JavaScript) and blocks (pre rendered by -client/server side engines). Web-mode is compatible with many template -engines: PHP, JSP, ASP, Django, Twig, Jinja, Mustache, ERB, FreeMarker, -Velocity, Cheetah, Smarty, CTemplate, Mustache, Blade, ErlyDTL, Go Template, -Dust.js, React/JSX, Angularjs, ejs, etc.") - (home-page "http://web-mode.org/") - (license license:gpl3+))) - -(define-public emacs-wgrep - (let ((commit "414be70bd313e482cd9f0b70fd2daad4ee23497c")) - ;; Late commit fixes compatibility issue with Emacs 26+. - (package - (name "emacs-wgrep") - (version (git-version "2.1.10" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/mhayashi1120/Emacs-wgrep") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1sdhd587q3pg92lhiayph87azhalmf1gzrnsprkmqvnphv7mvks9")))) - (build-system emacs-build-system) - (home-page "https://github.com/mhayashi1120/Emacs-wgrep") - (synopsis "Edit a grep buffer and apply those changes to the files") - (description - "Emacs wgrep allows you to edit a grep buffer and apply those changes -to the file buffer. Several backends are supported beside the classic grep: -ack, ag, helm and pt.") - (license license:gpl3+)))) - -(define-public emacs-helm - (package - (name "emacs-helm") - (version "3.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/" name "/helm/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0k2r0ccppaqfjvyszaxa16vf7g2qzj1clhfr6v646ncsy17laciw")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-async" ,emacs-async) - ("emacs-popup" ,emacs-popup))) - (home-page "https://emacs-helm.github.io/helm/") - (synopsis "Incremental completion and selection narrowing -framework for Emacs") - (description "Helm is incremental completion and selection narrowing -framework for Emacs. It will help steer you in the right direction when -you're looking for stuff in Emacs (like buffers, files, etc). Helm is a fork -of @code{anything.el} originally written by Tamas Patrovic and can be -considered to be its successor. Helm sets out to clean up the legacy code in -@code{anything.el} and provide a cleaner, leaner and more modular tool, that's -not tied in the trap of backward compatibility.") - (license license:gpl3+))) - -(define-public emacs-helm-swoop - (package - (name "emacs-helm-swoop") - (version "1.7.4") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/ShingoFukuyama/helm-swoop/archive/" - version - ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1ssivsjzlnkg049cg993l8fp09l5nhpz6asj7w5c91zp5kpc6fh7")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm))) - (home-page "https://github.com/ShingoFukuyama/helm-swoop") - (synopsis "Filter and jump to lines in an Emacs buffer using Helm") - (description - "This package builds on the Helm interface to provide several commands -for search-based navigation of buffers.") - (license license:gpl2+))) - -(define-public emacs-helm-projectile - (package - (name "emacs-helm-projectile") - (version "0.14.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/bbatsov/helm-projectile/archive/v" - version - ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "19cfmilqh8kbab3b2hmx6lyrj73q6vfmn3p730x95g23iz16mnd5")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-helm" ,emacs-helm) - ("emacs-projectile" ,emacs-projectile))) - (home-page "https://github.com/bbatsov/helm-projectile") - (synopsis "Helm integration for Projectile") - (description - "This Emacs library provides a Helm interface for Projectile.") - (license license:gpl3+))) - -(define-public emacs-helm-make - (let ((commit "feae8df22bc4b20705ea08ac9adfc2b43bb348d0") - (revision "1")) - (package - (name "emacs-helm-make") - (version (string-append "0.1.0-" revision "." (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/abo-abo/helm-make.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1y2v77mmd1bfkkz51cnk1l0dg3lvvxc39wlamnm7wjns66dbvlam")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm) - ("emacs-projectile" ,emacs-projectile))) - (home-page "https://github.com/abo-abo/helm-make") - (synopsis "Select a Makefile target with helm") - (description "@code{helm-make} or @code{helm-make-projectile} will give -you a @code{helm} selection of directory Makefile's targets. Selecting a -target will call @code{compile} on it.") - (license license:gpl3+)))) - -(define-public emacs-cider - (package - (name "emacs-cider") - (version "0.18.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/clojure-emacs/cider.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1m9kc88vga3q5d731qnpngnsa0n57pf21k3hll20rw8rggrx4vdn")))) - (build-system emacs-build-system) - (arguments - '(#:exclude ; Don't exclude 'cider-test.el'. - '("^\\.dir-locals\\.el$" "^test/"))) - (propagated-inputs - `(("emacs-clojure-mode" ,emacs-clojure-mode) - ("emacs-sesman" ,emacs-sesman) - ("emacs-spinner" ,emacs-spinner) - ("emacs-pkg-info" ,emacs-pkg-info) - ("emacs-queue" ,emacs-queue))) - (home-page "https://cider.readthedocs.io/") - (synopsis "Clojure development environment for Emacs") - (description - "CIDER (Clojure Interactive Development Environment that Rocks) aims to -provide an interactive development experience similar to the one you'd get -when programming in Emacs Lisp, Common Lisp (with SLIME or Sly), Scheme (with -Geiser) and Smalltalk. - -CIDER is the successor to the now deprecated combination of using SLIME + -swank-clojure for Clojure development. - -There are plenty of differences between CIDER and SLIME, but the core ideas -are pretty much the same (and SLIME served as the principle inspiration for -CIDER).") - (license license:gpl3+))) - -;; There hasn't been a tag or release since 2015, so we take the latest -;; commit. -(define-public emacs-sly - (let ((commit "486bfbe95612bcdc0960c490207970a188e0fbb9") - (revision "1")) - (package - (name "emacs-sly") - (version (string-append "1.0.0-" revision "." (string-take commit 9))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/joaotavora/sly.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0ib4q4k3h3qn88pymyjjmlmnpizdn1mfg5gpk5a715nqsgxlg09l")))) - (build-system emacs-build-system) - (arguments - `(#:include (cons "^lib\\/" %default-include) - #:phases - ;; The package provides autoloads. - (modify-phases %standard-phases - (delete 'make-autoloads)))) - (home-page "https://github.com/joaotavora/sly") - (synopsis "Sylvester the Cat's Common Lisp IDE") - (description - "SLY is Sylvester the Cat's Common Lisp IDE. SLY is a fork of SLIME, and -contains the following improvements over it: - -@enumerate -@item Completely redesigned REPL based on Emacs's own full-featured - @code{comint.el} -@item Live code annotations via a new @code{sly-stickers} contrib -@item Consistent interactive button interface. Everything can be copied to - the REPL. -@item Multiple inspectors with independent history -@item Regexp-capable @code{M-x sly-apropos} -@item Contribs are first class SLY citizens and enabled by default -@item Use ASDF to loads contribs on demand. -@end enumerate - -SLY tracks SLIME's bugfixes and all its familar features (debugger, inspector, -xref, etc...) are still available, but with better integration.") - (license license:gpl3+)))) - -(define-public emacs-lua-mode - (let ((commit "652e299cb967fccca827dda381d61a9c144d97de") - (revision "1")) - (package - (name "emacs-lua-mode") - (version (string-append "20151025." revision "-" (string-take commit 9))) - (home-page "https://github.com/immerrr/lua-mode/") - (source (origin - (method git-fetch) - (uri (git-reference - (url home-page) - (commit commit))) - (file-name (string-append name "-" version ".checkout")) - (sha256 - (base32 - "053025k930wh0lak6rc1973ynfrmm8zsyzfqhhd39x7abkl41hc9")))) - (build-system emacs-build-system) - (synopsis "Major mode for lua") - (description - "This Emacs package provides a mode for @uref{https://www.lua.org/, -Lua programing language}.") - (license license:gpl2+)))) - -(define-public emacs-ebuild-mode - (package - (name "emacs-ebuild-mode") - (version "1.37") - (source (origin - (method url-fetch) - (uri (string-append - "https://dev.gentoo.org/~ulm/emacs/ebuild-mode" - "-" version ".tar.xz")) - (file-name (string-append name "-" version ".tar.xz")) - (sha256 - (base32 - "07dzrdjjczkxdfdgi60h4jjkvzi4p0k9rij2wpfp8s03ay3qldpp")))) - (build-system emacs-build-system) - (home-page "https://devmanual.gentoo.org") - (synopsis "Major modes for Gentoo package files") - (description - "This Emacs package provides modes for ebuild, eclass, eblit, GLEP42 -news items, openrc and runscripts.") - (license license:gpl2+))) - -(define-public emacs-evil - (let ((commit "230b87212c81aaa68ef5547a6b998d9c365fe139")) - (package - (name "emacs-evil") - (version (git-version "1.2.13" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-evil/evil") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0c9zy3bpck10gcrv79kd3h7i4ygd5bgbgy773n0lg7a2r5kwn1gx")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-undo-tree" ,emacs-undo-tree) - ("emacs-goto-chg" ,emacs-goto-chg))) - (home-page "https://github.com/emacs-evil/evil") - (synopsis "Extensible Vi layer for Emacs") - (description - "Evil is an extensible vi layer for Emacs. It emulates the -main features of Vim, and provides facilities for writing custom -extensions.") - (license license:gpl3+)))) - -(define-public emacs-evil-collection - (let ((commit "4e1f0e0b17153d460805a0da90d6191d66b2673d") - (revision "5")) - (package - (name "emacs-evil-collection") - (version (git-version "0.0.1" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-evil/evil-collection") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "11d5ppdnb2y2mwsdd9g62h7zds962kw3nss89zv5iwgcf9f1fb5x")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-evil" ,emacs-evil))) - (home-page "https://github.com/emacs-evil/evil-collection") - (synopsis "Collection of Evil bindings for many major and minor modes") - (description "This is a collection of Evil bindings for the parts of -Emacs that Evil does not cover properly by default, such as @code{help-mode}, -@code{M-x calendar}, Eshell and more.") - (license license:gpl3+)))) - -(define-public emacs-goto-chg - (package - (name "emacs-goto-chg") - (version "1.6") - (source - (origin - (method url-fetch) - ;; There is no versioned source. - (uri "https://www.emacswiki.org/emacs/download/goto-chg.el") - (file-name (string-append "goto-chg-" version ".el")) - (sha256 - (base32 - "078d6p4br5vips7b9x4v6cy0wxf6m5ij9gpqd4g33bryn22gnpij")))) - (build-system emacs-build-system) - ;; There is no other home page. - (home-page "https://www.emacswiki.org/emacs/goto-chg.el") - (synopsis "Go to the last change in the Emacs buffer") - (description - "This package provides @code{M-x goto-last-change} command that goes to -the point of the most recent edit in the current Emacs buffer. When repeated, -go to the second most recent edit, etc. Negative argument, @kbd{C-u -}, is -used for reverse direction.") - (license license:gpl2+))) - -(define-public emacs-monroe - (package - (name "emacs-monroe") - (version "0.3.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/sanel/monroe/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0icdx8shkd951phlnmcq1vqaxp1l667q5rjscskc5r22aylakh4w")))) - (build-system emacs-build-system) - (home-page "https://github.com/sanel/monroe") - (synopsis "Clojure nREPL client for Emacs") - (description - "Monroe is a nREPL client for Emacs, focused on simplicity and easy -distribution, primarily targeting Clojure users") - (license license:gpl3+))) - -(define-public emacs-orgalist - (package - (name "emacs-orgalist") - (version "1.9") - (source - (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/" - "orgalist-" version ".el")) - (sha256 - (base32 - "1rmmcyiiqkq54hn74nhzxzl4nvd902hv6gq341jwhrm7yiagffi6")))) - (build-system emacs-build-system) - (home-page "http://elpa.gnu.org/packages/orgalist.html") - (synopsis "Manage Org-like lists in non-Org buffers") - (description "Write Org mode's plain lists in non-Org buffers. More -specifically, Orgalist supports the syntax of Org mode for numbered, -unnumbered, description items, checkboxes, and counter cookies. - -The library also implements radio lists, i.e., lists written in Org -syntax later translated into the host format, e.g., LaTeX or HTML.") - (license license:gpl3+))) - -(define-public emacs-writegood-mode - (package - (name "emacs-writegood-mode") - (version "2.0.2") - (home-page "https://github.com/bnbeckwith/writegood-mode") - (source (origin - (method git-fetch) - (uri (git-reference - (url home-page) - (commit (string-append "v" version)))) - (sha256 - (base32 - "1nnjn1r669hvvzfycllwap4w04m8rfsk4nzcg8057m1f263kj31b")) - (file-name (string-append name "-checkout")))) - (build-system emacs-build-system) - (synopsis "Polish up poor writing on the fly") - (description - "This minor mode tries to find and highlight problems with your writing -in English as you type. It primarily detects \"weasel words\" and abuse of -passive voice.") - (license license:gpl3+))) - -(define-public emacs-neotree - (package - (name "emacs-neotree") - (version "0.5.2") - (home-page "https://github.com/jaypei/emacs-neotree") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/jaypei/" name - "/archive/" version ".tar.gz")) - (sha256 - (base32 - "1zd6dchwyijnf7kgchfcp51gs938l204dk9z6mljrfqf2zy0gp12")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (synopsis "Folder tree view for Emacs") - (description "This Emacs package provides a folder tree view.") - (license license:gpl3+))) - -(define-public emacs-org - (package - (name "emacs-org") - ;; emacs-org-contrib inherits from this package. Please update its sha256 - ;; checksum as well. - (version "9.2") - (source (origin - (method url-fetch) - (uri (string-append "http://elpa.gnu.org/packages/org-" - version ".tar")) - (sha256 - (base32 - "14ydwh2r360fpi6v2g9rgf0zazy2ddq1pcdxvzn73h65glnnclz9")))) - (build-system emacs-build-system) - (home-page "https://orgmode.org/") - (synopsis "Outline-based notes management and organizer") - (description "Org is an Emacs mode for keeping notes, maintaining TODO -lists, and project planning with a fast and effective lightweight markup -language. It also is an authoring system with unique support for literate -programming and reproducible research.") - (license license:gpl3+))) - -(define-public emacs-org-contrib - (package - (inherit emacs-org) - (name "emacs-org-contrib") - (version "20181230") - (source (origin - (method url-fetch) - (uri (string-append "https://orgmode.org/elpa/org-plus-contrib-" - version ".tar")) - (sha256 - (base32 - "0gibwcjlardjwq19bh0zzszv0dxxlml0rh5iikkcdynbgndk1aa1")))) - (arguments - `(#:modules ((guix build emacs-build-system) - (guix build utils) - (guix build emacs-utils) - (ice-9 ftw) - (srfi srfi-1)) - #:phases - (modify-phases %standard-phases - (add-after 'install 'delete-org-files - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (org (assoc-ref inputs "org")) - (contrib-files - (map basename (find-files out))) - (org+contrib-files - (map basename (find-files org))) - (duplicates (lset-intersection - string=? contrib-files org+contrib-files))) - (with-directory-excursion - (string-append - out "/share/emacs/site-lisp/guix.d/org-contrib-" ,version) - (for-each delete-file duplicates)) - #t)))))) - (propagated-inputs - `(("arduino-mode" ,emacs-arduino-mode) - ("cider" ,emacs-cider) - ("org" ,emacs-org) - ("scel" ,emacs-scel))) - (synopsis "Contributed packages to Org mode") - (description "Org is an Emacs mode for keeping notes, maintaining TODO -lists, and project planning with a fast and effective plain-text system. - -This package is equivalent to org-plus-contrib, but only includes additional -files that you would find in @file{contrib/} from the git repository."))) - -(define-public emacs-flx - (package - (name "emacs-flx") - (version "0.6.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/lewang/" - "flx/archive/v" version ".tar.gz")) - (sha256 - (base32 - "0bkcpnf1j4i2fcc2rllwbz62l00sw2mcia6rm5amgwvlkqavmkv6")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (home-page "https://github.com/lewang/flx") - (synopsis "Fuzzy matching for Emacs") - (description - "Flx provides fuzzy matching for emacs a la sublime text. -The sorting algorithm is a balance between word beginnings (abbreviation) -and contiguous matches (substring). The longer the substring match, -the higher it scores. This maps well to how we think about matching. -Flx has support for ido (interactively do things) through flx-ido.") - (license license:gpl3+))) - -(define-public emacs-cyberpunk-theme - (package - (name "emacs-cyberpunk-theme") - (version "1.19") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/n3mo/cyberpunk-theme.el/" - "archive/" version ".tar.gz")) - (sha256 - (base32 - "05l5fxw1mn5py6mfhxrzyqjq0d8m5m1akfi46vrgh13r414jffvv")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (home-page "https://github.com/n3mo/cyberpunk-theme.el") - (synopsis "Cyberpunk theme for emacs built-in color theme support") - (description - "Cyberpunk color theme for the emacs 24+ built-in color theme support -known loosely as deftheme. Many mode-specific customizations are included.") - (license license:gpl3+))) - -(define-public emacs-danneskjold-theme - (let* ((commit "8733d2fe8743e8a01826ea6d4430ef376c727e57") - (revision "1")) - (package - (name "emacs-danneskjold-theme") - (version (string-append "0.0.0-" revision "." (string-take commit 7))) - (home-page "https://github.com/rails-to-cosmos/danneskjold-theme") - (source - (origin - (method git-fetch) - (uri (git-reference - (url home-page) - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0s6rbsb0y8i8m5b9xm4gw1p1cxsxdqnqxqqb638pygz9f76mbir1")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'delete-screenshots - (lambda _ - (delete-file-recursively "screenshots") #t))))) - (synopsis "High-contrast Emacs theme") - (description - "@code{danneskjold-theme} is a high-contrast theme for Emacs.") - (license license:gpl3+)))) - -(define-public emacs-dream-theme - (let* ((commit "107a11d74365046f28a1802a2bdb5e69e4a7488b") - (revision "1")) - (package - (name "emacs-dream-theme") - (version (string-append "0.0.0-" revision "." (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/djcb/dream-theme") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0za18nfkq4xqm35k6006vsixcbmvmxqgma4iw5sw37h8vmcsdylk")))) - (build-system emacs-build-system) - (home-page "https://github.com/djcb/dream-theme") - (synopsis "High-contrast Emacs theme") - (description - "@code{dream-theme} is a dark, clean theme for Emacs. It is inspired -by zenburn, sinburn and similar themes, but slowly diverging from them.") - (license license:gpl3+)))) - -(define-public emacs-auto-complete - (package - (name "emacs-auto-complete") - (version "1.5.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/auto-complete/" - "auto-complete/archive/v" version ".tar.gz")) - (sha256 - (base32 - "1jvq4lj00hwml75lpmlciazy8f3bbg13gffsfnl835p4qd8l7yqv")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-popup" ,emacs-popup))) - (home-page "https://github.com/auto-complete/auto-complete") - (synopsis "Intelligent auto-completion extension for Emacs") - (description - "Auto-Complete is an intelligent auto-completion extension for Emacs. -It extends the standard Emacs completion interface and provides an environment -that allows users to concentrate more on their own work. Its features are: -a visual interface, reduce overhead of completion by using statistic method, -extensibility.") - (license license:gpl3+))) - (define-public m17n-db (package (name "m17n-db") @@ -5769,7175 +342,3 @@ display and edit the text. This package contains the library runtime.") (license license:lgpl2.1+))) - -(define-public emacs-nginx-mode - (package - (name "emacs-nginx-mode") - (version "1.1.9") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/ajc/nginx-mode/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0bzyrj6zz1hm67bkhw23bam7qc869s3zg7m1rb1c3aa4n0aw90cq")))) - (build-system emacs-build-system) - (home-page "https://github.com/ajc/nginx-mode") - (synopsis "Emacs major mode for editing nginx config files") - (description "This package provides an Emacs major mode for -editing nginx config files.") - (license license:gpl2+))) - -(define-public emacs-stream - (package - (name "emacs-stream") - (version "2.2.0") - (home-page "https://github.com/NicolasPetton/stream") - (source - (origin - (method url-fetch) - (file-name (string-append name "-" version ".tar.gz")) - (uri (string-append home-page "/archive/"version ".tar.gz")) - (sha256 - (base32 "03ql4nqfz5pn55mjly6clhvc3g7x2d28kj7mrlqmigvjbql39xxc")))) - (build-system emacs-build-system) - (synopsis "Implementation of streams for Emacs") - (description "This library provides an implementation of streams for Emacs. -Streams are implemented as delayed evaluation of cons cells.") - (license license:gpl3+))) - -(define-public emacs-el-search - (let ((commit "f26277bfbb3fc3fc74beea6592f294c439796bd4") - (revision "1")) - (package - (name "emacs-el-search") - ;; No ufficial release. - (version (string-append "0.0-" revision "." (string-take commit 7))) - (home-page "https://github.com/emacsmirror/el-search") - (source - (origin - (method git-fetch) - (file-name (string-append name "-" version ".tar.gz")) - (uri (git-reference - (commit commit) - (url (string-append home-page ".git")))) - (sha256 - (base32 "12xf40h9sb7xxg2r97gsia94q02543mgiiiw46fzh1ac7b7993g6")))) - (build-system emacs-build-system) - (inputs `(("emacs-stream" ,emacs-stream))) - (synopsis "Expression based interactive search for emacs-lisp-mode") - (description "This package provides expression based interactive search -procedures for emacs-lisp-mode.") - (license license:gpl3+)))) - -(define-public emacs-ht - (package - (name "emacs-ht") - (version "2.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/Wilfred/ht.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1lpba36kzxcc966fvsbrfpy8ah9gnvay0yk26gbyjil0rggrbqzj")))) - (build-system emacs-build-system) - (propagated-inputs `(("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/Wilfred/ht.el") - (synopsis "Hash table library for Emacs") - (description - "This package simplifies the use of hash tables in elisp. It also -provides functions to convert hash tables from and to alists and plists.") - (license license:gpl3+))) - -(define-public emacs-log4e - (package - (name "emacs-log4e") - (version "0.3.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/aki2o/log4e/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0nbdpbw353snda3v19l9hsm6gimppwnpxj18amm350bm81lyim2g")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'remove-tests - ;; Guile builder complains about null characters in some - ;; strings of test files. Remove "test" directory (it is not - ;; needed anyway). - (lambda _ - (delete-file-recursively "test")))))) - (home-page "https://github.com/aki2o/log4e") - (synopsis "Logging framework for elisp") - (description - "This package provides a logging framework for elisp. It allows -you to deal with multiple log levels.") - (license license:gpl3+))) - -(define-public emacs-gntp - (package - (name "emacs-gntp") - (version "0.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/tekai/gntp.el/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "16c1dfkia9yhl206bdhjr3b8kfvqcqr38jl5lq8qsyrrzsnmghny")))) - (build-system emacs-build-system) - (home-page "https://github.com/tekai/gntp.el") - (synopsis "Growl Notification Protocol for Emacs") - (description - "This package implements the Growl Notification Protocol GNTP -described at @uref{http://www.growlforwindows.com/gfw/help/gntp.aspx}. -It is incomplete as it only lets you send but not receive -notifications.") - (license license:bsd-3))) - -(define-public emacs-alert - (package - (name "emacs-alert") - (version "1.2") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/jwiegley/alert/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1693kck3k2iz5zhpmxwqyafxm68hr6gzs60lkxd3j1wlp2c9fwyr")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-gntp" ,emacs-gntp) - ("emacs-log4e" ,emacs-log4e))) - (home-page "https://github.com/jwiegley/alert") - (synopsis "Growl-style notification system for Emacs") - (description - "Alert is a Growl-workalike for Emacs which uses a common notification -interface and multiple, selectable \"styles\", whose use is fully -customizable by the user.") - (license license:gpl2+))) - -(define-public emacs-mu4e-alert - (package - (name "emacs-mu4e-alert") - (version "1.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/iqbalansari/mu4e-alert/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "07qc834qnxn8xi4bw5nawj8g91bmkzw0r0vahkgysp7r9xrf57gj")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-alert" ,emacs-alert) - ("emacs-s" ,emacs-s) - ("emacs-ht" ,emacs-ht) - ("mu" ,mu))) - (home-page "https://github.com/iqbalansari/mu4e-alert") - (synopsis "Desktop notification for mu4e") - (description - "This package provides desktop notifications for mu4e. -Additionally it can display the number of unread emails in the -mode-line.") - (license license:gpl3+))) - -(define-public emacs-pretty-mode - (package - (name "emacs-pretty-mode") - (version "2.0.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/akatov/pretty-mode/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1fan7m4vnqs8kpg7r54kx3g7faadkpkf9kzarfv8n57kq8w157pl")))) - (build-system emacs-build-system) - (home-page "https://github.com/akatov/pretty-mode") - (synopsis "Redisplay parts of the buffer as Unicode symbols") - (description - "Emacs minor mode for redisplaying parts of the buffer as pretty symbols.") - (license license:gpl3+))) - -(define-public emacs-yasnippet - (package - (name "emacs-yasnippet") - (version "0.13.0") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/joaotavora/yasnippet/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "12ls2x17agzbrj1xynjbmfa11igqxia4hj4fv6fpr66yci2r1plc")) - (modules '((guix build utils))) - (snippet - '(begin - ;; YASnippet expects a "snippets" subdirectory in the same - ;; directory as yasnippet.el, but we don't install it - ;; because it's a git submodule pointing to an external - ;; repository. Adjust `yas-snippet-dirs' to prevent - ;; warnings about a missing directory. - (substitute* "yasnippet.el" - (("^ +'yas-installed-snippets-dir\\)\\)\n") - "))\n")) - #t)))) - (build-system emacs-build-system) - (home-page "https://github.com/joaotavora/yasnippet") - (synopsis "Yet another snippet extension for Emacs") - (description - "YASnippet is a template system for Emacs. It allows you to type an -abbreviation and automatically expand it into function templates.") - (license license:gpl3+))) - -(define-public emacs-yasnippet-snippets - (let ((commit "885050d34737e2fb36a3e7759d60c09347bd4ce0") - (revision "1")) - (package - (name "emacs-yasnippet-snippets") - (version (string-append "1-" revision "." (string-take commit 8))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/AndreaCrotti/yasnippet-snippets") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1m935zgglw0iakzrixld5rcjz3wnj84f8wy2mvc3pggjri9l0qr9")))) - (build-system trivial-build-system) - (arguments - `(#:modules ((ice-9 ftw) - (ice-9 regex) - (guix build utils)) - #:builder - (begin - (use-modules (ice-9 ftw) - (ice-9 regex) - (guix build utils)) - (with-directory-excursion (assoc-ref %build-inputs "source") - (for-each (lambda (dir) - (copy-recursively - dir - (string-append %output - "/share/emacs/yasnippet-snippets/" - dir))) - (scandir "." (lambda (fname) - (and (string-match "-mode$" fname) - (directory-exists? fname)))))) - #t))) - (home-page "https://github.com/AndreaCrotti/yasnippet-snippets") - (synopsis "Collection of YASnippet snippets for many languages") - (description - "Provides Andrea Crotti's collection of YASnippet snippets. After installation, -the snippets will be in \"~/.guix-profile/share/emacs/yasnippet-snippets/\". -To make YASnippet aware of these snippets, add the above directory to -@code{yas-snippet-dirs}.") - (license license:expat)))) - -(define-public emacs-helm-c-yasnippet - (let ((commit "65ca732b510bfc31636708aebcfe4d2d845b59b0") - (revision "1")) - (package - (name "emacs-helm-c-yasnippet") - (version (string-append "0.6.7" "-" revision "." - (string-take commit 7))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-jp/helm-c-yasnippet") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1cbafjqlzxbg19xfdqsinsh7afq58gkf44rsg1qxfgm8g6zhr7f8")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm) - ("emacs-yasnippet" ,emacs-yasnippet))) - (home-page "https://github.com/emacs-jp/helm-c-yasnippet") - (synopsis "Helm integration for Yasnippet") - (description "This Emacs library provides Helm interface for -Yasnippet.") - (license license:gpl2+)))) - -(define-public emacs-helm-system-packages - (package - (name "emacs-helm-system-packages") - (version "1.10.1") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-helm/helm-system-packages") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "01by0c4lqi2cw8xmbxkjw7m9x78zssm31sx4hdpw5j35s2951j0f")))) - (build-system emacs-build-system) - (inputs - `(("recutils" ,recutils))) - (propagated-inputs - `(("emacs-helm" ,emacs-helm))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((recutils (assoc-ref inputs "recutils"))) - ;; Specify the absolute file names of the various - ;; programs so that everything works out-of-the-box. - (substitute* "helm-system-packages-guix.el" - (("recsel") (string-append recutils "/bin/recsel"))))))))) - (home-page "https://github.com/emacs-helm/helm-system-packages") - (synopsis "Helm System Packages is an interface to your package manager") - (description "List all available packages in Helm (with installed -packages displayed in their own respective face). Fuzzy-search, mark and -execute the desired action over any selections of packages: Install, -uninstall, display packages details (in Org Mode) or insert details at point, -find files owned by packages... And much more, including performing all the -above over the network.") - (license license:gpl3+))) - -(define-public emacs-memoize - (package - (name "emacs-memoize") - (version "1.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/skeeto/emacs-memoize/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "05ijgwi4ymxx31vpjm2pn356j85cykknajn14lrzz8pn5sh0vrg4")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("emacs" "--batch" - "-l" "memoize-test.el" - "-f" "ert-run-tests-batch-and-exit"))) - (home-page "https://github.com/skeeto/emacs-memoize") - (synopsis "Emacs lisp memoization library") - (description "@code{emacs-memoize} is an Emacs library for -memoizing functions.") - (license license:unlicense))) - -(define-public emacs-linum-relative - (package - (name "emacs-linum-relative") - (version "0.5") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/coldnew/linum-relative/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0s4frvr27866lw1rn3jal9wj5rkz9fx4yiszqv7w06azsdgsqksv")))) - (build-system emacs-build-system) - (home-page "https://github.com/coldnew/linum-relative") - (synopsis "Relative line numbering for Emacs") - (description "@code{emacs-linum-relative} displays the relative line -number on the left margin in Emacs.") - (license license:gpl2+))) - -(define-public emacs-idle-highlight - (package - (name "emacs-idle-highlight") - (version "1.1.3") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/nonsequitur/idle-highlight-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0kdv10hrgqpskjh0zvpnzwlkn5bccnqxas62gkws6njln57bf8nl")))) - (build-system emacs-build-system) - (home-page "https://www.emacswiki.org/emacs/IdleHighlight") - (synopsis "Highlights all occurrences of the word the point is on") - (description - "This Emacs package provides @code{idle-highlight-mode} that sets - an idle timer to highlight all occurrences in the buffer of the word under - the point.") - (license license:gpl3+))) - -(define-public emacs-ox-twbs - (package - (name "emacs-ox-twbs") - (version "1.1.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/marsmining/ox-twbs/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1zaq8dczq5wijjk36114k2x3hfrqig3lyx6djril6wyk67vczyqs")))) - (build-system emacs-build-system) - (home-page "https://github.com/marsmining/ox-twbs") - (synopsis "Export org-mode docs as HTML compatible with Twitter Bootstrap") - (description - "This Emacs package outputs your org-mode docs with a simple, clean and -modern look. It implements a new HTML back-end for exporting org-mode docs as -HTML compatible with Twitter Bootstrap. By default, HTML is exported with -jQuery and Bootstrap resources included via osscdn.") - (license license:gpl3+))) - -(define-public emacs-highlight-sexp - (package - (name "emacs-highlight-sexp") - (version "1.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/daimrod/highlight-sexp/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0jwx87qkln1rg9wmv4qkgkml935fh2pkgrg5x4ca6n5dgb4q6rj1")))) - (build-system emacs-build-system) - (home-page "https://github.com/daimrod/highlight-sexp") - (synopsis "Minor mode that highlights the s-exp at the current position") - (description - "This Emacs package highlights the s-exp at the current position.") - (license license:gpl3+))) - -(define-public emacs-highlight-stages - (let ((commit "29cbc5b78261916da042ddb107420083da49b271") - (revision "1")) - (package - (name "emacs-highlight-stages") - (version (string-append "1.1.0" "-" revision "." (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/zk-phi/highlight-stages.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0r6nbcrr0dqpgm8dir8ahzjy7rw4nrac48byamzrq96r7ajlxlv0")) - (patches - (search-patches "emacs-highlight-stages-add-gexp.patch")))) - (build-system emacs-build-system) - (home-page "https://github.com/wigust/highlight-stages") - (synopsis "Minor mode that highlights (quasi-quoted) expressions") - (description "@code{highlight-stages} provides an Emacs minor mode that -highlights quasi-quoted expressions.") - (license license:gpl3+)))) - -(define-public emacspeak - (package - (name "emacspeak") - (version "48.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/tvraman/emacspeak/releases/download/" - version "/emacspeak-" version ".tar.bz2")) - (sha256 - (base32 - "07imi3hji06b3r7v7v59978q76s8a7ynmxwfc9j03pgnv965lpjy")))) - (build-system gnu-build-system) - (arguments - '(#:make-flags (list (string-append "prefix=" - (assoc-ref %outputs "out"))) - #:phases - (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (lisp (string-append out - "/share/emacs/site-lisp/emacspeak"))) - (setenv "SHELL" (which "sh")) - ;; Configure Emacspeak according to etc/install.org. - (invoke "make" "config")))) - (add-after 'build 'build-espeak - (lambda _ - (invoke "make" "espeak"))) - (replace 'install - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (lisp (string-append out "/share/emacs/site-lisp/emacspeak")) - (info (string-append out "/share/info")) - (emacs (string-append (assoc-ref inputs "emacs") - "/bin/emacs"))) - ;; According to etc/install.org, the Emacspeak directory should - ;; be copied to its installation destination. - (for-each - (lambda (file) - (copy-recursively file (string-append lisp "/" file))) - '("etc" "info" "js" "lisp" "media" "scapes" "servers" "sounds" - "stumpwm" "xsl")) - ;; Make sure emacspeak is loaded from the correct directory. - (substitute* "etc/emacspeak.sh" - (("exec FLAVOR.*") - (string-append "exec " emacs " -l " lisp - "/lisp/emacspeak-setup.el $CL_ALL"))) - ;; Install the convenient startup script. - (mkdir-p bin) - (copy-file "etc/emacspeak.sh" (string-append bin "/emacspeak"))) - #t)) - (add-after 'install 'wrap-program - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (emacspeak (string-append out "/bin/emacspeak")) - (espeak (string-append (assoc-ref inputs "espeak") - "/bin/espeak"))) - ;; The environment variable DTK_PROGRAM tells emacspeak what - ;; program to use for speech. - (wrap-program emacspeak - `("DTK_PROGRAM" ":" prefix (,espeak))) - #t)))) - #:tests? #f)) ; no check target - (inputs - `(("emacs" ,emacs) - ("espeak" ,espeak) - ("perl" ,perl) - ("tcl" ,tcl) - ("tclx" ,tclx))) - (home-page "http://emacspeak.sourceforge.net") - (synopsis "Audio desktop interface for Emacs") - (description - "Emacspeak is a speech interface that allows visually impaired users to -interact independently and efficiently with the computer. Audio formatting ---a technique pioneered by AsTeR-- and full support for W3C's Aural CSS (ACSS) -allows Emacspeak to produce rich aural presentations of electronic information. -By seamlessly blending all aspects of the Internet such as Web-surfing and -messaging, Emacspeak speech-enables local and remote information via a -consistent and well-integrated user interface.") - (license license:gpl2+))) - -(define-public emacs-adaptive-wrap - (package - (name "emacs-adaptive-wrap") - (version "0.5.1") - (source (origin - (method url-fetch) - (uri (string-append - "http://elpa.gnu.org/packages/adaptive-wrap-" - version ".el")) - (sha256 - (base32 - "0qi7gjprcpywk2daivnlavwsx53hl5wcqvpxbwinvigg42vxh3ll")))) - (build-system emacs-build-system) - (home-page "http://elpa.gnu.org/packages/adaptive-wrap.html") - (synopsis "Smart line-wrapping with wrap-prefix") - (description - "This Emacs package provides the @code{adaptive-wrap-prefix-mode} -minor mode which sets the wrap-prefix property on the fly so that -single-long-line paragraphs get word-wrapped in a way similar to what -you'd get with @kbd{M-q} using @code{adaptive-fill-mode}, but without -actually changing the buffer's text.") - (license license:gpl3+))) - -(define-public emacs-diff-hl - (package - (name "emacs-diff-hl") - (version "1.8.5") - (source - (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/diff-hl-" - version ".tar")) - (sha256 - (base32 - "1vxc7z7c2qs0mx7l5sa4sybi5qbzv0s79flj74p1ynw8dl3qxg3d")))) - (build-system emacs-build-system) - (home-page "https://github.com/dgutov/diff-hl") - (synopsis - "Highlight uncommitted changes using VC") - (description - "@code{diff-hl-mode} highlights uncommitted changes on the side of the -window (using the fringe, by default), allows you to jump between -the hunks and revert them selectively.") - (license license:gpl3+))) - -(define-public emacs-diminish - (package - (name "emacs-diminish") - (version "0.45") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/myrjola/diminish.el/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0i3629sv5cfrrb00hcnmaqzgs8mk36yasc1ax3ry1ga09nr6rkj9")))) - (build-system emacs-build-system) - (home-page "https://github.com/myrjola/diminish.el") - (synopsis "Diminish minor modes with no modeline display") - (description "@code{emacs-diminish} implements hiding or -abbreviation of the mode line displays (lighters) of minor modes.") - (license license:gpl2+))) - -(define-public emacs-use-package - (let ((commit "da8c9e2840343906e732f9699e43d35a1f06481d") - (revision "1")) - (package - (name "emacs-use-package") - (version (git-version "2.3" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jwiegley/use-package") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0jz38pbq1p9h85i6qcsh3sfzkd103y6mw3rg5zd14dxigp8ir3xz")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-diminish" ,emacs-diminish))) - (arguments - `(#:tests? #t - #:test-command '("emacs" "--batch" - "-l" "use-package-tests.el" - "-f" "ert-run-tests-batch-and-exit"))) - (home-page "https://github.com/jwiegley/use-package") - (synopsis "Declaration for simplifying your .emacs") - (description "The use-package macro allows you to isolate package -configuration in your @file{.emacs} file in a way that is both -performance-oriented and tidy.") - (license license:gpl2+)))) - -(define-public emacs-strace-mode - (let* ((commit "6a69b4b06db6797af56f33eda5cb28af94e59f11") - (revision "1")) - (package - (name "emacs-strace-mode") - (version (string-append "0.0.2-" revision "." (string-take commit 7))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/pkmoore/strace-mode") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1lbk2kzdznf2bkfazizfbimaxxzfzv00lrz1ran9dc2zqbc0bj9f")))) - (build-system emacs-build-system) - (home-page "https://github.com/pkmoore/strace-mode") - (synopsis "Emacs major mode to highlight strace outputs") - (description "@code{emacs-strace-mode} provides an Emacs major mode - highlighting strace outputs.") - (license license:gpl3+)))) - -(define-public emacs-default-encrypt - (package - (name "emacs-default-encrypt") - (version "4.3") - (source - (origin - (method url-fetch) - (uri (string-append - "https://www.informationelle-selbstbestimmung-im-internet.de" - "/emacs/jl-encrypt" version "/jl-encrypt.el")) - (file-name (string-append "jl-encrypt-" version ".el")) - (sha256 - (base32 - "16i3rlfp3jxlqvndn8idylhmczync3gwmy8a019v29vyr48rnnr0")))) - (build-system emacs-build-system) - (home-page "https://www.informationelle-selbstbestimmung-im-internet.de/Emacs.html") - (synopsis "Automatically encrypt or sign Gnus messages in Emacs") - (description - "DefaultEncrypt is designed to be used with Gnus in Emacs. It -automatically encrypts messages that you send (e.g., email) when public keys -for all recipients are available, and it protects you from accidentally -sending un-encrypted messages. It can also be configured to automatically -sign messages that you send. For details and instructions on how to use -DefaultEncrypt, please refer to the home page or read the comments in the -source file, @file{jl-encrypt.el}.") - (license license:gpl3+))) - -(define-public emacs-htmlize - (package - (name "emacs-htmlize") - (version "1.53") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/hniksic/emacs-htmlize/archive/release/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1lzaf9m1qr9dhw4nn53g6wszk2vqw95gpsbrc3y85bams4cn24ga")))) - (build-system emacs-build-system) - (home-page "https://github.com/hniksic/emacs-htmlize") - (synopsis "Convert buffer text and decorations to HTML") - (description "@code{emacs-htmlize} converts the buffer text and -the associated decorations to HTML. Output to CSS, inline CSS and -fonts is supported.") - (license license:gpl2+))) - -(define-public emacs-xmlgen - (package - (name "emacs-xmlgen") - (version "0.5") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/philjackson/xmlgen/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0zay490vjby3f7455r0vydmjg7q1gwc78hilpfb0rg4gwz224z8r")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("emacs" "--batch" - "-l" "xmlgen-test.el" - "-f" "ert-run-tests-batch-and-exit"))) - (home-page "https://github.com/philjackson/xmlgen") - (synopsis "S-expression to XML domain specific language (DSL) in -Emacs Lisp") - (description "@code{emacs-xmlgen} provides S-expression to XML -conversion for Emacs Lisp.") - (license license:gpl2+))) - -(define-public emacs-cdlatex - (package - (name "emacs-cdlatex") - (version "4.7") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/cdominik/cdlatex/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0pivapphmykc6vhvpx7hdyl55ls37vc4jcrxpvs4yk7jzcmwa9xp")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-auctex" ,emacs-auctex))) - (home-page "https://github.com/cdominik/cdlatex") - (synopsis "Fast Emacs input methods for LaTeX environments and -math") - (description "CDLaTeX is an Emacs minor mode supporting fast -insertion of environment templates and math in LaTeX. Similar -commands are also offered as part of the AUCTeX package, but it is not -the same - CDLaTeX focuses on speediness for inserting LaTeX -constructs.") - (license license:gpl3+))) - -(define-public emacs-cnfonts - (package - (name "emacs-cnfonts") - (version "0.9.1") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/tumashu/cnfonts/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1l6cgcvc6md1zq97ccczankpyi0k4vjx6apflny6kjq3p33lyhf4")))) - (build-system emacs-build-system) - (home-page "https://github.com/tumashu/cnfonts") - (synopsis "Emacs Chinese fonts setup tool") - (description "cnfonts is a Chinese fonts setup tool, allowing for easy -configuration of Chinese fonts.") - (license license:gpl2+))) - -(define-public emacs-php-mode - (package - (name "emacs-php-mode") - (version "20171225.342") - (source (origin - (method url-fetch) - (uri (string-append - "https://melpa.org/packages/php-mode-" - version ".tar")) - (sha256 - (base32 - "1zz682f34v4wsm2dyj1gnrnvsrqdq1cy7j8p6cvc398w2fziyg3q")))) - (build-system emacs-build-system) - (home-page "https://github.com/ejmr/php-mode") - (synopsis "Major mode for editing PHP code") - (description "@code{php-mode} is a major mode for editing PHP source -code. It's an extension of C mode; thus it inherits all C mode's navigation -functionality. But it colors according to the PHP grammar and indents -according to the PEAR coding guidelines. It also includes a couple handy -IDE-type features such as documentation search and a source and class -browser.") - (license license:gpl3+))) - -(define-public emacs-pos-tip - (package - (name "emacs-pos-tip") - (version "0.4.6") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/pitkali/pos-tip/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "12jqfy26vjk7lq0aa8yn8zqj8c85fkvx7y9prj0pcn4wqiz2ad2r")))) - (build-system emacs-build-system) - ;; The following functions and variables needed by emacs-pos-tip are - ;; not included in emacs-minimal: - ;; x-display-pixel-width, x-display-pixel-height, x-show-tip - (arguments `(#:emacs ,emacs)) - (home-page "https://github.com/pitkali/pos-tip") - (synopsis "Show tooltip at point") - (description "The standard library tooltip.el provides a function for -displaying a tooltip at the mouse position. However, locating a tooltip at an -arbitrary buffer position in a window is not easy. Pos-tip provides such a -function to be used by other frontend programs.") - (license license:gpl2+))) - -(define-public emacs-pyim-basedict - (package - (name "emacs-pyim-basedict") - (version "0.3.1") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/tumashu/pyim-basedict/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0nfgxviavkgrpyfsw60xsws4fk51fcmgl8fp6zf4ibqjjbp53n3n")))) - (build-system emacs-build-system) - (home-page "https://github.com/tumashu/pyim-basedict") - (synopsis "Input method dictionary of pyim") - (description "Pyim-basedict is the default pinyin input method dictionary, -containing words from the rime project.") - (license license:gpl2+))) - -(define-public emacs-pyim - (package - (name "emacs-pyim") - (version "1.8") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/tumashu/pyim") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "16rma4cv7xgky0g3x4an27v30jdi6i1sqw43cl99zhkqvp43l3f9")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-async" ,emacs-async) - ("emacs-pyim-basedict" ,emacs-pyim-basedict) - ("emacs-popup" ,emacs-popup) - ("emacs-posframe" ,emacs-posframe))) - (home-page "https://github.com/tumashu/pyim") - (synopsis "Chinese input method") - (description "Chinese input method which supports quanpin, shuangpin, wubi -and cangjie.") - (license license:gpl2+))) - -(define-public emacs-posframe - (package - (name "emacs-posframe") - (version "0.4.2") - (source - (origin - (method url-fetch) - (uri (string-append - "https://elpa.gnu.org/packages/posframe-" version ".el")) - (sha256 - (base32 - "1h8vvxvsg41vc1nnglqjs2q0k1yzfsn72skga9s76qa3zxmx6kds")))) - (build-system emacs-build-system) - ;; emacs-minimal does not include the function font-info - (arguments `(#:emacs ,emacs)) - (home-page "https://github.com/tumashu/posframe") - (synopsis "Pop a posframe (a child frame) at point") - (description "@code{emacs-posframe} can pop a posframe at point. A -posframe is a child frame displayed within its root window's buffer. -@code{emacs-posframe} is fast and works well with CJK languages.") - (license license:gpl3+))) - -(define-public emacs-el2org - (package - (name "emacs-el2org") - (version "0.6.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/tumashu/el2org/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0gd3km1swwvg2w0kdi7370f54wgrflxn63gjgssfjc1iyc9sbqwq")))) - (build-system emacs-build-system) - (home-page "https://github.com/tumashu/el2org") - (synopsis "Convert Emacs-lisp file to org file") - (description "El2org is a simple tool, which can convert Emacs-lisp file -to org file, you can use this tool to write orgify commentary.") - (license license:gpl2+))) - -(define-public emacs-mustache - (package - (name "emacs-mustache") - (version "0.23") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/Wilfred/mustache.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0k9lcgil7kykkv1ylrgwy1g13ldjjmgi2cwmysgyb2vlj3jbwpdj")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-ht" ,emacs-ht) - ("emacs-s" ,emacs-s))) - (home-page "https://github.com/Wilfred/mustache.el") - (synopsis "Mustache templating library for Emacs") - (description "Mustache templating library for Emacs, mustache is -a simple web template system, which is described as a logic-less system -because it lacks any explicit control flow statements, both looping and -conditional evaluation can be achieved using section tags processing lists -and lambdas.") - (license license:gpl3+))) - -(define-public emacs-org2web - (package - (name "emacs-org2web") - (version "0.9.1") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/tumashu/org2web/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1c0ixcphlhp4c4qdiwq40bc3yp1gp1llp8pxrk4s7ny9n68s52zp")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-el2org" ,emacs-el2org) - ("emacs-ht" ,emacs-ht) - ("emacs-mustache" ,emacs-mustache) - ("emacs-simple-httpd" ,emacs-simple-httpd))) - (home-page "https://github.com/tumashu/org2web") - (synopsis "Static site generator based on org-mode ") - (description "Org2web is a static site generator based on org-mode, -which code derived from Kelvin H's org-page.") - (license license:gpl2+))) - -(define-public emacs-xelb - (package - (name "emacs-xelb") - (version "0.16") - (source (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/xelb-" - version ".tar")) - (sha256 - (base32 - "03wsr1jr7f7zfd80h864rd4makwh4widdnj1kjv2xyjwdgap9rl8")))) - (build-system emacs-build-system) - ;; The following functions and variables needed by emacs-xelb are - ;; not included in emacs-minimal: - ;; x-display-screens, x-keysym-table, x-alt-keysym, x-meta-keysym - ;; x-hyper-keysym, x-super-keysym, libxml-parse-xml-region - ;; x-display-pixel-width, x-display-pixel-height - (arguments - `(#:emacs ,emacs - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'regenerate-el-files - (lambda* (#:key inputs #:allow-other-keys) - (invoke "make" - (string-append "PROTO_PATH=" - (assoc-ref inputs "xcb-proto") - "/share/xcb") - (string-append "EMACS_BIN=" - (assoc-ref inputs "emacs") - "/bin/emacs -Q"))))))) - (native-inputs `(("xcb-proto" ,xcb-proto))) - (home-page "https://github.com/ch11ng/xelb") - (synopsis "X protocol Emacs Lisp binding") - (description "@code{emacs-xelb} is a pure Emacs Lisp implementation of the -X11 protocol based on the XML description files from the XCB project. It -features an object-oriented API and permits a certain degree of concurrency. -It should enable you to implement low-level X11 applications.") - (license license:gpl3+))) - -(define-public emacs-exwm - (package - (name "emacs-exwm") - (version "0.21") - (synopsis "Emacs X window manager") - (source (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/exwm-" - version ".tar")) - (sha256 - (base32 - "07ng1pgsnc3isfsyzh2gfc7391p9il8lb5xqf1z6yqn20w7k6xzj")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-xelb" ,emacs-xelb))) - (inputs - `(("xhost" ,xhost) - ("dbus" ,dbus))) - ;; The following functions and variables needed by emacs-exwm are - ;; not included in emacs-minimal: - ;; scroll-bar-mode, fringe-mode - ;; x-display-pixel-width, x-display-pixel-height - (arguments - `(#:emacs ,emacs - #:phases - (modify-phases %standard-phases - (add-after 'build 'install-xsession - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (xsessions (string-append out "/share/xsessions")) - (bin (string-append out "/bin")) - (exwm-executable (string-append bin "/exwm"))) - ;; Add a .desktop file to xsessions - (mkdir-p xsessions) - (mkdir-p bin) - (with-output-to-file - (string-append xsessions "/exwm.desktop") - (lambda _ - (format #t "[Desktop Entry]~@ - Name=~a~@ - Comment=~a~@ - Exec=~a~@ - TryExec=~@*~a~@ - Type=Application~%" ,name ,synopsis exwm-executable))) - ;; Add a shell wrapper to bin - (with-output-to-file exwm-executable - (lambda _ - (format #t "#!~a ~@ - ~a +SI:localuser:$USER ~@ - exec ~a --exit-with-session ~a \"$@\" --eval '~s' ~%" - (string-append (assoc-ref inputs "bash") "/bin/sh") - (string-append (assoc-ref inputs "xhost") "/bin/xhost") - (string-append (assoc-ref inputs "dbus") "/bin/dbus-launch") - (string-append (assoc-ref inputs "emacs") "/bin/emacs") - '(cond - ((file-exists-p "~/.exwm") - (load-file "~/.exwm")) - ((not (featurep 'exwm)) - (require 'exwm) - (require 'exwm-config) - (exwm-config-default) - (message (concat "exwm configuration not found. " - "Falling back to default configuration..."))))))) - (chmod exwm-executable #o555) - #t)))))) - (home-page "https://github.com/ch11ng/exwm") - (description "EXWM is a full-featured tiling X window manager for Emacs -built on top of XELB.") - (license license:gpl3+))) - -(define-public emacs-switch-window - (package - (name "emacs-switch-window") - (version "1.6.2") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/dimitri/switch-window") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0rci96asgamr6qp6nkyr5vwrnslswjxcjd96yccy4aivh0g66yfg")))) - (build-system emacs-build-system) - (home-page "https://github.com/dimitri/switch-window") - (synopsis "Emacs window switch tool") - (description "Switch-window is an emacs window switch tool, which -offer a visual way to choose a window to switch to, delete, split or -other operations.") - (license license:wtfpl2))) - -(define-public emacs-exwm-x - (package - (name "emacs-exwm-x") - (version "1.9.0") - (synopsis "Derivative window manager based on EXWM") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/tumashu/exwm-x") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "03l3dl7s1qys1kkh40rm1sfx7axy1b8sf5f6nyksj9ps6d30p5i4")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-exwm" ,emacs-exwm) - ("emacs-switch-window" ,emacs-switch-window) - ("emacs-ivy" ,emacs-ivy) - ("emacs-use-package" ,emacs-use-package))) - (inputs - `(("xhost" ,xhost) - ("dbus" ,dbus))) - ;; Need emacs instead of emacs-minimal, - ;; for emacs's bin path will be inserted into bin/exwm-x file. - (arguments - `(#:emacs ,emacs - #:phases - (modify-phases %standard-phases - (add-after 'build 'install-xsession - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (xsessions (string-append out "/share/xsessions")) - (bin (string-append out "/bin")) - (exwm-executable (string-append bin "/exwm-x"))) - ;; Add a .desktop file to xsessions - (mkdir-p xsessions) - (mkdir-p bin) - (with-output-to-file - (string-append xsessions "/exwm-x.desktop") - (lambda _ - (format #t "[Desktop Entry]~@ - Name=~a~@ - Comment=~a~@ - Exec=~a~@ - TryExec=~@*~a~@ - Type=Application~%" ,name ,synopsis exwm-executable))) - ;; Add a shell wrapper to bin - (with-output-to-file exwm-executable - (lambda _ - (format #t "#!~a ~@ - ~a +SI:localuser:$USER ~@ - exec ~a --exit-with-session ~a \"$@\" --eval '~s' ~%" - (string-append (assoc-ref inputs "bash") "/bin/sh") - (string-append (assoc-ref inputs "xhost") "/bin/xhost") - (string-append (assoc-ref inputs "dbus") "/bin/dbus-launch") - (string-append (assoc-ref inputs "emacs") "/bin/emacs") - '(require 'exwmx-loader)))) - (chmod exwm-executable #o555) - #t)))))) - (home-page "https://github.com/tumashu/exwm-x") - (description "EXWM-X is a derivative window manager based on EXWM, with focus -on mouse-control.") - (license license:gpl3+))) - -(define-public emacs-gnuplot - (package - (name "emacs-gnuplot") - (version "0.7.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/bruceravel/gnuplot-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0glzymrn138lwig7p4cj17x4if5jisr6l4g6wcbxisqkqgc1h01i")))) - (build-system gnu-build-system) - (native-inputs `(("emacs" ,emacs-minimal))) - (arguments - (let ((elisp-dir (string-append "/share/emacs/site-lisp/guix.d" - "/gnuplot-" version))) - `(#:modules ((guix build gnu-build-system) - (guix build utils) - (guix build emacs-utils)) - #:imported-modules (,@%gnu-build-system-modules - (guix build emacs-utils)) - #:configure-flags - (list (string-append "EMACS=" (assoc-ref %build-inputs "emacs") - "/bin/emacs") - (string-append "--with-lispdir=" %output ,elisp-dir)) - #:phases - (modify-phases %standard-phases - (add-after 'install 'generate-autoloads - (lambda* (#:key outputs #:allow-other-keys) - (emacs-generate-autoloads - "gnuplot" - (string-append (assoc-ref outputs "out") ,elisp-dir)) - #t)))))) - (home-page "https://github.com/bruceravel/gnuplot-mode") - (synopsis "Emacs major mode for interacting with gnuplot") - (description "@code{emacs-gnuplot} is an emacs major mode for interacting -with gnuplot.") - (license license:gpl2+))) - -(define-public emacs-transpose-frame - (package - (name "emacs-transpose-frame") - (version "0.1.0") - (source - (origin - (method url-fetch) - (uri "http://www.emacswiki.org/emacs/download/transpose-frame.el") - (file-name (string-append "transpose-frame-" version ".el")) - (sha256 - (base32 - "1f67yksgw9s6j0033hmqzaxx2a93jm11sd5ys7cc3li5gfh680m4")))) - (build-system emacs-build-system) - (home-page "https://www.emacswiki.org/emacs/TransposeFrame") - (synopsis "Transpose window arrangement in current frame") - (description "@code{emacs-transpose-frame} provides some interactive -functions which allows users to transpose windows arrangement in currently -selected frame.") - (license license:bsd-2))) - -(define-public emacs-key-chord - (package - (name "emacs-key-chord") - (version "0.6") - (source - (origin - (method url-fetch) - (uri "https://www.emacswiki.org/emacs/download/key-chord.el") - (file-name (string-append "key-chord-" version ".el")) - (sha256 - (base32 - "03m44pqggfrd53nh9dvpdjgm0rvca34qxmd30hr33hzprzjambxg")))) - (build-system emacs-build-system) - (home-page "https://www.emacswiki.org/emacs/key-chord.el") - (synopsis "Map pairs of simultaneously pressed keys to Emacs commands") - (description "@code{emacs-key-chord} provides @code{key-chord-mode}, a -mode for binding key chords to commands. A key chord is defined as two keys -pressed simultaneously or a single key quickly pressed twice.") - (license license:gpl2+))) - -(define-public emacs-evil-surround - (package - (name "emacs-evil-surround") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/timcharper/evil-surround/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0p572jgic3q1ia1nz37kclir729ay6i2f4sa7wnaapyxly2lwb3r")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-evil" ,emacs-evil))) - (home-page "https://github.com/timcharper/evil-surround") - (synopsis "Easily modify surrounding parantheses and quotes") - (description "@code{emacs-evil-surround} allows easy deletion, change and -addition of surrounding pairs, such as parantheses and quotes, in evil mode.") - (license license:gpl3+))) - -(define-public emacs-evil-commentary - (package - (name "emacs-evil-commentary") - (version "2.1.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/linktohack/evil-commentary/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1jdya0i921nwskwrzdsj0vrr3m7gm49dy6f6pk9p5nxaarfxk230")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-evil" ,emacs-evil))) - (home-page "https://github.com/linktohack/evil-commentary") - (synopsis "Comment out code in evil mode") - (description "@code{emacs-evil-commentary} adds keybindings to easily -comment out lines of code in evil mode. It provides @code{gcc} to comment out -lines, and @code{gc} to comment out the target of a motion.") - (license license:gpl3+))) - -;; Tests for emacs-ansi have a circular dependency with ert-runner, and -;; therefore cannot be run -(define-public emacs-ansi - (package - (name "emacs-ansi") - (version "0.4.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/rejeep/ansi.el/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "13jj4vbi98j3p17hs99bmy7g21jd5h4v3wpxk4pkvhylm3bfwjw8")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-s" ,emacs-s))) - (home-page "https://github.com/rejeep/ansi.el") - (synopsis "Convert strings to ANSI") - (description "@code{emacs-ansi} defines functions that turns simple -strings to ANSI strings. Turning a string into an ANSI string can be to add -color to a text, add color in the background of a text or adding a style, such -as bold, underscore or italic.") - (license license:gpl3+))) - -;; Tests for emacs-commander have a circular dependency with ert-runner, and -;; therefore cannot be run -(define-public emacs-commander - (package - (name "emacs-commander") - (version "0.7.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/rejeep/commander.el/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "196s2i15z7gwxa97l1wkxvjnfmj5n38wwm6d3g4zz15l2vqggc2y")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-f" ,emacs-f) - ("emacs-s" ,emacs-s))) - (home-page "https://github.com/rejeep/commander.el") - (synopsis "Emacs command line parser") - (description "@code{emacs-commander} provides command line parsing for -Emacs.") - (license license:gpl3+))) - -;; Tests for ert-runner have a circular dependency with ecukes, and therefore -;; cannot be run -(define-public emacs-ert-runner - (package - (name "emacs-ert-runner") - (version "0.7.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/rejeep/ert-runner.el/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1657nck9i96a4xgl8crfqq0s8gflzp21pkkzwg6m3z5npjxklgwp")))) - (build-system emacs-build-system) - (inputs - `(("emacs-ansi" ,emacs-ansi) - ("emacs-commander" ,emacs-commander) - ("emacs-dash" ,emacs-dash) - ("emacs-f" ,emacs-f) - ("emacs-s" ,emacs-s) - ("emacs-shut-up" ,emacs-shut-up))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'install 'install-executable - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (substitute* "bin/ert-runner" - (("ERT_RUNNER=\"\\$\\(dirname \\$\\(dirname \\$0\\)\\)") - (string-append "ERT_RUNNER=\"" out - "/share/emacs/site-lisp/guix.d/ert-runner-" - ,version))) - (install-file "bin/ert-runner" (string-append out "/bin")) - (wrap-program (string-append out "/bin/ert-runner") - (list "EMACSLOADPATH" ":" 'prefix - (string-split (getenv "EMACSLOADPATH") #\:))) - #t)))) - #:include (cons* "^reporters/.*\\.el$" %default-include))) - (home-page "https://github.com/rejeep/ert-runner.el") - (synopsis "Opinionated Ert testing workflow") - (description "@code{ert-runner} is a tool for Emacs projects tested -using ERT. It assumes a certain test structure setup and can therefore make -running tests easier.") - (license license:gpl3+))) - -(define-public ert-runner - (deprecated-package "ert-runner" emacs-ert-runner)) - -(define-public emacs-disable-mouse - (package - (name "emacs-disable-mouse") - (version "0.2") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/purcell/disable-mouse/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0haqpq23r1wx04lsqrrg3p5visg9hx5i36dg55ab003wfsrlrzbc")))) - (build-system emacs-build-system) - (home-page "https://github.com/purcell/disable-mouse") - (synopsis "Disable mouse commands globally") - (description - "Provides @code{disable-mouse-mode} and @code{global-disable-mouse-mode}, -pair of minor modes which suppress all mouse events by intercepting them and -running a customisable handler command (@code{ignore} by default). ") - (license license:gpl3+))) - -(define-public emacs-json-reformat - (package - (name "emacs-json-reformat") - (version "0.0.6") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/gongo/json-reformat/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "11fbq4scrgr7m0iwnzcrn2g7xvqwm2gf82sa7zy1l0nil7265p28")) - (patches (search-patches "emacs-json-reformat-fix-tests.patch")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-undercover" ,emacs-undercover))) - (native-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-shut-up" ,emacs-shut-up) - ("ert-runner" ,emacs-ert-runner))) - (arguments - `(#:tests? #t - #:test-command '("ert-runner"))) - (home-page "https://github.com/gongo/json-reformat") - (synopsis "Reformatting tool for JSON") - (description "@code{json-reformat} provides a reformatting tool for -@url{http://json.org/, JSON}.") - (license license:gpl3+))) - -(define-public emacs-json-snatcher - (package - (name "emacs-json-snatcher") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Sterlingg/json-snatcher/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1nfiwsifpdiz0lbrqa77nl0crnfrv5h85ans9b0g5rggnmyshcfb")))) - (build-system emacs-build-system) - (home-page "https://github.com/sterlingg/json-snatcher") - (synopsis "Grabs the path to JSON values in a JSON file") - (description "@code{emacs-json-snatcher} grabs the path to JSON values in -a @url{http://json.org/, JSON} file.") - (license license:gpl3+))) - -(define-public emacs-json-mode - (package - (name "emacs-json-mode") - (version "1.7.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/joshwnj/json-mode/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "06h45p4cn767pk9sqi2zb1c65wy5gyyijqxzpglp80zwxhvajdz5")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-json-reformat" ,emacs-json-reformat) - ("emacs-json-snatcher" ,emacs-json-snatcher))) - (home-page "https://github.com/joshwnj/json-mode") - (synopsis "Major mode for editing JSON files") - (description "@code{json-mode} extends the builtin js-mode syntax -highlighting.") - (license license:gpl3+))) - -(define-public emacs-restclient - (let ((commit "07a3888bb36d0e29608142ebe743b4362b800f40") - (revision "1")) ;Guix package revision, - ;upstream doesn't have official releases - (package - (name "emacs-restclient") - (version (string-append revision "." - (string-take commit 7))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/pashky/restclient.el.git") - (commit commit))) - (sha256 - (base32 - "00lmjhb5im1kgrp54yipf1h9pshxzgjlg71yf2rq5n973gvb0w0q")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm))) - (home-page "https://github.com/pashky/restclient.el") - (synopsis "Explore and test HTTP REST webservices") - (description - "This tool allows for testing and exploration of HTTP REST Web services -from within Emacs. Restclient runs queries from a plan-text query sheet, -displays results pretty-printed in XML or JSON with @code{restclient-mode}") - (license license:public-domain)))) - -(define-public emacs-eimp - (let ((version "1.4.0") - (commit "2e7536fe6d8f7faf1bad7a8ae37faba0162c3b4f") - (revision "1")) - (package - (name "emacs-eimp") - (version (git-version version revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/nicferrier/eimp.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "154d57yafxbcf39r89n5j43c86rp2fki3lw3gwy7ww2g6qkclcra")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs #:allow-other-keys) - (let ((imagemagick (assoc-ref inputs "imagemagick"))) - ;; eimp.el is read-only in git. - (chmod "eimp.el" #o644) - (emacs-substitute-variables "eimp.el" - ("eimp-mogrify-program" - (string-append imagemagick "/bin/mogrify")))) - #t))))) - (inputs - `(("imagemagick" ,imagemagick))) - (home-page "https://github.com/nicferrier/eimp") - (synopsis "Interactive image manipulation utility for Emacs") - (description "@code{emacs-eimp} allows interactive image manipulation -from within Emacs. It uses the code@{mogrify} utility from ImageMagick to do -the actual transformations.") - (license license:gpl2+)))) - -(define-public emacs-dired-hacks - (let ((commit "eda68006ce73bbf6b9b995bfd70d08bec8cade36") - (revision "1")) - (package - (name "emacs-dired-hacks") - (version (string-append "0.0.1-" revision "." - (string-take commit 7))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Fuco1/dired-hacks.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1w7ssl9zssn5rcha6apf4h8drkd02k4xgvs203bdbqyqp9wz9brx")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-eimp" ,emacs-eimp) - ("emacs-f" ,emacs-f) - ("emacs-s" ,emacs-s))) - (home-page "https://github.com/Fuco1/dired-hacks") - (synopsis - "Collection of useful dired additions") - (description - "Collection of Emacs dired mode additions: -@itemize -@item dired-avfs -@item dired-columns -@item dired-filter -@item dired-hacks-utils -@item dired-images -@item dired-list -@item dired-narrow -@item dired-open -@item dired-rainbow -@item dired-ranger -@item dired-subtree -@item dired-tagsistant -@end itemize\n") - (license license:gpl3+)))) - -(define-public emacs-dired-sidebar - (let ((commit "06bd0d40bab812c61a668129daf29ba359424454") - (revision "0")) - (package - (name "emacs-dired-sidebar") - (home-page "https://github.com/jojojames/dired-sidebar") - (version (git-version "0.0.1" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference (url home-page) (commit commit))) - (sha256 - (base32 - "0lvwvq6sl80sha9fq5m4568sg534dhmifyjqw75bqddcbf3by84x")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dired-subtree" ,emacs-dired-hacks))) - (synopsis "Sidebar for Emacs using Dired") - (description - "This package provides a sidebar for Emacs similar to @code{NeoTree} -or @code{treemacs}, but leveraging @code{Dired} to do the job of display.") - (license license:gpl3+)))) - -(define-public emacs-which-key - (package - (name "emacs-which-key") - (version "3.3.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/justbur/emacs-which-key/archive/v" - version ".tar.gz")) - (sha256 - (base32 - "1lsj314111cp2hjjwnv3f46ws1za6bm39rgy3l19044xf6a68j5w")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("emacs" "--batch" - "-l" "which-key-tests.el" - "-f" "ert-run-tests-batch-and-exit"))) - (home-page "https://github.com/justbur/emacs-which-key") - (synopsis "Display available key bindings in popup") - (description - "@code{emacs-which-key} is a minor mode for Emacs that displays the key -bindings following your currently entered incomplete command (a prefix) in a -popup. For example, after enabling the minor mode if you enter C-x and wait -for the default of 1 second, the minibuffer will expand with all of the -available key bindings that follow C-x (or as many as space allows given your -settings).") - (license license:gpl3+))) - -(define-public emacs-ws-butler - (package - (name "emacs-ws-butler") - (version "0.6") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/lewang/ws-butler.git") - (commit "323b651dd70ee40a25accc940b8f80c3a3185205"))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1a4b0lsmwq84qfx51c5xy4fryhb1ysld4fhgw2vr37izf53379sb")))) - (build-system emacs-build-system) - (native-inputs - `(("ert-runner" ,emacs-ert-runner))) - (arguments - `(#:tests? #t - #:test-command '("ert-runner" "tests"))) - (home-page "https://github.com/lewang/ws-butler") - (synopsis "Trim spaces from end of lines") - (description - "This Emacs package automatically and unobtrusively trims whitespace -characters from end of lines.") - (license license:gpl3+))) - -(define-public emacs-org-edit-latex - (package - (name "emacs-org-edit-latex") - (version "0.8.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/et2010/org-edit-latex/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1y4h6wrs8286h9pbsv4d8fr67a885vz8b2k80qgv5qddipi2i78p")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-auctex" ,emacs-auctex) - ;; The version of org in Emacs 25.2 is not sufficient, because the - ;; `org-latex-make-preamble' function is required. - ("emacs-org" ,emacs-org))) - (home-page "https://github.com/et2010/org-edit-latex") - (synopsis "Edit a latex fragment just like editing a src block") - (description "@code{emacs-org-edit-latex} is an extension for org-mode. -It lets you edit a latex fragment in a dedicated buffer just like editing a -src block.") - (license license:gpl3+))) - -(define-public emacs-emamux - (package - (name "emacs-emamux") - (version "0.14") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/syohex/emacs-emamux/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0wlqg4icy037bj70b0qmhvwvmiwhagpnx6pnxhq6gzy1hvwlilkx")))) - (build-system emacs-build-system) - (home-page "https://github.com/syohex/emacs-emamux") - (synopsis "Manipulate Tmux from Emacs") - (description - "@code{emacs-emamux} lets Emacs interact with the @code{tmux} terminal -multiplexer.") - (license license:gpl3+))) - -(define-public emacs-rpm-spec-mode - (package - (name "emacs-rpm-spec-mode") - (version "0.16") - (source - (origin - (method url-fetch) - ;; URI has the Fedora release number instead of the version - ;; number. This will have to updated manually every new release. - (uri (string-append - "https://src.fedoraproject.org/cgit/rpms" - "/emacs-rpm-spec-mode.git/snapshot" - "/emacs-rpm-spec-mode-f26.tar.gz")) - (sha256 - (base32 - "17dz80lhjrc89fj17pysl8slahzrqdkxgcjdk55zls6jizkr6kz3")))) - (build-system emacs-build-system) - (home-page "http://pkgs.fedoraproject.org/cgit/rpms/emacs-rpm-spec-mode.git") - (synopsis "Emacs major mode for editing RPM spec files") - (description "@code{emacs-rpm-spec-mode} provides an Emacs major mode for -editing RPM spec files.") - (license license:gpl2+))) - -(define-public emacs-git-messenger - (package - (name "emacs-git-messenger") - (version "0.18") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/syohex/emacs-git-messenger/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "17mqki6g0wx46fn7dcbcc2pjxik7vvrcb1j9jzxim8b9psbsbnp9")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-popup" ,emacs-popup))) - (arguments - `(#:tests? #t - #:test-command '("emacs" "--batch" "-l" "test/test.el" - "-f" "ert-run-tests-batch-and-exit"))) - (home-page "https://github.com/syohex/emacs-git-messenger") - (synopsis "Popup commit message at current line") - (description "@code{emacs-git-messenger} provides -@code{git-messenger:popup-message}, a function that when called, will popup -the last git commit message for the current line. This uses git-blame -internally.") - (license license:gpl3+))) - -(define-public emacs-gitpatch - (package - (name "emacs-gitpatch") - (version "0.5.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/tumashu/gitpatch/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1yj6pmic541lcnscjin300k380qp9xdfprs55xg1q57jrkq6f6k7")))) - (build-system emacs-build-system) - (home-page "https://github.com/tumashu/gitpatch") - (synopsis "Mail git patch from Emacs") - (description "@code{emacs-gitpatch} lets users easily send git patches, -created by @code{git format-patch}, from @code{magit}, @code{dired} and -@code{ibuffer} buffers.") - (license license:gpl3+))) - -(define-public emacs-erc-hl-nicks - (package - (name "emacs-erc-hl-nicks") - (version "1.3.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/leathekd/erc-hl-nicks" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1a1r2kc3688g8c2ybkpwh88kgmnqhg3h3032g2yn4zr9m0n3vpkr")))) - (build-system emacs-build-system) - (synopsis "Nickname highlighting for Emacs ERC") - (description "@code{erc-hl-nicks} highlights nicknames in ERC, an IRC -client for Emacs. The main features are: -@itemize -@item Auto-colorizes nicknames without having to specify colors -@item Ignores certain characters that IRC clients add to nicknames to avoid -duplicates (nickname, nickname’, nickname\", etc.) -@item Attempts to produce colors with a sufficient amount of contrast between -the nick color and the background color -@end itemize\n") - (home-page "https://github.com/leathekd/erc-hl-nicks") - (license license:gpl3+))) - -(define-public emacs-engine-mode - (package - (name "emacs-engine-mode") - (version "2.0.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/hrs/engine-mode/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1vm4p7pcp1vnwwxvps1bhm7i7hkabqqxl898knxf2hqvxys76684")))) - (build-system emacs-build-system) - (synopsis "Minor mode for defining and querying search engines") - (description "@code{engine-mode} is a global minor mode for Emacs. It -enables you to easily define search engines, bind them to keybindings, and -query them from the comfort of your editor.") - (home-page "https://github.com/hrs/engine-mode") - (license license:gpl3+))) - -(define-public emacs-prop-menu - (package - (name "emacs-prop-menu") - (version "0.1.2") - (source - (origin - (method url-fetch) - (uri (string-append - "http://stable.melpa.org/packages/prop-menu-" - version ".el")) - (sha256 - (base32 - "01bk4sjafzz7gqrkv9jg0pa85qr34vbk3q8ga2b0m61bndywzgpr")))) - (build-system emacs-build-system) - (home-page - "https://github.com/david-christiansen/prop-menu-el") - (synopsis - "Create and display a context menu based on text and overlay properties") - (description - "This is a library for computing context menus based on text -properties and overlays. The intended use is to have tools that -annotate source code and others that use these annotations, without -requiring a direct coupling between them, but maintaining -discoverability. - -Major modes that wish to use this library should first define an -appropriate value for @code{prop-menu-item-functions}. Then, they should -bind @code{prop-menu-by-completing-read} to an appropriate -key. Optionally, a mouse pop-up can be added by binding -@code{prop-menu-show-menu} to a mouse event.") - (license license:gpl3+))) - -(define-public emacs-idris-mode - (package - (name "emacs-idris-mode") - (version "0.9.19") - (source - (origin - (method url-fetch) - (uri (string-append - "http://stable.melpa.org/packages/idris-mode-" - version ".tar")) - (sha256 - (base32 - "02r1qqsxi6qk7q4cj6a6pygbj856dcw9vcmhfh0ib92j41v77q6y")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-prop-menu" ,emacs-prop-menu))) - (home-page - "https://github.com/idris-hackers/idris-mode") - (synopsis "Major mode for editing Idris code") - (description - "This is an Emacs mode for editing Idris code. It requires the latest -version of Idris, and some features may rely on the latest Git version of -Idris.") - (license license:gpl3+))) - -(define-public emacs-browse-at-remote - (package - (name "emacs-browse-at-remote") - (version "0.10.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/rmuslimov/browse-at-remote/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0ymslsp6i1naw25zckv25bf4aaq6qwkbkn95qyzlwg869l802686")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-f" ,emacs-f) - ("emacs-s" ,emacs-s))) - (native-inputs - `(("ert-runner" ,emacs-ert-runner))) - (arguments - `(#:tests? #t - #:test-command '("ert-runner"))) - (home-page "https://github.com/rmuslimov/browse-at-remote") - (synopsis "Open github/gitlab/bitbucket/stash page from Emacs") - (description - "This Emacs package allows you to open a target page on -github/gitlab (or bitbucket) by calling @code{browse-at-remote} command. -It supports dired buffers and opens them in tree mode at destination.") - (license license:gpl3+))) - -(define-public emacs-tiny - (package - (name "emacs-tiny") - (version "0.2.1") - (source - (origin - (method url-fetch) - (uri (string-append "http://elpa.gnu.org/packages/tiny-" version ".tar")) - (sha256 - (base32 - "1cr73a8gba549ja55x0c2s554f3zywf69zbnd7v82jz5q1k9wd2v")))) - (build-system emacs-build-system) - (home-page "https://github.com/abo-abo/tiny") - (synopsis "Quickly generate linear ranges in Emacs") - (description - "The main command of the @code{tiny} extension for Emacs is @code{tiny-expand}. -It is meant to quickly generate linear ranges, e.g. 5, 6, 7, 8. Some elisp -proficiency is an advantage, since you can transform your numeric range with -an elisp expression.") - (license license:gpl3+))) - -(define-public emacs-emojify - (package - (name "emacs-emojify") - (version "0.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/iqbalansari/emacs-emojify/" - "releases/download/v" version "/emojify-" - version ".tar")) - (sha256 - (base32 - "0k84v2d2bkiwcky9fi1yyprgkj46g7wh6pyl9gzmcd7sqv051d5n")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'install 'install-data - (lambda* (#:key outputs #:allow-other-keys) - (copy-recursively "data" - (string-append (assoc-ref outputs "out") - "/share/emacs/site-lisp/guix.d/" - "emojify-" ,version "/data")) - #t))))) - (propagated-inputs - `(("emacs-ht" ,emacs-ht))) - (home-page "https://github.com/iqbalansari/emacs-emojify") - (synopsis "Display emojis in Emacs") - (description "This package displays emojis in Emacs similar to how Github, -Slack, and other websites do. It can display plain ASCII like @code{:)} as -well as Github-style emojis like @code{:smile:}. It provides a minor mode -@code{emojify-mode} to enable the display of emojis in a buffer.") - (license license:gpl3+))) - -(define-public emacs-websocket - (package - (name "emacs-websocket") - (version "1.10") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ahyatt/emacs-websocket.git") - (commit version))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1dgrf7na6r6mmkknphzshlbd5fnzisg0qn0j7vfpa38wgsymaq52")))) - (build-system emacs-build-system) - (home-page "http://elpa.gnu.org/packages/websocket.html") - (synopsis "Emacs WebSocket client and server") - (description "This is an Elisp library for WebSocket clients to talk to -WebSocket servers, and for WebSocket servers to accept connections from -WebSocket clients. This library is designed to be used by other library -writers, to write applications that use WebSockets, and is not useful by -itself.") - (license license:gpl3+))) - -(define-public emacs-oauth2 - (package - (name "emacs-oauth2") - (version "0.11") - (source - (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/oauth2-" - version ".el")) - (sha256 - (base32 - "0ydkc9jazsnbbvfhd47mql52y7k06n3z7r0naqxkwb99j9blqsmp")))) - (build-system emacs-build-system) - (home-page "http://elpa.gnu.org/packages/oauth2.html") - (synopsis "OAuth 2.0 authorization protocol implementation") - (description - "This package provides an Elisp implementation of the OAuth 2.0 draft. -The main entry point is @code{oauth2-auth-and-store} which will return a token -structure. This token structure can be then used with -@code{oauth2-url-retrieve-synchronously} or @code{oauth2-url-retrieve} to -retrieve any data that need OAuth authentication to be accessed. If the token -needs to be refreshed, the code handles it automatically and stores the new -value of the access token.") - (license license:gpl3+))) - -(define-public emacs-circe - (package - (name "emacs-circe") - (version "2.10") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jorgenschaefer/circe.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "10gi14kwxd81blddpvqh95lgmpbfgp0m955naxix3bs3r6a75n4s")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("buttercup" "-L" ".") - #:phases - (modify-phases %standard-phases - ;; The HOME environment variable should be set to an existing - ;; directory for the tests to succeed. - (add-before 'check 'set-home - (lambda _ - (setenv "HOME" "/tmp") - #t))))) - (native-inputs - `(("emacs-buttercup" ,emacs-buttercup))) - ;; In order to securely connect to an IRC server using TLS, Circe requires - ;; the GnuTLS binary. - (propagated-inputs - `(("gnutls" ,gnutls))) - (home-page "https://github.com/jorgenschaefer/circe") - (synopsis "Client for IRC in Emacs") - (description "Circe is a Client for IRC in Emacs. It integrates well with -the rest of the editor, using standard Emacs key bindings and indicating -activity in channels in the status bar so it stays out of your way unless you -want to use it.") - (license license:gpl3+))) - -(define-public emacs-tracking - (package - (inherit emacs-circe) - (name "emacs-tracking") - (arguments - ;; "tracking.el" is a library extracted from Circe package. It requires - ;; "shorten.el". - `(#:include '("^shorten.el$" "^tracking.el$") - ,@(package-arguments emacs-circe))) - (home-page "https://github.com/jorgenschaefer/circe/wiki/Tracking") - (synopsis "Buffer tracking library") - (description "@code{tracking.el} provides a way for different modes to -notify the user that a buffer needs attention. The user then can cycle -through them using @key{C-c C-SPC}.") - (license license:gpl3+))) - -(define-public emacs-slack - (let ((commit "99a57501629a0329a9ca090c1ea1296462eda02d") - (revision "5")) - (package - (name "emacs-slack") - (version (git-version "0.0.2" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/yuya373/emacs-slack.git") - (commit commit))) - (file-name (git-file-name name commit)) - (sha256 - (base32 - "0jw1diypfw8pmzkq0napgxmfc0gqka7zcccgnw359604lr30k2z2")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-alert" ,emacs-alert) - ("emacs-emojify" ,emacs-emojify) - ("emacs-helm" ,emacs-helm) - ("emacs-request" ,emacs-request) - ("emacs-websocket" ,emacs-websocket) - ("emacs-oauth2" ,emacs-oauth2) - ("emacs-circe" ,emacs-circe))) - (home-page "https://github.com/yuya373/emacs-slack") - (synopsis "Slack client for Emacs") - (description "This package provides an Emacs client for the Slack -messaging service.") - (license license:gpl3+)))) - -(define-public emacs-bash-completion - (package - (name "emacs-bash-completion") - (version "2.1.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/szermatt/emacs-bash-completion/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1z0qck3v3ra6ivacn8n04w1v33a4xn01xx860761q31qzsv3sksq")))) - (inputs `(("bash" ,bash))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'install 'configure - (lambda* (#:key inputs #:allow-other-keys) - (let ((bash (assoc-ref inputs "bash"))) - (emacs-substitute-variables "bash-completion.el" - ("bash-completion-prog" (string-append bash "/bin/bash")))) - #t))))) - (home-page "https://github.com/szermatt/emacs-bash-completion") - (synopsis "Bash completion for the shell buffer") - (description - "@code{bash-completion} defines dynamic completion hooks for shell-mode -and shell-command prompts that are based on Bash completion.") - (license license:gpl2+))) - -(define-public emacs-easy-kill - (package - (name "emacs-easy-kill") - (version "0.9.3") - (source (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/easy-kill-" - version ".tar")) - (sha256 - (base32 - "17nw0mglmg877axwg1d0gs03yc0p04lzmd3pl0nsnqbh3303fnqb")))) - (build-system emacs-build-system) - (home-page "https://github.com/leoliu/easy-kill") - (synopsis "Kill and mark things easily in Emacs") - (description - "This package provides commands @code{easy-kill} and @code{easy-mark} to -let users kill or mark things easily.") - (license license:gpl3+))) - -(define-public emacs-csv-mode - (package - (name "emacs-csv-mode") - (version "1.7") - (source - (origin - (method url-fetch) - (uri (string-append "http://elpa.gnu.org/packages/csv-mode-" - version ".el")) - (sha256 - (base32 - "0r4bip0w3h55i8h6sxh06czf294mrhavybz0zypzrjw91m1bi7z6")))) - (build-system emacs-build-system) - (home-page - "http://elpa.gnu.org/packages/csv-mode.html") - (synopsis - "Major mode for editing comma/char separated values") - (description - "This Emacs package implements CSV mode, a major mode for editing records -in a generalized CSV (character-separated values) format.") - (license license:gpl3+))) - -(define-public emacs-transmission - (package - (name "emacs-transmission") - (version "0.12.1") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/holomorph/transmission/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1rrlgn96gi1ljfwbwvlyyxbq75xzamlbdhq1bpyadxxmxcvlmk3n")))) - (build-system emacs-build-system) - (home-page "https://github.com/holomorph/transmission") - (synopsis "Emacs interface to a Transmission session") - (description "This package provides an Emacs interface to interact with a -running session of the Transmission Bittorrent client. - -Features: - -@itemize -@item List, add, start/stop, verify, remove torrents. -@item Set speed limits, ratio limits, bandwidth priorities, trackers. -@item Navigate to the corresponding file list, torrent info, peer info -contexts. -@item Toggle downloading and set priorities for individual files. -@end itemize\n") - (license license:gpl3+))) - -(define-public emacs-polymode - (package - (name "emacs-polymode") - (version "0.1.5") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/vspinu/polymode.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0wwphs54jx48a3ca6x1qaz56j3j9bg4mv8g2akkffrzbdcb8sbc7")))) - (build-system emacs-build-system) - (arguments - `(#:include (cons* "^modes/.*\\.el$" %default-include) - #:phases - (modify-phases %standard-phases - (add-after 'set-emacs-load-path 'add-modes-subdir-to-load-path - (lambda _ - (setenv "EMACSLOADPATH" - (string-append (getenv "EMACSLOADPATH") - ":" (getcwd) "/modes" ":"))))))) - (home-page "https://github.com/vspinu/polymode") - (synopsis "Framework for multiple Emacs modes based on indirect buffers") - (description "Polymode is an Emacs package that offers generic support -for multiple major modes inside a single Emacs buffer. It is lightweight, -object oriented and highly extensible. Creating a new polymode typically -takes only a few lines of code. Polymode also provides extensible facilities -for external literate programming tools for exporting, weaving and tangling.") - (license license:gpl3+))) - -(define-public emacs-polymode-ansible - (let ((commit "b26094d029e25dc797b94254f797e7807a57e4c8")) - (package - (name "emacs-polymode-ansible") - ;; No upstream version release yet. - (version (git-version "0.1" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://gitlab.com/mavit/poly-ansible") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "055shddqibib3hx2ykwdz910nrqws40cd407mq946l2bf6v87gj6")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-ansible-doc" ,emacs-ansible-doc) - ("emacs-jinja2-mode" ,emacs-jinja2-mode) - ("emacs-polymode" ,emacs-polymode) - ("emacs-yaml-mode" ,emacs-yaml-mode))) - (properties '((upstream-name . "poly-ansible"))) - (home-page "https://gitlab.com/mavit/poly-ansible/") - (synopsis "Polymode for Ansible - Jinja2 in YAML") - (description - "Edit YAML files for Ansible containing embedded Jinja2 templating.") - (license license:gpl3+)))) - -(define-public eless - (package - (name "eless") - (version "0.3") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/kaushalmodi/eless/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0gjnnhgw5xs1w3qfnkvwa2nv44gnxr8pkhx3c7qig45p8nh1461h")))) - (build-system trivial-build-system) - (inputs - `(("bash" ,bash))) - (native-inputs - `(("tar" ,tar) - ("gzip" ,gzip))) - (arguments - `(#:modules ((guix build utils)) - #:builder - (begin - (use-modules (guix build utils)) - (setenv "PATH" (string-append - (assoc-ref %build-inputs "tar") "/bin" ":" - (assoc-ref %build-inputs "gzip") "/bin")) - (invoke "tar" "xvf" (assoc-ref %build-inputs "source")) - (chdir (string-append "eless" "-" ,version)) - (substitute* "eless" (("/usr/bin/env bash") - (string-append (assoc-ref %build-inputs "bash") - "/bin/bash"))) - (install-file "eless" (string-append %output "/bin")) - (install-file "doc/eless.info" (string-append %output "/share/info")) - #t))) - (home-page "https://github.com/kaushalmodi/eless") - (synopsis "Use Emacs as a paginator") - (description "@code{eless} provides a combination of Bash script -and a minimal Emacs view-mode. - -Feautures: - -@itemize -@item Independent of a user’s Emacs config. -@item Customizable via the @code{(locate-user-emacs-file \"elesscfg\")} config. -@item Not require an Emacs server to be already running. -@item Syntax highlighting. -@item Org-mode file rendering. -@item @code{man} page viewer. -@item Info viewer. -@item Dired, wdired, (batch edit symbolic links). -@item Colored diffs, git diff, git log, ls with auto ANSI detection. -@item Filter log files lines matching a regexp. -@item Auto-revert log files similar to @code{tail -f}. -@item Quickly change frame and font sizes. -@end itemize\n") - (license license:expat))) - -(define-public emacs-evil-matchit - (package - (name "emacs-evil-matchit") - (version "2.2.6") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/redguardtoo/evil-matchit/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1yp9sl6542317mn1060ri90zyf6bs6qylagndhqy02p368q31rhi")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-evil" ,emacs-evil))) - (home-page "https://github.com/redguardtoo/evil-matchit") - (synopsis "Vim matchit ported into Emacs") - (description - "@code{evil-matchit} is a minor mode for jumping between matching tags in -evil mode using @kbd{%}. It is a port of @code{matchit} for Vim.") - (license license:gpl3+))) - -(define-public emacs-evil-smartparens - (package - (name "emacs-evil-smartparens") - (version "0.4.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/expez/evil-smartparens/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1bwzdd3054d407d5j4m3njsbvmc9r8zzp33m32pj3b3irxrl68q0")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-evil" ,emacs-evil) - ("emacs-smartparens" ,emacs-smartparens))) - (home-page "https://github.com/expez/evil-smartparens") - (synopsis "Emacs Evil integration for Smartparens") - (description "@code{emacs-evil-smartparens} is an Emacs minor mode which -makes Evil play nice with Smartparens. Evil is an Emacs minor mode that -emulates Vim features and provides Vim-like key bindings.") - (license license:gpl3+))) - -(define-public emacs-evil-quickscope - (package - (name "emacs-evil-quickscope") - (version "0.1.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/blorbx/evil-quickscope/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1r26a412mmar7vbf89zcifswiwpdg30mjzj32xdyqss57aqi83ma")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-evil" ,emacs-evil))) - (arguments - `(#:tests? #t - #:test-command '("emacs" "--batch" - "-l" "evil-quickscope-tests.el" - "-f" "ert-run-tests-batch-and-exit"))) - (home-page "https://github.com/blorbx/evil-quickscope") - (synopsis "Target highlighting for emacs evil-mode f,F,t and T commands") - (description "@code{emacs-evil-quickscope} highlights targets for Evil -mode’s f,F,t,T keys, allowing for quick navigation within a line. It is a -port of quick-scope for Vim. Evil is an Emacs minor mode that emulates Vim -features and provides Vim-like key bindings.") - (license license:gpl3+))) - -(define-public emacs-bongo - (package - (name "emacs-bongo") - (version "1.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/dbrock/bongo/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1pcsyyrvj7djjjwpaswd1i782hvqvlvs39cy9ns0k795si6xd64d")))) - (build-system emacs-build-system) - (home-page "https://github.com/dbrock/bongo") - (synopsis "Media player for Emacs") - (description - "This package provides a flexible media player for Emacs. @code{Bongo} -supports multiple backends such as @code{vlc}, @code{mpg123}, -@code{ogg123}, @code{speexdec}, @code{timidity}, @code{mikmod} and -@code{afplay}.") - (license license:gpl2+))) - -(define-public emacs-groovy-modes - (package - (name "emacs-groovy-modes") - (version "2.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/Groovy-Emacs-Modes/groovy-emacs-modes" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "15j0hnkx9nppjzda5cqsxxz5f3bq9hc4xfyjcdypzqiypcvmpa39")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-s" ,emacs-s))) - (home-page "https://github.com/Groovy-Emacs-Modes/groovy-emacs-modes") - (synopsis "Groovy related modes for Emacs") - (description - "This package provides @code{groovy-mode} for syntax highlighing in -Groovy source files, REPL integration with run-groovy and Grails project -navigation with the grails mode.") - (license license:gpl3+))) - -(define-public groovy-emacs-modes - (deprecated-package "groovy-emacs-modes" emacs-groovy-modes)) - -(define-public emacs-org-tree-slide - (let ((commit "dff8f1a4a64c8dd0a1fde0b0131e2fe186747134") - (revision "0")) - (package - (name "emacs-org-tree-slide") - (version (git-version "0.1" revision commit)) - (home-page "https://github.com/takaxp/org-tree-slide") - (source (origin - (method git-fetch) - (uri (git-reference (url home-page) (commit commit))) - (sha256 - (base32 - "153bg0x7ypla11pq51jmsgzfjklwwnrq56xgpbfhk1j16xwz9hyf")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (synopsis "Presentation tool for org-mode") - (description - "Org-tree-slide provides a slideshow mode to view org-mode files. Use -@code{org-tree-slide-mode} to enter the slideshow mode, and then @kbd{C->} and -@kbd{C-<} to jump to the next and previous slide.") - (license license:gpl3+)))) - -(define-public emacs-scratch-el - (let ((commit "2cdf2b841ce7a0987093f65b0cc431947549f897") - (revision "1")) - (package - (name "emacs-scratch-el") - (version (git-version "1.2" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ieure/scratch-el.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0wscsndynjmnliajqaz28r1ww81j8wh84zwaaswx51abhwgl0idf")))) - (build-system emacs-build-system) - (native-inputs - `(("texinfo" ,texinfo))) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-after 'install 'install-doc - (lambda* (#:key outputs #:allow-other-keys) - (unless (invoke "makeinfo" "scratch.texi") - (error "makeinfo failed")) - (install-file "scratch.info" - (string-append (assoc-ref outputs "out") - "/share/info")) - #t))))) - (home-page "https://github.com/ieure/scratch-el/") - (synopsis "Create scratch buffers with the same mode as current buffer") - (description "Scratch is an extension to Emacs that enables one to create -scratch buffers that are in the same mode as the current buffer. This is -notably useful when working on code in some language; you may grab code into a -scratch buffer, and, by virtue of this extension, do so using the Emacs -formatting rules for that language.") - (license license:bsd-2)))) - -(define-public emacs-kv - (package - (name "emacs-kv") - (version "0.0.19") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/nicferrier/emacs-kv.git") - (commit "721148475bce38a70e0b678ba8aa923652e8900e"))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0r0lz2s6gvy04fwnafai668jsf4546h4k6zd6isx5wpk0n33pj5m")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("emacs" "--batch" "-l" "kv-tests.el" - "-f" "ert-run-tests-batch-and-exit"))) - (home-page "https://github.com/nicferrier/emacs-kv") - (synopsis "Key/Value data structures library for Emacs Lisp") - (description "@code{emacs-kv} is a collection of tools for dealing with -key/value data structures such as plists, alists and hash-tables in Emacs -Lisp.") - (license license:gpl3+))) - -(define-public emacs-esxml - (package - (name "emacs-esxml") - (version "0.3.4") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/tali713/esxml.git") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "00vv8a75wdklygdyr4km9mc2ismxak69c45jmcny41xl44rp9x8m")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'fix-sources - (lambda _ - ;; See: https://github.com/tali713/esxml/pull/28. - (substitute* "css-lite.el" - ((";;; main interface") - (string-append ";;; main interface\n" - "(require 'cl-lib)")) - (("mapcan") - "cl-mapcan") - (("',\\(cl-mapcan #'process-css-rule rules\\)") - "(cl-mapcan #'process-css-rule ',rules)")) - (substitute* "esxml-form.el" - ((",esxml-form-field-defn") - "#'esxml-form-field-defn")) - ;; See: https://github.com/tali713/esxml/issues/25 - (delete-file "esxpath.el") - #t))))) - (propagated-inputs - `(("emacs-kv" ,emacs-kv))) - (home-page "https://github.com/tali713/esxml/") - (synopsis "SXML for EmacsLisp") - (description "This is XML/XHTML done with S-Expressions in EmacsLisp. -Simply, this is the easiest way to write HTML or XML in Lisp. This library -uses the native form of XML representation as used by many libraries already -included within Emacs. See @code{esxml-to-xml} for a concise description of -the format.") - (license license:gpl3+))) - -(define-public emacs-nov-el - (package - (name "emacs-nov-el") - (version "0.2.6") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/wasamasa/nov.el.git") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "188h5gzn1zf443g0b7q5bpmvvpr6ds5h8aci8vxc92py56rhyrvc")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'embed-path-to-unzip - (lambda _ - (substitute* "nov.el" - (("\\(executable-find \"unzip\"\\)") - (string-append "\"" (which "unzip") "\""))) - #t))))) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-esxml" ,emacs-esxml))) - (inputs - `(("unzip" ,unzip))) - (home-page "https://github.com/wasamasa/nov.el/") - (synopsis "Major mode for reading EPUBs in Emacs") - (description "@code{nov.el} provides a major mode for reading EPUB -documents. - -Features: - -@itemize -@item Basic navigation (jump to TOC, previous/next chapter) -@item Remembering and restoring the last read position -@item Jump to next chapter when scrolling beyond end -@item Renders EPUB2 (@code{.ncx}) and EPUB3 (@code{<nav>}) TOCs -@item Hyperlinks to internal and external targets -@item Supports textual and image documents -@item View source of document files -@item Metadata display -@item Image rescaling -@end itemize -") - (license license:gpl3+))) - -(define-public epipe - (package - (name "epipe") - (version "0.1.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/cute-jumper/epipe/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "05a036852g4j63k1mhvyfrcsgkl9lczayi7x61570ysw3cli5wp5")))) - (build-system trivial-build-system) - (inputs - `(("bash" ,bash) - ("perl" ,perl))) - (native-inputs - `(("tar" ,tar) - ("gzip" ,gzip))) - (arguments - `(#:modules - ((guix build utils)) - #:builder - (begin - (use-modules (guix build utils)) - ;; Extract source - (setenv "PATH" (string-append - (assoc-ref %build-inputs "tar") "/bin" ":" - (assoc-ref %build-inputs "gzip") "/bin")) - (invoke "tar" "xvf" (assoc-ref %build-inputs "source")) - (chdir (string-append ,name "-" ,version)) - ;; Patch shebangs - (substitute* "epipe" - (("/usr/bin/env bash") - (string-append (assoc-ref %build-inputs "bash") "/bin/bash"))) - (patch-shebang "epipe.pl" - (list (string-append (assoc-ref %build-inputs "perl") - "/bin"))) - ;; Installation - (for-each (lambda (file) - (install-file file (string-append %output "/bin"))) - '("epipe" "epipe.pl")) - #t))) - (home-page "https://github.com/cute-jumper/epipe") - (synopsis "Pipe to the @code{emacsclient}") - (description "@code{epipe} provides an utility to use your editor in -the pipeline, featuring the support for running @code{emacsclient}.") - (license license:gpl3+))) - -(define-public emacs-hcl-mode - (package - (name "emacs-hcl-mode") - (version "0.03") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/syohex/emacs-hcl-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0pvw74qpwh0znqzp6syp4wxjqs7dp1hbn5h7xfk97mff9l5d8k6x")))) - (build-system emacs-build-system) - (home-page "https://github.com/syohex/emacs-hcl-mode") - (synopsis "Major mode for the Hashicorp Configuration Language") - (description - "@code{emacs-hcl-mode} provides an Emacs major mode for working with -@acronym{HCL, Hashicorp Configuration Language}. It provides syntax -highlighting and indentation support.") - (license license:gpl3+))) - -(define-public emacs-terraform-mode - (package - (name "emacs-terraform-mode") - (version "0.06") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/syohex/emacs-terraform-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0h9267ifdjmcin4sj8slxydbacx4bqicbvg8pa1qq2l72h9m5381")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-hcl-mode" ,emacs-hcl-mode))) - (home-page "https://github.com/syohex/emacs-terraform-mode") - (synopsis "Major mode for Terraform") - (description - "@code{emacs-terraform-mode} provides a major mode for working with -@uref{https://www.terraform.io/, Terraform} configuration files. Most of the -functionality is inherited from @code{hcl-mode}.") - (license license:gpl3+))) - -(define-public emacs-exec-path-from-shell - (package - (name "emacs-exec-path-from-shell") - (version "1.11") - (source - (origin - (method url-fetch) - (uri (string-append - "https://stable.melpa.org/packages/exec-path-from-shell-" - version ".el")) - (sha256 - (base32 - "03qjgb81cq1l3j54lvlf98r75vmmgd06mj6qh5wa6mz4xzp4w26r")))) - (build-system emacs-build-system) - (home-page "https://github.com/purcell/exec-path-from-shell") - (synopsis "Get environment variables such as @var{PATH} from the shell") - (description - "This library allows the user to set Emacs @var{exec-path} and @var{PATH} -from the shell @var{PATH}, so that @code{shell-command}, @code{compile} and -the like work as expected on systems on which Emacs is not guaranteed to -inherit a login shell's environment variables. It also allows other -environment variables to be retrieved from the shell, so that Emacs will see -the same values you get in a terminal.") - (license license:gpl3+))) - -(define-public emacs-deft - (package - (name "emacs-deft") - (version "0.8") - (source - (origin - (method url-fetch) - (uri (string-append "https://stable.melpa.org/packages/deft-" - version ".el")) - (sha256 - (base32 - "1vb9cjxskc7c0yyf9pvxy1fzypg1vrcgwnjz0m3hslinsgdyig58")))) - (build-system emacs-build-system) - (home-page "https://jblevins.org/projects/deft/") - (synopsis "Quickly browse, filter, and edit plain text notes") - (description - "Deft is an Emacs mode for quickly browsing, filtering, and editing -directories of plain text notes, inspired by Notational Velocity.") - (license license:bsd-3))) - -(define-public emacs-anzu - (package - (name "emacs-anzu") - (version "0.62") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/syohex/emacs-anzu/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "16cg3897x5znbmgk7sdy0qyd0fbic9dmmz0dchq2vz5z29yhg4cz")))) - (build-system emacs-build-system) - (home-page "https://github.com/syohex/emacs-anzu") - (synopsis "Show number of matches in mode-line while searching") - (description - "Anzu provides a minor mode which displays \"current match/total -matches\" in the mode line in various search modes. This is an Emacs port of -Anzu.zim.") - (license license:gpl3+))) - -(define-public emacs-emmet-mode - (package - (name "emacs-emmet-mode") - (version "1.0.8") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/smihica/emmet-mode" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0g3p22yabfcp98cfv9dgl9il2m2pd53isq2q11vb3s7qyn31f7zj")))) - (build-system emacs-build-system) - (home-page "https://github.com/smihica/emmet-mode") - (synopsis "Unofficial Emmet's support for Emacs") - (description - "Unfold CSS-selector-like expressions to markup. It is intended to be -used with SGML-like languages: XML, HTML, XHTML, XSL, etc.") - (license license:gpl3+))) - -(define-public emacs-ergoemacs-mode - (let ((commit "3ce23bba3cb50562693860f87f3528c471d603ba") - (revision "1")) - (package - (name "emacs-ergoemacs-mode") - (version (git-version "5.16.10.12" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ergoemacs/ergoemacs-mode.git") - (commit commit))) - (sha256 - (base32 - "1s3b9bridl78hh1mxmdk9nqlmqhibbaxk0a1cixmsf23s06w8w6l")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-undo-tree" ,emacs-undo-tree))) - (home-page "https://ergoemacs.github.io/") - (synopsis "Emacs mode based on common modern interface and ergonomics") - (description - "This package provides an efficient Emacs keybinding set based on -statistics of command frequency, and supports common shortcuts for open, -close, copy, cut, paste, undo, redo.") - (license license:gpl3+)))) - -(define-public emacs-password-store - (package - (name "emacs-password-store") - (version "1.7.3") - (source (origin - (method url-fetch) - (uri - (string-append "https://git.zx2c4.com/password-store/snapshot/" - "password-store-" version ".tar.xz")) - (sha256 - (base32 - "1x53k5dn3cdmvy8m4fqdld4hji5n676ksl0ql4armkmsds26av1b")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'extract-el-file - (lambda _ - (copy-file "contrib/emacs/password-store.el" "password-store.el") - (delete-file-recursively "contrib") - (delete-file-recursively "man") - (delete-file-recursively "src") - (delete-file-recursively "tests")))))) - (propagated-inputs - `(("emacs-f" ,emacs-f) - ("emacs-s" ,emacs-s) - ("emacs-with-editor" ,emacs-with-editor) - ("password-store" ,password-store))) - (home-page "https://git.zx2c4.com/password-store/tree/contrib/emacs") - (synopsis "Password store (pass) support for Emacs") - (description - "This package provides functions for working with pass (\"the -standard Unix password manager\").") - (license license:gpl2+))) - -(define-public emacs-pass - (package - (name "emacs-pass") - (version "1.7") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/NicolasPetton/pass/archive/" - version ".tar.gz")) - (sha256 - (base32 - "0zlx9v6z0q3w9qhq9bq6vb7sli4c9x7qccm2wq55j0nw7bwy2yvj")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-password-store" ,emacs-password-store) - ("emacs-f" ,emacs-f))) - (home-page "https://github.com/NicolasPetton/pass") - (synopsis "Major mode for @file{password-store.el}") - (description "This is a major mode for managing password-store (pass) -keychains. The keychain entries are displayed in a directory-like structure -and can be consulted and modified.") - (license license:gpl3+))) - -(define-public emacs-evil-anzu - (package - (name "emacs-evil-anzu") - (version "0.03") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/syohex/emacs-evil-anzu" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 "032hh2946z529cizqsg8pm6cpn5qdj8lfk3qskmx6xv3g2ra56ns")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-evil" ,emacs-evil) - ("emacs-anzu" ,emacs-anzu))) - (home-page "https://github.com/syohex/emacs-evil-anzu") - (synopsis "Anzu for evil-mode") - (description "@code{anzu} provides a minor mode that displays the current -match and total match information in the mode-line in various search modes.") - (license license:gpl3+))) - -(define-public emacs-pg - (let ((commit "4f6516ec3946d95dcef49abb6703cc89ecb5183d")) - (package - (name "emacs-pg") - (version (git-version "0.1" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference (url "https://github.com/cbbrowne/pg.el") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1zh7v4nnpzvbi8yj1ynlqlawk5bmlxi6s80b5f2y7hkdqb5q26k0")))) - (build-system emacs-build-system) - (home-page "https://github.com/cbbrowne/pg.el") - (synopsis "Emacs Lisp interface for PostgreSQL") - (description - "This package provides an Emacs Lisp interface for PostgreSQL.") - (license license:gpl3+)))) - -(define-public emacs-cl-generic - (package - (name "emacs-cl-generic") - (version "0.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/cl-generic-" - version ".el")) - (sha256 - (base32 - "0vb338bhjpsnrf60qgxny4z5rjrnifahnrv9axd4shay89d894zq")))) - (build-system emacs-build-system) - (home-page "https://elpa.gnu.org/packages/seq.html") - (synopsis - "Forward @code{cl-generic} compatibility for Emacs before version 25") - (description "This package provides a subset of the features of the -@code{cl-generic} package introduced in Emacs-25, for use on previous -@code{emacsen}.") - (license license:gpl3+))) - -(define-public emacs-finalize - (package - (name "emacs-finalize") - (version "2.0.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/skeeto/elisp-finalize/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "077fycy3i5f0kjw5z3rhf4kld5lbk2idz690nkwhkz04vppk4q4x")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-cl-generic" ,emacs-cl-generic))) - (home-page "https://github.com/skeeto/elisp-finalize") - (synopsis "Finalizers for Emacs Lisp") - (description - "This package will allows to immediately run a callback (a finalizer) -after its registered lisp object has been garbage collected. This allows for -extra resources, such as buffers and processes, to be cleaned up after the -object has been freed.") - (license license:unlicense))) - -(define-public emacs-emacsql - (package - (name "emacs-emacsql") - (version "3.0.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/skeeto/emacsql.git") - (commit (string-append version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1c84gxr1majqj4b59wgdy3lzm3ap66w9qsrnkx8hdbk9895ak81g")))) - (build-system emacs-build-system) - (arguments - `(#:modules ((guix build emacs-build-system) - (guix build utils) - (guix build emacs-utils) - (srfi srfi-26)) - #:phases - (modify-phases %standard-phases - (delete 'build) ;‘build-emacsql-sqlite’ compiles ‘*.el’ files. - (add-before 'install 'patch-elisp-shell-shebangs - (lambda _ - (substitute* (find-files "." "\\.el") - (("/bin/sh") (which "sh"))) - #t)) - (add-after 'patch-elisp-shell-shebangs 'setenv-shell - (lambda _ - (setenv "SHELL" "sh"))) - (add-after 'setenv-shell 'build-emacsql-sqlite - (lambda _ - (invoke "make" "binary" "CC=gcc"))) - (add-after 'build-emacsql-sqlite 'install-emacsql-sqlite - ;; This build phase installs emacs-emacsql binary. - (lambda* (#:key outputs #:allow-other-keys) - (install-file "sqlite/emacsql-sqlite" - (string-append (assoc-ref outputs "out") - "/bin")) - #t)) - (add-after 'install-emacsql-sqlite 'patch-emacsql-sqlite.el - ;; This build phase removes interactive prompts - ;; and makes sure Emacs look for binaries in the right places. - (lambda* (#:key outputs #:allow-other-keys) - (let ((file "emacsql-sqlite.el")) - (chmod file #o644) - (emacs-substitute-sexps file - ;; Make sure Emacs looks for ‘GCC’ binary in the right place. - ("(executable-find" (which "gcc")) - ;; Make sure Emacs looks for ‘emacsql-sqlite’ binary - ;; in the right place. - ("(defvar emacsql-sqlite-executable" - (string-append (assoc-ref outputs "out") - "/bin/emacsql-sqlite")))))) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out"))) - (install-file "sqlite/emacsql-sqlite" - (string-append out "/bin")) - (for-each (cut install-file <> - (string-append out "/share/emacs/site-lisp/guix.d/" - "emacsql" "-" ,version)) - (find-files "." "\\.elc*$"))) - #t))))) - (inputs - `(("emacs-minimal" ,emacs-minimal) - ("mariadb" ,mariadb) - ("postgresql" ,postgresql))) - (propagated-inputs - `(("emacs-finalize" ,emacs-finalize) - ("emacs-pg" ,emacs-pg))) - (home-page "https://github.com/skeeto/emacsql") - (synopsis "Emacs high-level SQL database front-end") - (description "Any readable Lisp value can be stored as a value in EmacSQL, -including numbers, strings, symbols, lists, vectors, and closures. EmacSQL -has no concept of @code{TEXT} values; it's all just Lisp objects. The Lisp -object @code{nil} corresponds 1:1 with @code{NULL} in the database.") - (license license:gpl3+))) - -(define-public emacs-closql - (package - (name "emacs-closql") - (version "1.0.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacscollective/closql.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0cy44d1fxkvah6fhjkn3mp6gzzrjmws1c4c20ayrma74y9xich3v")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-emacsql" ,emacs-emacsql))) - (home-page "https://github.com/emacscollective/closql") - (synopsis "Store EIEIO objects using EmacSQL") - (description - "This package allows to store uniform EIEIO objects in an EmacSQL -database. SQLite is used as backend. This library imposes some restrictions -on what kind of objects can be stored; it isn't intended to store arbitrary -objects. All objects have to share a common superclass and subclasses cannot -add any additional instance slots.") - (license license:gpl3))) - -(define-public emacs-epkg - ;; The release version is to old for the current database scheme. - (let ((commit "432312b9583ed7b88ad9644fd1bf2183765a892e")) - (package - (name "emacs-epkg") - (version (git-version "3.0.0" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacscollective/epkg.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0d882kahn7a0vri7a9r15lvmfx1zn2hsga6jfcc6jv0hqbswlb2k")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-closql" ,emacs-closql) - ("emacs-dash" ,emacs-dash))) - (home-page "https://emacsmirror.net") - (synopsis "Browse the Emacsmirror package database") - (description "This package provides access to a local copy of the -Emacsmirror package database. It provides low-level functions for querying -the database and a @file{package.el} user interface for browsing the database. -Epkg itself is not a package manager. - -Getting a local copy: - -@example -git clone https://github.com/emacsmirror/epkgs.git ~/.emacs.d/epkgs -cd ~/.emacs.d/epkgs -git submodule init -git config --global url.https://github.com/.insteadOf git@@github.com: -git submodule update -@end example - -Some submodule may be missing. In this case Git will prompt for a GitHub user -name and password. To skip it press a @key{Return} key. - -You could get a Epkg package list by invoking @code{epkg-list-packages} in -Emacs.") - (license license:gpl3+)))) - -(define-public emacs-elisp-slime-nav - (package - (name "emacs-elisp-slime-nav") - (version "0.9") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/purcell/elisp-slime-nav/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1vq7ym1q47p97gxrv45c9gm96d23xbp237vkmakikj6grngxjfb2")))) - (build-system emacs-build-system) - (home-page "https://github.com/purcell/elisp-slime-nav") - (synopsis "Make @code{M-.} and @code{M-,} work for elisp like they do in SLIME") - (description - "This package provides SLIME's convenient @code{M-.}and @code{M-,} navigation -in @code{emacs-lisp-mode}, together with an elisp equivalent of -@code{slime-describe-symbol}.") - (license license:gpl3+))) - -(define-public emacs-dedicated - (package - (name "emacs-dedicated") - (version "1.0.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/emacsorphanage/dedicated/archive/" - version - ".tar.gz")) - (sha256 - (base32 - "0nhbkp278cvcznb5rp3jp9ii3mjgb79zx8iwfrw7zfk3yg8688ni")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (home-page "https://github.com/emacsorphanage/dedicated") - (synopsis "Emacs minor mode for toggling a windows's \"dedicated\" flag") - (description - "This simple Emacs minor mode allows you to toggle a window's -\"dedicated\" flag. When a window is \"dedicated\", Emacs will not select -files into that window. This can be quite handy since many commands will use -another window to show results (compilation mode, starting info, and so on). -A dedicated window won't be used for such a purpose. For details, please read -the source file.") - (license license:gpl2+))) - -(define-public emacs-nnreddit - (let ((commit "9843f99d01fd8f1eea2fc685965a7c7f4eeb187a") - (revision "1")) - (package - (name "emacs-nnreddit") - (version (string-append "0.0.1-" revision "." - (string-take commit 7))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/paul-issartel/nnreddit.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0j4h3bnga640250jdq8bwyja49r41ssrsjd6lba4gzzllqk02nbn")))) - (build-system emacs-build-system) - (home-page "https://github.com/paul-issartel/nnreddit") - (synopsis "Reddit backend for the Gnus newsreader") - (description "@url{https://www.reddit.com} backend for the Gnus -newsreader.") - (license license:gpl3+)))) - -(define-public emacs-makey - (package - (name "emacs-makey") - (version "0.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/mickeynp/makey/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0kzl4q1wf2zhkx9nrymxa67n99iq0bj7zqhpaz4byksna1hsxfmv")))) - (build-system emacs-build-system) - (home-page "https://github.com/mickeynp/makey") - (synopsis "Emacs interactive command-line mode") - (description - "This package provides an Emacs interactive command-line mode.") - (license license:gpl3+))) - -(define-public emacs-outorg - (let ((commit "78b0695121fb974bc4e971eb4ef7f8afd6d89d64")) - (package - (name "emacs-outorg") - (version (git-version "2.0" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/alphapapa/outorg") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "03aclh4m3f7rb821gr9pwvnqkkl91px3qxdcarpf3ypa1x4fxvlj")))) - (build-system emacs-build-system) - (home-page "https://github.com/alphapapa/outorg") - (synopsis "Org-style comment editing") - (description "Outorg is for editing comment-sections of source-code -files in temporary Org-mode buffers. It turns conventional -literate-programming upside-down in that the default mode is the -programming-mode, and special action has to be taken to switch to the -text-mode (i.e. Org-mode).") - (license license:gpl3+)))) - -(define-public emacs-outshine - (let ((commit "5f1a6b70231d2811c522e4e5e8c89ff461b311d6")) - (package - (name "emacs-outshine") - (version (git-version "2.0" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/alphapapa/outshine.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1l9v1dfhgg7il11ifbhvcvrg3acfjk9sdxlc3lja1k54d7dp60jv")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-outorg" ,emacs-outorg))) - (home-page "https://github.com/alphapapa/outshine") - (synopsis "Emacs outline with outshine") - (description "Outshine attempts to bring the look and feel of -@code{org-mode} to an Emacs outside of the Org major-mode. It is an extension -of @code{outline-minor-mode} (@code{org-mode} itself derives from -outline-mode), so there is no such thing like an outshine mode, only -@code{outline-minor-mode} with outshine extensions loaded.") - (license license:gpl3+)))) - -(define-public emacs-parsebib - (package - (name "emacs-parsebib") - (version "2.3.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/joostkremers/parsebib/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0cxagnmc5ab6idmb26axpizhr4sqglkncc59768yavn3p04jyq63")))) - (build-system emacs-build-system) - (home-page "https://github.com/joostkremers/parsebib") - (synopsis "Library for parsing bib files") - (description - "This package provides an Emacs library for parsing bib files.") - (license license:gpl3+))) - -(define-public emacs-biblio - (package - (name "emacs-biblio") - (version "0.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/cpitclaudel/biblio.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "109fvivsb4r0rbqljngqrmxqvbnbkqlivczx6brrvlr7ci625lhf")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-seq" ,emacs-seq) - ("emacs-dash" ,emacs-dash) - ("emacs-let-alist" ,emacs-let-alist))) - (home-page "https://github.com/cpitclaudel/biblio.el") - (synopsis "Browse and import bibliographic references") - (description "This package provides an extensible Emacs package for -browsing and fetching references. - -@file{biblio.el} makes it easy to browse and gather bibliographic references -and publications from various sources, by keywords or by DOI. References are -automatically fetched from well-curated sources, and formatted as BibTeX.") - (license license:gpl3+))) - -(define-public emacs-helm-bibtex - (let ((commit "8ed898fb5a68f18e9bb9973832a5c1f8abcfc463") - (revision "1")) - (package - (name "emacs-helm-bibtex") - (version (string-append "2.0.0" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/tmalsburg/helm-bibtex.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "14lyx0vbqr97p3anzrsp7m3q0kqclyjcdwplpraim403fcklzbnz")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm) - ("emacs-parsebib" ,emacs-parsebib) - ("emacs-s" ,emacs-s) - ("emacs-dash" ,emacs-dash) - ("emacs-f" ,emacs-f) - ("emacs-biblio" ,emacs-biblio) - ("emacs-ivy" ,emacs-ivy))) - (home-page "https://github.com/tmalsburg/helm-bibtex") - (synopsis "Bibliography manager based on Helm") - (description "This package provides bibliography manager for Emacs, -based on Helm and the bibtex-completion backend. - -Key features: - -@itemize -@item Quick access to your bibliography from within Emacs -@item Powerful search capabilities -@item Provides instant search results as you type -@item Tightly integrated with LaTeX authoring, emails, Org mode, etc. -@item Open the PDFs, URLs, or DOIs associated with an entry -@item Insert LaTeX cite commands, Ebib links, or Pandoc citations, -BibTeX entries, or plain text references at point, attach PDFs to emails -@item Support for note taking -@item Quick access to online bibliographic databases such as Pubmed, -arXiv, Google Scholar, Library of Congress, etc. -@item Imports BibTeX entries from CrossRef and other sources. -@end itemize\n") - (license license:gpl3+)))) - -(define-public emacs-ewmctrl - (let ((commit "3d0217c4d6cdb5c308b6cb4293574f470d4faacf")) - (package - (name "emacs-ewmctrl") - (version (git-version "0.0.1" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/flexibeast/ewmctrl.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0ilwvx0qryv3v6xf0gxqwnfm6pf96gxap8h9g3f6z6lk9ff4n1wi")))) - (build-system emacs-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-ewmctrl - ;; This build phase makes sure ‘ewmctrl’ looks - ;; for ‘wmctrl’ in the right place. - (lambda _ - (let ((file "ewmctrl.el")) - (chmod file #o644) - (emacs-substitute-sexps file - ("(defcustom ewmctrl-wmctrl-path" (which "wmctrl"))))))))) - (inputs - `(("wmctrl" ,wmctrl))) - (home-page "https://github.com/flexibeast/ewmctrl") - (synopsis "Emacs interface to @code{wmctrl}") - (description "@code{ewmctrl} provides an Emacs interface to -@code{wmctrl} command-line window-management program.") - (license license:gpl3+)))) - -(define-public emacs-helm-gtags - (package - (name "emacs-helm-gtags") - (version "1.5.6") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/syohex/emacs-helm-gtags/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1a10snhg6nnnan6w9a7mcziy26vxbsr3c35i0gcarnkdp2yqng36")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm))) - (home-page "https://github.com/syohex/emacs-helm-gtags") - (synopsis "Emacs Helm interface to GNU Global") - (description - "@code{emacs-helm-gtags} provides a Emacs Helm interface to GNU Global.") - (license license:gpl3+))) - -(define-public emacs-list-utils - (package - (name "emacs-list-utils") - (version "0.4.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/rolandwalker/list-utils/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1xc1xh8c82h5gdjbgpdsdclgwxkxbb7h3x3a2bscpm41g8pnan4p")))) - (build-system emacs-build-system) - (home-page "https://github.com/rolandwalker/list-utils") - (synopsis "List-manipulation utility functions") - (description "This package provides a list manipulation library for Emacs.") - (license license:gpl3+))) - -(define-public emacs-move-text - (package - (name "emacs-move-text") - (version "2.0.8") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/emacsfodder/move-text/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1sjfja9r25692pgcldgnjzkapzy970m14jh9l4pajysiqcdk72g0")))) - (build-system emacs-build-system) - (home-page "https://github.com/emacsfodder/move-text") - (synopsis "Move current line or region with M-up or M-down") - (description "This package provide functions to move the current line -using @kbd{M-up} or @kbd{M-down} if a region is marked, it will move the -region instead.") - (license license:gpl3+))) - -(define-public emacs-validate - (package - (name "emacs-validate") - (version "1.0.5") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/Malabarba/validate.el" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "125mbd111f1h1baw0z3fzm48y1bvaigljyzvvnqgrn0shxbj0khg")))) - (build-system emacs-build-system) - (home-page "https://github.com/Malabarba/validate.el") - (synopsis "Emacs library for scheme validation") - (description "This Emacs library provides two functions that perform -schema validation.") - (license license:gpl3+))) - -(define-public emacs-rainbow-blocks - (let ((commit "dd435d7bb34ff6f162a5f315df308b90b7e9f842")) - (package - (name "emacs-rainbow-blocks") - (version (git-version "1.0.0" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/istib/rainbow-blocks.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "06yfb3i7wzvqrhkb61zib9xvpb5i00s4frizkzff66im05k0n795")))) - (build-system emacs-build-system) - (home-page "https://github.com/istib/rainbow-blocks") - (synopsis "Highlight sexp blocks") - (description "Rainbow-blocks is an Emacs mode that highlights blocks -made of parentheses, brackets, and braces according to their depth. Each -successive level is highlighted in a different color. This makes it easy to -orient yourself in the code, and tell which statements are at a given level.") - (license license:gpl3+)))) - -(define-public emacs-hierarchy - (package - (name "emacs-hierarchy") - (version "0.7.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/DamienCassou/hierarchy/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1a463v5zk6zis2p8cs4mads3iyxh266yahi6j6y0paggfl2yhkc8")))) - (build-system emacs-build-system) - (home-page "https://github.com/DamienCassou/hierarchy") - (synopsis "Library to create and display hierarchy structures") - (description "This package provides an Emacs library to create, query, -navigate and display hierarchy structures.") - (license license:gpl3+))) - -(define-public emacs-tree-mode - (let ((commit "b06078826d5875d74b0e7b7ac47b0d0917610534") - (revision "1")) - (package - (name "emacs-tree-mode") - (version (string-append "0.0.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacsorphanage/tree-mode.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "13bbdhdmqg4x9yghanhr8fsbsxbnypzxdxgicz31sjjm675kpnix")))) - (build-system emacs-build-system) - (home-page "https://github.com/emacsorphanage/tree-mode") - (synopsis "Emacs mode to manage tree widgets") - (description - "This package provides an Emacs library to manage tree widgets.") - (license license:gpl3+)))) - -(define-public emacs-md4rd - (let ((commit "c55512c2f7680db2a1e73db6bdf93adecaf40fec") - (revision "1")) - (package - (name "emacs-md4rd") - (version (string-append "0.0.2" "-" revision "." - (string-take commit 7))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ahungry/md4rd.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0mvv1mvsrpkrmikcpfqf2zbawnzgq33j6zjdrlv48mcw57xb2ak9")))) - (propagated-inputs - `(("emacs-hierarchy" ,emacs-hierarchy) - ("emacs-request" ,emacs-request) - ("emacs-dash" ,emacs-dash) - ("emacs-s" ,emacs-s) - ("emacs-tree-mode" ,emacs-tree-mode))) - (build-system emacs-build-system) - (home-page "https://github.com/ahungry/md4rd") - (synopsis "Emacs Mode for Reddit") - (description - "This package allows to read Reddit from within Emacs interactively.") - (license license:gpl3+)))) - -(define-public emacs-pulseaudio-control - (let ((commit "1da372ec79f5d2fb901d1f9f0679fee8848fd011") - (revision "2")) - (package - (name "emacs-pulseaudio-control") - (version (git-version "0.0.1" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/flexibeast/pulseaudio-control.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "02xrsms2pjqdk6327midi61i5vg2h9cq5jwaxv43ldm68wl7hi6k")))) - (build-system emacs-build-system) - (arguments - '(#:phases (modify-phases %standard-phases - (add-after 'unpack 'patch-file-name - (lambda* (#:key inputs #:allow-other-keys) - (let ((pulseaudio (assoc-ref inputs "pulseaudio"))) - (chmod "pulseaudio-control.el" #o600) - (emacs-substitute-variables "pulseaudio-control.el" - ("pulseaudio-control-pactl-path" - (string-append pulseaudio "/bin/pactl"))) - #t)))))) - (inputs `(("pulseaudio" ,pulseaudio))) - (home-page "https://github.com/flexibeast/pulseaudio-control") - (synopsis "Control @code{pulseaudio} from Emacs") - (description - "This package allows to control @code{pulseaudio} from Emacs.") - (license license:gpl3+)))) - -(define-public emacs-datetime - (package - (name "emacs-datetime") - (version "0.3") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/doublep/datetime/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "12wqpj67rjij2ki7nmw38rz3k2bsq68pk6zswknlcn9qhp1zd9w9")))) - (build-system emacs-build-system) - (home-page "https://github.com/doublep/datetime/") - (synopsis "Library to work with dates in Emacs") - (description "Parsing, formatting, matching and recoding -timestamps and date-time format strings library for Emacs.") - (license license:gpl3+))) - -(define-public emacs-org-mind-map - (let ((commit "9d6e262bedd94daf9de269f4d56de277275677cb") - (revision "1")) - (package - (name "emacs-org-mind-map") - (version (string-append "0.0.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/theodorewiles/org-mind-map.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0jgkkgq7g64zckrmjib0hvz0qy3ynz5vz13qbmlpf096l3bb65wn")))) - (propagated-inputs - `(("emacs-dash" ,emacs-dash))) - (build-system emacs-build-system) - (home-page "https://github.com/theodorewiles/org-mind-map") - (synopsis "Create Graphviz directed graphs from Org files") - (description - "This package creates Graphviz directed graphs from Org files.") - (license license:gpl3+)))) - -(define-public emacs-npm-mode - (package - (name "emacs-npm-mode") - (version "0.6.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/mojochao/npm-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1kq1ww22dwf8c2i2b4z2ldbbmnihj65kb7n5vzvwkch9h4hxpqh5")))) - (build-system emacs-build-system) - (home-page "https://github.com/mojochao/npm-mode") - (synopsis "Minor mode for working with @code{npm} projects") - (description - "@code{npm-mode} provides a minor mode to work with @code{npm} projects.") - (license license:gpl3+))) - -(define-public emacs-seq - (package - (name "emacs-seq") - (version "2.20") - (source - (origin - (method url-fetch) - (uri (string-append "http://elpa.gnu.org/packages/seq-" version ".tar")) - (sha256 - (base32 - "0vrpx6nnyjb0gsypknzagimlhvcvi5y1rcdkpxyqr42415zr8d0n")))) - (build-system emacs-build-system) - (home-page "http://elpa.gnu.org/packages/seq.html") - (synopsis "Sequence manipulation functions") - (description "Sequence-manipulation functions that complement basic -functions provided by @file{subr.el}.") - (license license:gpl3+))) - -(define-public emacs-itail - (let ((commit "6e43c20da03be3b9c6ece93b7dc3495975ec1888") - (revision "1")) - (package - (name "emacs-itail") - (version (string-append "0.0.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/re5et/itail.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "044nzxh1hq41faxw3lix0wy78vfz304pjcaa5a11dqfz7q3gx5cv")))) - (build-system emacs-build-system) - (home-page "https://github.com/re5et/itail") - (synopsis "Interactive @code{tail} Emacs mode") - (description "@code{itail} provides interactive @code{tail} mode -that allows you to filter the tail with unix pipes and highlight the -contents of the tailed file. Works locally or on remote files using -tramp.") - (license license:gpl3+)))) - -(define-public emacs-loop - (package - (name "emacs-loop") - (version "1.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Wilfred/loop.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1z3rhh3zyjabz36410yz0lp4a0qwwj0387as662wvx3z9y54jia9")))) - (build-system emacs-build-system) - (home-page "https://github.com/Wilfred/loop.el") - (synopsis "Imperative loop structures for Emacs") - (description "Loop structures familiar to users of other languages. This -library adds a selection of popular loop structures as well as break and -continue.") - (license license:gpl3+))) - -(define-public emacs-elisp-refs - (package - (name "emacs-elisp-refs") - (version "1.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Wilfred/elisp-refs/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "02nzcn3v14n7mp7q32j5r4wdlpsw3zixzh6cf0cdyarfir6dly3p")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-f" ,emacs-f) - ("emacs-list-utils" ,emacs-list-utils) - ("emacs-loop" ,emacs-loop) - ("emacs-s" ,emacs-s) - ("emacs-shut-up" ,emacs-shut-up))) - (home-page "https://github.com/Wilfred/elisp-refs") - (synopsis "Find callers of elisp functions or macros") - (description "Find references to functions, macros or variables. Unlike a -dumb text search, @code{elisp-refs} actually parses the code, so it's never -confused by comments or @code{foo-bar} matching @code{foo}.") - (license license:gpl3+))) - -(define-public emacs-crux - (let ((commit "4f5c8fefd5a6aa52e128c4a0401cc86410d6ac8f") - (revision "1")) - (package - (name "emacs-crux") - (version (string-append "0.3.0" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/bbatsov/crux.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1fdxvv25cs01sg6fmvmzxpzvs50i6v8n2jya60lbavxqqhi0sbxd")))) - (build-system emacs-build-system) - (home-page "https://github.com/bbatsov/crux") - (synopsis "Collection of useful functions for Emacs") - (description - "@code{crux} provides a collection of useful functions for Emacs.") - (license license:gpl3+)))) - -(define-public emacs-edit-server - (package - (name "emacs-edit-server") - (version "1.13") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/stsquad/emacs_chrome/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1r92kqggslqasza718z4ka883mqfbnibdm43f0j9gaipk0msm2wf")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'chdir-elisp - ;; Elisp directory is not in root of the source. - (lambda _ - (chdir "servers")))))) - (home-page "https://github.com/stsquad/emacs_chrome") - (synopsis "Server that responds to edit requests from Chromium") - (description - "This package provides an edit server to respond to requests from Emacs.") - (license license:gpl3+))) - -(define-public emacs-m-buffer-el - (package - (name "emacs-m-buffer-el") - (version "0.15") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/phillord/m-buffer-el" - "/archive/" "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "17vdcc8q37q9db98jyww1c0ivinmwfcw4l04zccfacalra63a214")))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'install 'check - (lambda* (#:key inputs #:allow-other-keys) - (invoke "emacs" "--batch" "-L" "." - "-l" "test/m-buffer-test.el" - "-l" "test/m-buffer-at-test.el" - "-f" "ert-run-tests-batch-and-exit")))))) - (build-system emacs-build-system) - (home-page "https://github.com/phillord/m-buffer-el") - (synopsis "List oriented buffer operations for Emacs") - (description "@code{m-buffer} provides a set of list-orientated functions -for operating over the contents of Emacs buffers.") - (license license:gpl3+))) - -(define-public emacs-let-alist - (package - (name "emacs-let-alist") - (version "1.0.5") - (source - (origin - (method url-fetch) - (uri (string-append - "https://elpa.gnu.org/packages/let-alist-" version ".el")) - (sha256 - (base32 - "0r7b9jni50la1m79kklml11syg8d2fmdlr83pv005sv1wh02jszw")))) - (build-system emacs-build-system) - (home-page "https://elpa.gnu.org/packages/let-alist.html") - (synopsis "Easily let-bind values of an assoc-list by their names") - (description "This package offers a single macro, @code{let-alist}. This -macro takes a first argument (whose value must be an alist) and a body.") - (license license:gpl3+))) - -(define-public emacs-esup - (let ((commit "a589005a9a888537deef94d6fe38a9b8790c97c7") - (revision "1")) - (package - (name "emacs-esup") - (version (string-append "0.6" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jschaf/esup.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "04lxmd0h7mfjjl0qghrycgff0vcv950j1wqv0dbkr61jxp64n5fv")))) - ;; TODO: Add tests - (build-system emacs-build-system) - (home-page "https://github.com/jschaf/esup") - (synopsis "Emacs start up profiler") - (description "Benchmark Emacs Startup time without ever leaving -your Emacs.") - (license license:gpl2+)))) - -(define-public emacs-sourcemap - (package - (name "emacs-sourcemap") - (version "0.03") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/syohex/emacs-sourcemap/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0bmd5l3cx2iyl7vxn84xdhs80b07kpdpfwki28lh5d0kmm5qs6m6")))) - (build-system emacs-build-system) - (home-page "https://github.com/syohex/emacs-sourcemap") - (synopsis "Sourcemap parser") - (description "Sourcemap parser") - (license license:gpl3+))) - -(define-public emacs-macrostep - (let ((commit "424e3734a1ee526a1bd7b5c3cd1d3ef19d184267")) - (package - (name "emacs-macrostep") - (version (git-version "0.9" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/joddie/macrostep.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1fm40mxdn289cyzgw992223dgrjmwxn4q8svyyxfaxjrpb38jhjz")))) - (build-system emacs-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-before 'check 'remove-test - ;; Fails because of requirement ‘/bin/sh’. - (lambda _ - (let ((file "macrostep-test.el")) - (chmod file #o644) - (emacs-batch-edit-file file - `(progn (progn (goto-char (point-min)) - (re-search-forward - "(ert-deftest macrostep-expand-c-macros") - (beginning-of-line) - (kill-sexp)) - (basic-save-buffer)))))) - (add-before 'install 'check - (lambda _ - (invoke "emacs" "--batch" "-L" "." - "-l" "macrostep-test.el" - "-f" "ert-run-tests-batch-and-exit")))))) - (home-page "https://github.com/joddie/macrostep") - (synopsis "Interactive macro-expander for Emacs") - (description "@code{macrostep} is an Emacs minor mode for interactively -stepping through the expansion of macros in Emacs Lisp source code. It lets -you see exactly what happens at each step of the expansion process by -pretty-printing the expanded forms inline in the source buffer, which is -temporarily read-only while macro expansions are visible. You can expand and -collapse macro forms one step at a time, and evaluate or instrument the -expansions for debugging with Edebug as normal (but see “Bugs and known -limitations”, below). Single-stepping through the expansion is particularly -useful for debugging macros that expand into another macro form. These can be -difficult to debug with Emacs’ built-in macroexpand, which continues expansion -until the top-level form is no longer a macro call.") - (license license:gpl3+)))) - -(define-public emacs-parent-mode - (package - (name "emacs-parent-mode") - (version "2.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Fanael/parent-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0gxbl5s1w96v6v55b7aaansgw4sxhzfx9nrsvpk3pfhsibs6yqjd")))) - (build-system emacs-build-system) - (home-page "https://github.com/Fanael/parent-mode") - (synopsis "Get major mode's parent modes") - (description "Get major mode's parent modes") - (license license:gpl3+))) - -(define-public emacs-lacarte - (package - (name "emacs-lacarte") - (version "0.1") - (source (origin - (method url-fetch) - (uri "https://www.emacswiki.org/emacs/download/lacarte.el") - (sha256 - (base32 - "1sbmk37ljq5j7dsw5c37sbxvlfgdqswh7bi4dknyjzfxlq50f4am")))) - (build-system emacs-build-system) - (home-page "https://www.emacswiki.org/emacs/lacarte.el") - (synopsis "Execute menu items as commands, with completion") - (description "Execute menu items as commands, with completion.") - (license license:gpl3))) - -(define-public emacs-company-lua - (let ((commit "0be8122f3adf57ad27953bf4b03545d6298d3da4")) - (package - (name "emacs-company-lua") - (version (git-version "0.1" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ptrv/company-lua.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1d9i165apgmwns7b2fd5wcpjpkah3dyj20v5sb8ynvz6qhhr5r9c")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-company" ,emacs-company) - ("emacs-s" ,emacs-s) - ("emacs-f" ,emacs-f) - ("emacs-lua-mode" ,emacs-lua-mode))) - (home-page "https://github.com/ptrv/company-lua") - (synopsis "Company backend for Lua") - (description - "This package provides Company backend for Lua programming language.") - (license license:gpl3+)))) - -(define-public emacs-beginend - (package - (name "emacs-beginend") - (version "2.0.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/DamienCassou/beginend/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0z4rbwffh9vxfvcrlvym4p73z7gf72q0b5iv33llbpcpbijknnrq")))) - ;; TODO: Run tests. - (build-system emacs-build-system) - (inputs - `(("emacs-undercover" ,emacs-undercover))) ; For tests. - (home-page "https://github.com/DamienCassou/beginend") - (synopsis "Redefine @code{M-<} and @code{M->} for Emacs modes") - (description "@code{beginend} redefines @code{M-<} and @code{M->} -keybindings for Emacs modes so that point moves to meaningful -locations. Redefined keys are still accessible by pressing the same -key again.") - (license license:gpl3+))) - -(define-public emacs-mbsync - (let ((commit "42077e83ae2db778ce0f8e22f8357b40355526b3") - (revision "1")) - (package - (name "emacs-mbsync") - (version (string-append "0.0.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/dimitri/mbsync-el.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0yj93y2mpxlir8x73znlg1slxlv4blm1vjv5h2w3j8lxg8bxvmn6")))) - (build-system emacs-build-system) - (home-page "https://github.com/dimitri/mbsync-el") - (synopsis "Interface to mbsync for Emacs") - (description "This package allows to call the @code{mbsync} from -within Emacs.") - (license license:gpl3+)))) - -(define-public emacs-ibuffer-projectile - (let ((commit "c18ac540ee46cb759fc5df18747f6e8d23563011") - (revision "1")) - (package - (name "emacs-ibuffer-projectile") - (version (string-append "0.2" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/purcell/ibuffer-projectile.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1nd26cwwdpnwj0g4w393rd59klpyr6wqrnyr6scmwb5d06bsm44n")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-projectile" ,emacs-projectile))) - (home-page "https://github.com/purcell/ibuffer-projectile") - (synopsis "Group ibuffer's list by projectile root") - (description "Adds functionality to Emacs @code{ibuffer} for -grouping buffers by their projectile root directory.") - (license license:gpl3+)))) - -(define-public emacs-helm-mode-manager - (package - (name "emacs-helm-mode-manager") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/istib/helm-mode-manager/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0wllj321z16hgrx0ddwzk5wz4mnnx5am7w5nclqclfc5dfdn92wm")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm))) - (home-page "https://github.com/istib/helm-mode-manager/") - (synopsis "Switch and toggle Emacs major and minor modes using Helm") - (description "This package provides a Helm interface for toggling Emacs -major or minor mode. - -@itemize -@item @code{helm-switch-major-mode} list of all major modes -@item @code{helm-enable-minor-mode} list of all inactive minor modes -@item @code{helm-disable-minor-mode} list of all ACTIVE minor modes -@end itemize\n - -Hitting @code{RET} enables the mode, @code{C-z} shows the mode -documentation.") - (license license:gpl3+))) - -(define-public emacs-hy-mode - (package - (name "emacs-hy-mode") - (version "1.0.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/hylang/hy-mode/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0b4pvbr2hf77bq2vsyfsv653q0dab7qzq85wc7kdziw7687jdf2z")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-s" ,emacs-s))) - (home-page "https://github.com/hylang/hy-mode") - (synopsis "Major mode for Hylang") - (description "This package provides a major mode for Hylang.") - (license license:gpl3+))) - -(define-public emacs-web-beautify - (package - (name "emacs-web-beautify") - (version "0.3.2") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/yasuyk/web-beautify/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1j57hwid74id4swkx2g0iljfawx0k9c7qjrwqc0mv657x9p78hcs")))) - (build-system emacs-build-system) - (home-page "https://github.com/yasuyk/web-beautify") - (synopsis "Format HTML, CSS and JavaScript, JSON") - (description "This package provides an Emacs functions to format HTML, -CSS, JavaScript, JSON.") - (license license:gpl3+))) - -(define-public emacs-helm-shell-history - (let ((commit "110d3c35c52fe4b89b29e79ea4c8626bce7266a1")) - (package - (name "emacs-helm-shell-history") - (version (git-version "0.1" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/yuutayamada/helm-shell-history.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "18fkjcz69g4dyaxhf9j8svr5x6dhsdnglddwisis8hdn504scpfj")))) - (build-system emacs-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-before 'check 'patch-helm-shell-history-file - (lambda _ - (let ((file "helm-shell-history.el")) - (chmod file #o644) - (emacs-substitute-sexps file - ("(defvar helm-shell-history-file" - `(expand-file-name "~/.bash_history")))) - #t))))) - (propagated-inputs - `(("emacs-helm" ,emacs-helm))) - (home-page "https://github.com/yuutayamada/helm-shell-history") - (synopsis "Find shell history with Emacs Helm") - (description "This package provides an Emacs Helm interface to search -throw a shell history.") - (license license:gpl3+)))) - -(define-public emacs-discover-my-major - (package - (name "emacs-discover-my-major") - (version "1.0") - (source - (origin - (method url-fetch) - (uri - (string-append "https://github.com/steckerhalter/discover-my-major" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0nah41f92rrl2l405kpqr6iaks11jyclgl4z7ilfymbr4ifmsiyl")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-makey" ,emacs-makey))) - (home-page "https://github.com/steckerhalter/discover-my-major") - (synopsis "Discover key bindings for the current Emacs major mode") - (description "This package provides allows to discover key bindings and -their meaning for the current Emacs major-mode.") - (license license:gpl3+))) - -(define-public emacs-org-ref - (let ((commit "8c9b5d7efb9f0c1ad5186b8203bdd017f4249129") - (revision "1")) - (package - (name "emacs-org-ref") - (version (string-append "1.1.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jkitchin/org-ref.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1rxz0bjdsayk0slv23i07d9xhj2m7s4hsc81wc2d1cs52dkr5zmz")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-helm" ,emacs-helm) - ("emacs-helm-bibtex" ,emacs-helm-bibtex) - ("emacs-ivy" ,emacs-ivy) - ("emacs-hydra" ,emacs-hydra) - ("emacs-key-chord" ,emacs-key-chord) - ("emacs-s" ,emacs-s) - ("emacs-f" ,emacs-f) - ("emacs-pdf-tools" ,emacs-pdf-tools))) - (home-page "https://github.com/jkitchin/org-ref") - (synopsis "Citations, cross-references and bibliographies in org-mode") - (description - "Lisp code to setup bibliography, cite, ref and label org-mode links. -Also sets up reftex and helm for org-mode citations. The links are -clickable and do things that are useful. - -The default setup uses helm-bibtex. - -You should really read org-ref.org in this package for details.") - (license license:gpl3+)))) - -(define-public emacs-org-reveal - (package - (name "emacs-org-reveal") - ;; There are no proper tag, so we use the latest commit of the stable - ;; branch, as does MELPA. - (version "20161027.926") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/yjwen/org-reveal.git") - (commit "001567cc12d50ba07612edd1718b86a12e8c2547"))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "18rma8smjrskbjyna076zhvx79zs5r5vinb537h8mw13pfxd6cm8")))) - (build-system emacs-build-system) - (home-page "https://github.com/yjwen/org-reveal") - (synopsis "Org and Reveal.js powered HTML presentation tool") - (description "Org-Reveal is a command@{org-mode} extension that allows to -create beautiful presentations (slides) with 3D effects from simple but -powerful Org contents.") - (license license:gpl3+))) - -(define-public emacs-add-hooks - (package - (name "emacs-add-hooks") - (version "3.1.1") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/nickmccurdy/add-hooks/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "03a28gb3298g7pc2qji9hi44p4d99ljp5mpi9cmg42ldv8fl6549")))) - (build-system emacs-build-system) - (home-page "https://github.com/nickmccurdy/add-hooks/") - (synopsis "Emacs function for setting multiple hooks") - (description "This package provides a @code{add-hooks} function tidies up -duplicate hook and function names further into a single declarative call.") - (license license:gpl3+))) - -(define-public emacs-fancy-narrow - (package - (name "emacs-fancy-narrow") - (version "0.9.5") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Malabarba/fancy-narrow/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0rf2rnzg82pdqch041yyx3f9ddixffkk9s2ydzg8hwy66sg3385n")))) - (build-system emacs-build-system) - (home-page "https://github.com/Malabarba/fancy-narrow/releases") - (synopsis "Imitate @code{narrow-to-region} with more eye candy") - (description - "Unlike @code{narrow-to-region}, which completely hides text outside -the narrowed region, this package simply de-emphasizes the text, makes it -read-only, and makes it unreachable. This leads to a much more natural -feeling where the region stays static (instead of being brutally moved to a -blank slate) and is clearly highlighted with respect to the rest of the -buffer.") - (license license:gpl2+))) - -(define-public emacs-know-your-http-well - (package - (name "emacs-know-your-http-well") - (version "0.5.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/for-GET/know-your-http-well/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1y3kwz88awcgwaivlswq0q4g2i02762r23lpwg61bfqy5lrjjqnj")))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'install-json-files - (lambda* (#:key outputs #:allow-other-keys) - (for-each (lambda (directory) - (copy-recursively directory - (string-append - (assoc-ref outputs "out") - directory))) - '("js" "json")))) - (add-after 'unpack 'chdir-elisp - ;; Elisp directory is not in root of the source. - (lambda _ - (chdir "emacs")))))) - (build-system emacs-build-system) - (home-page "https://github.com/for-GET/know-your-http-well") - (synopsis "Meaning of HTTP headers codes") - (description "Meaning of HTTP headers codes.") - (license license:gpl3+))) - -(define-public emacs-navi-mode - (let ((commit "c1d38e8237f4e14af020a0b7d4f118ea198ab674")) - (package - (name "emacs-navi-mode") - (version (git-version "2.0" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/alphapapa/navi.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0jj5spk14hgb7zb1cd2n8whcw4k1kd5zb6llwj96v178yaws7l8k")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-outshine" ,emacs-outshine) - ("emacs-outorg" ,emacs-outorg))) - (home-page "https://github.com/alphapapa/navi") - (synopsis "Emacs major-mode for easy buffer-navigation") - (description - "This package provides an Emacs major-mode for easy buffer-navigation") - (license license:gpl3+)))) - -(define-public emacs-download-region - (let ((commit "eb9e557529a73b4cfc8281c70dd0d95db333fffa") - (revision "1")) - (package - (name "emacs-download-region") - (version (string-append "0.0.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/zk-phi/download-region.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0v52djg39b6k2snizd9x0qc009ws5y0ywqsfwhqgcbs5ymzh7dsc")))) - (build-system emacs-build-system) - (home-page "https://github.com/zk-phi/download-region") - (synopsis "In buffer download manager for Emacs") - (description "@code{download-region} provides in buffer -downloading manager for Emacs.") - (license license:gpl3+)))) - -(define-public emacs-helpful - (package - (name "emacs-helpful") - (version "0.15") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/Wilfred/helpful/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1xmvhphzb4hbg647dz4lafy6hd19b7bk3lxni6irqrzdsrclhzn6")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-elisp-refs" ,emacs-elisp-refs))) - (home-page "https://github.com/Wilfred/helpful") - (synopsis "More contextual information in Emacs help") - (description "@code{helpful} is an alternative to the built-in Emacs help -that provides much more contextual information. - -@itemize -@item Show the source code for interactively defined functions (unlike the -built-in Help). -@item Fall back to the raw sexp if no source is available. -@item Show where a function is being called. -@item Docstrings will Highlight the summary (the first sentence), include -cross-references, hide superfluous puncuation. -@item Show you the properties that have been applied to the current -symbol. This provides visibility of features like edebug or byte-code -optimisation. -@item Provide a separate @code{helpful-command} function to view interactive -functions. -@item Display any keybindings that apply to interactive functions. -@item Trace, disassemble functions from inside Helpful. This is discoverable -and doesn't require memorisation of commands. -@end itemize\n") - (license license:gpl3+))) - -(define-public emacs-logview - (package - (name "emacs-logview") - (version "0.9") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/doublep/logview/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1vd11ppm46ldqsiwhqgw91p34gbjh1y82r9mxcn9r2gj65nvhxcp")))) - (propagated-inputs - `(("emacs-datetime" ,emacs-datetime))) - (build-system emacs-build-system) - (home-page "https://github.com/doublep/logview/") - (synopsis "Emacs mode for viewing log files") - (description "@code{logview} provides an Emacs mode to view log files.") - (license license:gpl3+))) - -(define-public emacs-suggest - (package - (name "emacs-suggest") - (version "0.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Wilfred/suggest.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1760fm3j19w8xxcawq6s859h86q1rdg69pg9yz48n76kwfk3vlgp")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-loop" ,emacs-loop) - ("emacs-dash" ,emacs-dash) - ("emacs-s" ,emacs-s) - ("emacs-f" ,emacs-f))) - (home-page "https://github.com/Wilfred/suggest.el") - (synopsis "Suggest Elisp functions that give the output requested") - (description "Suggest.el will find functions that give the output -requested. It's a great way of exploring list, string and arithmetic -functions.") - (license license:gpl3+))) - -(define-public emacs-benchmark-init - (package - (name "emacs-benchmark-init") - (version "1.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/dholm/benchmark-init-el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0szyqr4nncwz4vd5gww1vz31kf9r2lx25p4d0d09pm35974x53kz")))) - (build-system emacs-build-system) - (home-page "https://github.com/dholm/benchmark-init-el") - (synopsis "Benchmark Emacs @code{require} and @code{load} calls") - (description "@code{benchmark-init} provides a way to keep track of where -time is being spent during Emacs startup in order to optimize startup time.") - (license license:gpl3+))) - -(define-public emacs-emms-player-simple-mpv - ;; A new mpv backend is included in Emms from 5.0. - (deprecated-package "emacs-emms-player-simple-mpv" emacs-emms)) - -(define-public emacs-magit-org-todos-el - (let ((commit "df206287737b9671f2e36ae7b1474ebbe9940d2a")) - (package - (name "emacs-magit-org-todos-el") - (version (git-version "0.1.1" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/danielma/magit-org-todos.el.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0kdp7k7jnnrkhsg0xh1c3h7iz0vgi120gf5xwl1hxy61avivnxrn")))) - (propagated-inputs - `(("magit" ,emacs-magit))) - (build-system emacs-build-system) - (home-page "https://github.com/danielma/magit-org-todos.el") - (synopsis "Get todo.org into Emacs Magit status") - (description "This package allows you to get @file{todo.org} into your -magit status. - -If you have a @file{todo.org} file with @code{TODO} items in the root of your -repository, @code{magit-org-todos} will create a section in your Magit status -buffer with each of your todos.") - (license license:gpl3+)))) - -(define-public emacs-f3 - (package - (name "emacs-f3") - (version "0.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/cosmicexplorer/f3/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "06b8i1jvklm5k3k90n65f197l1miq1xlxqkqpbppw4h3rhl4y98h")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm))) - (home-page "https://github.com/cosmicexplorer/f3") - (synopsis "Fantastic File Finder for Emacs") - (description - "The Fantastic File Finder for Emacs. Find files fast, using helm.") - (license license:gpl3+))) - -(define-public emacs-lice-el - (let ((commit "4339929927c62bd636f89bb39ea999d18d269250")) - (package - (name "emacs-lice-el") - (version (git-version "0.2" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/buzztaiki/lice-el.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0879z761b7gajkhq176ps745xpdrivch349crransv8fnsc759yb")))) - (build-system emacs-build-system) - (home-page "https://github.com/buzztaiki/lice-el") - (synopsis "License and header template for Emacs") - (description "@code{lice.el} provides following features: - -@itemize -@item License template management. -@item File header insertion. -@end itemize\n") - (license license:gpl3+)))) - -(define-public emacs-academic-phrases - (let ((commit "0823ed8c24b26c32f909b896a469833ec4d7b656")) - (package - (name "emacs-academic-phrases") - (version (git-version "0.1" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/nashamri/academic-phrases.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0qfzsq8jh05w4zkr0cvq3i1hdn97bq344vcqjg46sib26x3wpz6r")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-s" ,emacs-s) - ("emacs-ht" ,emacs-ht))) - (home-page "https://github.com/nashamri/academic-phrases") - (synopsis "Bypass that mental block when writing your papers") - (description - "When writing your academic paper, you might get stuck trying to find -the right phrase that captures your intention. This package tries to -alleviate that problem by presenting you with a list of phrases organized by -the topic or by the paper section that you are writing. This package has -around 600 phrases so far. - -Using this package is easy, just call @code{academic-phrases} to get a list of -phrases organized by topic, or call @code{academic-phrases-by-section} to -browse the phrases by the paper section and fill-in the blanks if required.") - (license license:gpl3+)))) - -(define-public emacs-auto-yasnippet - (let ((commit "d1ccfea87312c6dd8cf8501ab5b71b1d3d44d95b")) - (package - (name "emacs-auto-yasnippet") - (version (git-version "0.3.0" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/abo-abo/auto-yasnippet.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1i8k2qiyzd5rq0zplk4xb5nfa5mp0ibxbzwqj6c7877waq7244xk")))) - (build-system emacs-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-before 'install 'check - (lambda _ - (invoke "emacs" "--batch" - "-l" "auto-yasnippet.el" - "-l" "auto-yasnippet-test.el" - "-f" "ert-run-tests-batch-and-exit")))))) - (propagated-inputs - `(("emacs-yasnippet" ,emacs-yasnippet))) - (home-page "https://github.com/abo-abo/auto-yasnippet/") - (synopsis "Quickly create disposable yasnippets") - (description "This package provides a hybrid of keyboard macros and -yasnippet. You create the snippet on the go, usually to be used just in the -one place. It's fast, because you're not leaving the current buffer, and all -you do is enter the code you'd enter anyway, just placing ~ where you'd like -yasnippet fields and mirrors to be.") - (license license:gpl3+)))) - -(define-public emacs-highlight-numbers - (package - (name "emacs-highlight-numbers") - (version "0.2.3") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/Fanael/highlight-numbers/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "030v5p11d4n0581ncv499l1fqrmfziy756q6378x2bv22ixghqqp")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-parent-mode" ,emacs-parent-mode))) - (home-page "https://github.com/Fanael/highlight-numbers") - (synopsis "Highlight numbers in source code") - (description "@code{highlight-numbers-mode} provides a minor mode for -syntax highlighting of numeric literals in source code. - -It s customizable: it's easy to add or redefine what exactly consitutes a -\"number\" in given major mode. See @code{highlight-numbers-modelist}.") - (license license:gpl3+))) - -(define-public emacs-darkroom - (package - (name "emacs-darkroom") - (version "0.1") - (source (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/darkroom-" - version ".el")) - (sha256 - (base32 - "0fif8fm1h7x7g16949shfnaik5f5488clsvkf8bi5izpqp3vi6ak")))) - (build-system emacs-build-system) - (home-page "https://elpa.gnu.org/packages/darkroom.html") - (synopsis "Remove visual distractions and focus on writing") - (description "@code{darkroom-mode} makes visual distractions disappear. -The mode-line is temporarily elided, text is enlarged and margins are adjusted -so that it's centered on the window. - -@code{darkroom-tentative-mode} is similar, but it doesn't immediately turn-on -@code{darkroom-mode}, unless the current buffer lives in the sole window of -the Emacs frame (i.e. all other windows are deleted). Whenever the frame is -split to display more windows and more buffers, the buffer exits -@code{darkroom-mode}. Whenever they are deleted, the buffer re-enters -@code{darkroom-mode}.") - (license license:gpl3+))) - -(define-public emacs-rsw-elisp - (package - (name "emacs-rsw-elisp") - (version "1.0.5") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/rswgnu/rsw-elisp" - "/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1jnn7xfwl3wxc87v44ccsf1wwp80par3xgcvfb1icd6zchjmlcps")))) - (build-system emacs-build-system) - (home-page "https://github.com/rswgnu/rsw-elisp") - (synopsis "Improved expressions that interactively evaluate Emacs Lisp") - (description "This package improves and replaces the GNU Emacs commands -that interactively evaluate Emacs Lisp expressions. The new commands replace -standard key bindings and are all prefixed with @code{rsw-elisp-}. They work -the same way as the old commands when called non-interactively; only the -interactive behavior should be different.") - (license license:gpl3+))) - -(define-public emacs-default-text-scale - (let ((commit "968e985e219235f3e744d6d967e592acbaf6e0a8") - (revision "1")) - (package - (name "emacs-default-text-scale") - (version (string-append "0.1" "-" revision "." - (string-take commit 7))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/purcell/default-text-scale") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0zds01c3q5yny6ab1fxfkzzgn1kgl3q23lxxap905f4qd70v922h")))) - (build-system emacs-build-system) - (home-page "https://github.com/purcell/default-text-scale") - (synopsis "Adjust the font size in all Emacs frames") - (description "This package provides commands for increasing or -decreasing the default font size in all GUI Emacs frames.") - (license license:gpl3+)))) - -(define-public emacs-visual-regexp - (package - (name "emacs-visual-regexp") - (version "1.1.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/benma/visual-regexp.el/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1czmhvcivlcdyz7rfm0vd4a3xsgmy4qbvbl6yjxc217wrxqflr92")))) - (build-system emacs-build-system) - (home-page "https://github.com/benma/visual-regexp.el/") - (synopsis "Regexp command with interactive visual feedback") - (description "This package provides an Emacs regexp command with -interactive visual feedback.") - (license license:gpl3+))) - -(define-public emacs-faceup - (let ((commit "6c92dad56a133e14e7b27831e1bcf9b3a71ff154") - (revision "1")) - (package - (name "emacs-faceup") - (version (string-append "0.0.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Lindydancer/faceup.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1yzmy7flrhrh0i10bdszx8idx6r8h6czm4vm4q0z6fp5fw94zwrx")))) - (build-system emacs-build-system) - (home-page "https://github.com/Lindydancer/faceup") - (synopsis "Markup language for faces and font-lock regression testing") - (description "Emacs is capable of highlighting buffers based on -language-specific @code{font-lock} rules. This package makes it possible to -perform regression test for packages that provide font-lock rules.") - (license license:gpl3+)))) - -(define-public emacs-racket-mode - (let ((commit "b977873e6128f8399432dcd60cc39f6a6f803d9c") - (revision "2")) - (package - (name "emacs-racket-mode") - (version (string-append "0.0.2" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/greghendershott/racket-mode") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0vp4bbbplqvmnhjpl6ajrlydmrhqzil56cfbs18m5c5fddx0zlh7")))) - (build-system emacs-build-system) - (arguments - `(#:include '("\\.el$" "\\.rkt$"))) - (propagated-inputs - `(("emacs-faceup" ,emacs-faceup) - ("emacs-s" ,emacs-s))) - (home-page "https://github.com/greghendershott/racket-mode") - (synopsis "Major mode for Racket language") - (description "@code{racket-mode} provides: - -@itemize -@item Focus on Racket (not various Schemes). -@item Follow DrRacket concepts where applicable. -@item Thorough font-lock and indent. -@end itemize\n") - (license license:gpl3+)))) - -(define-public emacs-grep-context - (let ((commit "a17c57e66687a54e195e08afe776bdd60cb6c0a7")) - (package - (name "emacs-grep-context") - (version (git-version "0.1" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/mkcms/grep-context.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1nqfa6kjzjshww4hnwg1c0vcr90bdjihy3kmixq3c3jkvxg99b62")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/nashamri/academic-phrases") - (synopsis "Increase context in compilation and grep buffers") - (description - "This package provides an Emacs package for more context in -compilation/grep buffers. Works with @code{wgrep}, @code{ack}, @code{ag}, -@code{ivy}.") - (license license:gpl3+)))) - -(define-public emacs-helm-firefox - (let ((commit "0ad34b7b5abc485a86cae6920c14de861cbeb085") - (revision "1")) - (package - (name "emacs-helm-firefox") - (version (string-append "0.0.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-helm/helm-firefox.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "08mjsi2f9s29fkk35cj1rrparjnkm836qmbfdwdz7y51f9varjbs")))) - (propagated-inputs - `(("emacs-helm" ,emacs-helm))) - (build-system emacs-build-system) - (home-page "https://github.com/emacs-helm/helm-firefox") - (synopsis "Display firefox bookmarks with Emacs Helm interface") - (description "Display firefox bookmarks with Emacs Helm interface") - (license license:gpl3+)))) - -(define-public emacs-interactive-align - (package - (name "emacs-interactive-align") - (version "0.1.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/mkcms/interactive-align/" - "archive/" "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0sibpgb4lp6yy3pziak8f3hz4b28yj0dqy2nzh51z3d0b63h528m")))) - (build-system emacs-build-system) - (home-page "https://github.com/mkcms/interactive-align/") - (synopsis "Interactive align-regexp command in Emacs") - (description "Interactive align-regexp command in Emacs") - (license license:gpl3+))) - -(define-public emacs-shift-number - (package - (name "emacs-shift-number") - (version "0.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/alezost/shift-number.el" - "/archive/" "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1g79m0hqn9jgpm565vvh8pdfzndc4vw7xisnh5qysj55qfg8cb1x")))) - (build-system emacs-build-system) - (home-page "https://github.com/alezost/shift-number.el") - (synopsis "Increase or decrease the number at point") - (description "@code{emacs-shift-number} provides commands -@code{shift-number-up} to increase and @code{shift-number-down} to -decrease the number at point.") - (license license:gpl3+))) - -(define-public emacs-highlight-defined - (package - (name "emacs-highlight-defined") - (version "0.1.5") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/Fanael/highlight-defined/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1ryd66989b5byqdw8jmjrjf0c78iiz72wibld750skcnj5h5h506")))) - (build-system emacs-build-system) - (home-page "https://github.com/Fanael/highlight-defined") - (synopsis "Syntax highlighting of known Elisp symbols") - (description "Minor mode providing syntax highlighting of known Emacs Lisp -symbols. Currently the code distinguishes Lisp functions, built-in functions, -macros, faces and variables. To enable call @code{highlight-defined-mode}. ") - (license license:gpl3+))) - -(define-public emacs-parinfer-mode - (package - (name "emacs-parinfer-mode") - (version "0.4.10") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/DogLooksGood/parinfer-mode/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "06ba9qi59sm9ih9m38fbr8kj4qkvrm58n0c0ngfjz60gnr9x9pcv")))) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-rainbow-delimiters" ,emacs-rainbow-delimiters) - ("emacs-company" ,emacs-company))) - (build-system emacs-build-system) - (home-page "https://github.com/DogLooksGood/parinfer-mode/") - (synopsis "Lisp structure editing mode") - (description "@code{parinfer-mode} is a proof-of-concept editor -mode for Lisp programming languages. It will infer some changes to -keep Parens and Indentation inline with one another.") - (license license:gpl3+))) - -(define-public emacs-helm-eww - (let ((commit "9d36acc433bcf689598b1b4d7d47c9aeb84d6b44")) - (package - (name "emacs-helm-eww") - (version (git-version "0.1" "3" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-helm/helm-eww.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "06gnf84gx6qbhcw1h5jhjnvcdxkdpv0npm53x3pgqybbll5rn5dy")))) - (propagated-inputs - `(("emacs-helm" ,emacs-helm))) - (build-system emacs-build-system) - (home-page "https://github.com/emacs-helm/helm-eww/") - (synopsis "Helm interface to EWW") - (description "This package provides a Helm interface for EWW buffers, -bookmarks and history.") - (license license:gpl3+)))) - -(define-public emacs-stumpwm-mode - (let ((commit "8fbe071d2c6c040794060a354eb377218dc10b35") - (revision "1")) - (package - (name "emacs-stumpwm-mode") - (version (string-append "0.0.1-" revision "." - (string-take commit 7))) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/stumpwm/stumpwm-contrib.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1dfwsvz1c8w6j4jp0kzaz78ml3f5dp0a5pvf090kwpbpg176r7iq")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'chdir-elisp - ;; Elisp directory is not in root of the source. - (lambda _ - (chdir "util/swm-emacs")))))) - (home-page "https://github.com/stumpwm/stumpwm-contrib") - (synopsis "Emacs minor-mode for Stumpwm") - (description "Emacs minor-mode for Stumpwm") - (license license:gpl3+)))) - -(define-public emacs-irfc - (package - (name "emacs-irfc") - (version "20130824.507") - (source - (origin - (method url-fetch) - (uri "https://www.emacswiki.org/emacs/download/irfc.el") - (file-name (string-append "irfc-" version ".el")) - (sha256 - (base32 - "197ybqwbj8qjh2p9pkf5mvqnrkpcgmv8c5s2gvl6msyrabk0mnca")))) - (build-system emacs-build-system) - (home-page "https://www.emacswiki.org/emacs/download/irfc.el") - (synopsis "Interface for IETF RFC document") - (description - "This package provides an Emacs interface for IETF RFC document.") - (license license:gpl3+))) - -(define-public emacs-ido-vertical-mode - (package - (name "emacs-ido-vertical-mode") - (version "0.1.6") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/creichert/ido-vertical-mode.el/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0dprdxq8wvqd45dinwj92k0kixr07c8xvspa6i613mjcpxgwjg53")))) - (build-system emacs-build-system) - (home-page "https://github.com/creichert/ido-vertical-mode.el") - (synopsis "Makes ido-mode display vertically") - (description "Makes ido-mode display prospects vertically.") - (license license:gpl3+))) - -(define-public emacs-wordgen - (package - (name "emacs-wordgen") - (version "0.1.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Fanael/wordgen.el/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1h2iyixdm49h53pwj9ics9gb9h3g6wa4hainpnjg6mfarf49jkmg")))) - (build-system emacs-build-system) - (home-page "https://github.com/Fanael/wordgen.el") - (synopsis "Random word generator") - (description "This package provides functions to generate random words -using user-provided rules.") - (license license:gpl3+))) - -(define-public emacs-on-screen - (package - (name "emacs-on-screen") - (version "1.3.2") - (source - (origin - (method url-fetch) - (uri (string-append - "http://elpa.gnu.org/packages/on-screen-" version ".el")) - (file-name (string-append name "-" version ".el")) - (sha256 - (base32 - "15d18mjgv1pnwl6kf3pr5w64q1322p1l1qlfvnckglwmzy5sl2qv")))) - (build-system emacs-build-system) - (home-page - "https://github.com/michael-heerdegen/on-screen.el") - (synopsis "Guide your eyes while scrolling") - (description - "Scrolling can be distracting because your eyes may lose -orientation. This library implements a minor mode that highlights -the previously visible buffer part after each scroll.") - (license license:gpl3+))) - -(define-public emacs-highlight-escape-sequences - (let ((commit "08d846a7aa748209d65fecead2b6a766c3e5cb41") - (revision "1")) - (package - (name "emacs-highlight-escape-sequences") - (version (string-append "0.0.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/dgutov/highlight-escape-sequences.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "05mc3w1f8ykf80914a1yddw6j8cmh0h57llm07xh89s53821v2is")))) - (build-system emacs-build-system) - (home-page "https://github.com/dgutov/highlight-escape-sequences") - (synopsis "Highlight escape sequences in Emacs") - (description "@code{highlight-escape-sequences} provides an -Emacs minor mode to escape sequences in code.") - (license license:gpl3+)))) - -(define-public emacs-dashboard - (package - (name "emacs-dashboard") - (version "1.2.4") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/rakanalh/emacs-dashboard/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1738lmbgq6gk24hcwic0qjyajr21l5xzhya4pv58dw1bhd6vxv9g")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-page-break-lines" ,emacs-page-break-lines))) - (arguments '(#:include '("\\.el$" "\\.txt$" "\\.png$"))) - (home-page "https://github.com/rakanalh/emacs-dashboard") - (synopsis "Startup screen extracted from Spacemacs") - (description "This package provides an extensible Emacs dashboard, with -sections for bookmarks, projectil projects, org-agenda and more. ") - (license license:gpl3+))) - -(define-public emacs-slime-company - (package - (name "emacs-slime-company") - (version "1.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/anwyn/slime-company/archive/" - "v" version ".tar.gz")) - (sha256 - (base32 - "1myl79pxj501xfr5qc5a24qddsn2l5iaamg7rf7fpny7mr9v70ar")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-slime" ,emacs-slime) - ("emacs-company" ,emacs-company))) - (home-page "https://company-mode.github.io") - (synopsis "SLIME completion backend for @code{company-mode}") - (description - "This is a backend implementation for the completion package -@code{company-mode} which supports the normal and the fuzzy completion -modes of SLIME.") - (license license:gpl3+))) - -(define-public emacs-sml-mode - (package - (name "emacs-sml-mode") - (version "6.8") - (source - (origin - (method url-fetch) - (uri (string-append "http://elpa.gnu.org/packages/sml-mode-" - version ".el")) - (sha256 - (base32 - "105fcrz5qp95f2n3fdm3awr6z58sbrjihjss6qnrg4lz2ggbc328")))) - (build-system emacs-build-system) - (home-page "http://elpa.gnu.org/packages/sml-mode.html") - (synopsis "Major mode for editing (Standard) ML") - (description "SML-MODE is a major Emacs mode for editing Standard ML. -It provides syntax highlighting and automatic indentation and -comes with sml-proc which allows interaction with an inferior SML -interactive loop.") - (license license:gpl3+))) - -(define-public emacs-eros - (let ((commit "a42e45c9b2397156c684330b0fc90ee0eba773f5") - (revision "1")) - (package - (name "emacs-eros") - (version (string-append "0.0.1" "-" revision "." - (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/xiongtx/eros.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0whlsq90v13fz69k3wjrwcwb9gkpfxqjd75mg3nrp85j9nwhb5i4")))) - (build-system emacs-build-system) - (home-page "https://github.com/xiongtx/eros") - (synopsis "Evaluation result overlays") - (description "@code{eros} provides evaluation result overlays.") - (license license:gpl3+)))) - -(define-public emacs-stickyfunc-enhance - (let ((commit "13bdba51fcd83ccbc3267959d23afc94d458dcb0") - (revision "1")) - (package - (name "emacs-stickyfunc-enhance") - (version "0.1") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/tuhdo/semantic-stickyfunc-enhance.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "16dxjsr5nj20blww4xpd4jzgjprzzh1nwvb810ggdmp9paf4iy0g")))) - (build-system emacs-build-system) - (home-page "https://github.com/tuhdo/semantic-stickyfunc-enhance") - (synopsis "Enhancement to stock @code{semantic-stickyfunc-mode}") - (description - "@code{semantic-stickyfunc-mode} shows the function point is currently -in at the first line of the current buffer. This is useful when you have a -very long function that spreads more than a screen, and you don't have to -scroll up to read the function name and then scroll down to original position.") - (license license:gpl3+)))) - -(define-public emacs-git-auto-commit-mode - (package - (name "emacs-git-auto-commit-mode") - (version "4.4.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/ryuslash/git-auto-commit-mode/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "04avxmalsl3b7zi2vipfw9rb4wrwysnipsbch96skviql9axk870")))) - (build-system emacs-build-system) - (home-page "https://github.com/ryuslash/git-auto-commit-mode") - (synopsis "Emacs Minor mode to automatically commit and push") - (description "@code{git-auto-commit-mode} is an Emacs minor mode that -tries to commit changes to a file after every save. - -When @code{gac-automatically-push-p} is non-nil, it also tries to push to -the current upstream.") - (license license:gpl3+))) - -(define-public emacs-company-restclient - (package - (name "emacs-company-restclient") - (version "0.1.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/iquiw/company-restclient/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1kr3f0wgqlk7r171bvb2kinv7fanwj2md01wdpx04qkgwcr1as00")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-company" ,emacs-company) - ("emacs-know-your-http-well" ,emacs-know-your-http-well) - ("emacs-restclient" ,emacs-restclient))) - (home-page "https://github.com/iquiw/company-restclient") - (synopsis "Company-mode completion back-end for restclient-mode") - (description "@code{company-mode} back-end for -@code{restclient-mode}. - -It provides auto-completion for HTTP methods and headers in -@code{restclient-mode}. Completion source is given by -@code{know-your-http-well}.") - (license license:gpl3+))) - -(define-public emacs-noflet - (let ((version "20170629") - (revision "1") - (commit "7ae84dc3257637af7334101456dafe1759c6b68a")) - (package - (name "emacs-noflet") - (version (git-version version revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/nicferrier/emacs-noflet") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0g70gnmfi8n24jzfci9nrj0n9bn1qig7b8f9f325rin8h7x32ypf")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'require-dash - ;; noflet.el uses -map from dash, but (require 'dash) is - ;; missing. So, add it. - (lambda _ - (substitute* "noflet.el" - ((";;; Code:") ";;; Code:\n(require 'dash)")) - #t))))) - (propagated-inputs - `(("emacs-dash" ,emacs-dash))) - (home-page "https://github.com/nicferrier/emacs-noflet") - (synopsis "Locally override functions") - (description "@code{emacs-noflet} let's you locally override functions, -in the manner of @command{flet}, but with access to the original function -through the symbol: @command{this-fn}.") - (license license:gpl3+)))) - -(define-public emacs-dumb-jump - (package - (name "emacs-dumb-jump") - (version "0.5.2") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/jacktasia/dumb-jump/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "07n0xjgpxjpf3vp9gxchkjpydyj0zm166930as0kwiwkhjlsirsf")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #f ; FIXME: Tests freeze when run. - #:test-command '("ert-runner") - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'set-shell - (lambda _ - ;; Setting the SHELL environment variable is required for the - ;; tests to find sh. - (setenv "SHELL" (which "sh")) - #t))))) - (native-inputs - `(("emacs-el-mock" ,emacs-el-mock) - ("emacs-noflet" ,emacs-noflet) - ("emacs-undercover" ,emacs-undercover) - ("ert-runner" ,emacs-ert-runner))) - (propagated-inputs - `(("emacs-f" ,emacs-f) - ("emacs-popup" ,emacs-popup))) - (home-page "https://github.com/jacktasia/dumb-jump") - (synopsis "Jump to definition for multiple languages without configuration") - (description "Dumb Jump is an Emacs \"jump to definition\" package with -support for multiple programming languages that favors \"just working\" over -speed or accuracy. This means minimal --- and ideally zero --- configuration -with absolutely no stored indexes (tags) or persistent background processes. -Dumb Jump performs best with The Silver Searcher @command{ag} or ripgrep -@command{rg} installed.") - (license license:gpl3+))) - -(define-public emacs-dts-mode - (let ((commit "9ee0854446dcc6c53d2b8d2941051768dba50344") - (revision "1")) - (package - (name "emacs-dts-mode") - (version (string-append "0.1.0-" revision "." (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/bgamari/dts-mode.git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1k8lljdbc90nd29xrhdrsscxavzdq532wq2mg7ljc94krj7538b1")))) - (build-system emacs-build-system) - (home-page "https://github.com/bgamari/dts-mode.git") - (synopsis "Emacs minor mode for editing device tree files") - (description - "This package provides an Emacs minor mode for highlighting -device tree files.") - (license license:gpl3+)))) - -(define-public emacs-daemons - (package - (name "emacs-daemons") - (version "2.0.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/cbowdon/daemons.el") - (commit version))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "00bkzfaw3bqykcks610vk9wlpa2z360xn32bpsrycacwfv29j7g4")))) - (build-system emacs-build-system) - (home-page "https://github.com/cbowdon/daemons.el") - (synopsis "Emacs UI for managing init system services") - (description - "This is an Emacs mode to give you a UI for managing init system -daemons (services) for those getting tired of typing out @code{sudo service -my_thing reload} all the time. It offers a consistent UI over different init -systems.") - (license license:gpl3+))) - -(define-public emacs-esh-autosuggest - (package - (name "emacs-esh-autosuggest") - (version "2.0.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/dieggsy/esh-autosuggest") - (commit version))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "116pdjgpjy9b0psm5kzwkwy7dq8vn0p6dy75dl1zsy2xrjf1iqdw")))) - (build-system emacs-build-system) - (propagated-inputs `(("emacs-company" ,emacs-company))) - (home-page "https://github.com/dieggsy/esh-autosuggest") - (synopsis "Fish-like autosuggestions in Eshell") - (description - "This package assumes you use something other than company for eshell -completion (e.g. @code{eshell-pcomplete}, @code{completion-at-point}, -@code{helm-esh-pcomplete}). @code{company-mode} is used solely as a mechanism -for history autosuggestions. - -Unless you're using @code{use-package}'s hook keyword, you can enable the -autosuggestions with: -@code{(add-hook 'eshell-mode-hook #'esh-autosuggest-mode)}") - (license license:gpl3+))) - -(define-public emacs-desktop-environment - (package - (name "emacs-desktop-environment") - (version "0.2.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/DamienCassou/desktop-environment.git") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1fal3yfmqg10cb53qsf5gsq2gvyz9w16wmlpnpjwjzwnjfn6l73r")))) - (build-system emacs-build-system) - (home-page "https://gitlab.petton.fr/DamienCassou/desktop-environment") - (synopsis "Control your GNU/Linux desktop environment from Emacs") - (description - "This package helps you control your GNU/Linux desktop from Emacs. -With @code{desktop-environment}, you can control the brightness and volume as -well as take screenshots and lock your screen. The package depends on the -availability of shell commands to do the hard work for us. These commands can -be changed by customizing the appropriate variables.") - (license license:gpl3+))) - -(define-public emacs-org-caldav - (package - (name "emacs-org-caldav") - (version "20180403") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/dengste/org-caldav/raw/" - "8d3492c27a09f437d2d94f2736c56d7652e87aa0" - "/org-caldav.el")) - (sha256 - (base32 - "1fh4gh68ddj0is99z2ccyh97v6psnyda61n2dsadzqhcxn51amlc")))) - (build-system emacs-build-system) - (propagated-inputs `(("emacs-org" ,emacs-org))) - (home-page "https://github.com/dengste/org-caldav") - (synopsis - "Sync Org files with external calendars via the CalDAV protocol") - (description - "Synchronize between events in Org-mode files and a CalDAV calendar. -This code is still alpha.") - (license license:gpl3+))) - -(define-public emacs-zotxt - (package - (name "emacs-zotxt") - (version "20180518") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/egh/zotxt-emacs/archive/" - "23a4a9f74a658222027d53a9a83cd4bcc583ca8b" - ".tar.gz")) - (sha256 - (base32 - "1qlibaciqgsva6fc7vv9krssjq00bi880396jk7llbi3c52q9n1y")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-deferred" ,emacs-deferred) - ("emacs-request" ,emacs-request))) - (home-page "https://github.com/egh/zotxt-emacs") - (synopsis "Integrate Emacs with Zotero") - (description "This package provides two integration features between Emacs -and the Zotero research assistant: Insertion of links to Zotero items into an -Org-mode file, and citations of Zotero items in Pandoc Markdown files.") - (license license:gpl3+))) - -(define-public emacs-evil-ediff - ;; Evil-Ediff is included in Evil Collection from 20180617. - (deprecated-package "emacs-evil-ediff" emacs-evil-collection)) - -(define-public emacs-evil-magit - (let ((commit "dbf5a646a7ce1c35c229dfdc423bd5ecd927a3a8")) - (package - (name "emacs-evil-magit") - (version (git-version "0.4.2" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-evil/evil-magit") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0ya0dkviq4pi92ab69a4j674y5r1hc1x3x7r7hlm97ag3a6zfkav")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-evil" ,emacs-evil) - ("magit" ,emacs-magit))) - (home-page - "https://github.com/emacs-evil/evil-magit") - (synopsis "Evil-based key bindings for Magit") - (description - "This Emacs library configures Magit and Evil to play well with each other. -For some background see @url{https://github.com/magit/evil-magit/issues/1}. -See the README at @url{https://github.com/justbur/evil-magit} for a table -describing the key binding changes.") - (license license:gpl3+)))) - -(define-public emacs-evil-mu4e - ;; Evil-mu4e is included in Evil Collection from 20180617. - (deprecated-package "emacs-evil-mu4e" emacs-evil-collection)) - -(define-public emacs-evil-multiedit - (package - (name "emacs-evil-multiedit") - (version "1.3.9") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/hlissner/evil-multiedit") - (commit (string-append "v" version)))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "19h3kqylqzbjv4297wkzzxdmn9yxbg6z4ga4ssrqri90xs7m3rw3")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-evil" ,emacs-evil) - ("emacs-iedit" ,emacs-iedit))) - (home-page - "https://github.com/hlissner/evil-multiedit") - (synopsis "Multiple cursors for Evil mode") - (description - "This plugin was an answer to the lack of proper multiple cursor support -in Emacs+Evil. It allows you to select and edit matches interactively, -integrating @code{iedit-mode} into Evil mode with an attempt at sensible -defaults.") - (license license:gpl3+))) - -(define-public emacs-evil-org - (let ((commit "b6d652a9163d3430a9e0933a554bdbee5244bbf6")) - (package - (name "emacs-evil-org") - (version (git-version "0.1.1" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Somelauw/evil-org-mode") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "176hrw7y7nczffbyhsa167b8rvfacsmcafm2gpkrdjqlrikbmrhl")))) - (build-system emacs-build-system) - (propagated-inputs `(("emacs-evil" ,emacs-evil))) - (home-page - "https://github.com/Somelauw/evil-org-mode") - (synopsis "Evil keybindings for Org mode") - (description - "This package adds supplemental Evil mode key-bindings to Emacs -Org-mode. It features: -@itemize -@item normal, visual and insert mode bindings; -@item key bindings organised in key themes; -@item operators like > and < to work on headings; -@item text objects; -@item table support; -@item calendar (date selection) support; -@item agenda support. -@end itemize\n") - (license license:gpl3+)))) - -(define-public emacs-fish-completion - (let ((commit "bac15fda1392a891070574dfe5d2d50b10831e8b")) - (package - (name "emacs-fish-completion") - (version (git-version "20180616" "1" commit)) - (source - (origin - (method url-fetch) - (uri (string-append - "https://gitlab.com/Ambrevar/emacs-fish-completion/repository/" - "archive.tar.gz?ref=" - commit)) - (sha256 - (base32 - "093qzdrbkl7dhjk16zq8i13kh1phyigkblcfrbgbrxjqd2ndrfdi")))) - (build-system emacs-build-system) - (inputs `(("fish" ,fish))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((fish (assoc-ref inputs "fish"))) - ;; Specify the absolute file names of the various - ;; programs so that everything works out-of-the-box. - (emacs-substitute-variables - "fish-completion.el" - ("fish-completion-command" - (string-append fish "/bin/fish"))))))))) - (home-page - "https://gitlab.com/Ambrevar/emacs-fish-completion") - (synopsis "Fish completion for Emacs pcomplete") - (description - "This package provides completion for the Fish shell to pcomplete (used -by shell and Eshell). You can set it up globally with: - -@example -(when (and (executable-find \"fish\") - (require 'fish-completion nil t)) - (global-fish-completion-mode)) -@end example - -Alternatively, you can call the @code{fish-completion-mode} manually or in -shell/Eshell mode hook. - -The package @code{emacs-bash-completion} is an optional dependency: if available, -@code{fish-completion-complete} can be configured to fall back on bash to further -try completing. See @code{fish-completion-fallback-on-bash-p}.") - (license license:gpl3+)))) - -(define-public emacs-gif-screencast - (let ((commit "12b25442b97b84abae74ecb5190a9d14ff7cfe5a")) - (package - (name "emacs-gif-screencast") - (version (git-version "20180616" "1" commit)) - (source - (origin - (method url-fetch) - (uri (string-append - "https://gitlab.com/Ambrevar/emacs-gif-screencast/" - "repository/archive.tar.gz?ref=" - commit)) - (sha256 - (base32 - "0lc457i78xjkn5idr2aaiadkh76zcsksj84z0qh80a9y775syrgh")))) - (build-system emacs-build-system) - (inputs - `(("scrot" ,scrot) - ("imagemagick" ,imagemagick) - ("gifsicle" ,gifsicle))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((scrot (assoc-ref inputs "scrot")) - (imagemagick (assoc-ref inputs "imagemagick")) - (gifsicle (assoc-ref inputs "gifsicle"))) - ;; Specify the absolute file names of the various - ;; programs so that everything works out-of-the-box. - (emacs-substitute-variables - "gif-screencast.el" - ("gif-screencast-program" - (string-append scrot "/bin/scrot")) - ("gif-screencast-convert-program" - (string-append imagemagick "/bin/convert")) - ("gif-screencast-cropping-program" - (string-append imagemagick "/bin/mogrify")) - ("gif-screencast-optimize-program" - (string-append imagemagick "/bin/gifsicle"))))))))) - (home-page - "https://gitlab.com/Ambrevar/emacs-gif-screencast") - (synopsis "One-frame-per-action GIF recording") - (description - "Call @code{gif-screencast} to start a recording. -A screenshot is taken for every user action. Call -@code{gif-screencast-stop} (<f9> by default) to finish recording and create -the GIF result.") - (license license:gpl3+)))) - -(define-public emacs-google-translate - (package - (name "emacs-google-translate") - (version "0.11.16") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/atykhonov/google-translate/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "01n9spj1d0gjfj39x526rl3m9c28wnx9afipmf5s8y77cx3mfwhl")))) - (build-system emacs-build-system) - (home-page "https://github.com/atykhonov/google-translate") - (synopsis "Emacs interface to Google Translate") - (description - "This packages provides an Emacs interface to the Google Translate -on-line service.") - (license license:gpl3+))) - -(define-public emacs-helm-company - (let ((commit "d3fc093a0e833b4dee6561c00d6df3d62aa50f3f")) - (package - (name "emacs-helm-company") - (version (git-version "0.2.3" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Sodel-the-Vociferous/helm-company") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1ciirsanhajdqm5iwl8k9ywf4jha1wdv4sc4d9kslyrfr9zn4q6k")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm) - ("emacs-company" ,emacs-company))) - (home-page "https://github.com/Sodel-the-Vociferous/helm-company") - (synopsis "Helm interface for company-mode") - (description - "This is a Helm interface to company-mode, a text completion -framework.") - (license license:gpl3+)))) - -(define-public emacs-helm-descbinds - (let ((commit "033be73f21778633813264ce1634a6e1ad873d8e")) - (package - (name "emacs-helm-descbinds") - (version (git-version "1.13" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-helm/helm-descbinds") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1n89p56qwa243w1c85i5awnaf7piwjsvfi7nmnsrwm33hix5dknk")))) - (build-system emacs-build-system) - (propagated-inputs `(("emacs-helm" ,emacs-helm))) - (home-page "https://github.com/emacs-helm/helm-descbinds") - (synopsis "Convenient @code{describe-bindings} with Helm") - (description - "This package is a replacement of @code{describe-bindings} for Helm. -@code{describe-bindings} is replaced with @code{helm-descbinds}. As usual, -type @code{C-h b}, or any incomplete key sequence plus @code{C-h}, to run -@code{helm-descbinds}. The bindings are presented in a similar way as -@code{describe-bindings} does, but you can use completion to find the command -you searched for and execute it, or view its documentation.") - (license license:gpl3+)))) - -(define-public emacs-helm-emms - (let ((commit "d3f9bdef8ff0d093eaf6e26af50ea905ab53fdec")) - (package - (name "emacs-helm-emms") - (version (git-version "1.3" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-helm/helm-emms") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0bdb8xp0yp3gijpa9i2rc17gfzjhzlm92vdzw93i10qpd1xhj4aa")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm) - ("emacs-emms" ,emacs-emms))) - (home-page - "https://github.com/emacs-helm/helm-emms") - (synopsis "Emms for Helm") - (description "Helm interface for Emms to browse all tracks and all folders -from @code{emms-source-file-default-directory}.") - (license license:gpl3+)))) - -(define-public emacs-helm-exwm - (let ((commit "56266f261ba3b3d2753b374b50da20eb768c06f5")) - (package - (name "emacs-helm-exwm") - (version (git-version "20180703" "2" commit)) - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/emacs-helm/helm-exwm/archive/" - commit - ".tar.gz")) - (sha256 - (base32 - "0n7hdiajw5vxl8ha2r9r4cl4i7crza25348825wb6acwhhzijxcj")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm) - ("emacs-exwm" ,emacs-exwm))) - (home-page - "https://github.com/emacs-helm/helm-exwm") - (synopsis "Helm for EXWM buffers") - (description - "@code{helm-exwm} runs a Helm session over the list of EXWM buffers. -@code{helm-exwm-switch} is a convenience X application launcher using Helm to -switch between the various windows of one or several specific applications. -See @code{helm-exwm-switch-browser} for an example.") - (license license:gpl3+)))) - -(define-public emacs-helm-flycheck - (let ((commit "3cf7d3bb194acacc6395f88360588013d92675d6")) - (package - (name "emacs-helm-flycheck") - (version (git-version "0.4" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/yasuyk/helm-flycheck") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1a2yfxhz04klwhcandqvfzysxp6b7bxyxx1xk1x3kds5hif5fkl4")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-flycheck" ,emacs-flycheck) - ("emacs-helm" ,emacs-helm))) - (home-page "https://github.com/yasuyk/helm-flycheck") - (synopsis "Show Flycheck errors with Helm") - (description - "This integrates Flycheck with Helm.") - (license license:gpl3+)))) - -(define-public emacs-helm-ls-git - (let ((commit "76654c776a7f6e2e5290645e748aac2a746f7daa")) - (package - (name "emacs-helm-ls-git") - (version (git-version "1.9.1" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-helm/helm-ls-git") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0vsq1n3xl3ghy5zik2scm7jrs501n4kybdqd6yw6j0cv4jxdqbr0")))) - (build-system emacs-build-system) - (propagated-inputs `(("emacs-helm" ,emacs-helm))) - (home-page "https://github.com/emacs-helm/helm-ls-git") - (synopsis "Helm interface for listing the files in a Git repository") - (description - "This package provides a Helm interface for Git files. -@itemize -@item Display the open buffers in project. -@item Display a status source showing state of project (modified files etc.). -@item Display a list of all files in project under git control. -@item Quickly look at diffs of modified files. -@item Allow switching to @code{git status} with your preferred frontend -(vc-dir, Magit,etc.). -@item Full integration of git-grep, also allow usage of @code{helm-grep} (you -can use ack-grep instead of grep). -@item Integrate usage of gid from id-utils. -@item Full integration with @code{helm-find-files}, allow you to browse -projects unrelated to current-buffer. -@item In addition, all actions of type files and buffers are provided. -@end itemize\n") - (license license:gpl3+)))) - -(define-public emacs-helm-mu - (let ((commit "77e6fea24e01481418738421dbcfe28ef1bd63cf")) - (package - (name "emacs-helm-mu") - (version (git-version "20180513" "1" commit)) - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/emacs-helm/helm-mu/archive/" - commit - ".tar.gz")) - (sha256 - (base32 - "0qm4xi3i957scm50nar398pv4x8y03si10l77jb9ckjaviyq2hj9")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm) - ("mu" ,mu))) - (home-page - "https://github.com/emacs-helm/helm-mu") - (synopsis - "Helm sources for searching emails and contacts") - (description - "Helm sources for searching emails and contacts using @code{mu} and -@code{mu4e}. Mu is an indexer for maildirs and mu4e is a mutt-like MUA for -Emacs build on top of mu. Mu is highly efficient making it possible to get -instant results even for huge maildirs. It also provides search operators, -e.g: @code{from:Peter to:Anne flag:attach search term}.") - (license license:gpl3+)))) - -(define-public emacs-helm-pass - (let ((commit "ebcbef1a962795a36e3491ae926e2a4b8a8b0ebb")) - (package - (name "emacs-helm-pass") - (version (git-version "20180416" "1" commit)) - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/jabranham/helm-pass/archive/" - commit - ".tar.gz")) - (sha256 - (base32 - "1pgq4hj9wvz7z2fyxwsvbh6rmc1akya84v382nx26rr76iavz6wi")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm) - ("emacs-password-store" ,emacs-password-store))) - (home-page - "https://github.com/jabranham/helm-pass") - (synopsis "Helm interface to pass, the standard Unix password manager") - (description - "Users of @code{helm-pass} may also be interested in functionality -provided by other Emacs packages dealing with pass: -@itemize -@item @code{emacs-password-store}, which @code{helm-pass} relies on. -@item @code{emacs-pass}, a major mode for @code{pass}. -@item @code{auth-source-pass.el}: integration of Emacs' auth-source with -@code{pass}, included in Emacs 26+). -@end itemize\n") - (license license:gpl3+)))) - -(define-public emacs-image+ - (let ((commit "6834d0c09bb4df9ecc0d7a559bd7827fed48fffc")) - (package - (name "emacs-image+") - (version (git-version "0.6.2" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/mhayashi1120/Emacs-imagex") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0v66wk9nh0raih4jhrzmmyi5lbysjnmbv791vm2230ffi2hmwxnd")))) - (build-system emacs-build-system) - (inputs `(("imagemagick" ,imagemagick))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((imagemagick (assoc-ref inputs "imagemagick"))) - ;; Specify the absolute file names of the various - ;; programs so that everything works out-of-the-box. - (chmod "image+.el" #o666) - (emacs-substitute-variables - "image+.el" - ("imagex-convert-command" - (string-append imagemagick "/bin/convert")) - ("imagex-identify-command" - (string-append imagemagick "/bin/identify"))))))))) - (home-page "https://github.com/mhayashi1120/Emacs-imagex") - (synopsis "Image manipulation extensions for Emacs") - (description - "Image+ provides keybindings allowing you to zoom in or zoom out of an -image, rotate it, save modified images, and more.") - (license license:gpl3+)))) - -(define-public emacs-package-lint - (let ((commit "69bb89d00ba212b734c676ad056aa793c450b288")) - (package - (name "emacs-package-lint") - (version (git-version "0.5" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/purcell/package-lint") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1hfricsgmy3x9snnd2p4xq6vnnv94qdsxxnxp07b3hqc9bhw31rq")))) - (build-system emacs-build-system) - (home-page "https://github.com/purcell/package-lint") - (synopsis "Linting library for elisp package authors") - (description - "This provides a list of issues with the Emacs package metadata of a file, -e.g. the package dependencies it requires. See function -@code{package-lint-buffer}. Checks will currently be enabled only if a -\"Package-Requires:\" or \"Package-Version:\" header is present in the -file.") - (license license:gpl3+)))) - -(define-public emacs-picpocket - (let ((version "40") - (commit "6fd88b8711c4370662c0f9c462170187d092a046")) - (package - (name "emacs-picpocket") - (version version) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/johanclaesson/picpocket") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 "1mdzzxf7xm7zwrpnqqxa27d1cr31pd72d7ilbwljv13qp177a3yw")))) - (build-system emacs-build-system) - (arguments ; needed for running tests - `(#:tests? #t - #:emacs ,emacs - #:test-command '("emacs" "--batch" - "-l" "picpocket-test.el" - "-f" "ert-run-tests-batch-and-exit"))) - (home-page "https://github.com/johanclaesson/picpocket") - (synopsis "Image viewer for Emacs") - (description - "Picpocket is an image viewer for GNU Emacs. It has commands for: - -@itemize -@item File operations on the picture files (delete, move, copy, hardlink). -@item Scale and rotate the picture. -@item Associate pictures with tags which are saved to disk. -@item Filter pictures according to tags. -@item Customizing keystrokes for quick tagging and file operations. -@item Undo and browse history of undoable commands. -@end itemize") - (license license:gpl3+)))) - -(define-public emacs-wgrep-helm - ;; `emacs-wgrep-helm' was mistakenly added. - (deprecated-package "emacs-wgrep-helm" emacs-wgrep)) - -(define-public emacs-mu4e-conversation - (let ((commit "e7d4bfcb0d392b0aed1f705ccac2419a168d1f5e")) - (package - (name "emacs-mu4e-conversation") - (version (git-version "20181126" "4" commit)) - (source - (origin - (method url-fetch) - (uri (string-append - "https://gitlab.com/Ambrevar/mu4e-conversation/" - "repository/archive.tar.gz?ref=" - commit)) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0b52hf9rm2afba9pvgink9bwqm705sk0y5qikp0ff5sk53wqvy29")))) - (build-system emacs-build-system) - (propagated-inputs - `(("mu" ,mu))) - (home-page - "https://gitlab.com/Ambrevar/mu4e-conversation") - (synopsis - "Show a complete thread in a single buffer") - (description - "This package offers an alternate view to mu4e's e-mail display. It -shows all e-mails of a thread in a single view, where each correspondent has -their own face. Threads can be displayed linearly (in which case e-mails are -displayed in chronological order) or as an Org document where the node tree -maps the thread tree.") - (license license:gpl3+)))) - -(define-public emacs-pinentry - (let ((commit "dcc9ba03252ee5d39e03bba31b420e0708c3ba0c") - (revision "1")) - (package - (name "emacs-pinentry") - (version (git-version "0.1" revision commit)) - (source - (origin - (method url-fetch) - (uri (string-append - "http://git.savannah.gnu.org/cgit/emacs/elpa.git/plain" - "/packages/pinentry/pinentry.el?id=" commit)) - (file-name (string-append "pinentry.el")) - (sha256 - (base32 - "1lf30q6r8nz5cjzclbb9bbymsk2y75nskvb55hnjdv93gr3j0sik")))) - (build-system emacs-build-system) - (propagated-inputs - `(("gnupg" ,gnupg))) - (home-page "https://elpa.gnu.org/packages/pinentry.html") - (synopsis "GnuPG Pinentry server implementation") - (description - "This package allows GnuPG passphrase to be prompted through the -minibuffer instead of graphical dialog. - -To use, add @code{allow-emacs-pinentry} to @code{~/.gnupg/gpg-agent.conf}, -reload the configuration with @code{gpgconf --reload gpg-agent}, and start the -server with @code{M-x pinentry-start}.") - (license license:gpl3+)))) - -(define-public emacs-org-brain - (package - (name "emacs-org-brain") - (version "0.5") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Kungsgeten/org-brain.git") - (commit "3faf9303af3f2356e3444e69c22dc6c5774047d1"))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1ad681zk6kckw2zbk0r4iaj4bw8cfqrbd1s3gdwgdjlzq81q9mmj")))) - (build-system emacs-build-system) - (home-page "https://github.com/Kungsgeten/org-brain") - (synopsis "Org-mode wiki and concept-mapping for Emacs") - (description "@code{emacs-org-brain} implements a variant of concept -mapping in Emacs, using @code{org-mode}. An org-brain is a network of -org-mode entries, where each entry is a file or a headline, and you can get a -visual overview of the relationships between the entries: parents, children, -siblings and friends. This visual overview can also be used to browse your -entries. You can think of entries as nodes in a mind map, or pages in a -wiki.") - (license license:expat))) - -(define-public emacs-recent-addresses - (let ((commit "afbbfdc43b81e620acf827ca20d297e0c517b6eb") - (revision "1")) - (package - (name "emacs-recent-addresses") - (home-page "http://nschum.de/src/emacs/recent-addresses/") - (version (git-version "0.1" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - ;; Note: Use a branch that works with Helm. Submitted - ;; at <https://github.com/nschum/recent-addresses.el/pull/1>. - (url "https://github.com/civodul/recent-addresses.el") - (commit commit))) - (sha256 - (base32 - "0ajrq0galjmdyjdjyxazykjyax3gh6hvfk4s7l657pi11g0q5zax")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (synopsis "Record recently-used email addressed and auto-complete them") - (description - "@code{recent-addresses} is an Emacs package that allows you to quickly -look up previously used email addresses. It can be used alongside the Gnus -email client.") - (license license:gpl2+)))) - -(define-public emacs-fold-dwim - (let ((commit "c46f4bb2ce91b4e307136320e72c28dd50b6cd8b") - (revision "0")) - (package - (name "emacs-fold-dwim") - (version (git-version "1.2" revision commit)) - (home-page "https://github.com/emacsattic/fold-dwim") - (source (origin - (method git-fetch) - (uri (git-reference (url home-page) (commit commit))) - (sha256 - (base32 - "1yz1wis31asw6xa5maliyd1ck2q02xnnh7dc6swgj9cb4wi7k6i1")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (synopsis "Unified user interface for Emacs folding modes") - (description - "DWIM stands for \"do what I mean\", as in the idea that one keystroke -can do different things depending on the context. In this package, it means -that, if the cursor is in a currently hidden folded construction, we want to -show it; if it's not, we want to hide whatever fold the cursor is in.") - (license license:gpl2+)))) - -(define-public emacs-markup-faces - (package - (name "emacs-markup-faces") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://stable.melpa.org/packages/markup-faces-" - version ".el")) - (sha256 - (base32 - "124dxbaa25fwxnpwsygpz7pw6da6dnnw7y2lic3jf8rgz7lw4v32")))) - (build-system emacs-build-system) - (home-page "https://github.com/sensorflo/markup-faces") - (synopsis "Collection of Emacs faces for markup language modes") - (description "emacs-markup-faces is like font-lock-faces, but tailored for -markup languages instead programming languages. The sub group markup-faces-text -is also intended for 'text viewing modes' such as info or (wo)man. This gives a -common look and feel, or let's say theme, across different markup language modes -and 'text viewing modes' respectively.") - (license license:gpl3+))) - -(define-public emacs-adoc-mode - (package - (name "emacs-adoc-mode") - (version "0.6.6") - (source - (origin - (method url-fetch) - (uri (string-append "https://stable.melpa.org/packages/adoc-mode-" - version ".el")) - (sha256 - (base32 - "1c6hrgxxsnl2c19rgjykpm7r4xg9lp6bmk5z6bi7g8pqlrgwffcy")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-markup-faces" ,emacs-markup-faces))) - (home-page "https://github.com/sensorflo/adoc-mode/wiki") - (synopsis "AsciiDoc mode for Emacs") - (description "This package provides an Emacs major mode for editing AsciiDoc -files. It focuses on highlighting the document to improve readability.") - (license license:gpl2+))) - -(define-public emacs-rust-mode - (let ((commit - ;; Last release is old (2016), use more recent commit to get bug - ;; fixes. - "64b4a2450e4d4c47f6307851c9b2598cd2254d68") - (revision "0")) - (package - (name "emacs-rust-mode") - (version (git-version "0.3.0" revision commit)) - (source (origin - (method git-fetch) - (uri - (git-reference - (url "https://github.com/rust-lang/rust-mode") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0pbz36lljgb7bdgx3h3g0pq1nss1kvn8mhk1l3mknsmynd6w4nd8")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (invoke "sh" "run_rust_emacs_tests.sh")))))) - (home-page "https://github.com/rust-lang/rust-mode") - (synopsis "Major Emacs mode for editing Rust source code") - (description "This package provides a major Emacs mode for editing Rust -source code.") - (license (list license:expat - license:asl2.0))))) - -(define-public emacs-ztree - (let ((commit "c54425a094353ec40a8179f9eab3596f76c6cf94")) - (package - (name "emacs-ztree") - (version (git-version "1.0.5" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/fourier/ztree") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0j8fpxds8m1zi04nrs8vv21091abvh4n8ab76f1sgdxnp4l5cfb0")))) - (build-system emacs-build-system) - (home-page "https://github.com/fourier/ztree") - (synopsis "Directory tree comparison mode for Emacs") - (description "Ztree is a project dedicated to implementation of several -text-tree applications inside GNU Emacs. It consists of 2 subprojects: -@command{ztree-diff} and @command{ztree-dir} (the basis of -@command{ztree-diff}).") - (license license:gpl3)))) - -(define-public emacs-helm-org-contacts - (let ((commit "0af703bd9a43032b89fdf5559673151d1ac2fffc")) - (package - (name "emacs-helm-org-contacts") - (version (git-version "20180707" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/tmalsburg/helm-org-contacts") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1cl7cm2ic9pg4vc9cdh84vzjj1x2lpd5ymimiva8h4l17kiphk4s")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-helm" ,emacs-helm) - ("emacs-s" ,emacs-s))) - (home-page "https://github.com/tmalsburg/helm-org-contacts") - (synopsis "Helm source for org-contacts") - (description "This Helm source can be used to search contacts stored in -org-contacts format. There are actions for inserting postal addresses, email -addresses, and phone numbers in the buffer where @command{helm-org-contacts} -was called.") - (license license:gpl3)))) - -(define-public emacs-dired-du - (package - (name "emacs-dired-du") - (version "0.5.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://elpa.gnu.org/packages/dired-du-" - version ".tar")) - (sha256 - (base32 - "1091scnrjh0a4gja4z6jxic6ghy1yryv46qk9c76pmh50cpw6766")))) - (build-system emacs-build-system) - (home-page "http://elpa.gnu.org/packages/dired-du.html") - (synopsis "Dired with recursive directory sizes") - (description - "Display the recursive size of directories in Dired. -This file defines a minor mode @command{dired-du-mode} to show the recursive -size of directories in Dired buffers. If @command{du} program is available, -then the directory sizes are obtained with it. Otherwise, the directory sizes -are obtained with Lisp. The former is faster and provide a more precise -value. For directories where the user doesn't have read permission, the -recursive size is not obtained. Once this mode is enabled, every new Dired -buffer displays recursive dir sizes.") - (license license:gpl3+))) - -(define-public emacs-pcre2el - ;; Last release is very old so we get the latest commit. - (let ((commit "0b5b2a2c173aab3fd14aac6cf5e90ad3bf58fa7d")) - (package - (name "emacs-pcre2el") - (version (git-version "1.8" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/joddie/pcre2el") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "14br6ad138qx1z822wqssswqiihxiynz1k69p6mcdisr2q8yyi1z")))) - (build-system emacs-build-system) - (home-page "https://github.com/joddie/pcre2el") - (synopsis "Convert between PCRE, Emacs and rx regexp syntax") - (description "@code{pcre2el} or @code{rxt} (RegeXp Translator or RegeXp -Tools) is a utility for working with regular expressions in Emacs, based on a -recursive-descent parser for regexp syntax. In addition to converting (a -subset of) PCRE syntax into its Emacs equivalent, it can do the following: - -@itemize -@item convert Emacs syntax to PCRE -@item convert either syntax to @code{rx}, an S-expression based regexp syntax -@item untangle complex regexps by showing the parse tree in @code{rx} form and -highlighting the corresponding chunks of code -@item show the complete list of strings (productions) matching a regexp, -provided the list is finite -@item provide live font-locking of regexp syntax (so far only for Elisp -buffers – other modes on the TODO list). -@end itemize\n") - (license license:gpl3)))) - -(define-public emacs-magit-todos - (package - (name "emacs-magit-todos") - (version "1.1") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/alphapapa/magit-todos") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1mvzbxshr6zjdim3jd368ar1hy5l7n22i03cpvzdmrw83kkwdyhd")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-async" ,emacs-async) - ("emacs-dash" ,emacs-dash) - ("emacs-f" ,emacs-f) - ("emacs-hl-todo" ,emacs-hl-todo) - ("magit" ,emacs-magit) - ("emacs-pcre2el" ,emacs-pcre2el) - ("emacs-s" ,emacs-s))) - (home-page "https://github.com/alphapapa/magit-todos") - (synopsis "Show source files' TODOs (and FIXMEs, etc) in Magit status buffer") - (description "This package displays keyword entries from source code -comments and Org files in the Magit status buffer. Activating an item jumps -to it in its file. By default, it uses keywords from @code{hl-todo}, minus a -few (like NOTE).") - (license license:gpl3))) - -(define-public emacs-git-annex - ;; Unreleased version has a fontification fix. - (let ((commit "ebdb44aef1883f1b2b8058e05d30fb9315b03707") - (revision "1")) - (package - (name "emacs-git-annex") - (version (string-append "1.1-" revision "." (string-take commit 8))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jwiegley/git-annex-el") - (commit commit))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "1mzv40gj7k10h7h5s43my8msgzjpj680qprqa9pp8nbyhl49v3wh")))) - (build-system emacs-build-system) - (home-page "https://github.com/jwiegley/git-annex-el") - (synopsis "Emacs integration for git-annex") - (description "Enhances Dired and buffers visiting annex files with -git-annex functionality. In Dired, the names of annex files are shortened by -hiding the symbolic links and fontified based on whether content is present. -Commands for performing some common operations (e.g., unlocking and adding -files) are provided.") - (license license:gpl2+)))) - -(define-public emacs-hackernews - (let ((commit "d8c450bbc76d6bb65ec5cdb6c3b888a23f3769e9")) - (package - (name "emacs-hackernews") - (version (git-version "0.4.0" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/clarete/hackernews.el") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "06mp4n6c300jv5lhwf50ircfjckzr2p1zd38s4mqnxxjlf1maim7")))) - (build-system emacs-build-system) - (home-page "https://github.com/clarete/hackernews.el") - (synopsis "Hacker News client for Emacs") - (description "The @command{hackernews} package is able to fetch stories -from six different Hacker News feeds, namely top, new, best, ask, show and job -stories. The default feed is top stories, which corresponds to the Hacker -News homepage.") - (license license:gpl3)))) - -(define-public emacs-youtube-dl - (let ((commit "7c9d7a7d05b72a7d1b1257a36c5e2b2567b185dd")) - (package - (name "emacs-youtube-dl") - (version (git-version "1.0" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/skeeto/youtube-dl-emacs/") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0mh4s089a4x8s380agzb2306kdp1hl204px1n5rrrrdcls7imnh6")))) - (build-system emacs-build-system) - (inputs - `(("youtube-dl" ,youtube-dl))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs #:allow-other-keys) - (let ((youtube-dl (assoc-ref inputs "youtube-dl"))) - ;; .el is read-only in git. - (chmod "youtube-dl.el" #o644) - ;; Specify the absolute file names of the various - ;; programs so that everything works out-of-the-box. - (emacs-substitute-variables - "youtube-dl.el" - ("youtube-dl-program" - (string-append youtube-dl "/bin/youtube-dl"))))))))) - (home-page "https://github.com/skeeto/youtube-dl-emacs/") - (synopsis "Emacs youtube-dl download manager") - (description "This package manages a video download queue for -@command{youtube-dl}, which serves as the back end. It manages a single -@command{youtube-dl} subprocess, downloading one video at a time. New videos -can be queued at any time.") - (license license:unlicense)))) - -(define-public emacs-org-web-tools - (package - (name "emacs-org-web-tools") - (version "1.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/alphapapa/org-web-tools") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0kak9h5ny00d39gnwspv53nadnag01brw2fq9zk5wpfc91h9bjng")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-dash" ,emacs-dash) - ("emacs-esxml" ,emacs-esxml) - ("emacs-s" ,emacs-s))) - (inputs - `(("pandoc" ,ghc-pandoc))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-exec-paths - (lambda* (#:key inputs #:allow-other-keys) - (let ((pandoc (assoc-ref inputs "pandoc"))) - (substitute* "org-web-tools.el" - (("\"pandoc\"") (string-append "\"" pandoc "/bin/pandoc\""))) - #t)))))) - (home-page "https://github.com/alphapapa/org-web-tools") - (synopsis "Display/Process web page as Org-mode content") - (description "This package contains library functions and commands useful -for retrieving web page content and processing it into Org-mode content. - -For example, you can copy a URL to the clipboard or kill-ring, then run a -command that downloads the page, isolates the “readable” content with -@command{eww-readable}, converts it to Org-mode content with Pandoc, and -displays it in an Org-mode buffer. Another command does all of that but -inserts it as an Org entry instead of displaying it in a new buffer.") - (license license:gpl3+))) - -(define-public emacs-blimp - (let ((commit "e420763d6d18b5d1be552cdbc47f91418343db03")) - (package - (name "emacs-blimp") - (version (git-version "0.0.0" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/walseb/blimp") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "09wmhpym516b81dfq8smdmysh1fn610dzlyvyl2rkx8600f0fizd")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-eimp" ,emacs-eimp))) - (home-page "https://github.com/walseb/blimp") - (synopsis "Emacs wrapper around all Imagemagick commands") - (description "Blimp (Bustling Image Manipulation Package) is a complete -wrapper around all Imagemagick commands with descriptions, autocompletion (for -some commands) and hints displayed in prompt using @command{eimp.el} to -execute its commands and resize images.") - (license license:gpl3+)))) - -(define-public emacs-synosaurus - (let ((commit "8bf95b935976ec0a1964cf175ed57cc5f6f93bdb")) - (package - (name "emacs-synosaurus") - (version (git-version "0.1.0" "1" commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/hpdeifel/synosaurus") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "15by9jccab6kyplxa6k0glzaivxkqdigl33gl2qi2cvy6f2q7gva")))) - (build-system emacs-build-system) - (propagated-inputs - `(("wordnet" ,wordnet))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((wn (assoc-ref inputs "wordnet"))) - ;; .el is read-only in git. - (chmod "synosaurus-wordnet.el" #o644) - ;; Specify the absolute file names of the various - ;; programs so that everything works out-of-the-box. - (emacs-substitute-variables - "synosaurus-wordnet.el" - ("wordnet-command" - (string-append wn "/bin/wn"))))))))) - (home-page "https://github.com/hpdeifel/synosaurus") - (synopsis "Extensible thesaurus mode for Emacs") - (description "Synosaurus is a thesaurus fontend for Emacs with pluggable -backends, including the @command{wordnet} offline backend.") - (license license:gpl3+)))) - -(define-public emacs-all-the-icons - (package - (name "emacs-all-the-icons") - (version "3.2.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/domtronn/all-the-icons.el.git") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1sdl33117lccznj38021lwcdnpi9nxmym295q6y460y4dm4lx0jn")))) - (build-system emacs-build-system) - (arguments - `(#:include '("\\.el$" "^data/" "^fonts/") - ;; Compiling "test/" fails with "Symbol’s value as variable is void: - ;; all-the-icons--root-code". Ignoring tests. - #:exclude '("^test/") - #:tests? #f)) - (propagated-inputs - `(("f" ,emacs-f) - ("memoize" ,emacs-memoize))) - (home-page "https://github.com/domtronn/all-the-icons.el") - (synopsis "Collect icon fonts and propertize them within Emacs") - (description "All-the-icons is a utility package to collect various icon -fonts and propertize them within Emacs. Icon fonts allow you to propertize -and format icons the same way you would normal text. This enables things such -as better scaling of and anti aliasing of the icons.") - ;; Package is released under Expat license. Elisp files are licensed - ;; under GPL3+. Fonts come with various licenses: Expat for - ;; "all-the-icons.ttf" and "file-icons.ttf", Apache License 2.0 for - ;; "material-design-icons.ttf", and SIL OFL 1.1 for "fontawesome.ttf", - ;; "ocitcons.ttf" and "weathericons.ttf". - (license - (list license:expat license:gpl3+ license:silofl1.1 license:asl2.0)))) - -(define-public emacs-powerline - (package - (name "emacs-powerline") - (version "2.4") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/milkypostman/powerline.git") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1hp3xp18943n0rlggz55150020ivw8gvi1vyxkr4z8xhpwq4gaar")))) - (build-system emacs-build-system) - (home-page "https://github.com/milkypostman/powerline/") - (synopsis "Mode-line plugin for Emacs") - (description "Powerline is a utility plugin which allows you to create -a better-looking, more functional Emacs mode-line. A collection of predefined -themes comes with the package.") - (license license:gpl3+))) - -(define-public emacs-spaceline - (package - (name "emacs-spaceline") - (version "2.0.1") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/TheBB/spaceline.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1q8r95zfrh0vxna5ml2pq9b9f66clfqcl4d2qy2aizkvzyxg6skl")))) - (build-system emacs-build-system) - (propagated-inputs - `(("dash" ,emacs-dash) - ("powerline" ,emacs-powerline) - ("s" ,emacs-s))) - (home-page "https://github.com/TheBB/spaceline") - (synopsis "Powerline theme from Spacemacs") - (description "Spaceline provides Spacemacs' mode-line theme. -This package provides features for three kinds of users. - -@itemize -@item You just want to use the Spacemacs mode-line theme and forget about it. -@item You want to use something similar to the Spacemacs mode-line theme, but -with a handful of easy tweaks. -@item You want an easy-to-use library for building your own mode-line from -scratch, and you think the Spacemacs theme looks good. -@end itemize") - (license license:gpl3+))) - -(define-public emacs-column-marker - (package - (name "emacs-column-marker") - (version "9") - (source - (origin - (method url-fetch) - (uri "https://www.emacswiki.org/emacs/download/column-marker.el") - (sha256 (base32 "05bv198zhqw5hqq6cr11mhz02dpca74hhp1ycwq369m0yb2naxy9")))) - (build-system emacs-build-system) - (home-page "https://www.emacswiki.org/emacs/ColumnMarker") - (synopsis "Emacs mode for highlighting columns") - (description - "With @code{column-marker.el} you can highlight any number of text columns. -Three such highlight column markers are provided by default. This is -especially useful for languages like COBOL or Fortran where certain columns -have special meaning. It is also handy for aligning text across long vertical -distances. Multi-column characters, such as @kbd{TAB} are treated -correctly.") - (license license:gpl2+))) - -(define-public emacs-slime-repl-ansi-color - (let ((commit "ad03263f5d4de473bc173b64a6fc3dc1106393d7")) - (package - (name "emacs-slime-repl-ansi-color") - (version (git-version "0.0.0" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/deadtrickster/slime-repl-ansi-color") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0bpg7gxz310x7bnlg324c507sxc5gxwwz6h64h6kdq141r73vbi4")))) - (build-system emacs-build-system) - (home-page "https://github.com/deadtrickster/slime-repl-ansi-color") - (synopsis "Color ANSI codes in the REPL of SLIME") - (description "Color ANSI codes in the REPL of SLIME") - (license license:gpl2+)))) - -(define-public emacs-helm-slime - (let ((commit "9980925f3e5f6ac5a30369d2a544e82006a79c76")) - (package - (name "emacs-helm-slime") - (version (git-version "0.0.0" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/emacs-helm/helm-slime") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0xa07gpfkzwn522x9573mq5mfxvbawdgd0m93gqj6w5a14wk8zzh")))) - (build-system emacs-build-system) - (propagated-inputs - `(("emacs-helm" ,emacs-helm) - ("emacs-slime" ,emacs-slime))) - (home-page "https://github.com/emacs-helm/helm-slime") - (synopsis "Helm for SLIME, the Superior Lisp Interaction Mode for Emacs") - (description "Helm-SLIME defines a few new commands: - -@itemize -@item helm-slime-complete: Select a symbol from the SLIME completion systems. -@item helm-slime-list-connections: Yet another slime-list-connections with Helm. -@item: helm-slime-apropos: Yet another slime-apropos with Helm. -@item helm-slime-repl-history: Select an input from the SLIME REPL history and insert it. -@end itemize\n") - (license license:gpl3+)))) - -(define-public emacs-gtk-look - (package - (name "emacs-gtk-look") - (version "29") - (source (origin - (method url-fetch) - (uri "https://download.tuxfamily.org/user42/gtk-look.el") - (sha256 - (base32 - "14p2nwrd51cr1v06fxbjjn6jdrkf9d6vcxhmscm0kl677s25ypsp")))) - (build-system emacs-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'configure - (lambda _ - ;; File is read-only. - (chmod "gtk-look.el" #o644) - (emacs-substitute-variables "gtk-look.el" - ("gtk-lookup-devhelp-indices" - '(list (expand-file-name "~/.guix-profile/share/gtk-doc/html/*/*.devhelp*")))) - #t))))) - (home-page "http://user42.tuxfamily.org/gtk-look/index.html") - (synopsis "Find and display HTML documentation for GTK, GNOME and Glib") - (description "@command{gtk-look} finds and displays HTML documentation for -GTK, GNOME and Glib functions and variables in Emacs, similar to what -info-lookup-symbol does for info files (C-h S). The documentation is expected -to be devhelp indexes with HTML files. The location of the indexes can be -customized. In addition to C code development @command{gtk-look} is good for - -@itemize -@item @command{perl-gtk2}, recognising class funcs like -@command{Gtk2::Label->new} and bare method names like @command{set_text}. -@item @command{guile-gnome}, recognising methods like @command{set-text} and -classes like @command{<gtk-window>}. -@end itemize\n") - (license license:gpl3+))) - -(define-public emacs-ov - (package - (name "emacs-ov") - (version "1.0.6") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ShingoFukuyama/ov.el.git") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0qxk2rf84j86syxi8xknsq252irwg7sz396v3bb4wqz4prpj0kzc")))) - (build-system emacs-build-system) - (home-page "https://github.com/ShingoFukuyama/ov.el") - (synopsis "Overlay library for Emacs Lisp") - (description "@code{ov.el} provides a simple way to manipulate overlays in -Emacs.") - (license license:gpl3+))) - -(define-public emacs-matrix-client - (let ((commit "5d8e959a63e5de05b628ca8e1dfb974f7f618821")) - (package - (name "emacs-matrix-client") - (version (git-version "0.0.0" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jgkamat/matrix-client-el.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "15mwyjq3z867v0xl4m2s3vvfn0wqncb67xawm1cjmpnambz1yz1n")))) - (build-system emacs-build-system) - (propagated-inputs - `(("a" ,emacs-a) - ("dash" ,emacs-dash) - ("esxml" ,emacs-esxml) - ("f" ,emacs-f) - ("frame-purpose" ,emacs-frame-purpose) - ("ht" ,emacs-ht) - ("ov" ,emacs-ov) - ("rainbow-identifiers" ,emacs-rainbow-identifiers) - ("request" ,emacs-request) - ("s" ,emacs-s) - ("tracking" ,emacs-tracking))) - (home-page "https://github.com/jgkamat/matrix-client-el") - (synopsis "Matrix client for Emacs") - (description "@code{matrix-client} is a simple chat UI to Matrix.org -rooms. It also provides an API which allows Emacs to seamlessly create -RPC channels with users and other software.") - (license license:gpl3+)))) - -(define-public emacs-sesman - (package - (name "emacs-sesman") - (version "0.3.3") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/vspinu/sesman.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0r32f8ma9ddczxrrdz0nadp14j3zmk10q1ch02gb82synkx3xdra")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("make" "test"))) - (home-page "https://github.com/vspinu/sesman") - (synopsis "Session manager for Emacs based IDEs") - (description "Sesman provides facilities for session management and -interactive session association with the current contexts (project, directory, -buffers). While sesman can be used to manage arbitrary sessions, it primary -targets the Emacs based IDEs (CIDER, ESS, Geiser, Robe, SLIME etc.)") - (license license:gpl3+))) - -(define-public emacs-buttercup - (package - (name "emacs-buttercup") - (version "1.16") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jorgenschaefer/emacs-buttercup.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0dckgcyzsav6ld78bcyrrygy1cz1jvqgav6vy8f6klpmk3r8xrl1")))) - (build-system emacs-build-system) - (arguments - `(#:tests? #t - #:test-command '("make" "test") - #:phases - (modify-phases %standard-phases - (add-after 'install 'install-bin - (lambda* (#:key outputs #:allow-other-keys) - (install-file "bin/buttercup" - (string-append (assoc-ref outputs "out") "/bin")) - #t))))) - (home-page "https://github.com/jorgenschaefer/emacs-buttercup") - (synopsis "Behavior driven emacs lisp testing framework") - (description "Buttercup is a behavior-driven development framework for -testing Emacs Lisp code. It allows to group related tests so they can share -common set-up and tear-down code, and allows the programmer to \"spy\" on -functions to ensure they are called with the right arguments during testing.") - (license license:gpl3+))) - -(define-public emacs-wordnut - (let ((commit "feac531404041855312c1a046bde7ea18c674915") - (revision "0")) - (package - (name "emacs-wordnut") - (version (git-version "0.1" revision commit)) - (home-page "https://github.com/gromnitsky/wordnut") - (source (origin - (method git-fetch) - (uri (git-reference (url home-page) (commit commit))) - (sha256 - (base32 - "1jl0b6g64a9w0q7bfvwha67vgws5xd15b7mkfyb5gkz3pymqhfxn")) - (patches - (search-patches "emacs-wordnut-require-adaptive-wrap.patch")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (propagated-inputs - `(("wordnet" ,wordnet) - ("emacs-adaptive-wrap" ,emacs-adaptive-wrap))) - (synopsis "Major mode for WordNet") - (description "This Emacs package provides an interface for -@code{wordnet}. Features include completion, if the query is not found -too ambiguous and navigation in the result buffer.") - (license license:gpl3+)))) - -(define-public emacs-frame-purpose - (package - (name "emacs-frame-purpose") - (version "1.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/alphapapa/frame-purpose.el.git") - (commit version))) - (sha256 - (base32 - "0jq2aam1yvccw887ighd1wm2xkvk5bv53ffiz3crcl16a255aj4q")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (inputs - `(("dash" ,emacs-dash))) - (synopsis "Purpose-specific frames for Emacs") - (description "@code{frame-purpose} makes it easy to open purpose-specific -frames that only show certain buffers, e.g. by buffers’ major mode, their -filename or directory, etc, with custom frame/X-window titles, icons, and -other frame parameters.") - (home-page "https://github.com/alphapapa/frame-purpose.el") - (license license:gpl3+))) - -(define-public emacs-arduino-mode - (let ((commit "3e2bad4569ad26e929e6db2cbcff0d6d36812698")) ;no release yet - (package - (name "emacs-arduino-mode") - (version (git-version "0" "0" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/bookest/arduino-mode.git") - (commit commit))) - (sha256 - (base32 - "1yvaqjc9hadbnnay5fprnh890xsp53kidad1zpb4a5z4a5z61n3c")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (synopsis "Emacs major mode for editing Arduino sketches") - (description "Emacs major mode for editing Arduino sketches.") - (home-page "https://github.com/bookest/arduino-mode") - (license license:gpl3+)))) - -(define-public emacs-general - (let ((commit "675050199b5a30d54a24b58a367db32c0bdc47f5")) - (package - (name "emacs-general") - (version (git-version "0" "0" commit)) - (home-page "https://github.com/noctuid/general.el") - (source (origin - (method git-fetch) - (uri (git-reference - (url (string-append home-page ".git")) - (commit commit))) - (sha256 - (base32 - "175yyhzk57yk1sskxh3d2jzhrh2waiibbcfsll167qxr117yji5h")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (synopsis "More convenient key definitions in emacs") - (description "@code{general.el} provides a more convenient method for -binding keys in emacs (for both evil and non-evil users). Like -@code{use-package}, which provides a convenient, unified interface for -managing packages, @code{general.el} is intended to provide a convenient, -unified interface for key definitions. While this package does implement some -completely new functionality (such as the ability to make vim-style -keybindings under non-prefix keys with an optional timeout), its primary -purpose is to build on existing functionality to make key definition more -clear and concise. @code{general-define-key} is user-extensible and supports -defining multiple keys in multiple keymaps at once, implicitly wrapping key -strings with (@code{kbd ...}), using named prefix key sequences (like the -leader key in vim), and much more.") - (license license:gpl3+)))) diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm index 2d21f1246a..9a0d1e9b17 100644 --- a/gnu/packages/emulators.scm +++ b/gnu/packages/emulators.scm @@ -8,7 +8,7 @@ ;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> -;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com> +;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -41,7 +41,6 @@ #:use-module (gnu packages backup) #:use-module (gnu packages compression) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages fonts) #:use-module (gnu packages fontutils) #:use-module (gnu packages freedesktop) @@ -65,8 +64,10 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages sdl) + #:use-module (gnu packages sqlite) #:use-module (gnu packages texinfo) #:use-module (gnu packages textutils) #:use-module (gnu packages tls) @@ -237,26 +238,23 @@ turbo speed, networked multiplayer, and graphical enhancements.") (define-public dosbox (package (name "dosbox") - (version "0.74.svn3947") + (version "0.74-2") (source (origin - (method svn-fetch) - (uri (svn-reference - (url "http://svn.code.sf.net/p/dosbox/code-0/dosbox/trunk/") - (revision 3947))) - (file-name (string-append name "-" version "-checkout")) - ;; Use SVN head, since the last release (2010) is incompatible - ;; with GCC 4.8+ (see - ;; <https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=624976>). + (method url-fetch) + (uri (string-append "https://sourceforge.net/projects/dosbox" + "/files/dosbox/" version "/dosbox-" + version ".tar.gz/download")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1p918j6090d1nkvgq7ifvmn506zrdmyi32y7p3ms40d5ssqjg8fj")))) + "1ksp1b5szi0vy4x55rm3j1y9wq5mlslpy8llpg87rpdyjlsk0xvh")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'autogen.sh (lambda _ - (zero? (system* "sh" "autogen.sh"))))))) + (invoke "sh" "autogen.sh")))))) (native-inputs `(("autoconf" ,autoconf) ("automake" ,automake))) diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm index 75045f25b3..85e08289b5 100644 --- a/gnu/packages/engineering.scm +++ b/gnu/packages/engineering.scm @@ -75,6 +75,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) #:use-module (gnu packages swig) diff --git a/gnu/packages/enlightenment.scm b/gnu/packages/enlightenment.scm index 20f842c9a6..c3aa469776 100644 --- a/gnu/packages/enlightenment.scm +++ b/gnu/packages/enlightenment.scm @@ -55,6 +55,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages tls) #:use-module (gnu packages video) #:use-module (gnu packages xdisorg) diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index 93d1561948..066d6d843b 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -35,7 +35,6 @@ #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages datastructures) #:use-module (gnu packages documentation) #:use-module (gnu packages docbook) @@ -45,6 +44,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages readline) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages xml)) @@ -248,6 +248,41 @@ All of this is accomplished without a centralized metadata server.") "This is a file system client based on the FTP File Transfer Protocol.") (license license:gpl2+))) +(define-public libnfs + (package + (name "libnfs") + (version "3.0.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/sahlberg/libnfs.git") + (commit (string-append "libnfs-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "115p55y2cbs92z5lmcnjx1v29lwinpgq4sha9v1kq1vd8674h404")))) + (build-system gnu-build-system) + (home-page "https://github.com/sahlberg/libnfs") + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("libtool" ,libtool) + ("pkg-config" ,pkg-config))) + (synopsis "Client library for accessing NFS shares") + (description "LIBNFS is a client library for accessing NFS shares over a +network. LIBNFS offers three different APIs, for different use : + +@enumerate +@item RAW, a fully asynchronous low level RPC library for NFS protocols. This + API provides very flexible and precise control of the RPC issued. +@item NFS ASYNC, a fully asynchronous library for high level vfs functions +@item NFS SYNC, a synchronous library for high level vfs functions. +@end enumerate\n") + (license (list license:lgpl2.1+ ; library + license:gpl3+ ; tests + license:bsd-3 ; copied nsf4 files + )))) + (define-public apfs-fuse (let ((commit "c7036a3030d128bcecefc1eabc47c039ccfdcec9") (revision "0")) diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm index bd18df91be..4683887979 100644 --- a/gnu/packages/finance.scm +++ b/gnu/packages/finance.scm @@ -44,6 +44,7 @@ #:use-module (gnu packages documentation) #:use-module (gnu packages dns) #:use-module (gnu packages emacs) + #:use-module (gnu packages dbm) #:use-module (gnu packages graphviz) #:use-module (gnu packages groff) #:use-module (gnu packages libedit) @@ -58,6 +59,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) #:use-module (gnu packages texinfo) @@ -342,7 +344,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.") (package (inherit electrum) (name "electron-cash") - (version "3.3.1") + (version "3.3.4") (source (origin (method url-fetch) @@ -353,7 +355,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.") ".tar.gz")) (sha256 (base32 - "1jdy89rfdwc2jadx3rqj5yvynpcn90cx6482ax9f1cj9gfxp9j2b")) + "0ipl6vf2n9a5n556sx2z57s7wdvg05xwjvz67kff9nmbx4s8vjyf")) (modules '((guix build utils))) (snippet '(begin diff --git a/gnu/packages/fltk.scm b/gnu/packages/fltk.scm index 972506c8c5..a0d1f13931 100644 --- a/gnu/packages/fltk.scm +++ b/gnu/packages/fltk.scm @@ -31,6 +31,7 @@ #:use-module (gnu packages gtk) ;for "cairo" #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index 88315008bd..f77f9da163 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -19,7 +19,7 @@ ;;; Copyright © 2017 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Brendan Tildesley <brendan.tildesley@openmailbox.org> -;;; Copyright © 2017, 2018 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2017, 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017 Mohammed Sadiq <sadiq@sadiqpk.org> ;;; Copyright © 2018 Charlie Ritter <chewzerita@posteo.net> ;;; Copyright © 2018 Gabriel Hondet <gabrielhondet@gmail.com> @@ -1163,39 +1163,13 @@ itself.")))) (version "1.7") (source (origin - (method url-fetch) + (method url-fetch/zipbomb) (uri (string-append "http://www.impallari.com/media/releases/dosis-" "v" version ".zip")) (sha256 (base32 "1qhci68f68mf87jd69vjf9qjq3wydgw1q7ivn3amjb65ls1s0c4s")))) - (build-system trivial-build-system) - (arguments - `(#:modules ((guix build utils)) - #:builder (begin - (use-modules (guix build utils) - (srfi srfi-26)) - - (let ((PATH (string-append (assoc-ref %build-inputs - "unzip") - "/bin")) - (ttf-dir (string-append %output - "/share/fonts/truetype")) - (otf-dir (string-append %output - "/share/fonts/opentype"))) - (setenv "PATH" PATH) - (invoke "unzip" (assoc-ref %build-inputs "source")) - - (mkdir-p ttf-dir) - (mkdir-p otf-dir) - (for-each (lambda (ttf) - (install-file ttf ttf-dir)) - (find-files "." "\\.ttf$")) - (for-each (lambda (otf) - (install-file otf otf-dir)) - (find-files "." "\\.otf$")) - #t)))) - (native-inputs `(("unzip" ,unzip))) + (build-system font-build-system) (home-page "http://www.impallari.com/dosis") (synopsis "Very simple, rounded, sans serif family") (description diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm index 2ff42945d7..274efe5fd8 100644 --- a/gnu/packages/fontutils.scm +++ b/gnu/packages/fontutils.scm @@ -36,6 +36,7 @@ #:use-module (gnu packages autotools) #:use-module (gnu packages gettext) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages image) #:use-module (gnu packages bison) #:use-module (gnu packages flex) diff --git a/gnu/packages/fpga.scm b/gnu/packages/fpga.scm index 9ab2e35255..f6bb3280f0 100644 --- a/gnu/packages/fpga.scm +++ b/gnu/packages/fpga.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2016, 2017 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2019 Amin Bandali <bandali@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -119,7 +120,7 @@ For synthesis, the compiler generates netlists in the desired format.") (define-public yosys (package (name "yosys") - (version "0.7") + (version "0.8") (source (origin (method git-fetch) (uri (git-reference @@ -128,7 +129,7 @@ For synthesis, the compiler generates netlists in the desired format.") (recursive? #t))) ; for the ‘iverilog’ submodule (sha256 (base32 - "1ssrpgw0j9qlm52g1hsbb9fsww4vnwi0l7zvvky7a8w7wamddky0")) + "1qwbp8gynlklawzvpa4gdn2x0hs8zln0s3kxjqkhfcjfxffdcpvv")) (file-name (git-file-name name version)) (modules '((guix build utils))) (snippet @@ -211,8 +212,8 @@ For synthesis, the compiler generates netlists in the desired format.") (license license:isc))) (define-public icestorm - (let ((commit "12b2295c9087d94b75e374bb205ae4d76cf17e2f") - (revision "1")) + (let ((commit "c0cbae88ab47a3879aacf80d53b6a85710682a6b") + (revision "2")) (package (name "icestorm") (version (string-append "0.0-" revision "-" (string-take commit 9))) @@ -224,7 +225,7 @@ For synthesis, the compiler generates netlists in the desired format.") (file-name (string-append name "-" version "-checkout")) (sha256 (base32 - "1mmzlqvap6w8n4qzv3idvy51arkgn03692ssplwncy3akjrbsd2b")))) + "0bqm0rpywm64yvbq75klpyzb1g9sdsp1kvdlyqg4hvm8jw9w8lya")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no unit tests that don't need an FPGA exist. @@ -256,33 +257,31 @@ Includes the actual FTDI connector.") (license license:isc)))) (define-public arachne-pnr - (let ((commit "52e69ed207342710080d85c7c639480e74a021d7") - (revision "1")) + (let ((commit "840bdfdeb38809f9f6af4d89dd7b22959b176fdd") + (revision "2")) (package (name "arachne-pnr") (version (string-append "0.0-" revision "-" (string-take commit 9))) (source (origin (method git-fetch) (uri (git-reference - (url "https://github.com/cseed/arachne-pnr.git") + (url "https://github.com/YosysHQ/arachne-pnr.git") (commit commit))) (file-name (string-append name "-" version "-checkout")) (sha256 (base32 - "15bdw5yxj76lxrwksp6liwmr6l1x77isf4bs50ys9rsnmiwh8c3w")))) + "1dqvjvgvsridybishv4pnigw9gypxh7r7nrqp9z9qq92v7c5rxzl")))) (build-system gnu-build-system) (arguments `(#:test-target "test" + #:make-flags + (list (string-append "DESTDIR=" (assoc-ref %outputs "out")) + (string-append "ICEBOX=" (string-append + (assoc-ref %build-inputs "icestorm") + "/share/icebox"))) #:phases (modify-phases %standard-phases (replace 'configure (lambda* (#:key outputs inputs #:allow-other-keys) - (substitute* '("Makefile") - (("DESTDIR = .*") (string-append "DESTDIR = " - (assoc-ref outputs "out") - "\n")) - (("ICEBOX = .*") (string-append "ICEBOX = " - (assoc-ref inputs "icestorm") - "/share/icebox\n"))) (substitute* '("./tests/fsm/generate.py" "./tests/combinatorial/generate.py") (("#!/usr/bin/python") "#!/usr/bin/python2")) @@ -294,7 +293,7 @@ Includes the actual FTDI connector.") ("yosys" ,yosys) ; for tests ("perl" ,perl) ; for shasum ("python-2" ,python-2))) ; for tests - (home-page "https://github.com/cseed/arachne-pnr") + (home-page "https://github.com/YosysHQ/arachne-pnr") (synopsis "Place-and-Route tool for FPGAs") (description "Arachne-PNR is a Place-and-Route Tool For FPGAs.") (license license:gpl2)))) diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm index 6204e217da..3130103eaf 100644 --- a/gnu/packages/freedesktop.scm +++ b/gnu/packages/freedesktop.scm @@ -49,7 +49,6 @@ #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages cryptsetup) - #:use-module (gnu packages databases) #:use-module (gnu packages disk) #:use-module (gnu packages docbook) #:use-module (gnu packages documentation) @@ -71,6 +70,8 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages polkit) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) + #:use-module (gnu packages sqlite) #:use-module (gnu packages valgrind) #:use-module (gnu packages w3m) #:use-module (gnu packages web) diff --git a/gnu/packages/ftp.scm b/gnu/packages/ftp.scm index dd8af33972..8ad782ad85 100644 --- a/gnu/packages/ftp.scm +++ b/gnu/packages/ftp.scm @@ -29,7 +29,6 @@ #:use-module (gnu packages autotools) #:use-module (gnu packages check) #:use-module (gnu packages compression) - #:use-module (gnu packages databases) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) @@ -39,6 +38,7 @@ #:use-module (gnu packages nettle) #:use-module (gnu packages pkg-config) #:use-module (gnu packages readline) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages wxwidgets) #:use-module (gnu packages xml)) diff --git a/gnu/packages/game-development.scm b/gnu/packages/game-development.scm index 32b3c3ef49..6b641be0ef 100644 --- a/gnu/packages/game-development.scm +++ b/gnu/packages/game-development.scm @@ -46,13 +46,13 @@ #:use-module (gnu packages boost) #:use-module (gnu packages compression) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages documentation) #:use-module (gnu packages fltk) #:use-module (gnu packages fonts) #:use-module (gnu packages fontutils) #:use-module (gnu packages freedesktop) #:use-module (gnu packages fribidi) + #:use-module (gnu packages dbm) #:use-module (gnu packages gl) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) @@ -72,6 +72,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages sdl) #:use-module (gnu packages stb) diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index c8a2c41667..9fa2bb1795 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -19,7 +19,7 @@ ;;; Copyright © 2016 Albin Söderqvist <albin@fripost.org> ;;; Copyright © 2016, 2017, 2018 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> -;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016 Steve Webber <webber.sl@gmail.com> ;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info> @@ -79,7 +79,6 @@ #:use-module (gnu packages curl) #:use-module (gnu packages crypto) #:use-module (gnu packages cyrus-sasl) - #:use-module (gnu packages databases) #:use-module (gnu packages documentation) #:use-module (gnu packages docbook) #:use-module (gnu packages flex) @@ -125,11 +124,13 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) #:use-module (gnu packages shells) #:use-module (gnu packages sdl) #:use-module (gnu packages serialization) + #:use-module (gnu packages sqlite) #:use-module (gnu packages swig) #:use-module (gnu packages tcl) #:use-module (gnu packages texinfo) @@ -151,6 +152,7 @@ #:use-module (guix build-system go) #:use-module (guix build-system haskell) #:use-module (guix build-system meson) + #:use-module (guix build-system scons) #:use-module (guix build-system python) #:use-module (guix build-system cmake) #:use-module (guix build-system trivial)) @@ -3660,7 +3662,7 @@ throwing people around in pseudo-randomly generated buildings.") (define-public hyperrogue (package (name "hyperrogue") - (version "10.5") + (version "10.5d") ;; When updating this package, be sure to update the "hyperrogue-data" ;; origin in native-inputs. (source (origin @@ -3671,7 +3673,7 @@ throwing people around in pseudo-randomly generated buildings.") "-src.tgz")) (sha256 (base32 - "04wk50f51xrb9vszwil4ivkfpy7xc6nw3gnp90hbna2zqi2jnvb8")))) + "1ls055v4pv2xmn2a8lav7wl370zn0wsd91q41bk0amxd168kcndy")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no check target @@ -3748,7 +3750,7 @@ throwing people around in pseudo-randomly generated buildings.") "-win.zip")) (sha256 (base32 - "0r6xvnr7b56iv27n8z10qmxhsz5h7w6ayhxkz3xinlvch84bk708")))) + "13n9hcvf9yv7kjghm5jhjpwq1kh94i4bgvcczky9kvdvw1y9278n")))) ("unzip" ,unzip))) (inputs `(("font-dejavu" ,font-dejavu) @@ -5955,3 +5957,59 @@ order. You rotate the blocks and move them across the screen to drop them in complete lines. You score by dropping blocks fast and completing lines. As your score gets higher, you level up and the blocks fall faster.") (license license:gpl2+))) + +(define-public endless-sky + (package + (name "endless-sky") + (version "0.9.8") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/endless-sky/endless-sky") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0i36lawypikbq8vvzfis1dn7yf6q0d2s1cllshfn7kmjb6pqfi6c")))) + (build-system scons-build-system) + (arguments + `(#:scons ,scons-python2 + #:scons-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))) + #:tests? #f ; no tests + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-resource-locations + (lambda* (#:key outputs #:allow-other-keys) + (substitute* "source/Files.cpp" + (("/usr/local/") + (string-append (assoc-ref outputs "out") "/"))) + #t)) + (add-after 'unpack 'patch-scons + (lambda _ + (substitute* "SConstruct" + ;; Keep environmental variables + (("Environment\\(\\)") + "Environment(ENV = os.environ)") + ;; Install into %out/bin + (("games\"") "bin\"")) + #t))))) + (inputs + `(("glew" ,glew) + ("libjpeg" ,libjpeg-turbo) + ("libmad" ,libmad) + ("libpng" ,libpng) + ("openal" ,openal) + ("sdl2" ,sdl2))) + (home-page "https://endless-sky.github.io/") + (synopsis "2D space trading and combat game") + (description "Endless Sky is a 2D space trading and combat game. Explore +other star systems. Earn money by trading, carrying passengers, or completing +missions. Use your earnings to buy a better ship or to upgrade the weapons and +engines on your current one. Blow up pirates. Take sides in a civil war. Or +leave human space behind and hope to find friendly aliens whose culture is more +civilized than your own.") + (license (list license:gpl3+ + license:cc-by-sa3.0 + license:cc-by-sa4.0 + license:public-domain)))) diff --git a/gnu/packages/geo.scm b/gnu/packages/geo.scm index 0c9fb0fc52..6ea89dc92a 100644 --- a/gnu/packages/geo.scm +++ b/gnu/packages/geo.scm @@ -52,6 +52,8 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) + #:use-module (gnu packages sqlite) #:use-module (gnu packages web) #:use-module (gnu packages webkit) #:use-module (gnu packages wxwidgets) diff --git a/gnu/packages/gl.scm b/gnu/packages/gl.scm index 5fff383eb1..b673cbffe6 100644 --- a/gnu/packages/gl.scm +++ b/gnu/packages/gl.scm @@ -43,6 +43,7 @@ #:use-module (gnu packages llvm) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages tls) #:use-module (gnu packages video) #:use-module (gnu packages xdisorg) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index 2978792266..a6f0c7fbf1 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -75,6 +75,7 @@ #:use-module (gnu packages curl) #:use-module (gnu packages cyrus-sasl) #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages djvu) #:use-module (gnu packages dns) #:use-module (gnu packages documentation) @@ -120,10 +121,12 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages rdesktop) #:use-module (gnu packages scanner) #:use-module (gnu packages selinux) #:use-module (gnu packages slang) + #:use-module (gnu packages sqlite) #:use-module (gnu packages ssh) #:use-module (gnu packages xml) #:use-module (gnu packages gl) @@ -7377,3 +7380,50 @@ micro-pauses and rest breaks, and restricts you to your daily limit.") hexadecimal or ASCII. It is useful for editing binary files in general.") (home-page "https://wiki.gnome.org/Apps/Ghex") (license license:gpl2))) + +(define-public libdazzle + (package + (name "libdazzle") + (version "3.28.5") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/" name "/" + (version-major+minor version) "/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "08qdwv2flywnh6kibkyv0pnm67pk8xlmjh4yqx6hf13hyhkxkqgg")))) + (build-system meson-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'disable-failing-test + (lambda _ + ;; Disable failing test. + (substitute* "tests/meson.build" + (("test\\('test-application") "#")) + #t)) + (add-before 'check 'pre-check + (lambda _ + ;; Tests require a running X server. + (system "Xvfb :1 &") + (setenv "DISPLAY" ":1") + #t))))) + (native-inputs + `(("glib" ,glib "bin") ; glib-compile-resources + ("pkg-config" ,pkg-config) + ;; For tests + ("xorg-server" ,xorg-server))) + (inputs + `(("glib" ,glib) + ("gobject-introspection" ,gobject-introspection) + ("gtk+" ,gtk+) + ("vala" ,vala))) + (home-page "https://gitlab.gnome.org/GNOME/libdazzle") + (synopsis "Companion library to GObject and Gtk+") + (description "The libdazzle library is a companion library to GObject and +Gtk+. It provides various features that the authors wish were in the +underlying library but cannot for various reasons. In most cases, they are +wildly out of scope for those libraries. In other cases, they are not quite +generic enough to work for everyone.") + (license license:gpl3+))) diff --git a/gnu/packages/gnunet.scm b/gnu/packages/gnunet.scm index 62bb3026dd..685cbdedec 100644 --- a/gnu/packages/gnunet.scm +++ b/gnu/packages/gnunet.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2013, 2014, 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in> ;;; Copyright © 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org> -;;; Copyright © 2015, 2017 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2015, 2017, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016, 2017, 2018 Nils Gillmann <ng0@n0.is> @@ -53,7 +53,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) - #:use-module (gnu packages databases) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages video) #:use-module (gnu packages web) @@ -189,16 +189,16 @@ authentication and support for SSL3 and TLS.") (define-public gnurl (package (name "gnurl") - (version "7.62.0") + (version "7.63.0") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/gnunet/" name "-" version ".tar.Z")) (sha256 (base32 - "1n258my5q4rxv140xvb1qh6vsh42ii0i8p7f2m15szqabm89487q")))) + "021b3pdfnqywk5q07y48kxyz7g4jjg35dk3cv0ps0x50qjr4ix33")))) (build-system gnu-build-system) (outputs '("out" - "doc")) ; 1.5 MiB of man3 pages + "doc")) ; 1.7 MiB of man3 pages (inputs `(("gnutls" ,gnutls/dane) ("libidn" ,libidn) ("zlib" ,zlib))) @@ -238,6 +238,8 @@ with URL syntax. While cURL supports many crypto backends, libgnurl only supports HTTP, HTTPS and GnuTLS.") (license (license:non-copyleft "file://COPYING" "See COPYING in the distribution.")) + (properties '((ftp-server . "ftp.gnu.org") + (ftp-directory . "/gnunet"))) (home-page "https://gnunet.org/gnurl"))) (define-public gnunet diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index d905de2a0c..145130f042 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -48,16 +48,17 @@ #:use-module (gnu packages perl-check) #:use-module (gnu packages pth) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) #:use-module (gnu packages compression) - #:use-module (gnu packages databases) #:use-module (gnu packages gtk) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages pkg-config) #:use-module (gnu packages ncurses) #:use-module (gnu packages security-token) + #:use-module (gnu packages sqlite) #:use-module (gnu packages swig) #:use-module (gnu packages texinfo) #:use-module (gnu packages tls) diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm index e95f87b7aa..e3ba7c1bff 100644 --- a/gnu/packages/gnuzilla.scm +++ b/gnu/packages/gnuzilla.scm @@ -58,6 +58,7 @@ #:use-module (gnu packages libffi) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages xorg) #:use-module (gnu packages gl) #:use-module (gnu packages assembly) @@ -67,7 +68,8 @@ #:use-module (gnu packages video) #:use-module (gnu packages xiph) #:use-module (gnu packages xdisorg) - #:use-module (gnu packages readline)) + #:use-module (gnu packages readline) + #:use-module (gnu packages sqlite)) (define-public mozjs (package @@ -292,7 +294,10 @@ in C/C++.") "--with-system-zlib" ;; Intl API requires bundled ICU. - "--without-intl-api") + "--without-intl-api" + + ;; Without this gnome-shell will crash at runtime. + "--disable-jemalloc") #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-and-chdir @@ -326,6 +331,73 @@ in C/C++.") ("automake" ,automake) ,@(package-native-inputs mozjs-38)))))) +(define-public mozjs-60 + ;; No releases yet at <https://archive.mozilla.org/pub/spidermonkey/releases/>. + ;; While we could take a snapshot of the complete mozilla-esr60 repository at + ;; <https://treeherder.mozilla.org/#/jobs?repo=mozilla-esr60&filter-searchStr=sm-tc>, + ;; we take the Debian version instead, because it is easier to work with. + (package + (inherit mozjs-38) + (version "60.2.3-2") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://salsa.debian.org/gnome-team/mozjs60.git") + (commit (string-append "debian/" version)))) + (file-name (git-file-name "mozjs" version)) + (sha256 + (base32 + "091w050rwzrdcbgyi934k2viyccmlqxrp13sm2mql71mabb5dai6")))) + (arguments + `(#:tests? #f ; FIXME: all tests pass, but then the check phase fails anyway. + #:test-target "check-jstests" + #:configure-flags + '("--enable-ctypes" + "--enable-optimize" + "--enable-pie" + "--enable-readline" + "--enable-shared-js" + "--enable-system-ffi" + "--with-system-nspr" + "--with-system-zlib" + "--with-system-icu" + "--with-intl-api" + ;; This is important because without it gjs will segfault during the + ;; configure phase. With jemalloc only the standalone mozjs console + ;; will work. + "--disable-jemalloc") + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key inputs outputs configure-flags #:allow-other-keys) + ;; The configure script does not accept environment variables as + ;; arguments. It also must be run from a different directory, + ;; but not the root directory either. + (let ((out (assoc-ref outputs "out"))) + (mkdir "run-configure-from-here") + (chdir "run-configure-from-here") + (setenv "SHELL" (which "sh")) + (setenv "CONFIG_SHELL" (which "sh")) + (setenv "AUTOCONF" (string-append (assoc-ref inputs "autoconf") + "/bin/autoconf")) + (apply invoke "../js/src/configure" + (cons (string-append "--prefix=" out) + configure-flags)) + #t))) + (add-after 'unpack 'disable-broken-tests + (lambda _ + ;; This test assumes that /bin exists and contains certain + ;; executables. + (delete-file "js/src/tests/shell/os.js") + #t))))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("which" ,which) + ("perl" ,perl) + ("pkg-config" ,pkg-config) + ("python" ,python-2))))) + (define-public nspr (package (name "nspr") diff --git a/gnu/packages/gps.scm b/gnu/packages/gps.scm index 3fe7b6509c..92f6a4f977 100644 --- a/gnu/packages/gps.scm +++ b/gnu/packages/gps.scm @@ -29,12 +29,12 @@ #:use-module (gnu packages base) #:use-module (gnu packages pkg-config) #:use-module (gnu packages compression) - #:use-module (gnu packages databases) #:use-module (gnu packages docbook) #:use-module (gnu packages image) #:use-module (gnu packages xml) #:use-module (gnu packages gtk) - #:use-module (gnu packages qt)) + #:use-module (gnu packages qt) + #:use-module (gnu packages sqlite)) (define-public gpsbabel (package diff --git a/gnu/packages/graph.scm b/gnu/packages/graph.scm index 67b306de6d..bb98250fba 100644 --- a/gnu/packages/graph.scm +++ b/gnu/packages/graph.scm @@ -38,6 +38,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages statistics) #:use-module (gnu packages time) #:use-module (gnu packages xml)) diff --git a/gnu/packages/graphics.scm b/gnu/packages/graphics.scm index 73620bb2d4..a25816778a 100644 --- a/gnu/packages/graphics.scm +++ b/gnu/packages/graphics.scm @@ -59,6 +59,7 @@ #:use-module (gnu packages pth) #:use-module (gnu packages pulseaudio) ; libsndfile, libsamplerate #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) #:use-module (gnu packages sdl) diff --git a/gnu/packages/graphviz.scm b/gnu/packages/graphviz.scm index 569923d4e0..fe364c0d39 100644 --- a/gnu/packages/graphviz.scm +++ b/gnu/packages/graphviz.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Theodoros Foradis <theodoros@foradis.org> -;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Gábor Boskovits <boskovits@gmail.com> ;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org> @@ -27,24 +27,29 @@ #:use-module (guix build-system gnu) #:use-module (guix build-system python) #:use-module (guix download) - #:use-module (gnu packages xorg) - #:use-module (gnu packages gtk) - #:use-module (gnu packages xml) + #:use-module (guix git-download) + #:use-module (guix utils) + #:use-module (gnu packages autotools) + #:use-module (gnu packages bison) + #:use-module (gnu packages check) + #:use-module (gnu packages compression) + #:use-module (gnu packages flex) + #:use-module (gnu packages fontutils) + #:use-module (gnu packages gd) #:use-module (gnu packages glib) + #:use-module (gnu packages gnome) + #:use-module (gnu packages gtk) #:use-module (gnu packages guile) - #:use-module (gnu packages bison) #:use-module (gnu packages image) - #:use-module (gnu packages autotools) + #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) - #:use-module (gnu packages glib) - #:use-module (gnu packages gtk) - #:use-module (gnu packages gnome) - #:use-module (gnu packages fontutils) - #:use-module (gnu packages compression) - #:use-module (gnu packages gd) - #:use-module (gnu packages swig) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) + #:use-module (gnu packages swig) + #:use-module (gnu packages tcl) #:use-module (gnu packages tex) + #:use-module (gnu packages xml) + #:use-module (gnu packages xorg) #:use-module ((guix licenses) #:prefix license:)) (define-public graphviz @@ -114,6 +119,50 @@ software engineering, database and web design, machine learning, and in visual interfaces for other technical domains.") (license license:epl1.0))) +;; Older Graphviz needed for pygraphviz. See +;; https://github.com/pygraphviz/pygraphviz/issues/175 +(define-public graphviz-2.38 + ;; This commit corresponds to the changelog change for version 2.38.0. + ;; There are no tags. + (let ((commit "f54ac2c9313ae80ccf76ef4ac6aa9be820a23126") + (revision "1")) + (package (inherit graphviz) + (name "graphviz") + (version (git-version "2.38.0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/graphviz/graphviz.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1vjg308gflmi1khgjmcj431cnkrlv12bg4cqah39mwhny92jy92x")))) + (arguments + (substitute-keyword-arguments (package-arguments graphviz) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'unpack 'prepare-bootstrap + (lambda _ + (substitute* "autogen.sh" + (("/bin/sh") (which "sh")) + (("\\$GRAPHVIZ_VERSION_DATE") "0")) + (setenv "CONFIG_SHELL" (which "sh")) + (setenv "SHELL" (which "sh")) + + (map make-file-writable (find-files "." ".*")) + #t)) + (replace 'bootstrap + (lambda _ (invoke (which "sh") "autogen.sh" "NOCONFIG") #t)))))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("libtool" ,libtool) + ("flex" ,flex) + ("perl" ,perl) + ("tcl" ,tcl) + ,@(package-native-inputs graphviz)))))) + (define-public python-graphviz (package (name "python-graphviz") @@ -137,6 +186,40 @@ visualization tool suite.") (define-public python2-graphviz (package-with-python2 python-graphviz)) +(define-public python-pygraphviz + (package + (name "python-pygraphviz") + (version "1.5") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/pygraphviz/pygraphviz.git") + (commit (string-append "pygraphviz-" version)))) + (file-name (string-append "pygraphviz-" version "-checkout")) + (sha256 + (base32 + "1yldym38m8ckgflln83i88143pd9fjj1vfp23sq39fs6np5g0nzp")))) + (build-system python-build-system) + (arguments + `(#:configure-flags + (let ((graphviz (assoc-ref %build-inputs "graphviz"))) + (list (string-append "--include-path=" graphviz "/include") + (string-append "--library-path=" graphviz "/lib"))))) + (inputs + `(("graphviz" ,graphviz-2.38))) + (native-inputs + `(("python-nose" ,python-nose) + ("python-mock" ,python-mock) + ("python-doctest-ignore-unicode" ,python-doctest-ignore-unicode))) + (home-page "http://pygraphviz.github.io") + (synopsis "Python interface to Graphviz") + (description "PyGraphviz is a Python interface to the Graphviz graph +layout and visualization package. With PyGraphviz you can create, edit, read, +write, and draw graphs using Python to access the Graphviz graph data +structure and layout algorithms.") + (license license:bsd-3))) + (define-public gts (package (name "gts") diff --git a/gnu/packages/groff.scm b/gnu/packages/groff.scm index 77728a5d78..cf392f5468 100644 --- a/gnu/packages/groff.scm +++ b/gnu/packages/groff.scm @@ -96,6 +96,36 @@ is usually the formatter of \"man\" documentation pages.") ,@(substitute-keyword-arguments (package-arguments groff) ((#:phases phases) `(modify-phases ,phases + (add-after 'unpack 'disable-relocatability + (lambda _ + ;; Groff contains a Rube Goldberg-esque relocator for the + ;; file "charset.alias". + ;; It tries to find the current executable using realpath, + ;; a do-it-yourself search in $PATH and so on. + ;; Furthermore, the routine that does the search is buggy + ;; in that it doesn't handle error cases when they arise. + ;; This causes preconv to segfault when trying to look up + ;; the file "charset.alias" in the NULL location. + ;; The "charset.alias" parser is a copy of gnulib's, and a + ;; non-broken version of gnulib's "charset.alias" parser + ;; is part of glibc's libcharset. + ;; However, groff unconditionally uses their own + ;; "charset.alias" parser, but then DOES NOT INSTALL the + ;; file "charset.alias" when glibc is too new. + ;; In Guix, our file "charset.alias" only contains an + ;; obscure alias for ASCII and nothing else. + ;; So just disable relocation and make the entire + ;; "charset.alias" lookup fail. + ;; See <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=30785> + ;; for details. + (substitute* "src/libs/libgroff/Makefile.sub" + (("-DENABLE_RELOCATABLE=1") "")) + ;; That file contains a crash bug--so make sure that + ;; its contents are not there. + (call-with-output-file "src/libs/libgroff/relocate.cpp" + (lambda (port) + #t)) + #t)) (add-after 'install 'remove-non-essential-programs (lambda* (#:key outputs #:allow-other-keys) ;; Keep only the programs that man-db needs at run time, diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm index 0b719f1ffa..5561e0d0df 100644 --- a/gnu/packages/gtk.scm +++ b/gnu/packages/gtk.scm @@ -72,6 +72,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages pretty-print) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages guile) #:use-module (gnu packages cups) #:use-module (gnu packages xml) @@ -1626,12 +1627,7 @@ Parcellite and adds bugfixes and features.") (base32 "1zd2daj7y590wnzn4jw0niyc4fnzgxrcl9i7nwhy8b25ks2hz5wq")))) (build-system gnu-build-system) (arguments - `(#:configure-flags '("--enable-introspection=yes") - #:phases - (modify-phases %standard-phases - (add-before 'configure 'autogen - (lambda _ - (zero? (system* "./autogen.sh"))))))) + `(#:configure-flags '("--enable-introspection=yes"))) (native-inputs `(("autoconf" ,autoconf) ("which" ,which) diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index e14c23a1d2..8d14571895 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015, 2017 Christopher Allan Webber <cwebber@dustycloud.org> ;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co> @@ -45,7 +45,8 @@ #:use-module (gnu packages bash) #:use-module (gnu packages bdw-gc) #:use-module (gnu packages compression) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) + #:use-module (gnu packages disk) #:use-module (gnu packages ed) #:use-module (gnu packages flex) #:use-module (gnu packages gawk) @@ -68,6 +69,7 @@ #:use-module (gnu packages readline) #:use-module (gnu packages sdl) #:use-module (gnu packages slang) + #:use-module (gnu packages sqlite) #:use-module (gnu packages texinfo) #:use-module (gnu packages tls) #:use-module (gnu packages version-control) @@ -941,6 +943,20 @@ specification. These are the main features: (define-public guile2.0-json (package-for-guile-2.0 guile-json)) +(define-public guile-json-3 + ;; This version is incompatible with 1.x; see the 'NEWS' file. + (package + (inherit guile-json) + (name "guile-json") + (version "3.1.0") + (source (origin + (method url-fetch) + (uri (string-append "https://download.savannah.nongnu.org/releases/" + name "/" name "-" version ".tar.gz")) + (sha256 + (base32 + "1yfqscz74i4vxylabd3s9l0wbdp8bg9qxnv1ixdm3b1l7zdx00z3")))))) + (define-public guile-minikanren (package (name "guile-minikanren") @@ -1623,7 +1639,16 @@ you send to a FIFO file.") "/" name "-" version ".tar.gz")) (sha256 (base32 - "0kzclwkfijj8xka3g9kfj53y67c34ndfy84swdbw3j7y962ndxq6")))) + "0kzclwkfijj8xka3g9kfj53y67c34ndfy84swdbw3j7y962ndxq6")) + (modules '((guix build utils))) + (snippet + ;; Install .scm files in the right place (see + ;; <https://github.com/OrangeShark/guile-commonmark/issues/12>.) + '(begin + (substitute* "Makefile.in" + (("^moddir = \\$\\(datadir\\)/share") + "moddir = $(datadir)")) + #t)))) (build-system gnu-build-system) (inputs `(("guile" ,guile-2.2))) @@ -2296,8 +2321,8 @@ Guile.") ;; There has not been any release yet. (define-public guile-newt - (let ((commit "a73889c57b0572347f7641facdb1bcf08922feff") - (revision "2")) + (let ((commit "80c1e9e71945f833386d1632b52573e59325804f") + (revision "4")) (package (name "guile-newt") (version (string-append "0-" revision "." (string-take commit 9))) @@ -2309,7 +2334,7 @@ Guile.") (file-name (string-append name "-" version "-checkout")) (sha256 (base32 - "0k37vir22r2sq121lyy74grfai4643s7kr55z01k4j0bh27i06c3")))) + "1w7qy4dw1f4bx622l6hw8mv49sf1ha8kch8j4nganyk8fj0wn695")))) (build-system gnu-build-system) (arguments '(#:make-flags @@ -2358,4 +2383,42 @@ Scheme by using Guile’s foreign function interface.") microblogging service.") (license license:gpl3+))) +;; There has not been any release yet. +(define-public guile-parted + (let ((commit "ea3f1a1f6844775fc59d3078d2a09c62ffb341b8") + (revision "0")) + (package + (name "guile-parted") + (version (string-append "0-" revision "." (string-take commit 9))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/mothacehe/guile-parted") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1q7425gpjlwi2wvhzq7kw046yyx7v6j6jyzkd1cr861iz34mjwiq")))) + (build-system gnu-build-system) + (arguments + '(#:make-flags + '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings + (inputs + `(("guile" ,guile-2.2) + ("parted" ,parted))) + (propagated-inputs + `(("guile-bytestructures" ,guile-bytestructures))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("pkg-config" ,pkg-config))) + (synopsis "Guile bindings to GNU Parted") + (description + "This package provides bindings for GNU Parted library, a C library +allowing disk partition tables creation and manipulation. The bindings are +written in pure Scheme by using Guile's foreign function interface.") + (home-page "https://gitlab.com/mothacehe/guile-parted") + (license license:gpl3+)))) + ;;; guile.scm ends here + diff --git a/gnu/packages/ham-radio.scm b/gnu/packages/ham-radio.scm index b73671c8bc..6e91866905 100644 --- a/gnu/packages/ham-radio.scm +++ b/gnu/packages/ham-radio.scm @@ -24,6 +24,7 @@ #:use-module (gnu packages libusb) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages xml) #:use-module (guix build-system cmake) #:use-module (guix build-system python)) diff --git a/gnu/packages/haskell-crypto.scm b/gnu/packages/haskell-crypto.scm index 9bdcdb2f9e..88a3ea467b 100644 --- a/gnu/packages/haskell-crypto.scm +++ b/gnu/packages/haskell-crypto.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org> -;;; Copyright © 2015, 2017, 2018 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Nils Gillmann <ng0@n0.is> ;;; Copyright © 2017 rsiddharth <s@ricketyspace.net> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> @@ -306,6 +306,9 @@ the C implementation.") (base32 "131wbbdr5yavs5k1ah9sz6fqx1ffyvaxf66pwjzsfc47mwc1mgl9")))) (build-system haskell-build-system) + ;; FIXME: tests are broken. + ;; See https://github.com/haskell-crypto/cryptonite/issues/260 + (arguments '(#:tests? #f)) (inputs `(("ghc-basement" ,ghc-basement) ("ghc-memory" ,ghc-memory) diff --git a/gnu/packages/haskell.scm b/gnu/packages/haskell.scm index 8d0e2aef69..a3ce2a3e4c 100644 --- a/gnu/packages/haskell.scm +++ b/gnu/packages/haskell.scm @@ -6,7 +6,7 @@ ;;; Copyright © 2016, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2017 David Craven <david@craven.ch> ;;; Copyright © 2017 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com> @@ -14,8 +14,9 @@ ;;; Copyright © 2017 rsiddharth <s@ricketyspace.net> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tonton <tonton@riseup.net> -;;; Copyright © 2018 Timothy Sample <samplet@ngyro.com> +;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com> ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2018, 2019 Gabriel Hondet <gabrielhondet@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -508,6 +509,14 @@ interactive environment for the functional language Haskell.") (assoc-ref inputs "ghc-testsuite") "--strip-components=1") #t)) + ;; This phase patches the 'ghc-pkg' command so that it sorts the list + ;; of packages in the binary cache it generates. + (add-before 'build 'fix-ghc-pkg-nondeterminism + (lambda _ + (substitute* "utils/ghc-pkg/Main.hs" + (("confs = map \\(path </>\\) \\$ filter \\(\".conf\" `isSuffixOf`\\) fs") + "confs = map (path </>) $ filter (\".conf\" `isSuffixOf`) (sort fs)")) + #t)) (add-after 'unpack-testsuite 'fix-shell-wrappers (lambda _ (substitute* '("driver/ghci/ghc.mk" @@ -11365,4 +11374,35 @@ embedded in your Haskell code.") avoid the problem of partial intermediate files.") (license license:expat))) +(define-public ghc-tldr + (package + (name "ghc-tldr") + (version "0.4.0.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://hackage.haskell.org/package/tldr/tldr-" + version + ".tar.gz")) + (sha256 + (base32 + "0nc581y9jjzwd8l88g48c72mla7k6q1w102akl7gl5jsk9ljamd3")))) + (build-system haskell-build-system) + (inputs + `(("ghc-cmark" ,ghc-cmark) + ("ghc-optparse-applicative" ,ghc-optparse-applicative) + ("ghc-typed-process" ,ghc-typed-process) + ("ghc-semigroups" ,ghc-semigroups))) + (native-inputs + `(("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-golden" ,ghc-tasty-golden))) + (home-page "https://github.com/psibi/tldr-hs#readme") + (synopsis "Haskell tldr client") + (description "This package provides the @command{tldr} command and a +Haskell client library allowing users to update and view @code{tldr} pages +from a shell. The @code{tldr} pages are a community effort to simplify the +man pages with practical examples.") + (license license:bsd-3))) + ;;; haskell.scm ends here diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm index b994beb560..60ba8a2721 100644 --- a/gnu/packages/ibus.scm +++ b/gnu/packages/ibus.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il> @@ -29,6 +29,7 @@ #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system glib-or-gtk) + #:use-module (guix utils) #:use-module (gnu packages) #:use-module (gnu packages anthy) #:use-module (gnu packages autotools) @@ -38,6 +39,7 @@ #:use-module (gnu packages cmake) #:use-module (gnu packages databases) #:use-module (gnu packages datastructures) + #:use-module (gnu packages dbm) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) @@ -48,6 +50,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages serialization) + #:use-module (gnu packages sqlite) #:use-module (gnu packages textutils) #:use-module (gnu packages xorg)) @@ -76,7 +79,9 @@ (list "CC=gcc" (string-append "pyoverridesdir=" (assoc-ref %outputs "out") - "/lib/python3.6/site-packages/gi/overrides/")) + "/lib/python" + ,(version-major+minor (package-version python)) + "/site-packages/gi/overrides/")) #:phases (modify-phases %standard-phases (add-after 'unpack 'prepare-ucd-dir diff --git a/gnu/packages/image-processing.scm b/gnu/packages/image-processing.scm index 9c2ec50bec..673c472a85 100644 --- a/gnu/packages/image-processing.scm +++ b/gnu/packages/image-processing.scm @@ -7,6 +7,7 @@ ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de> ;;; Copyright © 2018 Lprndn <guix@lprndn.info> +;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; ;;; This file is part of GNU Guix. ;;; @@ -28,6 +29,7 @@ #:use-module (guix packages) #:use-module (guix utils) #:use-module (guix download) + #:use-module (guix git-download) #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (gnu packages) @@ -55,11 +57,13 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages protobuf) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages serialization) #:use-module (gnu packages video) #:use-module (gnu packages xiph) #:use-module (gnu packages xml) - #:use-module (gnu packages xorg)) + #:use-module (gnu packages xorg) + #:use-module (ice-9 match)) ;; We use the latest snapshot of this package because the latest release is ;; from 2011 and has known vulnerabilities that cannot easily be fixed by @@ -210,13 +214,14 @@ integrates with various databases on GUI toolkits such as Qt and Tk.") (name "opencv") (version "3.4.3") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/opencv/opencv/archive/" - version ".zip")) - (file-name (string-append name "-" version ".zip")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/opencv/opencv") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "0pycx1pz8lj794q32mlalyc3ijqxwsyin65r26nh4yc0p71xiirp")) + "06bc61r8myym4s8im10brdjfg4wxkrvsbhhl7vr1msdan2xddzi3")) (modules '((guix build utils))) (snippet '(begin @@ -229,38 +234,44 @@ integrates with various databases on GUI toolkits such as Qt and Tk.") ;; Some jars found: (for-each delete-file '("modules/java/test/pure_test/lib/junit-4.11.jar" - "samples/java/sbt/sbt/sbt-launch.jar")))))) + "samples/java/sbt/sbt/sbt-launch.jar")) + #t)))) (build-system cmake-build-system) (arguments `(#:configure-flags (list "-DWITH_IPP=OFF" "-DWITH_ITT=OFF" + "-DWITH_CAROTENE=OFF" ; only visible on arm/aarch64 + "-DENABLE_PRECOMPILED_HEADERS=OFF" ;; CPU-Features: ;; See cmake/OpenCVCompilerOptimizations.cmake ;; (CPU_ALL_OPTIMIZATIONS) for a list of all optimizations ;; BASELINE is the minimum optimization all CPUs must support ;; - ;; DISPATCH is the list of optional dispatches - "-DCPU_BASELINE=SSE2, NEON" + ;; DISPATCH is the list of optional dispatches. + "-DCPU_BASELINE=SSE2" - "-DCPU_DISPATCH=SSE3,SSSE3,SSE4_1,SSE4_2,AVX,AVX2" - "-DCPU_DISPATCH_REQUIRE=SSE3,SSSE3,SSE4_1,SSE4_2,AVX,AVX2" + ,@(match (%current-system) + ("x86_64-linux" + '("-DCPU_DISPATCH=NEON;VFPV3;FP16;SSE;SSE2;SSE3;SSSE3;SSE4_1;SSE4_2;POPCNT;AVX;FP16;AVX2;FMA3;AVX_512F;AVX512_SKX" + "-DCPU_DISPATCH_REQUIRE=SSE3,SSSE3,SSE4_1,SSE4_2,AVX,AVX2")) + ("armhf-linux" + '("-DCPU_BASELINE_DISABLE=NEON")) ; causes build failures + ("aarch64-linux" + '("-DCPU_BASELINE=NEON" + "-DCPU_DISPATCH=NEON;VFPV3;FP16")) + (_ '())) "-DBUILD_PERF_TESTS=OFF" - "-D BUILD_TESTS=ON" + "-DBUILD_TESTS=ON" - (string-append "-DOPENCV_EXTRA_MODULES_PATH=" - "/tmp/guix-build-opencv-" ,version ".drv-0" - "/opencv-contrib/opencv_contrib-" ,version - "/modules") + (string-append "-DOPENCV_EXTRA_MODULES_PATH=" (getcwd) + "/opencv-contrib/modules") ;;Define test data: - (string-append "-DOPENCV_TEST_DATA_PATH=" - "/tmp/guix-build-opencv-" ,version ".drv-0" - ;;"/opencv-3.4.0" - "/opencv-extra/opencv_extra-" ,version - "/testdata") + (string-append "-DOPENCV_TEST_DATA_PATH=" (getcwd) + "/opencv-extra/testdata") ;; Is ON by default and would try to rebuild 3rd-party protobuf, ;; which we had removed, which would lead to an error: @@ -293,35 +304,28 @@ integrates with various databases on GUI toolkits such as Qt and Tk.") ;; This one fails with "unknown file: Failure" ;; But I couldn't figure out which file was missing: - (substitute* (list (string-append - "../opencv-contrib/opencv_contrib-" - ,version - "/modules/face/test/test_face_align.cpp")) + (substitute* "../opencv-contrib/modules/face/test/test_face_align.cpp" (("(TEST\\(CV_Face_FacemarkKazemi, )(can_detect_landmarks\\).*)" all pre post) (string-append pre "DISABLED_" post))) ;; Failure reason: Bad accuracy ;; Incorrect count of accurate poses [2nd case]: 90.000000 / 94.000000 - (substitute* (list (string-append - "../opencv-contrib/opencv_contrib-" - ,version - "/modules/rgbd/test/test_odometry.cpp")) + (substitute* "../opencv-contrib/modules/rgbd/test/test_odometry.cpp" (("(TEST\\(RGBD_Odometry_Rgbd, )(algorithmic\\).*)" all pre post) (string-append pre "DISABLED_" post))) #t)) - ;; Idea copied from ldc.scm (ldc-bootstrap): (add-after 'unpack 'unpack-submodule-sources (lambda* (#:key inputs #:allow-other-keys) (mkdir "../opencv-extra") (mkdir "../opencv-contrib") - (let ((unpack (lambda (source target) - (with-directory-excursion target - (apply invoke "unzip" - (list (assoc-ref inputs source))))))) - (unpack "opencv-extra" "../opencv-extra") - (unpack "opencv-contrib" "../opencv-contrib")))) + (copy-recursively (assoc-ref inputs "opencv-extra") + "../opencv-extra") + (invoke "tar" "xvf" + (assoc-ref inputs "opencv-contrib") + "--strip-components=1" + "-C" "../opencv-contrib"))) (add-after 'set-paths 'add-ilmbase-include-path (lambda* (#:key inputs #:allow-other-keys) @@ -343,25 +347,27 @@ integrates with various databases on GUI toolkits such as Qt and Tk.") ;; Therefore we must do it. (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))))))))) (native-inputs - `(("unzip" ,unzip) - ("pkg-config" ,pkg-config) + `(("pkg-config" ,pkg-config) ("xorg-server" ,xorg-server) ; For running the tests ("opencv-extra" ,(origin - (method url-fetch) - (uri (string-append "https://codeload.github.com/" - "opencv/opencv_extra/zip/" version)) - (file-name (string-append "opencv-extra-" version ".zip")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/opencv/opencv_extra") + (commit version))) + (file-name (git-file-name "opencv_extra" version)) (sha256 - (base32 "0yd1vidzbg6himxyh4yzivywijg8548kfmcn421khabnipm7l74y")))) + (base32 "08p5xnq8n1jw8svvz0fnirfg7q8dm3p4a5dl7527s5xj0f9qn7lp")))) ("opencv-contrib" ,(origin - (method url-fetch) - (uri (string-append "https://codeload.github.com/" - "opencv/opencv_contrib/zip/" version)) - (file-name (string-append "opencv-contrib-" version ".zip")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/opencv/opencv_contrib") + (commit version))) + (file-name (git-file-name "opencv_contrib" version)) + (patches (search-patches "opencv-rgbd-aarch64-test-fix.patch")) (sha256 - (base32 "0j0ci6ia1qwklp9hq07ypl0vkngj1wrgh6n98n657m5d0pyp4m0g")))))) + (base32 "1f334glf39nk42mpqq6j732h3ql2mpz89jd4mcl678s8n73nfjh2")))))) (inputs `(("libjpeg" ,libjpeg) ("libpng" ,libpng) ("jasper" ,jasper) diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm index 877c4a7866..ce9e2b381c 100644 --- a/gnu/packages/image-viewers.scm +++ b/gnu/packages/image-viewers.scm @@ -54,6 +54,7 @@ #:use-module (gnu packages photo) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages xorg) #:use-module (gnu packages)) diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm index 2223bfd391..c27147baef 100644 --- a/gnu/packages/image.scm +++ b/gnu/packages/image.scm @@ -67,6 +67,7 @@ #:use-module (gnu packages photo) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages xml) #:use-module (gnu packages xorg) #:use-module (gnu packages qt) diff --git a/gnu/packages/inkscape.scm b/gnu/packages/inkscape.scm index eae8ac962b..7b17ebae40 100644 --- a/gnu/packages/inkscape.scm +++ b/gnu/packages/inkscape.scm @@ -46,7 +46,7 @@ (define-public inkscape (package (name "inkscape") - (version "0.92.3") + (version "0.92.4") (source (origin (method url-fetch) (uri (string-append "https://media.inkscape.org/dl/" @@ -54,41 +54,7 @@ "inkscape-" version ".tar.bz2")) (sha256 (base32 - "1chng2yw8dsjxc9gf92aqv7plj11cav8ax321wmakmv5bb09cch6")) - (patches - (list (origin - (method url-fetch) - (uri (string-append "https://gitlab.com/inkscape/inkscape/commit/" - "a600c6438fef2f4c06f9a4a7d933d99fb054a973.diff")) - (file-name "inkscape-poppler-compat.patch") - (sha256 - (base32 - "19dam5vsy571xszgjddl5g0958dmcsv0wvgxidp4bhj2lban222i"))) - (origin - (method url-fetch) - (uri (string-append "https://gitlab.com/inkscape/inkscape/commit/" - "fa1c469aa8c005e07bb8676d72af9f7c16fae3e0.diff")) - (file-name "inkscape-poppler-compat2.patch") - (sha256 - (base32 - "14k9yrfjz4nx3bz9dk91q74mc0i7rvl2qzkwhcy1br71yqjvngn5"))) - (search-patch "inkscape-poppler-compat3.patch") - (origin - (method url-fetch) - (uri (string-append "https://gitlab.com/inkscape/inkscape/commit/" - "d047859d90cef3784e2d13e40887a70d8d517897.diff")) - (file-name "inkscape-poppler-compat4.patch") - (sha256 - (base32 - "0xdfg3q4g4m15z7wna4brjn5j4kr15qiqc2f25vcw2nnr6x54qcp"))) - (origin - (method url-fetch) - (uri (string-append "https://gitlab.com/inkscape/inkscape/commit/" - "b3d59cc8106da3bf6020a6c47eeb3b8a7bbae1a9.diff")) - (file-name "inkscape-poppler-compat5.patch") - (sha256 - (base32 - "0haviy66q9szizmvb82msfj80bb3wgi1fnq3ml8fyfp8l90a1217"))))))) + "0pjinhjibfsz1aywdpgpj3k23xrsszpj4a1ya5562dkv2yl2vv2p")))) (build-system cmake-build-system) (inputs `(("aspell" ,aspell) diff --git a/gnu/packages/irc.scm b/gnu/packages/irc.scm index ec1c4aae9f..98d0e8d5d8 100644 --- a/gnu/packages/irc.scm +++ b/gnu/packages/irc.scm @@ -54,6 +54,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages ruby) #:use-module (gnu packages qt) #:use-module (gnu packages tcl) diff --git a/gnu/packages/java-compression.scm b/gnu/packages/java-compression.scm index 8cebfc65a5..3102c70d88 100644 --- a/gnu/packages/java-compression.scm +++ b/gnu/packages/java-compression.scm @@ -29,7 +29,8 @@ #:use-module (gnu packages) #:use-module (gnu packages compression) #:use-module (gnu packages java) - #:use-module (gnu packages perl)) + #:use-module (gnu packages perl) + #:use-module (gnu packages python-compression)) (define-public java-snappy (package diff --git a/gnu/packages/jrnl.scm b/gnu/packages/jrnl.scm index ec9e20681c..6393ea9105 100644 --- a/gnu/packages/jrnl.scm +++ b/gnu/packages/jrnl.scm @@ -26,6 +26,7 @@ #:use-module (gnu packages check) #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages time)) (define-public jrnl diff --git a/gnu/packages/julia.scm b/gnu/packages/julia.scm index 856bbc0eed..a2e1264503 100644 --- a/gnu/packages/julia.scm +++ b/gnu/packages/julia.scm @@ -39,6 +39,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages textutils) #:use-module (gnu packages tls) #:use-module (gnu packages version-control) diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm index fff98bd16d..353f9e4528 100644 --- a/gnu/packages/kde-frameworks.scm +++ b/gnu/packages/kde-frameworks.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2016,2017,2018 Hartmut Goebel <h.goebel@crazy-compilers.com> +;;; Copyright © 2016-2019 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> @@ -56,12 +56,14 @@ #:use-module (gnu packages libreoffice) #:use-module (gnu packages linux) #:use-module (gnu packages mp3) + #:use-module (gnu packages openbox) #:use-module (gnu packages pdf) #:use-module (gnu packages pcre) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages polkit) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages textutils) #:use-module (gnu packages tls) @@ -566,9 +568,16 @@ propagate their changes to their respective configuration files.") (inputs `(("qtbase" ,qtbase))) (arguments - `(#:tests? #f ; FIXME: Test failure caused by stout/stderr being interleaved. - #:phases + `(#:phases (modify-phases %standard-phases + (add-before 'check 'blacklist-failing-test + (lambda _ + ;; Blacklist a failing test-function. FIXME: Make it pass. + ;; Test failure caused by stout/stderr being interleaved. + (with-output-to-file "autotests/BLACKLIST" + (lambda _ + (display "[test_channels]\n*\n"))) + #t)) (add-before 'check 'check-setup (lambda _ (setenv "HOME" (getcwd)) @@ -797,19 +806,6 @@ or user activity.") ("qtsvg" ,qtsvg) ;; Run-time dependency ("qtgraphicaleffects" ,qtgraphicaleffects))) - (arguments - `(#:tests? #f ;; FIXME: Test suite is broken, - ;; see https://bugs.kde.org/show_bug.cgi?id=386456 - ;; Note for when enabling the tests: The test-suite is meant to be run - ;; without prior installation, see - ;; https://cgit.kde.org/kirigami.git/commit/?id=24ad2c9 - #:phases - (modify-phases %standard-phases - (add-before 'check 'check-setup - (lambda* (#:key outputs #:allow-other-keys) - ;; make Qt render "offscreen", required for tests - (setenv "QT_QPA_PLATFORM" "offscreen") - #t))))) (home-page "https://community.kde.org/Frameworks") (synopsis "QtQuick components for mobile user interfaces") (description "Kirigami is a set of high level QtQuick components looking @@ -1099,6 +1095,7 @@ configuration pages, message boxes, and password requests.") `(("extra-cmake-modules" ,extra-cmake-modules) ("pkg-config" ,pkg-config) ("dbus" ,dbus) ; for the tests + ("openbox" ,openbox) ; for the tests ("qttools" ,qttools) ("xorg-server" ,xorg-server))) ; for the tests (inputs @@ -1107,31 +1104,26 @@ configuration pages, message boxes, and password requests.") ("qtx11extras" ,qtx11extras) ("xcb-utils-keysyms" ,xcb-util-keysyms))) (arguments - `(#:tests? #f ; FIXME: 3/12 tests fail. - #:phases + `(#:phases (modify-phases %standard-phases - (delete 'check) - (add-after 'install 'check - (lambda* (#:key inputs outputs tests? #:allow-other-keys) - ;; TODO: Simplify and use "common" phases when test-suite passes - (if tests? - (begin - (let ((out (assoc-ref outputs "out"))) - (setenv "QT_PLUGIN_PATH" - (string-append out "/lib/qt5/plugins:" - (getenv "QT_PLUGIN_PATH")))) - ;; The test suite requires a running X server, setting - ;; QT_QPA_PLATFORM=offscreen does not suffice and even make - ;; some tests fail. - (system (string-append (assoc-ref inputs "xorg-server") - "/bin/Xvfb :1 -screen 0 640x480x24 &")) - (setenv "DISPLAY" ":1") - (setenv "CTEST_OUTPUT_ON_FAILURE" "1") - (setenv "DBUS_FATAL_WARNINGS" "0") - (zero? (system* "dbus-launch" "ctest" "."))) - (begin - (format #t "test suite not run~%") - #t))))))) + (add-before 'check 'blacklist-failing-tests + (lambda _ + ;; Blacklist a failing test-functions. FIXME: Make it pass. + (with-output-to-file "autotests/BLACKLIST" + (lambda _ + (display "[testState]\n*\n") + (display "[testSupported]\n*\n"))) + #t)) + (replace 'check + (lambda _ + ;; The test suite requires a running window anager + (system "Xvfb :1 -ac -screen 0 640x480x24 &") + (setenv "DISPLAY" ":1") + (sleep 5) ;; Give Xvfb a few moments to get on it's feet + (system "openbox &") + (setenv "CTEST_OUTPUT_ON_FAILURE" "1") + (setenv "DBUS_FATAL_WARNINGS" "0") + (invoke "dbus-launch" "ctest" ".")))))) (home-page "https://community.kde.org/Frameworks") (synopsis "KDE access to the windowing system") (description "KWindowSystem provides information about and allows @@ -1840,8 +1832,7 @@ covers feedback and persistent events.") ("ki18n" ,ki18n) ("qtbase" ,qtbase))) (arguments - `(#:tests? #f ; FIXME: 3/9 tests fail. - #:phases + `(#:phases (modify-phases %standard-phases (add-after 'unpack 'patch (lambda _ @@ -1853,6 +1844,17 @@ covers feedback and persistent events.") (("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b) (string-append a " | QDirIterator::FollowSymlinks" b))) #t)) + (add-after 'unpack 'patch-tests + (lambda _ + ;; /bin/ls doesn't exist in the build-container use /etc/passwd + (substitute* "autotests/packagestructuretest.cpp" + (("(addDirectoryDefinition\\(\")bin(\".*\")bin(\".*\")bin\"" + _ a b c) + (string-append a "etc" b "etc" c "etc\"")) + (("filePath\\(\"bin\", QStringLiteral\\(\"ls\"))") + "filePath(\"etc\", QStringLiteral(\"passwd\"))") + (("\"/bin/ls\"") "\"/etc/passwd\"")) + #t)) (add-before 'check 'check-setup (lambda _ (setenv "HOME" (getcwd)) @@ -2419,8 +2421,7 @@ engine WebKit via QtWebKit.") ("kcoreaddons" ,kcoreaddons) ("qtbase" ,qtbase))) (arguments - `(#:tests? #f ; FIXME: 2/2 tests fail. - #:phases + `(#:phases (modify-phases %standard-phases (add-before 'check 'check-setup (lambda _ @@ -2728,8 +2729,7 @@ KIO enabled infrastructure.") ("solid" ,solid) ("sonnet" ,sonnet))) (arguments - `(#:tests? #f ; FIXME: 1/3 tests fail. - #:phases + `(#:phases (modify-phases %standard-phases (add-before 'check 'check-setup (lambda _ ; XDG_DATA_DIRS isn't set diff --git a/gnu/packages/kerberos.scm b/gnu/packages/kerberos.scm index ad19f60ec1..873f5d8a37 100644 --- a/gnu/packages/kerberos.scm +++ b/gnu/packages/kerberos.scm @@ -28,6 +28,7 @@ #:use-module (gnu packages) #:use-module (gnu packages autotools) #:use-module (gnu packages bison) + #:use-module (gnu packages dbm) #:use-module (gnu packages perl) #:use-module (gnu packages gettext) #:use-module (gnu packages gnupg) @@ -35,8 +36,8 @@ #:use-module (gnu packages linux) #:use-module (gnu packages pkg-config) #:use-module (gnu packages compression) - #:use-module (gnu packages databases) #:use-module (gnu packages readline) + #:use-module (gnu packages sqlite) #:use-module (gnu packages texinfo) #:use-module (gnu packages tls) #:use-module ((guix licenses) #:prefix license:) diff --git a/gnu/packages/key-mon.scm b/gnu/packages/key-mon.scm index 6237a1765a..1482d07f7c 100644 --- a/gnu/packages/key-mon.scm +++ b/gnu/packages/key-mon.scm @@ -22,6 +22,7 @@ #:use-module (guix download) #:use-module (gnu packages) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages gtk) #:use-module (gnu packages gnome) #:use-module (guix build-system python)) diff --git a/gnu/packages/kodi.scm b/gnu/packages/kodi.scm index a910d2da49..508ffaabca 100644 --- a/gnu/packages/kodi.scm +++ b/gnu/packages/kodi.scm @@ -29,6 +29,7 @@ #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system trivial) + #:use-module (gnu packages) #:use-module (gnu packages algebra) #:use-module (gnu packages audio) #:use-module (gnu packages autotools) @@ -65,6 +66,7 @@ #:use-module (gnu packages samba) #:use-module (gnu packages sdl) #:use-module (gnu packages serialization) + #:use-module (gnu packages sqlite) #:use-module (gnu packages ssh) #:use-module (gnu packages swig) #:use-module (gnu packages textutils) @@ -278,6 +280,7 @@ alternatives. In compilers, this can reduce the cascade of secondary errors.") (sha256 (base32 "0bwi4gwmwppjw6bf0zihyg42zwnd0imq0aw4xxsgnacqakhxzii0")) + (patches (search-patches "kodi-skip-test-449.patch")) (snippet '(begin (use-modules (guix build utils)) diff --git a/gnu/packages/libevent.scm b/gnu/packages/libevent.scm index c9ed941202..b3a5471527 100644 --- a/gnu/packages/libevent.scm +++ b/gnu/packages/libevent.scm @@ -6,6 +6,7 @@ ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> ;;; ;;; This file is part of GNU Guix. ;;; @@ -32,6 +33,7 @@ #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages perl) + #:use-module (gnu packages perl-check) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages tls)) @@ -239,3 +241,32 @@ not rely on XS.") full-featured event loop. It can be used through the @code{AnyEvent} module and still be faster than other event loops currently supported in Perl.") (license perl-license))) + +(define-public perl-rpc-epc-service + (package + (name "perl-rpc-epc-service") + (version "0.0.11") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://cpan/authors/id/K/KI/KIWANAMI/RPC-EPC-Service-" + "v" version ".tar.gz")) + (sha256 + (base32 + "1qwb284z4ig3xzy21m1b3w8bkb8k6l2ij6cjz93znn2j6qs42pwp")))) + (build-system perl-build-system) + (native-inputs + `(("perl-module-build" ,perl-module-build) + ("perl-test-simple" ,perl-test-simple))) + (propagated-inputs + `(("perl-anyevent" ,perl-anyevent) + ("perl-data-sexpression" ,perl-data-sexpression))) + (arguments + ;; Tests seem to fail because they try to start a server. + `(#:tests? #f)) + (home-page "https://metacpan.org/release/RPC-EPC-Service") + (synopsis "Asynchronous remote procedure stack") + (description "RPC::EPC::Service enables to connect the other process with +the S-expression protocol, like the Swank protocol of the SLIME.") + (license perl-license))) diff --git a/gnu/packages/libffi.scm b/gnu/packages/libffi.scm index 01a5ea2049..3f7bb4f289 100644 --- a/gnu/packages/libffi.scm +++ b/gnu/packages/libffi.scm @@ -30,6 +30,7 @@ #:use-module (gnu packages check) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages ruby) #:use-module (guix build-system gnu) #:use-module (guix build-system python) diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm index 1a41c3e0ba..2824d87fc6 100644 --- a/gnu/packages/libreoffice.scm +++ b/gnu/packages/libreoffice.scm @@ -9,7 +9,7 @@ ;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com> -;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; ;;; This file is part of GNU Guix. @@ -70,8 +70,10 @@ #:use-module (gnu packages openldap) #:use-module (gnu packages pdf) #:use-module (gnu packages perl) + #:use-module (gnu packages perl-compression) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages rdf) #:use-module (gnu packages scanner) #:use-module (gnu packages tls) diff --git a/gnu/packages/libusb.scm b/gnu/packages/libusb.scm index c43d0f9e7f..e27cffa331 100644 --- a/gnu/packages/libusb.scm +++ b/gnu/packages/libusb.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com> -;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2017 Jonathan Brielmaier <jonathan.brielmaier@web.de> @@ -26,7 +26,7 @@ (define-module (gnu packages libusb) #:use-module (gnu packages) - #:use-module (guix licenses) + #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix utils) #:use-module (guix download) @@ -44,6 +44,8 @@ #:use-module (gnu packages mp3) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) + #:use-module (gnu packages tls) #:use-module (gnu packages xiph)) (define-public libusb @@ -70,7 +72,7 @@ (description "Libusb is a library that gives applications easy access to USB devices on various operating systems.") - (license lgpl2.1+))) + (license license:lgpl2.1+))) (define-public libusb-compat (package @@ -96,7 +98,7 @@ devices on various operating systems.") (description "Libusb-compat provides a shim allowing applications based on older version of libusb to run with newer libusb.") - (license lgpl2.1+))) + (license license:lgpl2.1+))) ;; required by 0xffff, which compiles with libusb-compat, but executes only ;; with libusb-0.1 @@ -154,7 +156,7 @@ version of libusb to run with newer libusb.") (description "This package provides Java JNI bindings to the libusb library for use with usb4java.") - (license expat)))) + (license license:expat)))) (define-public java-usb4java (package @@ -213,7 +215,7 @@ with usb4java.") (description "This package provides a USB library for Java based on libusb and implementing @code{javax.usb} (JSR-80).") - (license expat))) + (license license:expat))) (define-public python-libusb1 (package @@ -256,7 +258,7 @@ implementing @code{javax.usb} (JSR-80).") (description "Libusb is a library that gives applications easy access to USB devices on various operating systems. This package provides a Python wrapper for accessing libusb-1.0.") - (license lgpl2.1+))) + (license license:lgpl2.1+))) (define-public python-pyusb (package @@ -295,11 +297,95 @@ wrapper for accessing libusb-1.0.") (synopsis "Python bindings to the libusb library") (description "PyUSB aims to be an easy to use Python module to access USB devices.") - (license bsd-3))) + (license license:bsd-3))) (define-public python2-pyusb (package-with-python2 python-pyusb)) +(define-public libplist + (package + (name "libplist") + (version "2.0.0") + (source (origin + (method url-fetch) + (uri (string-append "http://www.libimobiledevice.org/downloads/" + "libplist-" version ".tar.bz2")) + (sha256 + (base32 + "00pnh9zf3iwdji2faccns7vagbmbrwbj9a8zp9s53a6rqaa9czis")))) + (build-system gnu-build-system) + (inputs + `(("python" ,python))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("python-cython" ,python-cython))) + (home-page "http://www.libimobiledevice.org/") + (synopsis "C library to handle Apple Property List files") + (description "This package provides a small portable C library to handle +Apple Property List files in binary or XML.") + (license license:lgpl2.1+))) + +(define-public libusbmuxd + (package + (name "libusbmuxd") + (version "1.0.10") + (source (origin + (method url-fetch) + (uri (string-append "http://www.libimobiledevice.org/downloads/" + "libusbmuxd-" version ".tar.bz2")) + (sha256 + (base32 + "1wn9zq2224786mdr12c5hxad643d29wg4z6b7jn888jx4s8i78hs")))) + (build-system gnu-build-system) + (native-inputs + `(("pkg-config" ,pkg-config) + ("libplist" ,libplist))) + (home-page "http://www.libimobiledevice.org/") + (synopsis "Library to multiplex connections from and to iOS devices") + (description "This package provides a client library to multiplex +connections from and to iOS devices by connecting to a socket provided by a +@code{usbmuxd} daemon.") + (license license:lgpl2.1+))) + +(define-public libimobiledevice + (package + (name "libimobiledevice") + (version "1.2.0") + (source (origin + (method url-fetch) + (uri (string-append "http://www.libimobiledevice.org/downloads/" + "libimobiledevice-" version ".tar.bz2")) + (sha256 + (base32 + "0dqhy4qwj30mw8pwckvjmgnj1qqrh6p8c6jknmhvylshhzh0ssvq")))) + (build-system gnu-build-system) + (arguments + `(#:configure-flags + (list (string-append "PYTHON_LDFLAGS=-L" + (assoc-ref %build-inputs "python") + "/lib -lpython" + ,(version-major+minor (package-version python)) + "m")))) + (propagated-inputs + `(("openssl" ,openssl) + ("libusbmuxd" ,libusbmuxd))) + (inputs + `(("libplist" ,libplist) + ("python" ,python))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("python-cython" ,python-cython) + ("libtool" ,libtool))) + (home-page "http://www.libimobiledevice.org/") + (synopsis "Protocol library and tools to communicate with Apple devices") + (description "libimobiledevice is a software library that talks the +protocols to support Apple devices. It allows other software to easily access +the device's filesystem, retrieve information about the device and it's +internals, backup/restore the device, manage installed applications, retrieve +addressbook/calendars/notes and bookmarks and (using libgpod) synchronize +music and video to the device.") + (license license:lgpl2.1+))) + (define-public libmtp (package (name "libmtp") @@ -334,7 +420,7 @@ proposed for standardization.") ;; "GNU Lesser General Public License as published by the Free Software ;; Foundation; either version 2 of the License, or (at your option) any ;; later version." - (license lgpl2.1+))) + (license license:lgpl2.1+))) (define-public gmtp (package @@ -368,7 +454,7 @@ proposed for standardization.") (description "gMTP is a simple graphical client for the Media Transfer Protocol (MTP), which allows media files to be transferred to and from many portable devices.") - (license bsd-3))) + (license license:bsd-3))) (define-public hidapi (package @@ -396,9 +482,9 @@ devices.") "HIDAPI is a library which allows an application to interface with USB and Bluetooth HID-Class devices.") ;; HIDAPI can be used under one of three licenses. - (license (list gpl3 - bsd-3 - (non-copyleft "file://LICENSE-orig.txt"))))) + (license (list license:gpl3 + license:bsd-3 + (license:non-copyleft "file://LICENSE-orig.txt"))))) (define-public python-hidapi (package @@ -453,8 +539,9 @@ HID-Class devices.") (synopsis "Cython interface to hidapi") (description "This package provides a Cython interface to @code{hidapi}.") ;; The library can be used under either of these licenses. - (license (list gpl3 bsd-3 - (non-copyleft + (license (list license:gpl3 + license:bsd-3 + (license:non-copyleft "https://github.com/trezor/cython-hidapi/blob/master/LICENSE-orig.txt" "You are free to use cython-hidapi code for any purpose."))))) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 03b4f91522..4bd53c2ba0 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -65,7 +65,7 @@ #:use-module (gnu packages crypto) #:use-module (gnu packages cryptsetup) #:use-module (gnu packages compression) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages datastructures) #:use-module (gnu packages docbook) #:use-module (gnu packages documentation) @@ -413,8 +413,8 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration." It has been modified to remove all non-free binary blobs.") (license license:gpl2))) -(define %linux-libre-version "4.20.1") -(define %linux-libre-hash "10b1cgx7246lxwml66bzzc57sk5bbh7mjxc9zv6qncwh0xhsjv5n") +(define %linux-libre-version "4.20.3") +(define %linux-libre-hash "0mk996fb4bd9548xnv2as4lxm3gyj1kvn6ra03xxpb0wf8cqdazz") (define %linux-libre-4.20-patches (list %boot-logo-patch @@ -427,8 +427,8 @@ It has been modified to remove all non-free binary blobs.") #:patches %linux-libre-4.20-patches #:configuration-file kernel-config)) -(define %linux-libre-4.19-version "4.19.14") -(define %linux-libre-4.19-hash "12ihsp3k8gznc1hjvlpy8jdb27ijr3zsvn8wcgr5za18pg5ncjl9") +(define %linux-libre-4.19-version "4.19.16") +(define %linux-libre-4.19-hash "1dpfllfzksrr6iqhvbh2905gkvycsv5zcmgq6wmwqiry1swzdfyk") (define %linux-libre-4.19-patches (list %boot-logo-patch @@ -441,8 +441,8 @@ It has been modified to remove all non-free binary blobs.") #:patches %linux-libre-4.19-patches #:configuration-file kernel-config)) -(define %linux-libre-4.14-version "4.14.92") -(define %linux-libre-4.14-hash "09s479krcjzgp53s5i6h7ld1mdagjci6lqvkv8mc1nj0ja8niiq3") +(define %linux-libre-4.14-version "4.14.94") +(define %linux-libre-4.14-hash "06yf4ggdf9dn7zh17pv1kx84sn39mbxpfhsx1mdckzwpis7lcjzs") (define-public linux-libre-4.14 (make-linux-libre %linux-libre-4.14-version @@ -451,14 +451,14 @@ It has been modified to remove all non-free binary blobs.") #:configuration-file kernel-config)) (define-public linux-libre-4.9 - (make-linux-libre "4.9.149" - "1qw1hahqiai8xbv769pdfnx3yan3rl2zh00fmi1nx0khan6i5as3" + (make-linux-libre "4.9.151" + "0pjcqmn03zb0n83rlfkrq10k7fl7dbh3ll2d8k9sqi3m81c3843h" '("x86_64-linux" "i686-linux") #:configuration-file kernel-config)) (define-public linux-libre-4.4 - (make-linux-libre "4.4.169" - "1snjdih9iv3fg7f9h2r1gldcqmvzj1w398aysws4fialj488x1p4" + (make-linux-libre "4.4.171" + "01jd2672fq633xw5vdmifvd6dy93pif28xkvymah82jm9xj1lbqh" '("x86_64-linux" "i686-linux") #:configuration-file kernel-config)) @@ -1806,9 +1806,9 @@ UnionFS-FUSE additionally supports copy-on-write.") #t)))))) (inputs `(("fuse" ,fuse-static))))) -(define-public sshfs-fuse +(define-public sshfs (package - (name "sshfs-fuse") + (name "sshfs") (version "2.10") (source (origin (method url-fetch) @@ -1833,6 +1833,11 @@ up: on the server side there's nothing to do; on the client side mounting the file system is as easy as logging into the server with an SSH client.") (license license:gpl2+))) +(define-public sshfs-fuse + (package (inherit sshfs) + (name "sshfs-fuse") + (properties `((superseded . ,sshfs))))) + (define-public archivemount (package (name "archivemount") diff --git a/gnu/packages/lirc.scm b/gnu/packages/lirc.scm index 7ba2d44532..b04cc887fb 100644 --- a/gnu/packages/lirc.scm +++ b/gnu/packages/lirc.scm @@ -30,7 +30,8 @@ #:use-module (gnu packages linux) #:use-module (gnu packages xml) #:use-module (gnu packages xorg) - #:use-module (gnu packages python)) + #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz)) (define-public lirc (package diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm index 261e720e2b..05f325e60d 100644 --- a/gnu/packages/lisp.scm +++ b/gnu/packages/lisp.scm @@ -62,6 +62,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages readline) #:use-module (gnu packages sdl) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tex) #:use-module (gnu packages texinfo) #:use-module (gnu packages version-control) diff --git a/gnu/packages/logging.scm b/gnu/packages/logging.scm index 665b384b95..f1f3a4e8d3 100644 --- a/gnu/packages/logging.scm +++ b/gnu/packages/logging.scm @@ -33,6 +33,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages autotools)) (define-public log4cpp diff --git a/gnu/packages/lxde.scm b/gnu/packages/lxde.scm index 1f32ec3bb1..a5720ce979 100644 --- a/gnu/packages/lxde.scm +++ b/gnu/packages/lxde.scm @@ -6,7 +6,7 @@ ;;; Copyright © 2017 Brendan Tildesley <brendan.tildesley@openmailbox.org> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Ison111 <ison111@protonmail.com> -;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. @@ -249,7 +249,17 @@ with freedesktop.org standard.") version ".tar.gz")) (sha256 (base32 - "1jg7xfyr7kihjnalxp8wxyb9qjk8hqf5l36rp3s0lvkpmpyakppy")) + "1jg7xfyr7kihjnalxp8wxyb9qjk8hqf5l36rp3s0lvkpmpyakppy")) + (modules '((guix build utils))) + (snippet + '(begin + (substitute* "src/main.c" + (("#include <sys/types\\.h>" all) + ;; Add missing include for 'major' and 'minor' with glibc + ;; >= 2.28. + (string-append all "\n" + "#include <sys/sysmacros.h>\n"))) + #t)) (file-name (string-append name "-" version ".tar.gz")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) diff --git a/gnu/packages/machine-learning.scm b/gnu/packages/machine-learning.scm index 39ac7cad7c..b56468f8c1 100644 --- a/gnu/packages/machine-learning.scm +++ b/gnu/packages/machine-learning.scm @@ -55,6 +55,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages statistics) #:use-module (gnu packages swig) #:use-module (gnu packages xml) diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index 6d1006c606..5777374582 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -58,6 +58,7 @@ #:use-module (gnu packages curl) #:use-module (gnu packages cyrus-sasl) #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages dejagnu) #:use-module (gnu packages django) #:use-module (gnu packages dns) @@ -93,12 +94,14 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages ruby) #:use-module (gnu packages search) #:use-module (gnu packages serialization) #:use-module (gnu packages samba) #:use-module (gnu packages screen) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tcl) #:use-module (gnu packages texinfo) #:use-module (gnu packages time) diff --git a/gnu/packages/man.scm b/gnu/packages/man.scm index 8989dd230b..fbc5ca27ef 100644 --- a/gnu/packages/man.scm +++ b/gnu/packages/man.scm @@ -6,6 +6,7 @@ ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Rutger Helling <rhelling@mykolab.com> +;;; Copyright © 2018, 2019 Marius Bakke <mbakke@fastmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -27,7 +28,7 @@ #:use-module (guix download) #:use-module (guix packages) #:use-module (guix build-system gnu) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages flex) #:use-module (gnu packages gawk) #:use-module (gnu packages groff) @@ -82,11 +83,19 @@ a flexible and convenient way.") (remove file-is-directory? (find-files "src/tests" ".*"))) #t))) - (add-after 'unpack 'patch-iconv-path + (add-after 'unpack 'patch-absolute-paths (lambda* (#:key inputs #:allow-other-keys) (substitute* "src/man.c" (("\"iconv\"") (string-append "\"" (which "iconv") "\""))) + ;; Embed an absolute reference to "preconv", otherwise it + ;; falls back to searching in PATH and ultimately fails + ;; to render unicode data (see <https://bugs.gnu.org/30785>). + (substitute* "lib/encodings.c" + (("groff_preconv = NULL") + (string-append "groff_preconv = \"" + (assoc-ref inputs "groff-minimal") + "/bin/preconv\""))) #t))) #:configure-flags (let ((groff (assoc-ref %build-inputs "groff")) diff --git a/gnu/packages/mate.scm b/gnu/packages/mate.scm index 5919c714ee..ef94491622 100644 --- a/gnu/packages/mate.scm +++ b/gnu/packages/mate.scm @@ -62,6 +62,7 @@ #:use-module (gnu packages polkit) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages tex) #:use-module (gnu packages webkit) #:use-module (gnu packages xdisorg) diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index e370038b9c..cccc3636a4 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -105,6 +105,7 @@ #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) #:use-module (gnu packages ruby) @@ -3937,7 +3938,7 @@ as equations, scalars, vectors, and matrices.") (define-public z3 (package (name "z3") - (version "4.8.3") + (version "4.8.4") (home-page "https://github.com/Z3Prover/z3") (source (origin (method git-fetch) @@ -3946,7 +3947,7 @@ as equations, scalars, vectors, and matrices.") (file-name (git-file-name name version)) (sha256 (base32 - "0p5gdmhd32x6zwmx7j5cgwh4jyfxa9yapym95nlmyfaqzak92qar")))) + "014igqm5vwswz0yhz0cdxsj3a6dh7i79hvhgc3jmmmz3z0xm1gyn")))) (build-system gnu-build-system) (arguments `(#:phases diff --git a/gnu/packages/medical.scm b/gnu/packages/medical.scm index 3f96134a3c..6c298707f5 100644 --- a/gnu/packages/medical.scm +++ b/gnu/packages/medical.scm @@ -23,7 +23,7 @@ #:use-module (guix licenses) #:use-module (guix packages) #:use-module (gnu packages databases) - #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt)) (define-public openmolar-1 diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm index 96beb69304..36a181446a 100644 --- a/gnu/packages/messaging.scm +++ b/gnu/packages/messaging.scm @@ -75,8 +75,10 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tcl) #:use-module (gnu packages texinfo) #:use-module (gnu packages textutils) @@ -783,14 +785,14 @@ a graphical desktop environment like GNOME.") (define-public prosody (package (name "prosody") - (version "0.11.1") + (version "0.11.2") (source (origin (method url-fetch) (uri (string-append "https://prosody.im/downloads/source/" "prosody-" version ".tar.gz")) (sha256 (base32 - "1ak5bkx09kscyifxhzybgp5a73jr8nki6xi05c59wwlq0wzw9gli")))) + "0ca8ivqb4hxqka08pwnaqi1bqxrdl8zw47g6z7nw9q5r57fgc4c9")))) (build-system gnu-build-system) (arguments `(#:tests? #f ;tests require "busted" @@ -903,6 +905,39 @@ protocols.") upload files over HTTP.") (license (package-license prosody))))) +(define-public prosody-smacks + (let ((changeset "67f1d1f22625") + (revision "1")) + (package + (name "prosody-smacks") + (version (string-append "0-" revision "." (string-take changeset 7))) + (source (origin + (method hg-fetch) + (uri (hg-reference + (url "https://hg.prosody.im/prosody-modules/") + (changeset changeset))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "020ngpax30fgarah98yvlj0ni8rcdwq60if03a9hqdw8mic0nxxs")))) + (build-system trivial-build-system) + (arguments + '(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (let ((out (assoc-ref %outputs "out")) + (source (assoc-ref %build-inputs "source"))) + (with-directory-excursion (in-vicinity source "mod_smacks") + (install-file "mod_smacks.lua" out)) + #t)))) + (home-page "https://modules.prosody.im/mod_smacks.html") + (synopsis "XEP-0198: Reliability and fast reconnects for XMPP") + (description "This module implements XEP-0198: when supported by both +the client and server, it can allow clients to resume a disconnected session, +and prevent message loss.") + (license (package-license prosody))))) + (define-public libtoxcore (let ((revision "2") (commit "bf69b54f64003d160d759068f4816b2d9b2e1e21")) diff --git a/gnu/packages/monitoring.scm b/gnu/packages/monitoring.scm index 416135414f..a638dd7c80 100644 --- a/gnu/packages/monitoring.scm +++ b/gnu/packages/monitoring.scm @@ -49,6 +49,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages time) #:use-module (gnu packages tls)) diff --git a/gnu/packages/mp3.scm b/gnu/packages/mp3.scm index c7736eeb51..d408701814 100644 --- a/gnu/packages/mp3.scm +++ b/gnu/packages/mp3.scm @@ -39,6 +39,7 @@ #:use-module (gnu packages pcre) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages xiph) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages linux) ;alsa-lib diff --git a/gnu/packages/mpd.scm b/gnu/packages/mpd.scm index f4a03bb7a9..bf12239a02 100644 --- a/gnu/packages/mpd.scm +++ b/gnu/packages/mpd.scm @@ -50,8 +50,9 @@ #:use-module (gnu packages pcre) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages pulseaudio) - #:use-module (gnu packages databases) + #:use-module (gnu packages sqlite) #:use-module (gnu packages video) #:use-module (gnu packages xiph)) diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index aba08525ef..5522d94c33 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -70,7 +70,6 @@ #:use-module (gnu packages crypto) #:use-module (gnu packages curl) #:use-module (gnu packages cyrus-sasl) - #:use-module (gnu packages databases) #:use-module (gnu packages datastructures) #:use-module (gnu packages docbook) #:use-module (gnu packages documentation) @@ -114,11 +113,13 @@ #:use-module (gnu packages pulseaudio) ;libsndfile #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages rdf) #:use-module (gnu packages readline) #:use-module (gnu packages rsync) #:use-module (gnu packages sdl) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tcl) #:use-module (gnu packages texinfo) #:use-module (gnu packages tex) diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index 65148bb000..df0630219f 100644 --- a/gnu/packages/networking.scm +++ b/gnu/packages/networking.scm @@ -66,7 +66,6 @@ #:use-module (gnu packages compression) #:use-module (gnu packages crypto) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages dejagnu) #:use-module (gnu packages documentation) #:use-module (gnu packages flex) @@ -90,9 +89,11 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) #:use-module (gnu packages serialization) + #:use-module (gnu packages sqlite) #:use-module (gnu packages ssh) #:use-module (gnu packages textutils) #:use-module (gnu packages tls) diff --git a/gnu/packages/nfs.scm b/gnu/packages/nfs.scm index bdb36d272b..9d7acc3592 100644 --- a/gnu/packages/nfs.scm +++ b/gnu/packages/nfs.scm @@ -21,11 +21,11 @@ (define-module (gnu packages nfs) #:use-module (gnu packages) #:use-module (gnu packages linux) - #:use-module (gnu packages databases) #:use-module (gnu packages libevent) #:use-module (gnu packages kerberos) #:use-module (gnu packages onc-rpc) #:use-module (gnu packages pkg-config) + #:use-module (gnu packages sqlite) #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system python) diff --git a/gnu/packages/nutrition.scm b/gnu/packages/nutrition.scm index 9397630afd..0e5533433e 100644 --- a/gnu/packages/nutrition.scm +++ b/gnu/packages/nutrition.scm @@ -28,7 +28,8 @@ #:use-module (gnu packages gtk) #:use-module (gnu packages glib) #:use-module (gnu packages image) - #:use-module (gnu packages python)) + #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz)) (define-public gourmet (package diff --git a/gnu/packages/nvi.scm b/gnu/packages/nvi.scm index ea02762a9b..187de31720 100644 --- a/gnu/packages/nvi.scm +++ b/gnu/packages/nvi.scm @@ -18,7 +18,7 @@ (define-module (gnu packages nvi) #:use-module (gnu packages) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages ncurses) #:use-module (guix packages) #:use-module (guix download) diff --git a/gnu/packages/ocaml.scm b/gnu/packages/ocaml.scm index 822075d195..deba67c4d7 100644 --- a/gnu/packages/ocaml.scm +++ b/gnu/packages/ocaml.scm @@ -36,8 +36,8 @@ #:use-module (gnu packages boost) #:use-module (gnu packages compression) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages emacs) + #:use-module (gnu packages emacs-xyz) #:use-module (gnu packages flex) #:use-module (gnu packages gcc) #:use-module (gnu packages ghostscript) @@ -57,6 +57,7 @@ #:use-module (gnu packages protobuf) #:use-module (gnu packages python) #:use-module (gnu packages sdl) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tex) #:use-module (gnu packages texinfo) #:use-module (gnu packages time) @@ -4749,6 +4750,37 @@ yojson package. The program @code{atdgen} can be used to derive OCaml-JSON serializers and deserializers from type definitions.") (license license:bsd-3))) +(define-public ocaml-merlin + (package + (name "ocaml-merlin") + (version "3.2.2") + (home-page "https://ocaml.github.io/merlin/") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ocaml/merlin.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "15ssgmwdxylbwhld9p1cq8x6kadxyhll5bfyf11dddj6cldna3hb")))) + (build-system dune-build-system) + (inputs + `(("ocaml-biniou" ,ocaml-biniou) + ("ocaml-yojson" ,ocaml-yojson) + ("ocaml-easy-format" ,ocaml-easy-format))) + (native-inputs + `(("ocaml-findlib" ,ocaml-findlib))) + (arguments + '(#:tests? #f)) ;; Errors in tests in version 3.2.2 + (synopsis "Context sensitive completion for OCaml in Vim and Emacs") + (description "Merlin is an editor service that provides modern IDE +features for OCaml. Emacs and Vim support is provided out-of-the-box. +External contributors added support for Visual Studio Code, Sublime Text and +Atom.") + (license license:expat))) + (define-public ocaml-gsl (package (name "ocaml-gsl") @@ -4833,3 +4865,279 @@ parametrized transition systems with states represented as arrays indexed by an arbitrary number of processes. Cache coherence protocols and mutual exclusion algorithms are typical examples of such systems.") (license license:asl2.0))) + +(define-public ocaml-sexplib0 + (package + (name "ocaml-sexplib0") + (version "0.11.0") + (home-page "https://github.com/janestreet/sexplib0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "07v3ggyss7xhfv14bjk1n87sr42iqwj4cgjiv2lcdfkqk49i2bmi")))) + (build-system dune-build-system) + (arguments + '(#:tests? #f)) ;no tests + (synopsis "Library containing the definition of S-expressions and some +base converters") + (description "Part of Jane Street's Core library The Core suite of +libraries is an industrial strength alternative to OCaml's standard library +that was developed by Jane Street, the largest industrial user of OCaml.") +(license license:expat))) + +(define-public ocaml-parsexp + (package + (name "ocaml-parsexp") + (version "0.11.0") + (home-page "https://github.com/janestreet/parsexp") + (source + (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1nyq23s5igd8cf3n4qxprjvhbmb6ighb3fy5mw7hxl0mdgsw5fvz")))) + (build-system dune-build-system) + (inputs + `(("ocaml-sexplib0" ,ocaml-sexplib0))) + (synopsis "S-expression parsing library") + (description + "This library provides generic parsers for parsing S-expressions from +strings or other medium. + +The library is focused on performances but still provide full generic +parsers that can be used with strings, bigstrings, lexing buffers, +character streams or any other sources effortlessly. + +It provides three different class of parsers: +@itemize +@item +the normal parsers, producing [Sexp.t] or [Sexp.t list] values +@item +the parsers with positions, building compact position sequences so +that one can recover original positions in order to report properly +located errors at little cost +@item +the Concrete Syntax Tree parsers, produce values of type +@code{Parsexp.Cst.t} which record the concrete layout of the s-expression +syntax, including comments +@end itemize + +This library is portable and doesn't provide IO functions. To read +s-expressions from files or other external sources, you should use +parsexp_io.") + (license license:expat))) + +(define-public ocaml-sexplib + (package + (name "ocaml-sexplib") + (version "0.11.0") + (home-page "https://github.com/janestreet/sexplib") + (source + (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1qfl0m04rpcjvc4yw1hzh6r16jpwmap0sa9ax6zjji67dz4szpyb")))) + (build-system dune-build-system) + (inputs + `(("ocaml-num" ,ocaml-num) + ("ocaml-parsexp" ,ocaml-parsexp) + ("ocaml-sexplib0" ,ocaml-sexplib0))) + (synopsis + "Library for serializing OCaml values to and from S-expressions") + (description + "This package is part of Jane Street's Core library. Sexplib contains +functionality for parsing and pretty-printing s-expressions.") + (license license:expat))) + +(define-public ocaml-base + (package + (name "ocaml-base") + (version "0.11.1") + (home-page "https://github.com/janestreet/base") + (source + (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0j6xb4265jr41vw4fjzak6yr8s30qrnzapnc6rl1dxy8bjai0nir")))) + (build-system dune-build-system) + (inputs + `(("ocaml-sexplib0" ,ocaml-sexplib0))) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'build + ;; make warnings non fatal (jbuilder behaviour) + (lambda _ + (invoke "dune" "build" "@install" "--profile=release")))))) + (synopsis + "Full standard library replacement for OCaml") + (description + "Base is a complete and portable alternative to the OCaml standard +library. It provides all standard functionalities one would expect +from a language standard library. It uses consistent conventions +across all of its module. + +Base aims to be usable in any context. As a result system dependent +features such as I/O are not offered by Base. They are instead +provided by companion libraries such as +@url{https://github.com/janestreet/stdio, ocaml-stdio}.") + (license license:expat))) + +(define-public ocaml-compiler-libs + (package + (name "ocaml-compiler-libs") + (version "0.11.0") + (home-page "https://github.com/janestreet/ocaml-compiler-libs") + (source + (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "03jds7bszh8wwpfwxb3dg0gyr1j1872wxwx1xqhry5ir0i84bg0s")))) + (build-system dune-build-system) + (arguments + '(#:tests? #f)) ;no tests + (synopsis "Compiler libraries repackaged") + (description "This packaeg simply repackages the OCaml compiler libraries +so they don't expose everything at toplevel. For instance, @code{Ast_helper} +is now @code{Ocaml_common.Ast_helper}.") + (license license:expat))) + +(define-public ocaml-stdio + (package + (name "ocaml-stdio") + (version "0.11.0") + (home-page "https://github.com/janestreet/stdio") + (source + (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1facajqhvq34g2wrg368y0ajxd6lrj5b3lyzyj0jhdmraxajjcwn")))) + (build-system dune-build-system) + (inputs `(("ocaml-base" ,ocaml-base) + ("ocaml-sexplib0" ,ocaml-sexplib0))) + (arguments + '(#:tests? #f)) ;no tests + (synopsis "Standard IO library for OCaml") + (description + "Stdio implements simple input/output functionalities for OCaml. It +re-exports the input/output functions of the OCaml standard libraries using +a more consistent API.") + (license license:expat))) + +(define-public ocaml-ppx-derivers + (package + (name "ocaml-ppx-derivers") + (version "1.2") + (home-page + "https://github.com/ocaml-ppx/ppx_derivers") + (source + (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0bnhihl1w31as5w2czly1v3d6pbir9inmgsjg2cj6aaj9v1dzd85")))) + (build-system dune-build-system) + (arguments + '(#:tests? #f)) ;no tests + (synopsis "Shared @code{@@deriving} plugin registry") + (description + "Ppx_derivers is a tiny package whose sole purpose is to allow +ppx_deriving and ppx_type_conv to inter-operate gracefully when linked +as part of the same ocaml-migrate-parsetree driver.") + (license license:bsd-3))) + +(define-public ocaml-ppxlib + (package + (name "ocaml-ppxlib") + (version "0.4.0") + (home-page "https://github.com/ocaml-ppx/ppxlib") + (source + (origin + (method git-fetch) + (uri (git-reference + (url (string-append home-page ".git")) + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1nr4igf5m4prvigvv470dnhfdhdw0p6hz6zw8gnm5bzcv7s2lg5l")))) + (build-system dune-build-system) + (inputs + `(("ocaml-base" ,ocaml-base) + ("ocaml-compiler-libs" ,ocaml-compiler-libs) + ("ocaml-migrate-parsetree" ,ocaml-migrate-parsetree) + ("ocaml-ppx-derivers" ,ocaml-ppx-derivers) + ("ocaml-stdio" ,ocaml-stdio) + ("ocaml-result" ,ocaml-result) + ("ocaml-sexplib0" ,ocaml-sexplib0))) + (native-inputs + `(("ocaml-findlib" ,ocaml-findlib))) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'check 'set-topfind + (lambda* (#:key inputs #:allow-other-keys) + ;; add the line #directory ".." at the top of each file + ;; using #use "topfind";; to be able to find topfind + (let* ((findlib-path (assoc-ref inputs "ocaml-findlib")) + (findlib-libdir + (string-append findlib-path "/lib/ocaml/site-lib"))) + (substitute* '("test/base/test.ml" + "test/deriving/test.ml" + "test/driver/attributes/test.ml" + "test/driver/non-compressible-suffix/test.ml" + "test/driver/transformations/test.ml") + (("#use \"topfind\";;" all) + (string-append "#directory \"" findlib-libdir "\"\n" + all)))) + #t))))) + (synopsis + "Base library and tools for ppx rewriters") + (description + "A comprehensive toolbox for ppx development. It features: +@itemize +@item an OCaml AST / parser / pretty-printer snapshot, to create a full frontend +independent of the version of OCaml; +@item a library for library for ppx rewriters in general, and type-driven code +generators in particular; +@item +a feature-full driver for OCaml AST transformers; +@item a quotation mechanism allowing to write values representing the +OCaml AST in the OCaml syntax; +@item a generator of open recursion classes from type definitions. +@end itemize") + (license license:expat))) diff --git a/gnu/packages/ocr.scm b/gnu/packages/ocr.scm index 2b67ed1908..2808359ca2 100644 --- a/gnu/packages/ocr.scm +++ b/gnu/packages/ocr.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -28,14 +29,14 @@ (define-public ocrad (package (name "ocrad") - (version "0.26") + (version "0.27") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/ocrad/ocrad-" version ".tar.lz")) (sha256 (base32 - "0g4fq7maybdnd1471kd05a3f5sb7spa3d26k706rk85sd5wd70y3")))) + "0divffvcaim89g4pvqs8kslbcxi475bcl3b4ynphf284k9zfdgx9")))) (build-system gnu-build-system) (native-inputs `(("lzip" ,lzip))) (home-page "https://www.gnu.org/software/ocrad/") diff --git a/gnu/packages/openldap.scm b/gnu/packages/openldap.scm index 3cba8142bf..368a953cb5 100644 --- a/gnu/packages/openldap.scm +++ b/gnu/packages/openldap.scm @@ -25,7 +25,7 @@ #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages cyrus-sasl) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages documentation) #:use-module (gnu packages gettext) #:use-module (gnu packages gnupg) @@ -40,6 +40,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages rsync) #:use-module (gnu packages selinux) #:use-module (gnu packages time) diff --git a/gnu/packages/openstack.scm b/gnu/packages/openstack.scm index c07f011c9d..c30b15e137 100644 --- a/gnu/packages/openstack.scm +++ b/gnu/packages/openstack.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2016, 2017 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2016, 2017, 2019 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com> ;;; @@ -27,6 +27,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages ssh) #:use-module (gnu packages time) #:use-module (gnu packages tls) @@ -851,14 +852,14 @@ permanence.") (define-public python-git-review (package (name "python-git-review") - (version "1.26.0") + (version "1.27.0") (source (origin (method url-fetch) (uri (pypi-uri "git-review" version)) (sha256 (base32 - "150b1zvm6favd1ad8yl2bilq7xkr4m1mw9510frh47f8ghfkqz28")))) + "0xkllc8ql401sfqbjqf7i451mkgwgv0j4gysxdlyzqb27kfsyc3s")))) (build-system python-build-system) (arguments '(#:tests? #f ; tests require a running Gerrit server @@ -873,7 +874,8 @@ permanence.") `("PATH" ":" prefix ,(map (lambda (dir) (string-append dir "/bin")) - (list git openssh)))))))))) + (list git openssh))))) + #t))))) (native-inputs `(("python-pbr" ,python-pbr))) (propagated-inputs diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 8eb4e2eefe..05da8190b6 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -9,6 +9,7 @@ ;;; Copyright © 2018 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org> ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org> +;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; ;;; This file is part of GNU Guix. ;;; @@ -40,9 +41,9 @@ #:use-module (gnu packages cpio) #:use-module (gnu packages crypto) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages docbook) - #:use-module (gnu packages emacs) + #:use-module (gnu packages emacs-xyz) #:use-module (gnu packages file) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) @@ -63,7 +64,9 @@ #:use-module (gnu packages popt) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages serialization) + #:use-module (gnu packages sqlite) #:use-module (gnu packages ssh) #:use-module (gnu packages texinfo) #:use-module (gnu packages time) @@ -396,6 +399,12 @@ generated file." (_ #t))) +(define-public current-guix-package + ;; This parameter allows callers to override the package that 'current-guix' + ;; returns. This is useful when 'current-guix' cannot compute it by itself, + ;; for instance because it's not running from a source code checkout. + (make-parameter #f)) + (define-public current-guix (let* ((repository-root (canonicalize-path (string-append (current-source-directory) @@ -406,12 +415,13 @@ generated file." "Return a package representing Guix built from the current source tree. This works by adding the current source tree to the store (after filtering it out) and returning a package that uses that as its 'source'." - (package - (inherit guix) - (version (string-append (package-version guix) "+")) - (source (local-file repository-root "guix-current" - #:recursive? #t - #:select? (force select?))))))) + (or (current-guix-package) + (package + (inherit guix) + (version (string-append (package-version guix) "+")) + (source (local-file repository-root "guix-current" + #:recursive? #t + #:select? (force select?)))))))) ;;; @@ -731,9 +741,10 @@ environments.") (replace 'check (lambda _ (setenv "HOME" "/tmp") - (zero? (system* "py.test"))))))) + (invoke "py.test")))))) (native-inputs - `(("python-ruamel.yaml" ,python-ruamel.yaml) + `(("python-cytoolz" ,python-cytoolz) + ("python-ruamel.yaml" ,python-ruamel.yaml) ("python-requests" ,python-requests) ("python-pycosat" ,python-pycosat) ("python-pytest" ,python-pytest) @@ -784,7 +795,7 @@ This package provides Conda as a library.") ;; application form, rather than the default, library form. ;; With this, we are able to run commands like `conda --help` ;; directly on the command line - (zero? (system* "python" "utils/setup-testing.py" "build_py")))) + (invoke "python" "utils/setup-testing.py" "build_py"))) (replace 'install (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) @@ -800,8 +811,8 @@ This package provides Conda as a library.") ;; And it aborts if the directory doesn't exist. (mkdir-p target) - (zero? (system* "python" "utils/setup-testing.py" "install" - (string-append "--prefix=" out)))))) + (invoke "python" "utils/setup-testing.py" "install" + (string-append "--prefix=" out))))) ;; The "activate" and "deactivate" scripts don't need wrapping. ;; They also break when they are renamed. (add-after 'wrap 'undo-wrap diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm index f10fc76e9d..5b60ad9cc8 100644 --- a/gnu/packages/password-utils.scm +++ b/gnu/packages/password-utils.scm @@ -72,6 +72,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages suckless) #:use-module (gnu packages tls) #:use-module (gnu packages qt) diff --git a/gnu/packages/patches/kmscon-runtime-keymap-switch.patch b/gnu/packages/patches/kmscon-runtime-keymap-switch.patch new file mode 100644 index 0000000000..656c76fa40 --- /dev/null +++ b/gnu/packages/patches/kmscon-runtime-keymap-switch.patch @@ -0,0 +1,229 @@ +From 360d44d67e7be46108bec982ff2e79b89f04a9a3 Mon Sep 17 00:00:00 2001 +From: Mathieu Othacehe <m.othacehe@gmail.com> +Date: Thu, 15 Nov 2018 14:34:40 +0900 +Subject: [PATCH] add runtime keymap switch support. + +--- + src/pty.c | 23 ++++++++++- + src/uterm_input.c | 2 + + src/uterm_input_internal.h | 5 +++ + src/uterm_input_uxkb.c | 83 ++++++++++++++++++++++++++++++++++++++ + 4 files changed, 111 insertions(+), 2 deletions(-) + +diff --git a/src/pty.c b/src/pty.c +index 1443f4a..f64cb5b 100644 +--- a/src/pty.c ++++ b/src/pty.c +@@ -46,6 +46,8 @@ + + #define KMSCON_NREAD 16384 + ++#define INPUT_KEYMAP_UPDATE_FILE "/tmp/kmscon-%d-keymap-update" ++ + struct kmscon_pty { + unsigned long ref; + struct ev_eloop *eloop; +@@ -241,9 +243,22 @@ static bool pty_is_open(struct kmscon_pty *pty) + return pty->fd >= 0; + } + ++static int kmscon_keymap_update(pid_t pid) ++{ ++ char *file; ++ int ret; ++ ++ ret = asprintf(&file, INPUT_KEYMAP_UPDATE_FILE, pid); ++ if (ret < 0) ++ return ret; ++ ++ return setenv("KEYMAP_UPDATE", file, 1); ++} ++ + static void __attribute__((noreturn)) + exec_child(const char *term, const char *colorterm, char **argv, +- const char *seat, const char *vtnr, bool env_reset) ++ const char *seat, const char *vtnr, bool env_reset, ++ pid_t kmscon_pid) + { + char **env; + char **def_argv; +@@ -277,6 +292,8 @@ exec_child(const char *term, const char *colorterm, char **argv, + if (vtnr) + setenv("XDG_VTNR", vtnr, 1); + ++ kmscon_keymap_update(kmscon_pid); ++ + execve(argv[0], argv, environ); + + log_err("failed to exec child %s: %m", argv[0]); +@@ -383,12 +400,14 @@ static int pty_spawn(struct kmscon_pty *pty, int master, + unsigned short width, unsigned short height) + { + pid_t pid; ++ pid_t kmscon_pid; + struct winsize ws; + + memset(&ws, 0, sizeof(ws)); + ws.ws_col = width; + ws.ws_row = height; + ++ kmscon_pid = getpid(); + pid = fork(); + switch (pid) { + case -1: +@@ -397,7 +416,7 @@ static int pty_spawn(struct kmscon_pty *pty, int master, + case 0: + setup_child(master, &ws); + exec_child(pty->term, pty->colorterm, pty->argv, pty->seat, +- pty->vtnr, pty->env_reset); ++ pty->vtnr, pty->env_reset, kmscon_pid); + exit(EXIT_FAILURE); + default: + log_debug("forking child %d", pid); +diff --git a/src/uterm_input.c b/src/uterm_input.c +index 6fcbc4b..990a09d 100644 +--- a/src/uterm_input.c ++++ b/src/uterm_input.c +@@ -178,6 +178,8 @@ static void input_new_dev(struct uterm_input *input, + if (ret) + goto err_rcodepoints; + ++ uxkb_dev_keymap_update(dev); ++ + if (input->awake > 0) { + ret = input_wake_up_dev(dev); + if (ret) +diff --git a/src/uterm_input_internal.h b/src/uterm_input_internal.h +index 04e6cc9..ec44459 100644 +--- a/src/uterm_input_internal.h ++++ b/src/uterm_input_internal.h +@@ -39,6 +39,8 @@ + #include "shl_misc.h" + #include "uterm_input.h" + ++#define INPUT_KEYMAP_UPDATE_FILE "/tmp/kmscon-%d-keymap-update" ++ + enum uterm_input_device_capability { + UTERM_DEVICE_HAS_KEYS = (1 << 0), + UTERM_DEVICE_HAS_LEDS = (1 << 1), +@@ -62,6 +64,8 @@ struct uterm_input_dev { + + bool repeating; + struct ev_timer *repeat_timer; ++ struct ev_fd *fd_update; ++ int rupdate_fd; + }; + + struct uterm_input { +@@ -95,6 +99,7 @@ void uxkb_desc_destroy(struct uterm_input *input); + + int uxkb_dev_init(struct uterm_input_dev *dev); + void uxkb_dev_destroy(struct uterm_input_dev *dev); ++int uxkb_dev_keymap_update(struct uterm_input_dev *dev); + int uxkb_dev_process(struct uterm_input_dev *dev, + uint16_t key_state, + uint16_t code); +diff --git a/src/uterm_input_uxkb.c b/src/uterm_input_uxkb.c +index 925c755..4760972 100644 +--- a/src/uterm_input_uxkb.c ++++ b/src/uterm_input_uxkb.c +@@ -31,6 +31,9 @@ + #include <stdlib.h> + #include <string.h> + #include <unistd.h> ++#include <sys/types.h> ++#include <sys/stat.h> ++#include <fcntl.h> + #include <xkbcommon/xkbcommon.h> + #include "shl_hook.h" + #include "shl_llog.h" +@@ -178,6 +181,86 @@ static void timer_event(struct ev_timer *timer, uint64_t num, void *data) + shl_hook_call(dev->input->hook, dev->input, &dev->repeat_event); + } + ++static void uxkb_keymap_update_handler(struct ev_fd *fd, int mask, void *data) ++{ ++ struct uterm_input_dev *dev = data; ++ char in; ++ char keymap[3][255]; ++ int pos = 0; ++ int curr_keymap = 0; ++ int ret; ++ char *model, *layout, *variant; ++ ++ if (!(mask & EV_READABLE)) ++ return; ++ ++ memset(keymap, 0, sizeof(keymap)); ++ ++ model = keymap[0]; ++ layout = keymap[1]; ++ variant = keymap[2]; ++ ++ do { ++ ret = read(dev->rupdate_fd, &in, sizeof(in)); ++ if (ret <= 0) ++ break; ++ ++ keymap[curr_keymap][pos++] = in; ++ ++ if (in == '\0') { ++ curr_keymap++; ++ pos = 0; ++ } ++ } while (1); ++ ++ llog_info(dev->input, "HANDLER CALLED %s|%s|%s\n", ++ model, layout, variant); ++ uxkb_desc_init(dev->input, model, layout, variant, NULL, NULL); ++ ++ dev->state = xkb_state_new(dev->input->keymap); ++ if (!dev->state) { ++ llog_error(dev->input, "cannot create XKB state"); ++ return; ++ } ++} ++ ++int uxkb_dev_keymap_update(struct uterm_input_dev *dev) ++{ ++ int ret; ++ char *file; ++ int pid = getpid(); ++ ++ ret = asprintf(&file, INPUT_KEYMAP_UPDATE_FILE, pid); ++ if (ret < 0) ++ return ret; ++ ++ ret = mkfifo(file, S_IRWXU); ++ if (ret < 0) { ++ llog_warn(dev->input, "could not open fifo"); ++ return -EFAULT; ++ } ++ dev->rupdate_fd = open(file, O_RDONLY | O_NONBLOCK); ++ if (dev->rupdate_fd < 0) { ++ llog_warn(dev->input, "cannot open file %s (%d): %m", ++ file, errno); ++ return -EFAULT; ++ } ++ ++ setenv("KEYMAP_UPDATE", file, 1); ++ ++ ret = ev_eloop_new_fd(dev->input->eloop, &dev->fd_update, ++ dev->rupdate_fd, EV_READABLE, ++ uxkb_keymap_update_handler, dev); ++ if (ret) { ++ llog_error(dev->input, "could not init keymap update"); ++ close(dev->rupdate_fd); ++ dev->rupdate_fd = -1; ++ return ret; ++ } ++ ++ return 0; ++} ++ + int uxkb_dev_init(struct uterm_input_dev *dev) + { + int ret; +-- +2.17.1 + diff --git a/gnu/packages/patches/kodi-skip-test-449.patch b/gnu/packages/patches/kodi-skip-test-449.patch new file mode 100644 index 0000000000..a418239a7c --- /dev/null +++ b/gnu/packages/patches/kodi-skip-test-449.patch @@ -0,0 +1,53 @@ +This test fails regularly between 18.0rc3 and 18.0rc5.2 + +449/520 Test #449: TestWebServer.CanHeadFile................................................***Failed 0.90 sec +Note: Google Test filter = TestWebServer.CanHeadFile +[==========] Running 1 test from 1 test case. +[----------] Global test environment set-up. +[----------] 1 test from TestWebServer +[ RUN ] TestWebServer.CanHeadFile +/tmp/guix-build-kodi-18.0rc5.2.drv-0/kodi-18.0rc5.2-checkout/xbmc/network/test/TestWebServer.cpp:156: Failure + Expected: "4" +To be equal to: httpHeader.GetValue("Content-Length").c_str() + Which is: "0" +[ FAILED ] TestWebServer.CanHeadFile (6 ms) +[----------] 1 test from TestWebServer (6 ms total) + +[----------] Global test environment tear-down +[==========] 1 test from 1 test case ran. (635 ms total) +[ PASSED ] 0 tests. +[ FAILED ] 1 test, listed below: +[ FAILED ] TestWebServer.CanHeadFile + +--- + xbmc/network/test/TestWebServer.cpp | 14 +++++++------- + 1 file changed, 7 insertions(+), 7 deletions(-) + +diff --git a/xbmc/network/test/TestWebServer.cpp b/xbmc/network/test/TestWebServer.cpp +index a87d9f4..b2240f4 100644 +--- a/xbmc/network/test/TestWebServer.cpp ++++ b/xbmc/network/test/TestWebServer.cpp +@@ -520,13 +520,13 @@ TEST_F(TestWebServer, CanNotHeadNonExistingFile) + ASSERT_FALSE(curl.Exists(CURL(GetUrlOfTestFile("file_does_not_exist")))); + } + +-TEST_F(TestWebServer, CanHeadFile) +-{ +- CCurlFile curl; +- ASSERT_TRUE(curl.Exists(CURL(GetUrlOfTestFile(TEST_FILES_HTML)))); +- +- CheckHtmlTestFileResponse(curl); +-} ++//TEST_F(TestWebServer, CanHeadFile) ++//{ ++// CCurlFile curl; ++// ASSERT_TRUE(curl.Exists(CURL(GetUrlOfTestFile(TEST_FILES_HTML)))); ++// ++// CheckHtmlTestFileResponse(curl); ++//} + + TEST_F(TestWebServer, CanNotGetNonExistingFile) + { +-- +2.20.1 + diff --git a/gnu/packages/patches/libssh-hostname-parser-bug.patch b/gnu/packages/patches/libssh-hostname-parser-bug.patch deleted file mode 100644 index de2336e86d..0000000000 --- a/gnu/packages/patches/libssh-hostname-parser-bug.patch +++ /dev/null @@ -1,17 +0,0 @@ -It does not handle the case for the unsupported opcode (-1) -which would cause a segfault when accessing the "seen" array. - -diff --git a/src/config.c b/src/config.c -index c5313ec8..72e07639 100644 ---- a/src/config.c -+++ b/src/config.c -@@ -218,7 +218,8 @@ static int ssh_config_parse_line(ssh_session session, const char *line, - } - - opcode = ssh_config_get_opcode(keyword); -- if (*parsing == 1 && opcode != SOC_HOST) { -+ if (*parsing == 1 && opcode != SOC_HOST && -+ opcode > SOC_UNSUPPORTED && opcode < SOC_END) { - if (seen[opcode] != 0) { - return 0; - } diff --git a/gnu/packages/patches/opencv-rgbd-aarch64-test-fix.patch b/gnu/packages/patches/opencv-rgbd-aarch64-test-fix.patch new file mode 100644 index 0000000000..7792f8d1bf --- /dev/null +++ b/gnu/packages/patches/opencv-rgbd-aarch64-test-fix.patch @@ -0,0 +1,40 @@ +https://github.com/opencv/opencv_contrib/commit/8aaa91c3dc835690477d7777e66948dbf5a87edc.patch + +From 8aaa91c3dc835690477d7777e66948dbf5a87edc Mon Sep 17 00:00:00 2001 +From: Tomoaki Teshima <tomoaki.teshima@gmail.com> +Date: Mon, 5 Nov 2018 20:32:23 +0900 +Subject: [PATCH] avoid test failing on Aarch64 * loosen the threshold in + Rgbd_Normals.compute * make the minimum tvec larger in + RGBD_Odometry_Rgbd.algorithmic + +--- + modules/rgbd/test/test_normal.cpp | 2 +- + modules/rgbd/test/test_odometry.cpp | 2 +- + 2 files changed, 2 insertions(+), 2 deletions(-) + +diff --git a/modules/rgbd/test/test_normal.cpp b/modules/rgbd/test/test_normal.cpp +index f2233553a7..ed54f2cd98 100644 +--- a/modules/rgbd/test/test_normal.cpp ++++ b/modules/rgbd/test/test_normal.cpp +@@ -211,7 +211,7 @@ class CV_RgbdNormalsTest: public cvtest::BaseTest + std::cout << std::endl << "*** FALS" << std::endl; + errors[0][0] = 0.006f; + errors[0][1] = 0.03f; +- errors[1][0] = 0.00008f; ++ errors[1][0] = 0.0001f; + errors[1][1] = 0.02f; + break; + case 1: +diff --git a/modules/rgbd/test/test_odometry.cpp b/modules/rgbd/test/test_odometry.cpp +index 62b654a1ec..f5a2084504 100644 +--- a/modules/rgbd/test/test_odometry.cpp ++++ b/modules/rgbd/test/test_odometry.cpp +@@ -213,7 +213,7 @@ void CV_OdometryTest::generateRandomTransformation(Mat& rvec, Mat& tvec) + normalize(rvec, rvec, rng.uniform(0.007f, maxRotation)); + + randu(tvec, Scalar(-1000), Scalar(1000)); +- normalize(tvec, tvec, rng.uniform(0.007f, maxTranslation)); ++ normalize(tvec, tvec, rng.uniform(0.008f, maxTranslation)); + } + + void CV_OdometryTest::run(int) diff --git a/gnu/packages/patches/openssh-CVE-2018-20685.patch b/gnu/packages/patches/openssh-CVE-2018-20685.patch new file mode 100644 index 0000000000..463c08a9d4 --- /dev/null +++ b/gnu/packages/patches/openssh-CVE-2018-20685.patch @@ -0,0 +1,44 @@ +Fix CVE-2018-20685: + +https://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2018-20685 + +Patch copied from upstream source repository: + +https://github.com/openssh/openssh-portable/commit/6010c0303a422a9c5fa8860c061bf7105eb7f8b2 + +From 6010c0303a422a9c5fa8860c061bf7105eb7f8b2 Mon Sep 17 00:00:00 2001 +From: "djm@openbsd.org" <djm@openbsd.org> +Date: Fri, 16 Nov 2018 03:03:10 +0000 +Subject: [PATCH] upstream: disallow empty incoming filename or ones that refer + to the + +current directory; based on report/patch from Harry Sintonen + +OpenBSD-Commit-ID: f27651b30eaee2df49540ab68d030865c04f6de9 +--- + scp.c | 5 +++-- + 1 file changed, 3 insertions(+), 2 deletions(-) + +diff --git a/scp.c b/scp.c +index 60682c68..4f3fdcd3 100644 +--- a/scp.c ++++ b/scp.c +#@@ -1,4 +1,4 @@ +#-/* $OpenBSD: scp.c,v 1.197 2018/06/01 04:31:48 dtucker Exp $ */ +#+/* $OpenBSD: scp.c,v 1.198 2018/11/16 03:03:10 djm Exp $ */ +# /* +# * scp - secure remote copy. This is basically patched BSD rcp which +# * uses ssh to do the data transfer (instead of using rcmd). +@@ -1106,7 +1106,8 @@ sink(int argc, char **argv) + SCREWUP("size out of range"); + size = (off_t)ull; + +- if ((strchr(cp, '/') != NULL) || (strcmp(cp, "..") == 0)) { ++ if (*cp == '\0' || strchr(cp, '/') != NULL || ++ strcmp(cp, ".") == 0 || strcmp(cp, "..") == 0) { + run_err("error: unexpected filename: %s", cp); + exit(1); + } +-- +2.20.1 + diff --git a/gnu/packages/patchutils.scm b/gnu/packages/patchutils.scm index b655399345..09f5afbb28 100644 --- a/gnu/packages/patchutils.scm +++ b/gnu/packages/patchutils.scm @@ -19,6 +19,7 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu packages patchutils) + #:use-module (guix utils) #:use-module (guix packages) #:use-module (guix licenses) #:use-module (guix download) @@ -29,14 +30,19 @@ #:use-module (gnu packages ed) #:use-module (gnu packages base) #:use-module (gnu packages bash) + #:use-module (gnu packages check) #:use-module (gnu packages file) #:use-module (gnu packages gawk) #:use-module (gnu packages gettext) + #:use-module (gnu packages glib) + #:use-module (gnu packages gnome) + #:use-module (gnu packages gtk) #:use-module (gnu packages less) #:use-module (gnu packages mail) #:use-module (gnu packages ncurses) #:use-module (gnu packages perl) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages version-control) #:use-module (gnu packages xml)) @@ -120,7 +126,7 @@ listing the files modified by a patch.") (lambda _ (substitute* '("test/run" - "test/edit.test") + "test/edit.test") (("/bin/sh") (which "sh"))) #t)) (add-after 'install 'wrap-program @@ -238,3 +244,64 @@ hexadecimal and ASCII (or EBCDIC). It can also display two files at once, and highlight the differences between them. It works well with large files (up to 4 GiB).") (license gpl2+))) + +(define-public meld + (package + (name "meld") + (version "3.20.0") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/meld/" + (version-major+minor version) + "/meld-" version ".tar.xz")) + (sha256 + (base32 + "11khi1sg02k3b9qdag3r939cwi27cql4kjim7jhxf9ckfhpzwh6b")))) + (build-system python-build-system) + (native-inputs + `(("intltool" ,intltool) + ("xmllint" ,libxml2) + ("glib-compile-schemas" ,glib "bin") + ("python-pytest" ,python-pytest))) + (inputs + `(("python-cairo" ,python-pycairo) + ("python-gobject" ,python-pygobject) + ("gtksourceview" ,gtksourceview))) + (propagated-inputs + `(("dconf" ,dconf))) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; This setup.py script does not support one of the Python build + ;; system's default flags, "--single-version-externally-managed". + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (invoke "python" "setup.py" + ;; This setup.py runs gtk-update-icon-cache which we don't want. + "--no-update-icon-cache" + ;; "--no-compile-schemas" + "install" + (string-append "--prefix=" (assoc-ref outputs "out")) + "--root=/"))) + ;; The tests need to be run after installation. + (delete 'check) + (add-after 'install 'check + (lambda* (#:key inputs outputs #:allow-other-keys) + ;; Tests look for installed package + (add-installed-pythonpath inputs outputs) + ;; The tests fail when HOME=/homeless-shelter. + (setenv "HOME" "/tmp") + (invoke "py.test" "-v" "-k" + ;; TODO: Those tests fail, why? + "not test_classify_change_actions")))))) + (home-page "https://meldmerge.org/") + (synopsis "Compare files, directories and working copies") + (description "Meld is a visual diff and merge tool targeted at +developers. Meld helps you compare files, directories, and version controlled +projects. It provides two- and three-way comparison of both files and +directories, and has support for many popular version control systems. + +Meld helps you review code changes and understand patches. It might even help +you to figure out what is going on in that merge you keep avoiding.") + (license gpl2))) diff --git a/gnu/packages/pdf.scm b/gnu/packages/pdf.scm index 5572146fa9..2c9442db02 100644 --- a/gnu/packages/pdf.scm +++ b/gnu/packages/pdf.scm @@ -49,7 +49,6 @@ #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages djvu) #:use-module (gnu packages fontutils) #:use-module (gnu packages game-development) @@ -72,8 +71,10 @@ #:use-module (gnu packages photo) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages sdl) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages xdisorg) #:use-module (gnu packages xorg) diff --git a/gnu/packages/perl-compression.scm b/gnu/packages/perl-compression.scm new file mode 100644 index 0000000000..477f686755 --- /dev/null +++ b/gnu/packages/perl-compression.scm @@ -0,0 +1,154 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2014 John Darrington <jmd@gnu.org> +;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org> +;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017 Petter <petter@mykolab.ch> +;;; Copyright © 2017, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages perl-compression) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix utils) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system perl) + #:use-module (gnu packages) + #:use-module (gnu packages compression) + #:use-module (gnu packages perl) + #:use-module (gnu packages perl-check)) + +(define-public perl-compress-raw-bzip2 + (package + (name "perl-compress-raw-bzip2") + (version "2.081") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://cpan/authors/id/P/PM/PMQS/" + "Compress-Raw-Bzip2-" version ".tar.gz")) + (sha256 + (base32 + "081mpkjy688lg48997fqh3d7ja12vazmz02fw84495civg4vb4l6")))) + (build-system perl-build-system) + ;; TODO: Use our bzip2 package. + (home-page "https://metacpan.org/release/Compress-Raw-Bzip2") + (synopsis "Low-level interface to bzip2 compression library") + (description "This module provides a Perl interface to the bzip2 +compression library.") + (license license:perl-license))) + +(define-public perl-compress-raw-zlib + (package + (name "perl-compress-raw-zlib") + (version "2.081") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://cpan/authors/id/P/PM/PMQS/" + "Compress-Raw-Zlib-" version ".tar.gz")) + (sha256 + (base32 + "06rsm9ahp20xfyvd3jc69sd0k8vqysryxc6apzdbn96jbcsdwmp1")))) + (build-system perl-build-system) + (inputs + `(("zlib" ,zlib))) + (arguments + `(#:phases (modify-phases %standard-phases + (add-before + 'configure 'configure-zlib + (lambda* (#:key inputs #:allow-other-keys) + (call-with-output-file "config.in" + (lambda (port) + (format port " +BUILD_ZLIB = False +INCLUDE = ~a/include +LIB = ~:*~a/lib +OLD_ZLIB = False +GZIP_OS_CODE = AUTO_DETECT" + (assoc-ref inputs "zlib")))) + #t))))) + (home-page "https://metacpan.org/release/Compress-Raw-Zlib") + (synopsis "Low-level interface to zlib compression library") + (description "This module provides a Perl interface to the zlib +compression library.") + (license license:perl-license))) + +(define-public perl-io-compress + (package + (name "perl-io-compress") + (version "2.081") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://cpan/authors/id/P/PM/PMQS/" + "IO-Compress-" version ".tar.gz")) + (sha256 + (base32 + "1na66ns1g3nni0m9q5494ym4swr21hfgpv88mw8wbj2daiswf4aj")))) + (build-system perl-build-system) + (propagated-inputs + `(("perl-compress-raw-zlib" ,perl-compress-raw-zlib) ; >=2.081 + ("perl-compress-raw-bzip2" ,perl-compress-raw-bzip2))) ; >=2.081 + (home-page "https://metacpan.org/release/IO-Compress") + (synopsis "IO Interface to compressed files/buffers") + (description "IO-Compress provides a Perl interface to allow reading and +writing of compressed data created with the zlib and bzip2 libraries.") + (license license:perl-license))) + +(define-public perl-archive-extract + (package + (name "perl-archive-extract") + (version "0.80") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://cpan/authors/id/B/BI/BINGOS/Archive-Extract-" + version ".tar.gz")) + (sha256 + (base32 + "1x15j1q6w6z8hqyqgap0lz4qbq2174wfhksy1fdd653ccbaw5jr5")))) + (build-system perl-build-system) + (home-page "https://metacpan.org/release/Archive-Extract") + (synopsis "Generic archive extracting mechanism") + (description "It allows you to extract any archive file of the type .tar, +.tar.gz, .gz, .Z, tar.bz2, .tbz, .bz2, .zip, .xz,, .txz, .tar.xz or .lzma +without having to worry how it does so, or use different interfaces for each +type by using either Perl modules, or command-line tools on your system.") + (license license:perl-license))) + +(define-public perl-archive-zip + (package + (name "perl-archive-zip") + (version "1.64") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://cpan/authors/id/P/PH/PHRED/Archive-Zip-" + version ".tar.gz")) + (sha256 + (base32 + "0zfinh8nx3rxzscp57vq3w8hihpdb0zs67vvalykcf402kr88pyy")))) + (build-system perl-build-system) + (native-inputs + ;; For tests. + `(("perl-test-mockmodule" ,perl-test-mockmodule))) + (synopsis "Provides an interface to Zip archive files") + (description "The @code{Archive::Zip} module allows a Perl program to +create, manipulate, read, and write Zip archive files.") + (home-page "https://metacpan.org/release/Archive-Zip") + (license license:perl-license))) diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index eca39318a2..c4d9d64de3 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> -;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2016, 2017, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2016, 2017 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> ;;; Copyright © 2016, 2018 Mark H Weaver <mhw@netris.org> @@ -19,7 +19,7 @@ ;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> -;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> +;;; Copyright © 2018, 2019 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net> ;;; ;;; This file is part of GNU Guix. @@ -50,6 +50,7 @@ #:use-module (gnu packages compression) #:use-module (gnu packages freedesktop) #:use-module (gnu packages perl-check) + #:use-module (gnu packages perl-compression) #:use-module (gnu packages perl-web) #:use-module (gnu packages pkg-config)) @@ -9720,3 +9721,28 @@ lookup in %INC or by assuming it is $0 if the caller is @code{main} (description "Regexp::Pattern is a convention for organizing reusable regexp patterns in modules.") (license (package-license perl)))) + +(define-public perl-data-sexpression + (package + (name "perl-data-sexpression") + (version "0.41") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://cpan/authors/id/N/NE/NELHAGE/Data-SExpression-" + version ".tar.gz")) + (sha256 + (base32 + "16qls1yqcmhxrcx9agsmaypxa1nirq4nvbyzbww9984589m44ql1")))) + (build-system perl-build-system) + (native-inputs + `(("perl-module-install" ,perl-module-install) + ("perl-test-deep" ,perl-test-deep))) + (propagated-inputs + `(("perl-class-accessor" ,perl-class-accessor))) + (home-page "https://metacpan.org/release/Data-SExpression") + (synopsis "Parse Lisp S-Expressions into Perl data structures") + (description "Data::SExpression parses Lisp S-Expressions into Perl data +structures.") + (license perl-license))) diff --git a/gnu/packages/photo.scm b/gnu/packages/photo.scm index 5b6114e051..c7bb9afe29 100644 --- a/gnu/packages/photo.scm +++ b/gnu/packages/photo.scm @@ -37,7 +37,6 @@ #:use-module (gnu packages boost) #:use-module (gnu packages compression) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages gettext) #:use-module (gnu packages ghostscript) #:use-module (gnu packages gl) @@ -56,7 +55,9 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages popt) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tex) #:use-module (gnu packages web) #:use-module (gnu packages wxwidgets) diff --git a/gnu/packages/php.scm b/gnu/packages/php.scm index a96f1c2259..392ac92430 100644 --- a/gnu/packages/php.scm +++ b/gnu/packages/php.scm @@ -30,6 +30,7 @@ #:use-module (gnu packages curl) #:use-module (gnu packages cyrus-sasl) #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages fontutils) #:use-module (gnu packages gd) #:use-module (gnu packages gettext) @@ -42,6 +43,7 @@ #:use-module (gnu packages pcre) #:use-module (gnu packages pkg-config) #:use-module (gnu packages readline) + #:use-module (gnu packages sqlite) #:use-module (gnu packages textutils) #:use-module (gnu packages tls) #:use-module (gnu packages web) @@ -56,7 +58,7 @@ (define-public php (package (name "php") - (version "7.3.0") + (version "7.3.1") (home-page "https://secure.php.net/") (source (origin (method url-fetch) @@ -64,7 +66,7 @@ name "-" version ".tar.xz")) (sha256 (base32 - "1db0lm84hynilrjj3k1s7skp1y2gl4ip1ihr7662i2xgannmq6bx")) + "0qikydmjg8k68l56azq4vg3gkynqwlpzayd5qi9wsl03pr03xsfg")) (modules '((guix build utils))) (snippet '(with-directory-excursion "ext" @@ -222,6 +224,12 @@ ;; This bug should have been fixed in gd 2.2.2. ;; Is it a regression? "ext/gd/tests/bug65148.phpt" + ;; These tests should not be run (disabled because + ;; GD_BUNDLED = 0) + "ext/gd/tests/bug77198_auto.phpt" + "ext/gd/tests/bug77198_threshold.phpt" + "ext/gd/tests/bug77200.phpt" + "ext/gd/tests/bug77269.phpt" ;; TODO: Enable these when libgd is built with xpm support. "ext/gd/tests/xpm2gd.phpt" "ext/gd/tests/xpm2jpg.phpt" @@ -287,6 +295,10 @@ "ext/mbstring/tests/mb_ereg_variation3.phpt" "ext/mbstring/tests/mb_ereg_replace_variation1.phpt" "ext/mbstring/tests/bug72994.phpt" + "ext/mbstring/tests/bug77367.phpt" + "ext/mbstring/tests/bug77370.phpt" + "ext/mbstring/tests/bug77371.phpt" + "ext/mbstring/tests/bug77381.phpt" "ext/ldap/tests/ldap_set_option_error.phpt" ;; Sometimes cannot start the LDAP server. diff --git a/gnu/packages/polkit.scm b/gnu/packages/polkit.scm index 830006d439..0433b423eb 100644 --- a/gnu/packages/polkit.scm +++ b/gnu/packages/polkit.scm @@ -36,7 +36,6 @@ #:use-module (gnu packages linux) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python) #:use-module (gnu packages qt) #:use-module (gnu packages xml)) diff --git a/gnu/packages/protobuf.scm b/gnu/packages/protobuf.scm index 85e3170b98..028b2f21e1 100644 --- a/gnu/packages/protobuf.scm +++ b/gnu/packages/protobuf.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016 Daniel Pimentel <d4n1@d4n1.org> ;;; Copyright © 2016 Leo Famulari <leo@famulari.name> -;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. @@ -30,7 +30,8 @@ #:use-module (gnu packages gcc) #:use-module (gnu packages libevent) #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python)) + #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz)) (define-public fstrm (package @@ -108,6 +109,19 @@ yet extensible format. Google uses Protocol Buffers for almost all of its internal RPC protocols and file formats.") (license license:bsd-3))) +(define-public protobuf-next + (package (inherit protobuf) + (name "protobuf") + (version "3.6.1") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/google/protobuf/releases/" + "download/v" version "/protobuf-cpp-" + version ".tar.gz")) + (sha256 + (base32 + "0a955bz59ihrb5wg7dwi12xajdi5pmz4bl0g147rbdwv393jwwxk")))))) + ;; XXX Remove this old version when no other packages depend on it. (define-public protobuf-2 (package (inherit protobuf) diff --git a/gnu/packages/pulseaudio.scm b/gnu/packages/pulseaudio.scm index 35d499522b..7001a8137b 100644 --- a/gnu/packages/pulseaudio.scm +++ b/gnu/packages/pulseaudio.scm @@ -36,7 +36,7 @@ #:use-module (gnu packages autotools) #:use-module (gnu packages avahi) #:use-module (gnu packages check) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages glib) #:use-module (gnu packages gtk) #:use-module (gnu packages libcanberra) diff --git a/gnu/packages/python-compression.scm b/gnu/packages/python-compression.scm new file mode 100644 index 0000000000..e13227b616 --- /dev/null +++ b/gnu/packages/python-compression.scm @@ -0,0 +1,207 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2017 Nils Gillmann <ng0@n0.is> +;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu> +;;; Copyright © 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages python-compression) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix utils) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (guix build-system python) + #:use-module (gnu packages) + #:use-module (gnu packages compression) + #:use-module (gnu packages check) + #:use-module (gnu packages maths) + #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz)) + +(define-public python-lzo + (package + (name "python-lzo") + (version "1.12") + (source + (origin + (method url-fetch) + (uri (pypi-uri "python-lzo" version)) + (sha256 + (base32 + "0iakqgd51n1cd7r3lpdylm2rgbmd16y74cra9kcapwg84mlf9a4p")))) + (build-system python-build-system) + (arguments + `(#:test-target "check" + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-setuppy + (lambda _ + (substitute* "setup.py" + (("include_dirs.append\\(.*\\)") + (string-append "include_dirs.append('" + (assoc-ref %build-inputs "lzo") + "/include/lzo" + "')"))) + #t))))) + (inputs + `(("lzo" ,lzo))) + (home-page "https://github.com/jd-boyd/python-lzo") + (synopsis "Python bindings for the LZO data compression library") + (description + "Python-LZO provides Python bindings for LZO, i.e. you can access +the LZO library from your Python scripts thereby compressing ordinary +Python strings.") + (license license:gpl2+))) + +(define-public python2-lzo + (package-with-python2 python-lzo)) + +(define-public python-lz4 + (package + (name "python-lz4") + (version "0.10.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "lz4" version)) + (sha256 + (base32 + "0ghv1xbaq693kgww1x9c22bplz479ls9szjsaa4ig778ls834hm0")))) + (build-system python-build-system) + (native-inputs + `(("python-nose" ,python-nose) + ("python-setuptools-scm" ,python-setuptools-scm))) + (home-page "https://github.com/python-lz4/python-lz4") + (synopsis "LZ4 bindings for Python") + (description + "This package provides python bindings for the lz4 compression library +by Yann Collet. The project contains bindings for the LZ4 block format and +the LZ4 frame format.") + (license license:bsd-3))) + +(define-public python2-lz4 + (package-with-python2 python-lz4)) + +(define-public python-lzstring + (package + (name "python-lzstring") + (version "1.0.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "lzstring" version)) + (sha256 + (base32 + "18ly9pppy2yspxzw7k1b23wk77k7m44rz2g0271bqgqrk3jn3yhs")))) + (build-system python-build-system) + (propagated-inputs + `(("python-future" ,python-future))) + (home-page "https://github.com/gkovacs/lz-string-python") + (synopsis "String compression") + (description "Lz-string is a string compressor library for Python.") + (license license:expat))) + +(define-public python2-lzstring + (package-with-python2 python-lzstring)) + +(define-public bitshuffle + (package + (name "bitshuffle") + (version "0.3.5") + (source (origin + (method url-fetch) + (uri (pypi-uri "bitshuffle" version)) + (sha256 + (base32 + "1823x61kyax4dc2hjmc1xraskxi1193y8lvxd03vqv029jrj8cjy")) + (modules '((guix build utils))) + (snippet + '(begin + ;; Remove generated Cython files. + (delete-file "bitshuffle/h5.c") + (delete-file "bitshuffle/ext.c") + #t)))) + (build-system python-build-system) + (arguments + `(#:tests? #f ; fail: https://github.com/h5py/h5py/issues/769 + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-neon-detection + ;; Neon is only for aarch64 ATM + ;; see: https://github.com/kiyo-masui/bitshuffle/pull/73 + (lambda _ + (substitute* "src/bitshuffle_core.c" + (("#define USEARMNEON") + "#ifdef __aarch64__\n#define USEARMNEON\n#endif")) + #t)) + (add-after 'unpack 'dont-build-native + (lambda _ + (substitute* "setup.py" + (("'-march=native', ") "")) + #t))))) + (inputs + `(("numpy" ,python-numpy) + ("h5py" ,python-h5py) + ("hdf5" ,hdf5))) + (native-inputs + `(("cython" ,python-cython))) + (home-page "https://github.com/kiyo-masui/bitshuffle") + (synopsis "Filter for improving compression of typed binary data") + (description "Bitshuffle is an algorithm that rearranges typed, binary data +for improving compression, as well as a python/C package that implements this +algorithm within the Numpy framework.") + (license license:expat))) + +(define-public bitshuffle-for-snappy + (package + (inherit bitshuffle) + (name "bitshuffle-for-snappy") + (build-system gnu-build-system) + (arguments + (substitute-keyword-arguments (package-arguments bitshuffle) + ((#:tests? _ #f) #f) + ((#:phases phases) + `(modify-phases %standard-phases + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (with-output-to-file "Makefile" + (lambda _ + (format #t "\ +libbitshuffle.so: src/bitshuffle.o src/bitshuffle_core.o src/iochain.o lz4/lz4.o +\tgcc -O3 -ffast-math -std=c99 -o $@ -shared -fPIC $^ + +%.o: %.c +\tgcc -O3 -ffast-math -std=c99 -fPIC -Isrc -Ilz4 -c $< -o $@ + +PREFIX:=~a +LIBDIR:=$(PREFIX)/lib +INCLUDEDIR:=$(PREFIX)/include + +install: libbitshuffle.so +\tinstall -dm755 $(LIBDIR) +\tinstall -dm755 $(INCLUDEDIR) +\tinstall -m755 libbitshuffle.so $(LIBDIR) +\tinstall -m644 src/bitshuffle.h $(INCLUDEDIR) +\tinstall -m644 src/bitshuffle_core.h $(INCLUDEDIR) +\tinstall -m644 src/iochain.h $(INCLUDEDIR) +\tinstall -m644 lz4/lz4.h $(INCLUDEDIR) +" (assoc-ref outputs "out")))) + #t)))))) + (inputs '()) + (native-inputs '()))) diff --git a/gnu/packages/python-crypto.scm b/gnu/packages/python-crypto.scm index 0e0696c53f..9a20b5a772 100644 --- a/gnu/packages/python-crypto.scm +++ b/gnu/packages/python-crypto.scm @@ -48,6 +48,7 @@ #:use-module (gnu packages protobuf) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages time) #:use-module (gnu packages tls) #:use-module ((guix licenses) #:prefix license:) diff --git a/gnu/packages/python-web.scm b/gnu/packages/python-web.scm index 2c9e51f340..af0595b36d 100644 --- a/gnu/packages/python-web.scm +++ b/gnu/packages/python-web.scm @@ -58,6 +58,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages tls) #:use-module (gnu packages time) #:use-module (gnu packages web) diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm new file mode 100644 index 0000000000..770f5abc63 --- /dev/null +++ b/gnu/packages/python-xyz.scm @@ -0,0 +1,14840 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr> +;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org> +;;; Copyright © 2014, 2017 Eric Bavier <bavier@member.fsf.org> +;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch> +;;; Copyright © 2015 Omar Radwan <toxemicsquire4@gmail.com> +;;; Copyright © 2015 Pierre-Antoine Rault <par@rigelk.eu> +;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2016 Christopher Allan Webber <cwebber@dustycloud.org> +;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> +;;; Copyright © 2015, 2016 David Thompson <davet@gnu.org> +;;; Copyright © 2015, 2016, 2017 Leo Famulari <leo@famulari.name> +;;; Copyright © 2015, 2017 Ben Woodcroft <donttrustben@gmail.com> +;;; Copyright © 2015, 2016 Erik Edrosa <erik.edrosa@gmail.com> +;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2015, 2017 Kyle Meyer <kyle@kyleam.com> +;;; Copyright © 2015, 2016 Chris Marusich <cmmarusich@gmail.com> +;;; Copyright © 2016 Danny Milosavljevic <dannym+a@scratchpost.org> +;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org> +;;; Copyright © 2016, 2018 Hartmut Goebel <h.goebel@crazy-compilers.com> +;;; Copyright © 2016 Daniel Pimentel <d4n1@d4n1.org> +;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com> +;;; Copyright © 2016, 2017 Troy Sankey <sankeytms@gmail.com> +;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is> +;;; Copyright © 2016 Dylan Jeffers <sapientech@sapientech@openmailbox.org> +;;; Copyright © 2016 David Craven <david@craven.ch> +;;; Copyright © 2016, 2017, 2018 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2016, 2017 Stefan Reichör <stefan@xsteve.at> +;;; Copyright © 2016 Dylan Jeffers <sapientech@sapientech@openmailbox.org> +;;; Copyright © 2016, 2017 Alex Vong <alexvong1995@gmail.com> +;;; Copyright © 2016, 2017, 2018 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2016, 2017, 2018 Julien Lepiller <julien@lepiller.eu> +;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017 Thomas Danckaert <post@thomasdanckaert.be> +;;; Copyright © 2017 Carlo Zancanaro <carlo@zancanaro.id.au> +;;; Copyright © 2017 Frederick M. Muriithi <fredmanglis@gmail.com> +;;; Copyright © 2017, 2018 Adriano Peluso <catonano@gmail.com> +;;; Copyright © 2017 Ben Sturmfels <ben@sturm.com.au> +;;; Copyright © 2017, 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.org> +;;; Copyright © 2017 Roel Janssen <roel@gnu.org> +;;; Copyright © 2017, 2018 Kei Kebreau <kkebreau@posteo.net> +;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com> +;;; Copyright © 2017 Muriithi Frederick Muriuki <fredmanglis@gmail.com> +;;; Copyright © 2017 Brendan Tildesley <brendan.tildesley@openmailbox.org> +;;; Copyright © 2018 Ethan R. Jones <ethanrjones97@gmail.com +;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com> +;;; Copyright © 2018 Vijayalakshmi Vedantham <vijimay12@gmail.com> +;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org> +;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com> +;;; Copyright © 2016, 2018 Tomáš Čech <sleep_walker@gnu.org> +;;; Copyright © 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr> +;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> +;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2018 Luther Thompson <lutheroto@gmail.com> +;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages python-xyz) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (gnu packages) + #:use-module (gnu packages algebra) + #:use-module (gnu packages adns) + #:use-module (gnu packages attr) + #:use-module (gnu packages backup) + #:use-module (gnu packages bash) + #:use-module (gnu packages check) + #:use-module (gnu packages compression) + #:use-module (gnu packages crypto) + #:use-module (gnu packages databases) + #:use-module (gnu packages file) + #:use-module (gnu packages fontutils) + #:use-module (gnu packages gcc) + #:use-module (gnu packages geo) + #:use-module (gnu packages ghostscript) + #:use-module (gnu packages gl) + #:use-module (gnu packages glib) + #:use-module (gnu packages graphviz) + #:use-module (gnu packages graphics) + #:use-module (gnu packages gstreamer) + #:use-module (gnu packages gtk) + #:use-module (gnu packages icu4c) + #:use-module (gnu packages image) + #:use-module (gnu packages imagemagick) + #:use-module (gnu packages libevent) + #:use-module (gnu packages libffi) + #:use-module (gnu packages linux) + #:use-module (gnu packages llvm) + #:use-module (gnu packages man) + #:use-module (gnu packages maths) + #:use-module (gnu packages multiprecision) + #:use-module (gnu packages networking) + #:use-module (gnu packages ncurses) + #:use-module (gnu packages openstack) + #:use-module (gnu packages pcre) + #:use-module (gnu packages perl) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages python) + #:use-module (gnu packages python-crypto) + #:use-module (gnu packages python-web) + #:use-module (gnu packages qt) + #:use-module (gnu packages readline) + #:use-module (gnu packages sdl) + #:use-module (gnu packages search) + #:use-module (gnu packages shells) + #:use-module (gnu packages ssh) + #:use-module (gnu packages terminals) + #:use-module (gnu packages tex) + #:use-module (gnu packages texinfo) + #:use-module (gnu packages time) + #:use-module (gnu packages tls) + #:use-module (gnu packages version-control) + #:use-module (gnu packages video) + #:use-module (gnu packages web) + #:use-module (gnu packages base) + #:use-module (gnu packages xml) + #:use-module (gnu packages xorg) + #:use-module (gnu packages xdisorg) + #:use-module (gnu packages tcl) + #:use-module (gnu packages bdw-gc) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix git-download) + #:use-module (guix utils) + #:use-module (guix build-system gnu) + #:use-module (guix build-system cmake) + #:use-module (guix build-system python) + #:use-module (guix build-system trivial) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26)) + +(define-public python-psutil + (package + (name "python-psutil") + (version "5.4.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "psutil" version)) + (sha256 + (base32 + "063v69x7spyclyaxrd3gmzj3p16q5ayg97xqhwb1kyn22a9pwip2")))) + (build-system python-build-system) + (arguments + ;; FIXME: some tests does not return and times out. + '(#:tests? #f)) + (home-page "https://www.github.com/giampaolo/psutil") + (synopsis "Library for retrieving information on running processes") + (description + "psutil (Python system and process utilities) is a library for retrieving +information on running processes and system utilization (CPU, memory, disks, +network) in Python. It is useful mainly for system monitoring, profiling and +limiting process resources and management of running processes. It implements +many functionalities offered by command line tools such as: ps, top, lsof, +netstat, ifconfig, who, df, kill, free, nice, ionice, iostat, iotop, uptime, +pidof, tty, taskset, pmap.") + (properties `((python2-variant . ,(delay python2-psutil)))) + (license license:bsd-3))) + +(define-public python2-psutil + (let ((base (package-with-python2 (strip-python2-variant python-psutil)))) + (package + (inherit base) + (propagated-inputs + `(("python2-enum34" ,python2-enum34) ;optional + ,@(package-propagated-inputs base)))))) + +(define-public python-shapely + (package + (name "python-shapely") + (version "1.6.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Shapely" version)) + (sha256 + (base32 + "0svc58dzcw9gj92b4sgq35sdxkf85z0qwlzxarkzq4bp3h8jy58l")))) + (build-system python-build-system) + (native-inputs + `(("python-cython" ,python-cython) + ("python-matplotlib" ,python-matplotlib) + ("python-pytest" ,python-pytest) + ("python-pytest-cov" ,python-pytest-cov))) + (inputs + `(("geos" ,geos))) + (propagated-inputs + `(("python-numpy" ,python-numpy))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-geos-path + (lambda* (#:key inputs #:allow-other-keys) + (let ((geos (assoc-ref inputs "geos")) + (glibc (assoc-ref inputs ,(if (%current-target-system) + "cross-libc" "libc")))) + (substitute* "shapely/geos.py" + (("_lgeos = load_dll\\('geos_c', fallbacks=.*\\)") + (string-append "_lgeos = load_dll('geos_c', fallbacks=['" + geos "/lib/libgeos_c.so'])")) + (("free = load_dll\\('c'\\)\\.free") + (string-append "free = load_dll('c', fallbacks=['" + glibc "/lib/libc.so.6']).free")))) + #t))))) + (home-page "https://github.com/Toblerity/Shapely") + (synopsis "Library for the manipulation and analysis of geometric objects") + (description "Shapely is a Python package for manipulation and analysis of +planar geometric objects. It is based on the @code{GEOS} library.") + (license license:bsd-3))) + +(define-public python-logwrap + (package + (name "python-logwrap") + (version "3.2.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "logwrap" version ".zip")) + (sha256 + (base32 + "1d2k0hvpbi51vl410y8fbs5m0nxnlh2k7gr2nrh3k81ibhzscsra")))) + (build-system python-build-system) + (propagated-inputs + `(("python-six" ,python-six) + ("python-typing" ,python-typing))) + (native-inputs + `(("unzip" ,unzip) + ("python-cython" ,python-cython) + ("python-pytest" ,python-pytest) + ("python-pytest-cov" ,python-pytest-cov) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://github.com/penguinolog/logwrap") + (synopsis "Decorator for logging function arguments") + (description "This package provides a decorator to log function arguments +and function call return values in a human-readable way.") + (license license:asl2.0))) + +(define-public python2-shapely + (package-with-python2 python-shapely)) + +(define-public python-clyent + (package + (name "python-clyent") + (version "1.2.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "clyent" version)) + (sha256 + (base32 + "1r9987qmy1pz3hq54160bapqsywpq14waw4w9x3ly8hmq7kpgfbj")))) + (build-system python-build-system) + (native-inputs + `(("python-mock" ,python-mock))) + (home-page "https://github.com/binstar/clyent") + (synopsis "Command line client library") + (description "Clyent is a Python command line utiliy library. It is used +by @code{binstar}, @code{binstar-build} and @code{chalmers}.") + (license license:bsd-3))) + +(define-public python2-clyent + (package-with-python2 python-clyent)) + +(define-public python-babel + (package + (name "python-babel") + (version "2.6.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Babel" version)) + (sha256 + (base32 + "08rxmbx2s4irp0w0gmn498vns5xy0fagm0fg33xa772jiks51flc")))) + (build-system python-build-system) + (native-inputs + `(("python-freezegun" ,python-freezegun) + ("python-pytest" ,python-pytest))) + (propagated-inputs + `(("python-pytz" ,python-pytz))) + (arguments + `(#:phases (modify-phases %standard-phases + (replace 'check + (lambda _ (invoke "pytest" "-vv")))))) + (home-page "http://babel.pocoo.org/") + (synopsis + "Tools for internationalizing Python applications") + (description + "Babel is composed of two major parts: +- tools to build and work with gettext message catalogs +- a Python interface to the CLDR (Common Locale Data Repository), providing +access to various locale display names, localized number and date formatting, +etc. ") + (license license:bsd-3))) + +(define-public python2-babel + (package-with-python2 python-babel)) + +(define-public python2-backport-ssl-match-hostname + (package + (name "python2-backport-ssl-match-hostname") + (version "3.5.0.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/source/b/" + "backports.ssl_match_hostname/backports.ssl_match_hostname-" + version ".tar.gz")) + (sha256 + (base32 + "1wndipik52cyqy0677zdgp90i435pmvwd89cz98lm7ri0y3xjajh")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + #:tests? #f)) ; no test target + (home-page "https://bitbucket.org/brandon/backports.ssl_match_hostname") + (synopsis "Backport of ssl.match_hostname() function from Python 3.5") + (description + "This backport brings the ssl.match_hostname() function to users of +earlier versions of Python. The function checks the hostname in the +certificate returned by the server to which a connection has been established, +and verifies that it matches the intended target hostname.") + (license license:psfl))) + +(define-public python-hdf4 + (package + (name "python-hdf4") + (version "0.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri name version)) + (sha256 + (base32 + "1hjiyrxvxk9817qyqky3nar4y3fs4z8wxz0n884zzb5wi6skrjks")))) + (build-system python-build-system) + (native-inputs `(("nose" ,python-nose))) + (propagated-inputs `(("numpy" ,python-numpy))) + (inputs + `(("hdf4" ,hdf4) + ("libjpeg" ,libjpeg) + ("zlib" ,zlib))) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + ;; The 'runexamples' script sets PYTHONPATH to CWD, then goes + ;; on to import numpy. Somehow this works on their CI system. + ;; Let's just manage PYTHONPATH here instead. + (substitute* "runexamples.sh" + (("export PYTHONPATH=.*") "")) + (setenv "PYTHONPATH" + (string-append (getcwd) ":" + (getenv "PYTHONPATH"))) + (invoke "./runexamples.sh") + (invoke "nosetests" "-v")))))) + (home-page "https://github.com/fhs/python-hdf4") + (synopsis "Python interface to the NCSA HDF4 library") + (description + "Python-HDF4 is a python wrapper around the NCSA HDF version 4 library, +which implements the SD (Scientific Dataset), VS (Vdata) and V (Vgroup) API’s. +NetCDF files can also be read and modified. Python-HDF4 is a fork of +@url{http://hdfeos.org/software/pyhdf.php,pyhdf}.") + (license license:expat))) + +(define-public python2-hdf4 + (package-with-python2 python-hdf4)) + +(define-public python-h5py + (package + (name "python-h5py") + (version "2.8.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "h5py" version)) + (sha256 + (base32 + "0mdr6wrq02ac93m1aqx9kad0ppfzmm4imlxqgyy1x4l7hmdcc9p6")))) + (build-system python-build-system) + (arguments + `(#:tests? #f ; no test target + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-hdf5-paths + (lambda* (#:key inputs #:allow-other-keys) + (let ((prefix (assoc-ref inputs "hdf5"))) + (substitute* "setup_build.py" + (("\\['/opt/local/lib', '/usr/local/lib'\\]") + (string-append "['" prefix "/lib" "']")) + (("'/opt/local/include', '/usr/local/include'") + (string-append "'" prefix "/include" "'"))) + (substitute* "setup_configure.py" + (("\\['/usr/local/lib', '/opt/local/lib'\\]") + (string-append "['" prefix "/lib" "']"))) + #t)))))) + (propagated-inputs + `(("python-six" ,python-six) + ("python-numpy" ,python-numpy))) + (inputs + `(("hdf5" ,hdf5))) + (native-inputs + `(("python-cython" ,python-cython) + ("python-pkgconfig" ,python-pkgconfig))) + (home-page "http://www.h5py.org/") + (synopsis "Read and write HDF5 files from Python") + (description + "The h5py package provides both a high- and low-level interface to the +HDF5 library from Python. The low-level interface is intended to be a +complete wrapping of the HDF5 API, while the high-level component supports +access to HDF5 files, datasets and groups using established Python and NumPy +concepts.") + (license license:bsd-3))) + +(define-public python2-h5py + (package-with-python2 python-h5py)) + +(define-public python-netcdf4 + (package + (name "python-netcdf4") + (version "1.2.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "netCDF4" version)) + (sha256 + (base32 + "1h6jq338amlbk0ilzvjyl7cck80i0bah9a5spn9in71vy2qxm7i5")))) + (build-system python-build-system) + (native-inputs + `(("python-cython" ,python-cython))) + (propagated-inputs + `(("python-numpy" ,python-numpy))) + (inputs + `(("netcdf" ,netcdf) + ("hdf4" ,hdf4) + ("hdf5" ,hdf5))) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (setenv "NO_NET" "1") ; disable opendap tests + (with-directory-excursion "test" + (setenv "PYTHONPATH" ; find and add the library we just built + (string-append + (car (find-files "../build" "lib.*" + #:directories? #:t + #:fail-on-error? #:t)) + ":" (getenv "PYTHONPATH"))) + (zero? (system* "python" "run_all.py")))))))) + (home-page + "https://github.com/Unidata/netcdf4-python") + (synopsis "Python/numpy interface to the netCDF library") + (description "Netcdf4-python is a Python interface to the netCDF C +library. netCDF version 4 has many features not found in earlier +versions of the library and is implemented on top of HDF5. This module +can read and write files in both the new netCDF 4 and the old netCDF 3 +format, and can create files that are readable by HDF5 clients. The +API is modelled after @code{Scientific.IO.NetCDF}, and should be familiar +to users of that module.") + ;; The software is mainly ISC, but includes some files covered + ;; by the Expat license. + (license (list license:isc license:expat)))) + +(define-public python2-netcdf4 + (package-with-python2 python-netcdf4)) + +(define-public python-lockfile + (package + (name "python-lockfile") + (version "0.12.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://pypi.python.org/packages/source/l/lockfile/" + "lockfile-" version ".tar.gz")) + (sha256 + (base32 + "16gpx5hm73ah5n1079ng0vy381hl802v606npkx4x8nb0gg05vba")))) + (build-system python-build-system) + (arguments '(#:test-target "check")) + (native-inputs + `(("python-pbr" ,python-pbr))) + (home-page "https://launchpad.net/pylockfile") + (synopsis "Platform-independent file locking module") + (description + "The lockfile package exports a LockFile class which provides a simple +API for locking files.") + (license license:expat))) + +(define-public python2-lockfile + (package-with-python2 python-lockfile)) + +(define-public python-semantic-version + (package + (name "python-semantic-version") + (version "2.6.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "semantic_version" version)) + (sha256 + (base32 + "1h2l9xyg1zzsda6kjcmfcgycbvrafwci283vcr1v5sbk01l2hhra")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ; PyPI tarball lacks tests + (home-page "https://github.com/rbarrois/python-semanticversion") + (synopsis "Semantic versioning module for Python") + (description + "The @code{semantic_version} class is a small library for handling +@uref{https://semver.org/, semantic versioning} (@dfn{SemVer}) in Python. + +It can compare versions, generate a new version that represents a bump in one of +the version levels, and check whether any given string is a proper semantic +version identifier.") + (license license:bsd-3))) + +(define-public python2-semantic-version + (package-with-python2 python-semantic-version)) + +(define-public python-serpent + (package + (name "python-serpent") + (version "1.27") + (source + (origin + (method url-fetch) + (uri (pypi-uri "serpent" version)) + (sha256 + (base32 + "04p9dsrm5pv8vhk3flvih55kgvlzpi38hlaykdiakddmgwqw93bg")))) + (build-system python-build-system) + (home-page "https://github.com/irmen/Serpent") + (synopsis "Serializer for literal Python expressions") + (description + "Serpent provides ast.literal_eval() compatible object tree +serialization. It serializes an object tree into bytes (utf-8 encoded string) +that can be decoded and then passed as-is to ast.literal_eval() to rebuild it +as the original object tree. As such it is safe to send serpent data to other +machines over the network for instance (because only safe literals are +encoded).") + (license license:expat))) + +(define-public python-setuptools + (package + (name "python-setuptools") + (version "40.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "setuptools" version ".zip")) + (sha256 + (base32 + "0pq116lr14gnc62v76nk0npkm6krb2mpp7p9ab369zgv4n7dnah1")) + (modules '((guix build utils))) + (snippet + '(begin + ;; Remove included binaries which are used to build self-extracting + ;; installers for Windows. + ;; TODO: Find some way to build them ourself so we can include them. + (for-each delete-file (find-files "setuptools" "^(cli|gui).*\\.exe$")) + #t)))) + (build-system python-build-system) + ;; FIXME: Tests require pytest, which itself relies on setuptools. + ;; One could bootstrap with an internal untested setuptools. + (arguments + `(#:tests? #f)) + (home-page "https://pypi.python.org/pypi/setuptools") + (synopsis + "Library designed to facilitate packaging Python projects") + (description + "Setuptools is a fully-featured, stable library designed to facilitate +packaging Python projects, where packaging includes: +Python package and module definitions, +distribution package metadata, +test hooks, +project installation, +platform-specific details, +Python 3 support.") + ;; TODO: setuptools now bundles the following libraries: + ;; packaging, pyparsing, six and appdirs. How to unbundle? + (license (list license:psfl ; setuptools itself + license:expat ; six, appdirs, pyparsing + license:asl2.0 ; packaging is dual ASL2/BSD-2 + license:bsd-2)))) + +(define-public python2-setuptools + (package-with-python2 python-setuptools)) + +(define-public python-uniseg + (package + (name "python-uniseg") + (version "0.7.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "uniseg" version ".zip")) + (sha256 + (base32 + "05jsazvz6nbmh6l3v1rph5ydkqn1hzx1pyggdyvgp2qgmgrnmiz2")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; The test suite requires network access. + (native-inputs + `(("unzip" ,unzip))) + (home-page + "https://bitbucket.org/emptypage/uniseg-python") + (synopsis + "Python library to determine Unicode text segmentations") + (description + "Uniseg is a Python package used to determine Unicode text segmentations. +Supported segmentations include: +@enumerate +@item @dfn{Code point} (any value in the Unicode codespace) +@item @dfn{Grapheme cluster} (user-perceived character made of a single or +multiple Unicode code points, e.g. \"G\" + acute-accent) +@item Word break +@item Sentence break +@item Line break +@end enumerate") + (license license:expat))) + +(define-public python2-uniseg + (package-with-python2 python-uniseg)) + +(define-public python-humanfriendly + (package + (name "python-humanfriendly") + (version "4.4.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "humanfriendly" version)) + (sha256 + (base32 + "0pisgizjql86785jchfjv217g0lsgk114g2lja5j4y3lsc3b9szi")))) + (build-system python-build-system) + (arguments + `(;; XXX: Tests depend on coloredlogs, which in turn depends on humanfriendly. + #:tests? #f)) + (propagated-inputs + `(("python-monotonic" ,python-monotonic))) + (home-page "https://humanfriendly.readthedocs.io") + (synopsis "Human-friendly input and output in Python") + (description + "The functions and classes in @code{humanfriendly} can be used to make +text interfaces more user-friendly. It includes tools to parse and format +numbers, file sizes, and timespans, timers for long-running operations, menus +to allow the user to choose from a list of options, and terminal interaction +helpers.") + (license license:expat))) + +(define-public python2-humanfriendly + (package-with-python2 python-humanfriendly)) + +(define-public python-capturer + (package + (name "python-capturer") + (version "2.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "capturer" version)) + (sha256 + (base32 + "05d6ji4j8ipiq0br7bwam38qc6hd9l1djmfxlzrxx19ziyjl4089")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) + (propagated-inputs + `(("python-humanfriendly" ,python-humanfriendly))) + (home-page "https://capturer.readthedocs.io") + (synopsis "Capture stdout and stderr streams of the current process") + (description + "The capturer package makes it easy to capture the stdout and stderr +streams of the current process and subprocesses. Output can be relayed +to the terminal in real time but is also available to the Python program +for additional processing.") + (license license:expat))) + +(define-public python2-capturer + (package-with-python2 python-capturer)) + +(define-public python-case + (package + (name "python-case") + (version "1.5.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "case" version)) + (sha256 + (base32 + "1cagg06vfph864s6l5jb0zqliwxh647bki8j6lf4a4qrv40jnhs8")))) + (build-system python-build-system) + (propagated-inputs + `(("python-mock" ,python-mock) + ("python-nose" ,python-nose) + ("python-six" ,python-six) + ("python-unittest2" ,python-unittest2))) + (native-inputs + `(("python-coverage" ,python-coverage))) + (home-page "https://github.com/celery/case") + (synopsis "Unittest utilities and convenience methods") + (description + "The @code{case} package provides utilities on top of unittest, including +some helpful Python 2 compatibility convenience methods.") + (license license:bsd-3))) + +(define-public python-verboselogs + (package + (name "python-verboselogs") + (version "1.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "verboselogs" version)) + (sha256 + (base32 + "09z4d1jiasn7k1hs5af2ckmnrd0i1d1m04bhfjhv7z6svzfdwgg3")))) + (build-system python-build-system) + (native-inputs + `(("python-mock" ,python-mock) + ("python-astroid" ,python-astroid) + ("python-pylint" ,python-pylint))) + (home-page "https://verboselogs.readthedocs.io") + (synopsis "Verbose logging level for Python's logging module") + (description + "The @code{verboselogs} package extends Python's @code{logging} module to +add the log levels NOTICE, SPAM, SUCCESS and VERBOSE.") + (license license:expat))) + +(define-public python2-verboselogs + (package-with-python2 python-verboselogs)) + +(define-public python-coloredlogs + (package + (name "python-coloredlogs") + (version "7.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "coloredlogs" version)) + (sha256 + (base32 + "1blcann6dyg5dhps9pg12rn0q0rjrlajpmmil0gy0j4cbvnl2il9")))) + (build-system python-build-system) + (arguments + `(;Tests require some updated modules + #:tests? #f)) + (propagated-inputs + `(("python-capturer" ,python-capturer))) + (home-page "https://coloredlogs.readthedocs.io") + (synopsis "Colored stream handler for Python's logging module") + (description + "The @code{coloredlogs} package enables colored terminal output for +Python's logging module. The @code{ColoredFormatter} class inherits from +@code{logging.Formatter} and uses ANSI escape sequences to render your logging +messages in color.") + (license license:expat))) + +(define-public python2-coloredlogs + (package-with-python2 python-coloredlogs)) + +(define-public python-eventlet + (package + (name "python-eventlet") + (version "0.20.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "eventlet" version)) + (sha256 + (base32 + "0f3q55mq4n021wb7qa53pz3ix6i2py64sap66vsaqm2scjw83m9s")))) + (build-system python-build-system) + (propagated-inputs + `(("python-greenlet" ,python-greenlet))) + (arguments + ;; TODO: Requires unpackaged 'enum-compat'. + '(#:tests? #f)) + (home-page "http://eventlet.net") + (synopsis "Concurrent networking library for Python") + (description + "Eventlet is a concurrent networking library for Python that +allows you to change how you run your code, not how you write it. +It uses @code{epoll} or @code{libevent} for highly scalable non-blocking I/O. +Coroutines ensure that the developer uses a blocking style of programming +that is similar to threading, but provide the benefits of non-blocking I/O. +The event dispatch is implicit, which means you can easily use @code{Eventlet} +from the Python interpreter, or as a small part of a larger application.") + (license license:expat))) + +(define-public python2-eventlet + (let ((base (package-with-python2 + (strip-python2-variant python-eventlet)))) + (package (inherit base) + (propagated-inputs + `(("python2-enum34" ,python2-enum34) + ,@(package-propagated-inputs base)))))) + +(define-public python-six + (package + (name "python-six") + (version "1.11.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "six" version)) + (sha256 + (base32 + "1scqzwc51c875z23phj48gircqjgnn3af8zy2izjwmnlxrxsgs3h")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (invoke "py.test" "-v")))))) + (native-inputs + `(("python-py" ,python-py) + ("python-pytest" ,python-pytest-bootstrap))) + (home-page "https://pypi.python.org/pypi/six/") + (synopsis "Python 2 and 3 compatibility utilities") + (description + "Six is a Python 2 and 3 compatibility library. It provides utility +functions for smoothing over the differences between the Python versions with +the goal of writing Python code that is compatible on both Python versions. +Six supports every Python version since 2.5. It is contained in only one +Python file, so it can be easily copied into your project.") + (license license:x11))) + +(define-public python2-six + (package-with-python2 python-six)) + +(define-public python-six-bootstrap + (package + (inherit python-six) + (name "python-six-bootstrap") + (native-inputs `()) + (arguments `(#:tests? #f)))) + +(define-public python2-six-bootstrap + (package-with-python2 python-six-bootstrap)) + +(define-public python-schedule + (package + (name "python-schedule") + (version "0.4.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "schedule" version)) + (sha256 + (base32 + "0vplyjcbfrq50sphlwya749z8p2pcyi2nycw3518i0qpd9a6189i")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-mock" ,python-mock))) + (home-page "https://github.com/dbader/schedule") + (synopsis "Schedule periodic function calls in Python") + (description + "Schedule is an in-process scheduler for periodic jobs that uses the +builder pattern for configuration. Schedule lets you run Python functions (or +any other callable) periodically at pre-determined intervals using a simple, +human-friendly syntax.") + (license license:expat))) + +(define-public python2-schedule + (package-with-python2 python-schedule)) + +(define-public python-pandas + (package + (name "python-pandas") + (version "0.23.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pandas" version)) + (sha256 + (base32 "1x54pd7hr3y7qahx6b5bf2wzj54xvl8r3s1h4pl254pnmi3wl92v")))) + (build-system python-build-system) + (arguments + `(#:modules ((guix build utils) + (guix build python-build-system) + (ice-9 ftw) + (srfi srfi-26)) + #:phases (modify-phases %standard-phases + (replace 'check + (lambda _ + (let ((build-directory + (string-append + (getcwd) "/build/" + (car (scandir "build" + (cut string-prefix? "lib." <>)))))) + ;; Disable the "strict data files" option which causes + ;; the build to error out if required data files are not + ;; available (as is the case with PyPI archives). + (substitute* "setup.cfg" + (("addopts = --strict-data-files") "addopts = ")) + (with-directory-excursion build-directory + ;; Delete tests that require "moto" which is not yet in Guix. + (for-each delete-file + '("pandas/tests/io/conftest.py" + "pandas/tests/io/json/test_compression.py" + "pandas/tests/io/parser/test_network.py" + "pandas/tests/io/test_excel.py" + "pandas/tests/io/test_parquet.py")) + (invoke "pytest" "-vv" "pandas" "--skip-slow" + "--skip-network" "-k" + ;; XXX: Due to the deleted tests above. + "not test_read_s3_jsonl")))))))) + (propagated-inputs + `(("python-numpy" ,python-numpy) + ("python-pytz" ,python-pytz) + ("python-dateutil" ,python-dateutil))) + (native-inputs + `(("python-cython" ,python-cython) + ("python-beautifulsoup4" ,python-beautifulsoup4) + ("python-lxml" ,python-lxml) + ("python-html5lib" ,python-html5lib) + ("python-nose" ,python-nose) + ("python-pytest" ,python-pytest))) + (home-page "https://pandas.pydata.org") + (synopsis "Data structures for data analysis, time series, and statistics") + (description + "Pandas is a Python package providing fast, flexible, and expressive data +structures designed to make working with structured (tabular, +multidimensional, potentially heterogeneous) and time series data both easy +and intuitive. It aims to be the fundamental high-level building block for +doing practical, real world data analysis in Python.") + (license license:bsd-3))) + +(define-public python2-pandas + (package-with-python2 python-pandas)) + +(define-public python2-mechanize + (package + (name "python2-mechanize") + (version "0.2.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://pypi.python.org/packages/source/m/mechanize/mechanize-" + version ".tar.gz")) + (sha256 + (base32 + "0rj7r166i1dyrq0ihm5rijfmvhs8a04im28lv05c0c3v206v4rrf")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 ; apparently incompatible with Python 3 + #:tests? #f)) + ;; test fails with message + ;; AttributeError: 'module' object has no attribute 'test_pullparser' + ;; (python-3.3.2) or + ;; AttributeError: 'module' object has no attribute 'test_urllib2_localnet' + ;; (python-2.7.5). + ;; The source code is from March 2011 and probably not up-to-date + ;; with respect to python unit tests. + (home-page "http://wwwsearch.sourceforge.net/mechanize/") + (synopsis + "Stateful programmatic web browsing in Python") + (description + "Mechanize implements stateful programmatic web browsing in Python, +after Andy Lester’s Perl module WWW::Mechanize.") + (license (license:non-copyleft + "file://COPYING" + "See COPYING in the distribution.")))) + + +(define-public python-simplejson + (package + (name "python-simplejson") + (version "3.14.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "simplejson" version)) + (sha256 + (base32 + "1lkv3xlf7ryzi69zqfdbkvpxdfy1rg1rq2yzcnxgf4km5m6difqy")))) + (build-system python-build-system) + (home-page "http://simplejson.readthedocs.org/en/latest/") + (synopsis + "Json library for Python") + (description + "JSON (JavaScript Object Notation) is a subset of JavaScript +syntax (ECMA-262 3rd edition) used as a lightweight data interchange +format. + +Simplejson exposes an API familiar to users of the standard library marshal +and pickle modules. It is the externally maintained version of the json +library contained in Python 2.6, but maintains compatibility with Python 2.5 +and (currently) has significant performance advantages, even without using +the optional C extension for speedups. Simplejson is also supported on +Python 3.3+.") + (license license:x11))) + +(define-public python2-simplejson + (package-with-python2 python-simplejson)) + + +(define-public python-pyicu + (package + (name "python-pyicu") + (version "2.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "PyICU" version)) + (sha256 + (base32 + "0wq9y5fi1ighgf5aws9nr87vi1w44p7q1k83rx2y3qj5d2xyhspa")))) + (build-system python-build-system) + (inputs + `(("icu4c" ,icu4c))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-six" ,python-six))) + (home-page "https://github.com/ovalhub/pyicu") + (synopsis "Python extension wrapping the ICU C++ API") + (description + "PyICU is a python extension wrapping the ICU C++ API.") + (properties `((python2-variant . ,(delay python2-pyicu)))) + (license license:x11))) + +(define-public python2-pyicu + (let ((base (package-with-python2 + (strip-python2-variant python-pyicu)))) + (package + (inherit base) + (arguments + `(,@(package-arguments base) + #:phases + (modify-phases %standard-phases + (add-before 'check 'delete-failing-test + (λ _ + ;; XXX: This fails due to Unicode issues unique to Python 2, + ;; it seems: <https://github.com/ovalhub/pyicu/issues/61>. + (delete-file "test/test_Script.py") + #t)))))))) + +(define-public python2-dogtail + ;; Python 2 only, as it leads to "TabError: inconsistent use of tabs and + ;; spaces in indentation" with Python 3. + (package + (name "python2-dogtail") + (version "0.9.9") + (source (origin + (method url-fetch) + (uri (pypi-uri "dogtail" version)) + (sha256 + (base32 + "0p5wfssvzr9w0bvhllzbbd8fnp4cca2qxcpcsc33dchrmh5n552x")))) + (build-system python-build-system) + (arguments `(#:python ,python-2 + #:tests? #f)) ; invalid command "test" + ;; Currently no offical homepage. + (home-page "https://pypi.python.org/pypi/dogtail/") + (synopsis "GUI test tool and automation framework written in Python") + (description + "Dogtail is a GUI test tool and automation framework written in Python. +It uses Accessibility (a11y) technologies to communicate with desktop +applications. dogtail scripts are written in Python and executed like any +other Python program.") + (license license:gpl2+))) + +(define-public python-empy + (package + (name "python-empy") + (version "3.3") + (source (origin + (method url-fetch) + (uri (string-append "http://www.alcyone.com/software/empy/empy-" + version ".tar.gz")) + (sha256 + (base32 + "01g8mmkfnvjdmlhsihwyx56lrg7r5m5d2fg6mnxsvy6g0dnl69f6")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ;python2 only + (home-page "http://www.alcyone.com/software/empy/") + (synopsis "Templating system for Python") + (description + "EmPy is a system for embedding Python expressions and statements in +template text; it takes an EmPy source file, processes it, and produces +output. This is accomplished via expansions, which are special signals to the +EmPy system and are set off by a special prefix (by default the at sign, @@). +EmPy can expand arbitrary Python expressions and statements in this way, as +well as a variety of special forms. Textual data not explicitly delimited in +this way is sent unaffected to the output, allowing Python to be used in +effect as a markup language. Also supported are callbacks via hooks, +recording and playback via diversions, and dynamic, chainable filters. The +system is highly configurable via command line options and embedded +commands.") + (license license:lgpl2.1+))) + +(define-public python2-empy + (package-with-python2 python-empy)) + +(define-public python2-element-tree + (package + (name "python2-element-tree") + (version "1.2.6") + (source (origin + (method url-fetch) + (uri (string-append + "http://effbot.org/media/downloads/elementtree-" + version "-20050316.tar.gz")) + (sha256 + (base32 + "016bphqnlg0l4vslahhw4r0aanw95bpypy65r1i1acyb2wj5z7dj")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 ; seems to be part of Python 3 + #:tests? #f)) ; no 'test' sub-command + (synopsis "Toolkit for XML processing in Python") + (description + "ElementTree is a Python library supporting lightweight XML processing.") + (home-page "http://effbot.org/zone/element-index.htm") + (license (license:x11-style + "http://docs.python.org/2/license.html" + "Like \"CWI LICENSE AGREEMENT FOR PYTHON 0.9.0 THROUGH 1.2\".")))) + +(define-public python2-pybugz + (package + (name "python2-pybugz") + (version "0.6.11") + (source (origin + (method url-fetch) + (uri (string-append + "http://bits.liquidx.net/projects/pybugz/pybugz-" + version ".tar.gz")) + (sha256 + (base32 + "17ni00p08gp5lkxlrrcnvi3x09fmajnlbz4da03qcgl9q21ym4jd")) + (patches (search-patches "pybugz-stty.patch" + "pybugz-encode-error.patch")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 ; SyntaxError with Python 3 + #:tests? #f)) ; no 'test' sub-command + (propagated-inputs + `(("element-tree" ,python2-element-tree))) + (synopsis "Python and command-line interface to Bugzilla") + (description + "PyBugz is a Python library and command-line tool to query the Bugzilla +bug tracking system. It is meant as an aid to speed up interaction with the +bug tracker.") + (home-page "http://www.liquidx.net/pybugz/") + (license license:gpl2))) + +(define-public python2-enum + (package + (name "python2-enum") + (version "0.4.6") + (source (origin + (method url-fetch) + (uri (pypi-uri "enum" version)) + (sha256 + (base32 + "13lk3yrwj42vl30kw3c194f739nrfrdg64s6i0v2p636n4k8brsl")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2)) + (home-page "http://pypi.python.org/pypi/enum/") + (synopsis "Robust enumerated type support in Python") + (description + "This provides a module for robust enumerations in Python. It has +been superseded by the Python standard library and is provided only for +compatibility.") + ;; Choice of either license. + (license (list license:gpl3+ license:psfl)))) + +(define-public python-enum34 + (package + (name "python-enum34") + (version "1.1.6") + (source + (origin + (method url-fetch) + (uri (pypi-uri "enum34" version)) + (sha256 + (base32 + "1cgm5ng2gcfrkrm3hc22brl6chdmv67b9zvva9sfs7gn7dwc9n4a")))) + (build-system python-build-system) + (home-page "https://pypi.python.org/pypi/enum34") + (synopsis "Backported Python 3.4 Enum") + (description + "Enum34 is the new Python stdlib enum module available in Python 3.4 +backported for previous versions of Python from 2.4 to 3.3.") + (license license:bsd-3))) + +(define-public python2-enum34 + (package-with-python2 python-enum34)) + +(define-public python-parse-type + (package + (name "python-parse-type") + (version "0.4.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "parse_type" version)) + (sha256 + (base32 + "0g3b6gsdwnm8dpkh2vn34q6dzxm9gl908ggyzcv31n9xbp3vv5pm")))) + (build-system python-build-system) + (propagated-inputs + `(("python-six" ,python-six) + ("python-parse" ,python-parse))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://github.com/jenisys/parse_type") + (synopsis "Extended parse module") + (description + "Parse_type extends the python parse module.") + (properties + `((python2-variant . ,(delay python2-parse-type)))) + (license license:bsd-3))) + +(define-public python2-parse-type + (let ((base (package-with-python2 + (strip-python2-variant python-parse-type)))) + (package (inherit base) + (propagated-inputs + `(("python2-enum34" ,python2-enum34) + ,@(package-propagated-inputs base)))))) + +(define-public python-parse + (package + (name "python-parse") + (version "1.8.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "parse" version)) + (sha256 + (base32 + "0f8997xr8nq2nq35iiviq8ningd1zvy59fg503xfpbi2dwhgdkf3")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ (invoke "python" "test_parse.py")))))) + (home-page "https://github.com/r1chardj0n3s/parse") + (synopsis "Parse strings") + (description + "Parse strings using a specification based on the Python @code{format()} +syntax.") + (license license:x11))) + +(define-public python-polib + (package + (name "python-polib") + (version "1.0.8") + (source (origin + (method url-fetch) + (uri (pypi-uri "polib" version)) + (sha256 + (base32 + "1pq2hbm3m2q0cjdszk8mc4qa1vl3wcblh5nfyirlfnzb2pcy7zss")))) + (build-system python-build-system) + (home-page "https://bitbucket.org/izi/polib/wiki/Home") + (synopsis "Manipulate, create and modify gettext files") + (description "Polib can manipulate any gettext format (po, pot and mo) +files. It can be used to create po files from scratch or to modify +existing ones.") + (license license:expat))) + +(define-public python2-polib + (let ((base (package-with-python2 (strip-python2-variant python-polib)))) + (package + (inherit base) + (arguments `(,@(package-arguments base) + ;; Tests don't work with python2. + #:tests? #f))))) + +(define-public scons + (package + (name "scons") + (version "3.0.1") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/scons/scons/" version + "/scons-" version ".tar.gz")) + (sha256 + (base32 + "0wzid419mlwqw9llrg8gsx4nkzhqy16m4m40r0xnh6cwscw5wir4")))) + (build-system python-build-system) + (arguments + `(#:use-setuptools? #f ; still relies on distutils + #:tests? #f)) ; no 'python setup.py test' command + (home-page "http://scons.org/") + (synopsis "Software construction tool written in Python") + (description + "SCons is a software construction tool. Think of SCons as an improved, +cross-platform substitute for the classic Make utility with integrated +functionality similar to autoconf/automake and compiler caches such as ccache. +In short, SCons is an easier, more reliable and faster way to build +software.") + (license license:x11))) + +(define-public scons-python2 + (package + (inherit (package-with-python2 scons)) + (name "scons-python2"))) + +(define-public python-extras + (package + (name "python-extras") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "extras" version)) + (sha256 + (base32 + "0khvm08rcwm62wc47j8niyl6h13f8w51c8669ifivjdr23g3cbhk")))) + (build-system python-build-system) + (arguments + ;; FIXME: Circular dependency on testtools. + '(#:tests? #f)) + (home-page "https://github.com/testing-cabal/extras") + (synopsis "Useful extensions to the Python standard library") + (description + "Extras is a set of extensions to the Python standard library.") + (license license:expat))) + +(define-public python2-extras + (package-with-python2 python-extras)) + +(define-public python-mimeparse + (package + (name "python-mimeparse") + (version "1.6.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/source/p/python-mimeparse/python-mimeparse-" + version ".tar.gz")) + (sha256 + (base32 + "0y2g6cl660bpz11srgqyvvm8gmywpgyx8g0xfvbiyr0af0yv1r3n")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (invoke "./mimeparse_test.py")))))) + (home-page + "https://github.com/dbtsai/python-mimeparse") + (synopsis "Python library for parsing MIME types") + (description + "Mimeparse provides basic functions for parsing MIME type names and +matching them against a list of media-ranges.") + (license license:expat))) + +(define-public python2-mimeparse + (package-with-python2 python-mimeparse)) + +(define-public python-miniboa + (package + (name "python-miniboa") + (version "1.0.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "miniboa" version)) + (sha256 + (base32 + "09jh3pn4rh7kh7jayanf8jzy6gp03791b5a193w6148cf3i6k9m3")))) + (build-system python-build-system) + (home-page "https://github.com/shmup/miniboa") + (synopsis "Simple, single-threaded Telnet server") + (description + "Miniboa is a simple, asynchronous, single-threaded, poll-based Telnet +server.") + (license license:asl2.0))) + +(define-public python2-miniboa + (package-with-python2 python-miniboa)) + +(define-public python-pafy + (package + (name "python-pafy") + (version "0.5.3.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pafy" version)) + (sha256 + (base32 + "1a7dxi95m1043rxx1r5x3ngb66nwlq6aqcasyqqjzmmmjps4zrim")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ; Currently pafy can not find itself in the tests + (propagated-inputs + ;; Youtube-dl is a python package which is imported in the file + ;; "backend_youtube_dl.py", therefore it needs to be propagated. + `(("youtube-dl" ,youtube-dl))) + (home-page "https://np1.github.io/pafy/") + (synopsis "Retrieve YouTube content and metadata") + (description + "@code{pafy} is a python library to retrieve YouTube content and metadata.") + (license license:lgpl3+))) + +(define-public python2-funcsigs + (package + (name "python2-funcsigs") + (version "1.0.2") + (source (origin + (method url-fetch) + (uri (pypi-uri "funcsigs" version)) + (sha256 + (base32 + "0l4g5818ffyfmfs1a924811azhjj8ax9xd1cffr1mzd3ycn0zfx7")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2)) + (native-inputs + `(("python2-unittest2" ,python2-unittest2))) + (home-page "http://funcsigs.readthedocs.org") + (synopsis "Python function signatures from PEP362") + (description + "Backport of @code{funcsigs} which was introduced in Python 3.3.") + (license license:asl2.0))) + +(define-public python2-funcsigs-bootstrap + (package + (inherit python2-funcsigs) + (name "python2-funcsigs-bootstrap") + (native-inputs `()) + (arguments + `(#:tests? #f + ,@(package-arguments python2-funcsigs))))) + +(define-public python-py + (package + (name "python-py") + (version "1.5.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "py" version)) + (sha256 + (base32 + "1xxvwfn82457djf55f5n2c94699rfqnk43br8fif2r2q8gvrmm9z")))) + (build-system python-build-system) + (arguments + ;; FIXME: "ImportError: 'test' module incorrectly imported from + ;; '/gnu/store/...-python-pytest-mimimal-3.0.5/lib/python3.5/site-packages'. + ;; Expected '/tmp/guix-build-python-py-1.4.31.drv-0/py-1.4.31/py'. + ;; Is this module globally installed?" + '(#:tests? #f)) + (native-inputs + `(("python-setuptools-scm" ,python-setuptools-scm))) + (home-page "https://github.com/pytest-dev/py") + (synopsis "Python library for parsing, I/O, instrospection, and logging") + (description + "Py is a Python library for file name parsing, .ini file parsing, I/O, +code introspection, and logging.") + (license license:expat))) + +(define-public python2-py + (package-with-python2 python-py)) + +;; Recent versions of python-fixtures and python-testrepository need +;; python-pbr for packaging, which itself needs these two packages for +;; testing. +;; To fix this circular dependency, we use a build of python-pbr, based on the +;; same source, just without any test dependencies and with tests disabled. +;; python-pbr-minmal is then used to package python-fixtures and +;; python-testrepository. +;; Strictly speaking we currently could remove the test-requirements from the +;; normal python-pbr package (and save this package) since test are disabled +;; there anyway. But this may change in future. +(define-public python-pbr-minimal + (package + (name "python-pbr-minimal") + (version "3.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pbr" version)) + (sha256 + (base32 + "14fs5acnalnb3h62s7q7av239j541fk0n0z0lawh4h09b1s93s6p")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) + (home-page "http://docs.openstack.org/developer/pbr/") + (synopsis "Minimal build of python-pbr used for bootstrapping") + (description + "Used only for bootstrapping python2-pbr, you should not need this.") + (license license:asl2.0))) + +(define-public python2-pbr-minimal + (package-with-python2 python-pbr-minimal)) + +(define-public python-pbr + (package + (inherit python-pbr-minimal) + (name "python-pbr") + (arguments + `(#:tests? #f)) ;; Most tests seem to use the Internet. + (propagated-inputs + `(("git" ,git))) ;; pbr actually uses the "git" binary. + (native-inputs + `(("python-fixtures" ,python-fixtures-bootstrap) + ;; discover, coverage, hacking, subunit + ("python-mock" ,python-mock) + ("python-six" ,python-six) + ("python-sphinx" ,python-sphinx) + ("python-testrepository" ,python-testrepository-bootstrap) + ("python-testresources" ,python-testresources-bootstrap) + ("python-testscenarios" ,python-testscenarios-bootstrap) + ("python-testtools" ,python-testtools-bootstrap) + ("python-virtualenv" ,python-virtualenv))) + (synopsis "Enhance the default behavior of Python’s setuptools") + (description + "Python Build Reasonableness (PBR) is a library that injects some useful +and sensible default behaviors into your setuptools run. It will set +versions, process requirements files and generate AUTHORS and ChangeLog file +from git information. +"))) + +(define-public python2-pbr + (package-with-python2 python-pbr)) + +(define-public python-exif-read + (package + (name "python-exif-read") + (version "2.1.2") + (source (origin + (method url-fetch) + (uri (pypi-uri "ExifRead" version)) + (sha256 + (base32 + "1b90jf6m9vxh9nanhpyvqdq7hmfx5iggw1l8kq10jrs6xgr49qkr")))) + (build-system python-build-system) + (arguments `(#:tests? #f)) ; no tests + (home-page "https://github.com/ianare/exif-py") + (synopsis "Python library to extract EXIF data from image files") + (description + "ExifRead is a Python library to extract EXIF data from tiff and jpeg +files.") + (license license:bsd-3))) + +(define-public python2-exif-read + (package-with-python2 python-exif-read)) + +(define-public python-pyld + (package + (name "python-pyld") + (version "1.0.3") + (source (origin + (method url-fetch) + (uri (pypi-uri "PyLD" version)) + (sha256 + (base32 + "12i2g6xdj30k7xxcibg3sc5y76snwq8l6n8fy9lyi577kgy0h2pm")))) + (build-system python-build-system) + (home-page "https://github.com/digitalbazaar/pyld") + (synopsis "Python implementation of the JSON-LD specification") + (description + "PyLD is an implementation of the JSON-LD specification.") + (license license:bsd-3))) + +(define-public python2-pyld + (package-with-python2 python-pyld)) + +(define-public python-click + (package + (name "python-click") + (version "6.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "click" version)) + (sha256 + (base32 + "02qkfpykbq35id8glfgwc38yc430427yd05z1wc5cnld8zgicmgi")))) + (build-system python-build-system) + (arguments + `(;; The tests are fragile, depending on a specific version of pytest: + ;; <https://github.com/pallets/click/issues/823> + #:tests? #f + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-paths + (lambda* (#:key inputs #:allow-other-keys) + (let ((glibc (assoc-ref inputs ,(if (%current-target-system) + "cross-libc" "libc")))) + (substitute* "click/_unicodefun.py" + (("'locale'") + (string-append "'" glibc "/bin/locale'")))) + #t))))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "http://click.pocoo.org") + (synopsis "Command line library for Python") + (description + "Click is a Python package for creating command line interfaces in a +composable way with as little code as necessary. Its name stands for +\"Command Line Interface Creation Kit\". It's highly configurable but comes +with sensible defaults out of the box.") + (license license:bsd-3))) + +(define-public python2-click + (package-with-python2 python-click)) + +(define-public python-wheel + (package + (name "python-wheel") + (version "0.30.0a0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "wheel" version)) + (sha256 + (base32 + "1nm6mn8isny0hr86rhbfrpfj867c0phf001xgsd69xfp9ady1wwq")))) + (build-system python-build-system) + (native-inputs + `(("python-jsonschema" ,python-jsonschema) + ("python-pytest-cov" ,python-pytest-cov))) + (home-page "https://bitbucket.org/pypa/wheel/") + (synopsis "Format for built Python packages") + (description + "A wheel is a ZIP-format archive with a specially formatted filename and +the @code{.whl} extension. It is designed to contain all the files for a PEP +376 compatible install in a way that is very close to the on-disk format. Many +packages will be properly installed with only the @code{Unpack} step and the +unpacked archive preserves enough information to @code{Spread} (copy data and +scripts to their final locations) at any later time. Wheel files can be +installed with a newer @code{pip} or with wheel's own command line utility.") + (license license:expat) + (properties `((python2-variant . ,(delay python2-wheel)))))) + +(define-public python2-wheel + (let ((wheel (package-with-python2 + (strip-python2-variant python-wheel)))) + (package (inherit wheel) + (native-inputs `(("python2-functools32" ,python2-functools32) + ,@(package-native-inputs wheel)))))) + +(define-public python-vcversioner + (package + (name "python-vcversioner") + (version "2.16.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "vcversioner" version)) + (sha256 + (base32 + "16z10sm78jd7ca3jbkgc3q5i8a8q7y1h21q1li21yy3rlhbhrrns")))) + (build-system python-build-system) + (synopsis "Python library for version number discovery") + (description "Vcversioner is a Python library that inspects tagging +information in a variety of version control systems in order to discover +version numbers.") + (home-page "https://github.com/habnabit/vcversioner") + (license license:isc))) + +(define-public python2-vcversioner + (package-with-python2 python-vcversioner)) + +(define-public python-jsonschema + (package + (name "python-jsonschema") + (version "2.6.0") + (source (origin + (method url-fetch) + (uri + (string-append + "https://pypi.python.org/packages/source/j/jsonschema/jsonschema-" + version ".tar.gz")) + (sha256 + (base32 + "00kf3zmpp9ya4sydffpifn0j0mzm342a2vzh82p6r0vh10cg7xbg")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check (lambda _ (zero? (system* "nosetests"))))))) + (native-inputs + `(("python-nose" ,python-nose) + ("python-vcversioner" ,python-vcversioner))) + (home-page "https://github.com/Julian/jsonschema") + (synopsis "Implementation of JSON Schema for Python") + (description + "Jsonschema is an implementation of JSON Schema for Python.") + (license license:expat) + (properties `((python2-variant . ,(delay python2-jsonschema)))))) + +(define-public python2-jsonschema + (let ((jsonschema (package-with-python2 + (strip-python2-variant python-jsonschema)))) + (package (inherit jsonschema) + (native-inputs + `(("python2-mock" ,python2-mock) + ,@(package-native-inputs jsonschema))) + (propagated-inputs + `(("python2-functools32" ,python2-functools32)))))) + +(define-public python-schema + (package + (name "python-schema") + (version "0.6.6") + (source + (origin + (method url-fetch) + (uri (pypi-uri "schema" version)) + (sha256 + (base32 + "1lw28j9w9vxyigg7vkfkvi6ic9lgjkdnfvnxdr7pklslqvzmk2vm")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://github.com/keleshev/schema") + (synopsis "Simple data validation library") + (description + "@code{python-schema} is a library for validating Python data +structures, such as those obtained from config-files, forms, external +services or command-line parsing, converted from JSON/YAML (or +something else) to Python data-types.") + (license license:psfl))) + +(define-public python2-schema + (package-with-python2 python-schema)) + +(define-public python-schema-0.5 + (package (inherit python-schema) + (version "0.5.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "schema" version)) + (sha256 + (base32 + "10zqvpaky51kgb8nd42bk7jwl8cn2zvayxjpdc1wwmpybj92x67s")))))) + +(define-public python2-schema-0.5 + (package-with-python2 python-schema-0.5)) + +(define-public python-kitchen + (package + (name "python-kitchen") + (version "1.2.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "kitchen" version)) + (sha256 + (base32 + "1zakh6l0yjvwic9p0nkvmbidpnkygkxbigh2skmb5gccyrhbp7xg")))) + (build-system python-build-system) + (propagated-inputs + `(("python-chardet" ,python-chardet))) + (home-page "https://github.com/fedora-infra/kitchen") + (synopsis "Python API for snippets") + (description "@code{kitchen} module provides a python API for all sorts of +little useful snippets of code that everybody ends up writing for their projects +but never seem big enough to build an independent release. Use kitchen and stop +cutting and pasting that code over and over.") + (license (list license:lgpl2.1+ + ;; subprocess.py, test_subprocess.py, + ;; kitchen/pycompat25/defaultdict.py: + license:psfl)))) + +(define-public python2-kitchen + (package-with-python2 python-kitchen)) + +(define-public python-unidecode + (package + (name "python-unidecode") + (version "1.0.23") + (source (origin + (method url-fetch) + (uri (pypi-uri "Unidecode" version)) + (sha256 + (base32 + "1ysjbr3nqfqj97h8zyj3v9pya413vkv7a1mzml80w37xx15kb1cb")))) + (build-system python-build-system) + (home-page "https://pypi.python.org/pypi/Unidecode") + (synopsis "ASCII transliterations of Unicode text") + (description + "Unidecode provides ASCII transliterations of Unicode text. Unidecode is +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 intelligible.") + (license license:gpl2+))) + +(define-public python2-unidecode + (package-with-python2 python-unidecode)) + +(define-public python-pyjwt + (package + (name "python-pyjwt") + (version "1.5.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "PyJWT" version)) + (sha256 + (base32 + "1rxsg14i33vm2i6lz0my628108c81k43v10n4h3p0gx62xdyf2sh")) + (modules '((guix build utils))) + (snippet + '(begin + (for-each delete-file-recursively + (find-files "." "\\.pyc$")) + #t)))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-pytest-cov" ,python-pytest-cov) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://github.com/progrium/pyjwt") + (synopsis "JSON Web Token implementation in Python") + (description + "PyJWT is a JSON Web Token implementation written in Python.") + (license license:expat))) + +(define-public python2-pyjwt + (package-with-python2 python-pyjwt)) + +(define-public python-pykka + (package + (name "python-pykka") + (version "1.2.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Pykka" version)) + (sha256 + (base32 + "049w3r0mdnnw7xv19jiq7rvls9k7xs73x05b4qs5d6z4vvmgyiz8")))) + (build-system python-build-system) + (native-inputs + `(("python-mock" ,python-mock) + ("python-nose" ,python-nose) + ("python-gevent" ,python-gevent) + ("python-eventlet" ,python-eventlet))) + (home-page "https://www.pykka.org/") + (synopsis "Pykka is a Python implementation of the actor model") + (description + "Pykka is a Python implementation of the actor model. +The actor model introduces some simple rules to control the sharing +of state and cooperation between execution units, which makes it +easier to build concurrent applications.") + (license license:asl2.0))) + +(define-public python2-pykka + (package-with-python2 python-pykka)) + +(define-public python-pympler + (package + (name "python-pympler") + (home-page "https://pythonhosted.org/Pympler/") + (version "0.5") + (source (origin + (method url-fetch) + (uri (pypi-uri "Pympler" version)) + (sha256 + (base32 + "03qwsbilqgvnbl3a1jmpgixbr2kq6m3fvdlzyr3wdp01bwlc85kx")))) + (build-system python-build-system) + (arguments + `(#:phases (modify-phases %standard-phases + (delete 'check) + (add-after 'install 'check + (lambda* (#:key inputs outputs #:allow-other-keys) + (add-installed-pythonpath inputs outputs) + (invoke "python" "setup.py" "test")))))) + (synopsis "Measure, monitor and analyze memory behavior") + (description + "Pympler is a development tool to measure, monitor and analyze +the memory behavior of Python objects in a running Python application. + +By pympling a Python application, detailed insight in the size and the +lifetime of Python objects can be obtained. Undesirable or unexpected +runtime behavior like memory bloat and other @samp{pymples} can easily +be identified. + +A web profiling frontend exposes process statistics, garbage +visualisation and class tracker statistics.") + (license license:asl2.0))) + +(define-public python2-pympler + (package-with-python2 python-pympler)) + +(define-public python-itsdangerous + (package + (name "python-itsdangerous") + (version "0.24") + (source + (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/source/i/itsdangerous/itsdangerous-" + version ".tar.gz")) + (sha256 + (base32 + "06856q6x675ly542ig0plbqcyab6ksfzijlyf1hzhgg3sgwgrcyb")))) + (build-system python-build-system) + (home-page "https://github.com/mitsuhiko/itsdangerous") + (synopsis "Python library for passing data to/from untrusted environments") + (description + "Itsdangerous provides various helpers to pass trusted data to untrusted +environments and back.") + (license license:bsd-3))) + +(define-public python2-itsdangerous + (package-with-python2 python-itsdangerous)) + +(define-public python-pyyaml + (package + (name "python-pyyaml") + (version "3.13") + (source + (origin + (method url-fetch) + (uri (pypi-uri "PyYAML" version)) + (sha256 + (base32 + "1gx603g484z46cb74j9rzr6sjlh2vndxayicvlyhxdz98lhhkwry")))) + (build-system python-build-system) + (inputs + `(("libyaml" ,libyaml))) + (home-page "http://pyyaml.org/wiki/PyYAML") + (synopsis "YAML parser and emitter for Python") + (description + "PyYAML is a YAML parser and emitter for Python. PyYAML features a +complete YAML 1.1 parser, Unicode support, pickle support, capable extension +API, and sensible error messages. PyYAML supports standard YAML tags and +provides Python-specific tags that allow to represent an arbitrary Python +object.") + (license license:expat))) + +(define-public python2-pyyaml + (package-with-python2 python-pyyaml)) + +(define-public python-vine + (package + (name "python-vine") + (version "1.1.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "vine" version)) + (sha256 + (base32 + "0wkskb2hb494v9gixqnf4bl972p4ibcmxdykzpwjlfa5picns4aj")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-case" ,python-case))) + (home-page "https://github.com/celery/vine") + (synopsis "Promises for Python") + (description + "@code{vine} provides a special implementation of promises in that it can +be used both for \"promise of a value\" and lazy evaluation. The biggest +upside for this is that everything in a promise can also be a promise, +e.g. filters, callbacks and errbacks can all be promises.") + (license license:bsd-3))) + +(define-public python-virtualenv + (package + (name "python-virtualenv") + (version "15.0.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "virtualenv" version)) + (sha256 + (base32 + "07cbajzk8l05k5zhlw0b9wbf2is65bl9v6zrn2a0iyn57w6pd73d")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + ;; Disable failing test. See upstream bug report + ;; https://github.com/pypa/virtualenv/issues/957 + (substitute* "tests/test_virtualenv.py" + (("skipif.*") "skipif(True, reason=\"Guix\")\n")) + (zero? (system* "py.test"))))))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-pytest" ,python-pytest))) + (home-page "https://virtualenv.pypa.io/") + (synopsis "Virtual Python environment builder") + (description + "Virtualenv is a tool to create isolated Python environments.") + (license license:expat))) + +(define-public python2-virtualenv + (package-with-python2 python-virtualenv)) + +(define-public python-markupsafe + (package + (name "python-markupsafe") + (version "1.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/source/M/MarkupSafe/MarkupSafe-" + version ".tar.gz")) + (sha256 + (base32 + "0rdn1s8x9ni7ss8rfiacj7x1085lx8mh2zdwqslnw8xc3l4nkgm6")))) + (build-system python-build-system) + (home-page "https://github.com/mitsuhiko/markupsafe") + (synopsis "XML/HTML/XHTML markup safe string implementation for Python") + (description + "Markupsafe provides an XML/HTML/XHTML markup safe string implementation +for Python.") + (license license:bsd-3))) + +(define-public python2-markupsafe + (package-with-python2 python-markupsafe)) + +(define-public python-jinja2 + (package + (name "python-jinja2") + (version "2.10") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Jinja2" version)) + (sha256 + (base32 + "190l36hfw3wb2n3n68yacjabxyb1pnxwn7vjx96cmjj002xy2jzq")))) + (build-system python-build-system) + (propagated-inputs + `(("python-markupsafe" ,python-markupsafe))) + (home-page "http://jinja.pocoo.org/") + (synopsis "Python template engine") + (description + "Jinja2 is a small but fast and easy to use stand-alone template engine +written in pure Python.") + (license license:bsd-3))) + +(define-public python2-jinja2 + (package-with-python2 python-jinja2)) + +(define-public python-pystache + (package + (name "python-pystache") + (version "0.5.4") + (source (origin + (method url-fetch) + (uri (pypi-uri "pystache" version)) + (sha256 + (base32 + "0nmqsfmiw4arjxqkmf9z66ml950pcdjk6aq4gin4sywmzdjw5fzp")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; FIXME: Python 3 tests are failing. + (home-page "http://defunkt.io/pystache/") + (synopsis "Python logic-less template engine") + (description + "Pystache is a Python implementation of the framework agnostic, +logic-free templating system Mustache.") + (license license:expat) + (properties `((python2-variant . ,(delay python2-pystache)))))) + +(define-public python2-pystache + (package (inherit (package-with-python2 + (strip-python2-variant python-pystache))) + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (zero? (system* "python" "test_pystache.py"))))))))) + +(define-public python-joblib + (package + (name "python-joblib") + (version "0.13.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "joblib" version)) + (sha256 + (base32 + "0612nazad8dxmn3xghfrmjax6456l4xy6hn9cngs7vydi14ds7v5")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ (invoke "pytest" "-v" "joblib")))))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://joblib.readthedocs.io/") + (synopsis "Using Python functions as pipeline jobs") + (description + "Joblib is a set of tools to provide lightweight pipelining in Python. +In particular, joblib offers: transparent disk-caching of the output values +and lazy re-evaluation (memoize pattern), easy simple parallel computing +logging and tracing of the execution.") + (license license:bsd-3))) + +(define-public python2-joblib + (package-with-python2 python-joblib)) + +(define-public python-docutils + (package + (name "python-docutils") + (version "0.14") + (source + (origin + (method url-fetch) + (uri (pypi-uri "docutils" version)) + (sha256 + (base32 + "0x22fs3pdmr42kvz6c654756wja305qv6cx1zbhwlagvxgr4xrji")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; no setup.py test command + (home-page "http://docutils.sourceforge.net/") + (synopsis "Python Documentation Utilities") + (description + "Docutils is a modular system for processing documentation into useful +formats, such as HTML, XML, and LaTeX. For input Docutils supports +reStructuredText.") + ;; Most of the source code is public domain, but some source files are + ;; licensed under the PFSL, BSD 2-clause, and GPLv3+ licenses. + (license (list license:public-domain license:psfl license:bsd-2 license:gpl3+)))) + +(define-public python2-docutils + (package-with-python2 python-docutils)) + +(define-public python-pygments + (package + (name "python-pygments") + (version "2.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Pygments" version)) + (sha256 + (base32 + "1k78qdvir1yb1c634nkv6rbga8wv4289xarghmsbbvzhvr311bnv")))) + (build-system python-build-system) + (arguments + ;; FIXME: Tests require sphinx, which depends on this. + '(#:tests? #f)) + (home-page "http://pygments.org/") + (synopsis "Syntax highlighting") + (description + "Pygments is a syntax highlighting package written in Python.") + (license license:bsd-2))) + +(define-public python2-pygments + (package-with-python2 python-pygments)) + +(define-public python-sphinxcontrib-websupport + (package + (name "python-sphinxcontrib-websupport") + (version "1.1.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "sphinxcontrib-websupport" version)) + (sha256 + (base32 + "1ff3ix76xi1y6m99qxhaq5161ix9swwzydilvdya07mgbcvpzr4x")))) + (build-system python-build-system) + (arguments + ;; FIXME: Tests depend on Sphinx, which depends on this. + `(#:tests? #f)) + (home-page "http://sphinx-doc.org/") + (synopsis "Sphinx API for web applications") + (description "This package provides a Python API to easily integrate +Sphinx documentation into your web application. It provides tools to +integrate Sphinx documents in web templates and to handle searches.") + (license license:bsd-3))) + +(define-public python2-sphinxcontrib-websupport + (package-with-python2 python-sphinxcontrib-websupport)) + +(define-public python-sphinx + (package + (name "python-sphinx") + (version "1.7.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Sphinx" version)) + (sha256 + (base32 + "0pkkbfj7cl157q550gcs45am5y78ps0h7q6455d64s1zmw01jlvi")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + ;; Requires Internet access. + (delete-file "tests/test_build_linkcheck.py") + (substitute* "tests/test_build_latex.py" + (("@pytest.mark.sphinx\\('latex', testroot='images'\\)") + "@pytest.mark.skip()")) + (when (which "python") + ;; XXX: These tests are broken when using Python2: + ;; <https://github.com/sphinx-doc/sphinx/issues/4710>. + (delete-file "tests/test_api_translator.py") + (delete-file "tests/test_setup_command.py")) + (invoke "make" "test")))))) + (propagated-inputs + `(("python-imagesize" ,python-imagesize) + ("python-sphinx-alabaster-theme" + ,python-sphinx-alabaster-theme) + ("python-babel" ,python-babel) + ("python-snowballstemmer" ,python-snowballstemmer) + ("python-docutils" ,python-docutils) + ("python-jinja2" ,python-jinja2) + ("python-packaging" ,python-packaging) + ("python-pygments" ,python-pygments) + ("python-requests" ,python-requests) + ("python-six" ,python-six) + ("python-sphinxcontrib-websupport" ,python-sphinxcontrib-websupport))) + (native-inputs + `(("graphviz" ,graphviz) + ("imagemagick" ,imagemagick) ;for "convert" + ("python-html5lib" ,python-html5lib) + ("python-mock" ,python-mock) + ("python-nose" ,python-nose) + ("python-pytest" ,python-pytest))) + (home-page "http://sphinx-doc.org/") + (synopsis "Python documentation generator") + (description "Sphinx is a tool that makes it easy to create documentation +for Python projects or other documents consisting of multiple reStructuredText +sources.") + (license license:bsd-3) + (properties `((python2-variant . ,(delay python2-sphinx)))))) + +(define-public python2-sphinx + (let ((base (package-with-python2 (strip-python2-variant python-sphinx)))) + (package + (inherit base) + (native-inputs `(("python2-mock" ,python2-mock) + ("python2-enum34" ,python2-enum34) + ,@(package-native-inputs base))) + (propagated-inputs `(("python2-pytz" ,python2-pytz) + ("python2-typing" ,python2-typing) + ,@(package-propagated-inputs base)))))) + +(define-public python-sphinx-gallery + (package + (name "python-sphinx-gallery") + (version "0.1.13") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/sphinx-gallery/sphinx-gallery" + "/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "03fs99mcb1r7qp0xixqv07vcz98sk21yq19ffdysi0infdcpzfkd")))) + (build-system python-build-system) + (arguments + ;; FIXME: Tests attempt to download <https://docs.python.org/3/objects.inv>, + ;; <https://docs.scipy.org/doc/numpy/objects.inv>, and + ;; <https://matplotlib.org/objects.inv>. + `(#:tests? #f)) + (native-inputs + `(("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://sphinx-gallery.github.io/") + (synopsis "Generate an examples gallery automatically") + (description + "@code{sphinx_gallery} is a Sphinx extension that builds an HTML version +from any set of Python scripts and puts it into an examples gallery.") + (license license:bsd-3))) + +(define-public python2-sphinx-gallery + (package-with-python2 python-sphinx-gallery)) + +(define-public python-sphinx-rtd-theme + (package + (name "python-sphinx-rtd-theme") + (version "0.2.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "sphinx_rtd_theme" version)) + (sha256 + (base32 + "05rlhjzdyapr2w74jjs7mrm8hi69qskcr5vya9f9drpsys7lpxrd")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; No tests. + (propagated-inputs + `(("python-sphinx" ,python-sphinx))) + (home-page "https://github.com/snide/sphinx_rtd_theme/") + (synopsis "ReadTheDocs.org theme for Sphinx") + (description "A theme for Sphinx used by ReadTheDocs.org.") + (license license:expat))) + +(define-public python2-sphinx-rtd-theme + (package-with-python2 python-sphinx-rtd-theme)) + +(define-public python-guzzle-sphinx-theme + (package + (name "python-guzzle-sphinx-theme") + (version "0.7.11") + (source + (origin + (method url-fetch) + (uri (pypi-uri "guzzle_sphinx_theme" version)) + (sha256 + (base32 + "1rnkzrrsbnifn3vsb4pfaia3nlvgvw6ndpxp7lzjrh23qcwid34v")))) + (build-system python-build-system) + (propagated-inputs + `(("python-sphinx" ,python-sphinx))) + (home-page "https://github.com/guzzle/guzzle_sphinx_theme") + (synopsis "Sphinx theme used by Guzzle") + (description "This package provides guzzle_sphinx_theme, a theme for the +Sphinx documentation system, used by @uref{http://docs.guzzlephp.org, Guzzle} +and several other projects.") + (license license:expat))) + +(define-public python2-guzzle-sphinx-theme + (package-with-python2 python-guzzle-sphinx-theme)) + +(define-public python-rst.linker + (package + (name "python-rst.linker") + (version "1.10") + (source + (origin + (method url-fetch) + (uri (pypi-uri "rst.linker" version)) + (sha256 + (base32 + "0iqaacp7pj1s8avs4kc0qg0r7dscywaq37y6l9j14glqdikk0wdj")))) + (build-system python-build-system) + (propagated-inputs + `(("python-dateutil" ,python-dateutil) + ("python-six" ,python-six))) + (native-inputs + `(("python-setuptools-scm" ,python-setuptools-scm))) + ;; Test would require path.py, which would introduce a cyclic dependence. + (arguments `(#:tests? #f)) + ;; Note: As of version 1.7 the documentation is not worth building. + (home-page "https://github.com/jaraco/rst.linker") + (synopsis "Sphinx plugin to add links and timestamps") + (description "rst.linker allows to automatically replace text by a +reStructuredText external reference or timestamps. It's primary purpose is to +augment the changelog, but it can be used for other documents, too.") + (license license:expat))) + +(define-public python2-rst.linker + (package-with-python2 python-rst.linker)) + +(define-public python-feedgenerator + (package + (name "python-feedgenerator") + (version "1.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "feedgenerator" version)) + (sha256 + (base32 + "01mirwkm7xfx539hmvj7g9da1j51gw5lsx74dr0glizskjm5vq2s")) + (modules '((guix build utils))) + (snippet + '(begin + ;; Remove pre-compiled .pyc files from source. + (for-each delete-file-recursively + (find-files "." "__pycache__" #:directories? #t)) + (for-each delete-file (find-files "." "\\.pyc$")) + #t)))) + (build-system python-build-system) + (propagated-inputs + `(("python-pytz" ,python-pytz) + ("python-six" ,python-six))) + (home-page "https://github.com/getpelican/feedgenerator") + (synopsis + "Standalone version of Django's Atom/RSS feed generator") + (description + "Feedgenerator-py3k is a standalone version of Django's feedgenerator, +which can produce feeds in RSS 2.0, RSS 0.91, and Atom formats.") + (license license:bsd-3))) + +(define-public python2-feedgenerator + (package-with-python2 python-feedgenerator)) + +(define-public python-toml + (package + (name "python-toml") + (version "0.9.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "toml" version)) + (sha256 + (base32 + "0bdbpbip67wdm6c7xwc6mmbmskyradj4cdxn1iibj4fcx1nbv1lf")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ;no tests suite in release + (home-page "https://github.com/uiri/toml") + (synopsis "Library for TOML") + (description + "@code{toml} is a library for parsing and creating Tom's Obvious, Minimal +Language (TOML) configuration files.") + (license license:expat))) + +(define-public python-black + (package + (name "python-black") + (version "18.6b4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "black" version)) + (sha256 + (base32 + "0i4sfqgz6w15vd50kbhi7g7rifgqlf8yfr8y78rypd56q64qn592")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'patch-source-shebangs 'patch-extra-shebangs + (lambda _ + (let ((python3 (which "python3"))) + (substitute* '("tests/data/fmtonoff.py" + "tests/data/string_prefixes.py" + "tests/data/function.py") + (("#!/usr/bin/env python3(\\.[0-9]+)?" _ minor-version) + (string-append "#!" python3 (if (string? minor-version) + minor-version + "")))))))))) + (propagated-inputs + `(("python-click" ,python-click) + ("python-attrs" ,python-attrs) + ("python-appdirs" ,python-appdirs) + ("python-toml" ,python-toml))) + (home-page "https://github.com/ambv/black") + (synopsis "The uncompromising code formatter") + (description "Black is the uncompromising Python code formatter.") + (license license:expat))) + +(define-public python-blinker + (package + (name "python-blinker") + (version "1.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "blinker" version)) + (sha256 + (base32 + "1dpq0vb01p36jjwbhhd08ylvrnyvcc82yxx3mwjx6awrycjyw6j7")))) + (build-system python-build-system) + (home-page "http://pythonhosted.org/blinker/") + (synopsis "Fast, simple object-to-object and broadcast signaling") + (description + "Blinker provides a fast dispatching system that allows any number of +interested parties to subscribe to events, or \"signals\".") + (license license:expat))) + +(define-public python2-blinker + (package-with-python2 python-blinker)) + +(define-public pelican + (package + (name "pelican") + (version "3.7.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pelican" version)) + (sha256 + (base32 + "12spygavv9b6xpb5pgp7f0p3z0mms60nx6zrpx1yfkj68zz4flra")))) + (build-system python-build-system) + (propagated-inputs + `(("python-feedgenerator" ,python-feedgenerator) + ("python-jinja2" ,python-jinja2) + ("python-pygments" ,python-pygments) + ("python-docutils" ,python-docutils) + ("python-pytz" ,python-pytz) + ("python-blinker" ,python-blinker) + ("python-unidecode" ,python-unidecode) + ("python-six" ,python-six) + ("python-dateutil" ,python-dateutil) + ("python-markdown" ,python-markdown))) + (home-page "https://getpelican.com/") + (arguments + `(;; XXX Requires a lot more packages to do unit tests :P + #:tests? #f + #:phases (modify-phases %standard-phases + (add-before + 'install 'adjust-requires + ;; Since feedgenerator is installed from git, it doesn't + ;; conform to the version requirements. + ;; + ;; We *do have* "feedgenerator >= 1.6", but strip off the + ;; version requirement so setuptools doesn't get confused. + (lambda _ + (substitute* "setup.py" + (("['\"]feedgenerator.*?['\"]") + "'feedgenerator'"))))))) + (synopsis "Python-based static site publishing system") + (description + "Pelican is a tool to generate a static blog from reStructuredText, +Markdown input files, and more. Pelican uses Jinja2 for templating +and is very extensible.") + (license license:agpl3+))) + +(define-public python-scikit-image + (package + (name "python-scikit-image") + (version "0.14.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "scikit-image" version)) + (sha256 + (base32 "0l1c3rl4s1jyv80i5hns4pgih09zrxfj7lygdc51w8sgyysb7ac6")))) + (build-system python-build-system) + (arguments + ;; TODO: Some tests require running X11 server. Disable them? + '(#:tests? #f)) + ;; See DEPENDS.txt for the list of build and run time requiremnts + (propagated-inputs + `(("python-cloudpickle" ,python-cloudpickle) + ("python-dask" ,python-dask) + ("python-matplotlib" ,python-matplotlib) + ("python-networkx" ,python-networkx) + ("python-numpy" ,python-numpy) + ("python-pillow" ,python-pillow) + ("python-pywavelets" ,python-pywavelets) + ("python-scipy" ,python-scipy) + ("python-six" ,python-six))) + (native-inputs + `(("python-cython" ,python-cython))) + (home-page "http://scikit-image.org/") + (synopsis "Image processing in Python") + (description + "Scikit-image is a collection of algorithms for image processing.") + (license license:bsd-3))) + +(define-public python2-scikit-image + (package-with-python2 python-scikit-image)) + +(define-public python-cython + (package + (name "python-cython") + (version "0.28.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Cython" version)) + (sha256 + (base32 + "0imw9s2rbrh32clbl10csnwmig9p3nzkrd2baxxxfmnrsc42pb3n")))) + (build-system python-build-system) + ;; we need the full python package and not just the python-wrapper + ;; because we need libpython3.3m.so + (inputs + `(("python" ,python))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'set-HOME + ;; some tests require access to "$HOME/.cython" + (lambda _ (setenv "HOME" "/tmp") #t)) + + ;; FIXME: These tests started failing on armhf after the 0.28 update + ;; (commit c69d11c5930), both with an error such as this: + ;; compiling (cpp) and running dictcomp ... + ;; === C/C++ compiler error output: === + ;; ‘ + ;; dictcomp.cpp:5221: confused by earlier errors, bailing out + ;; See <https://hydra.gnu.org/build/2948724> for logs. + ,@(if (target-arm32?) + `((add-before 'check 'disable-failing-tests + (lambda _ + (let ((disabled-tests (open-file "tests/bugs.txt" "a"))) + (for-each (lambda (test) + (format disabled-tests "~a\n" test)) + '("memslice" "dictcomp")) + (close-port disabled-tests))))) + '()) + + (replace 'check + (lambda _ + ;; The "with_outer_raising" test fails with Python 3.7. See + ;; https://github.com/cython/cython/issues/2454 + (delete-file "tests/run/generators_py.py") + (invoke "python" "runtests.py" "-vv")))))) + (home-page "http://cython.org/") + (synopsis "C extensions for Python") + (description "Cython is an optimising static compiler for both the Python +programming language and the extended Cython programming language. It makes +writing C extensions for Python as easy as Python itself.") + (license license:asl2.0) + (properties `((python2-variant . ,(delay python2-cython)))))) + +(define-public python2-cython + (package (inherit (package-with-python2 + (strip-python2-variant python-cython))) + (name "python2-cython") + (inputs + `(("python-2" ,python-2))))) ; this is not automatically changed + +;; The RPython toolchain currently does not support Python 3. +(define-public python2-rpython + (package + (name "python2-rpython") + (version "0.2.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "rpython" version)) + (sha256 + (base32 + "02z9cvxf0y41dcvwnvf2zn0albhhw1drvjjbq27m6i1piw1k6fc0")))) + (build-system python-build-system) + (arguments `(#:python ,python-2)) + (native-inputs + `(("python2-pytest" ,python2-pytest))) ; needed for running tests + (home-page "https://rpython.readthedocs.org") + (synopsis "Framework for implementing interpreters and virtual machines") + (description "RPython is a translation and support framework for +producing implementations of dynamic languages, emphasizing a clean separation +between language specification and implementation aspects.") + (license license:expat))) + +;; NOTE: when upgrading numpy please make sure that python-pandas and +;; python-scipy still build, as these three packages are often used together. +(define-public python-numpy + (package + (name "python-numpy") + (version "1.15.4") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/numpy/numpy/releases/download/v" + version "/numpy-" version ".tar.gz")) + (sha256 + (base32 + "102vcl2qq4pjbm7a3d67vkkvn4466ngia1d8wi5avqwqh8j0jvkn")))) + (build-system python-build-system) + (inputs + `(("openblas" ,openblas) + ("lapack" ,lapack))) + (native-inputs + `(("python-cython" ,python-cython) + ("python-pytest" ,python-pytest) + ("gfortran" ,gfortran))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'build 'configure-blas-lapack + (lambda* (#:key inputs #:allow-other-keys) + (call-with-output-file "site.cfg" + (lambda (port) + (format port + "[openblas] +libraries = openblas +library_dirs = ~a/lib +include_dirs = ~a/include + +# backslash-n to make emacs happy +\n[lapack] +lapack_libs = lapack +library_dirs = ~a/lib +include_dirs = ~a/include +" + (assoc-ref inputs "openblas") + (assoc-ref inputs "openblas") + (assoc-ref inputs "lapack") + (assoc-ref inputs "lapack")))) + #t)) + (add-before 'build 'fix-executable-paths + (lambda* (#:key inputs #:allow-other-keys) + ;; Make /gnu/store/...-bash-.../bin/sh the default shell, + ;; instead of /bin/sh. + (substitute* "numpy/distutils/exec_command.py" + (("(os.environ.get\\('SHELL', ')(/bin/sh'\\))" match match-start match-end) + (string-append match-start (assoc-ref inputs "bash") match-end))) + ;; Use "gcc" executable, not "cc". + (substitute* "numpy/distutils/system_info.py" + (("c = distutils\\.ccompiler\\.new_compiler\\(\\)") + "c = distutils.ccompiler.new_compiler(); c.set_executables(compiler='gcc',compiler_so='gcc',linker_exe='gcc',linker_so='gcc -shared')")) + #t)) + ;; Tests can only be run after the library has been installed and not + ;; within the source directory. + (delete 'check) + (add-after 'install 'check + (lambda* (#:key outputs inputs #:allow-other-keys) + ;; Make installed package available for running the tests + (add-installed-pythonpath inputs outputs) + ;; Make sure "f2py" etc is found. + (setenv "PATH" (string-append (assoc-ref outputs "out") "/bin" + ":" (getenv "PATH"))) + (with-directory-excursion "/tmp" + (invoke "python" "-c" + "import numpy; numpy.test(verbose=2)"))))))) + (home-page "http://www.numpy.org/") + (synopsis "Fundamental package for scientific computing with Python") + (description "NumPy is the fundamental package for scientific computing +with Python. It contains among other things: a powerful N-dimensional array +object, sophisticated (broadcasting) functions, tools for integrating C/C++ +and Fortran code, useful linear algebra, Fourier transform, and random number +capabilities.") + (license license:bsd-3))) + +(define-public python2-numpy + (package-with-python2 python-numpy)) + +;; NOTE: NumPy 1.8 is packaged only for Python 2 because it is of +;; interest only for legacy code going back to NumPy's predecessor +;; Numeric. +(define-public python2-numpy-1.8 + (package (inherit python2-numpy) + (version "1.8.2") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/numpy/numpy/archive/v" version ".tar.gz")) + (file-name (string-append "python2-numpy-" version ".tar.gz")) + (sha256 + (base32 + "0sc20gz1b17xnyrkp5frca3ql5qfalpv916hfg2kqxpwr6jg0f1g")))) + (arguments + (substitute-keyword-arguments (package-arguments python2-numpy) + ((#:phases phases) + `(modify-phases ,phases + (replace 'configure-blas-lapack + (lambda* (#:key inputs #:allow-other-keys) + (call-with-output-file "site.cfg" + (lambda (port) + (format port + "[openblas] +libraries = openblas,lapack +library_dirs = ~a/lib:~a/lib +include_dirs = ~a/include:~a/include +" + (assoc-ref inputs "openblas") + (assoc-ref inputs "lapack") + (assoc-ref inputs "openblas") + (assoc-ref inputs "lapack")))) + #t)))))) + (native-inputs + `(("python2-nose" ,python2-nose))) + (description "NumPy is the fundamental package for scientific computing +with Python. It contains among other things: a powerful N-dimensional array +object, sophisticated (broadcasting) functions, tools for integrating C/C++ +and Fortran code, useful linear algebra, Fourier transform, and random number +capabilities. Version 1.8 is the last one to contain the numpy.oldnumeric API +that includes the compatibility layer numpy.oldnumeric with NumPy's predecessor +Numeric.") + (license license:bsd-3))) + +(define-public python-munch + (package + (name "python-munch") + (version "2.0.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "munch" version)) + (sha256 + (base32 + "1cmqg91xnqx8gvnh4pmp0bfl1dfcm65d5p9mg73zz8pkjhx6h80l")))) + (build-system python-build-system) + (home-page "https://github.com/Infinidat/munch") + (synopsis "Dot-accessible dictionary") + (description "Munch is a dot-accessible dictionary similar to JavaScript +objects.") + (license license:expat))) + +(define-public python2-munch + (package-with-python2 python-munch)) + +(define-public python-colormath + (package + (name "python-colormath") + (version "3.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "colormath" version)) + (sha256 + (base32 + "05qjycgxp3p2f9n6lmic68sxmsyvgnnlyl4z9w7dl9s56jphaiix")))) + (build-system python-build-system) + (propagated-inputs + `(("python-networkx" ,python-networkx) + ("python-numpy" ,python-numpy))) + (home-page "https://github.com/gtaylor/python-colormath") + (synopsis "Color math and conversion library") + (description + "This is a Python library for color math and conversions.") + (license license:bsd-3))) + +(define-public python2-colormath + (package-with-python2 python-colormath)) + +(define-public python-spectra + (package + (name "python-spectra") + (version "0.0.11") + (source + (origin + (method url-fetch) + (uri (pypi-uri "spectra" version)) + (sha256 + (base32 + "1f322x914bhkg6r5gv1vmnir3iy0k5kih0fd2gp3rdkw32jn5cwf")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (zero? (system* "nosetests" "-v"))))))) + (propagated-inputs + `(("python-colormath" ,python-colormath))) + (native-inputs + `(("python-nose" ,python-nose))) + (home-page "https://github.com/jsvine/spectra") + (synopsis "Color scales and color conversion") + (description + "This package provides a Python library intended to make color math, +color scales, and color space conversion easy. It has support for: + +@enumerate +@item Color scales +@item Color ranges +@item Color blending +@item Brightening/darkening colors +@item Saturating/desaturating colors +@item Conversion to/from multiple color spaces. +@end enumerate\n") + (license license:expat))) + +(define-public python2-spectra + (package-with-python2 python-spectra)) + +(define-public python-numpy-documentation + (package + (name "python-numpy-documentation") + (version (package-version python-numpy)) + (source (package-source python-numpy)) + (build-system python-build-system) + (native-inputs + `(("python-matplotlib" ,python-matplotlib) + ("python-numpy" ,python-numpy) + ("pkg-config" ,pkg-config) + ("python-sphinx" ,python-sphinx) + ("python-numpydoc" ,python-numpydoc) + ("texlive" ,(texlive-union (list texlive-fonts-amsfonts + texlive-fonts-cm-super + texlive-fonts-ec + texlive-generic-ifxetex + texlive-generic-pdftex + texlive-latex-amsfonts + texlive-latex-capt-of + texlive-latex-cmap + texlive-latex-environ + texlive-latex-eqparbox + texlive-latex-etoolbox + texlive-latex-expdlist + texlive-latex-fancyhdr + texlive-latex-fancyvrb + texlive-latex-fncychap + texlive-latex-float + texlive-latex-framed + texlive-latex-geometry + texlive-latex-graphics + texlive-latex-hyperref + texlive-latex-mdwtools + texlive-latex-multirow + texlive-latex-needspace + texlive-latex-oberdiek + texlive-latex-parskip + texlive-latex-preview + texlive-latex-tabulary + texlive-latex-threeparttable + texlive-latex-titlesec + texlive-latex-trimspaces + texlive-latex-ucs + texlive-latex-upquote + texlive-latex-url + texlive-latex-varwidth + texlive-latex-wrapfig))) + ("texinfo" ,texinfo) + ("perl" ,perl) + ("scipy-sphinx-theme" + ,(origin ; The build script expects scipy-sphinx-theme as a git submodule + (method git-fetch) + (uri (git-reference + (url "https://github.com/scipy/scipy-sphinx-theme.git") + (commit "c466764e2231ba132c09826b5b138fffa1cfcec3"))) + (sha256 + (base32 + "0q2y87clwlsgc7wvlsn9pzyssybcq10plwhq2w1ydykfsyyqbmkl")))) + ,@(package-native-inputs python-numpy))) + (arguments + `(#:tests? #f ; we're only generating the documentation + #:phases + (modify-phases %standard-phases + (delete 'build) + (replace 'install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((data (string-append (assoc-ref outputs "out") "/share")) + (doc (string-append + data "/doc/" ,name "-" + ,(package-version python-numpy))) + (info-reader (string-append data "/info")) + (html (string-append doc "/html")) + (scipy-sphinx-theme "scipy-sphinx-theme") + (sphinx-theme-checkout (assoc-ref inputs scipy-sphinx-theme)) + (pyver ,(string-append "PYVER="))) + + ;; FIXME: this is needed to for texlive-union to generate + ;; fonts, which are not found. + (setenv "HOME" "/tmp") + + (with-directory-excursion "doc" + (copy-recursively sphinx-theme-checkout scipy-sphinx-theme) + (mkdir-p html) + (system* "make" "html" pyver) + (system* "make" "latex" "PAPER=a4" pyver) + (system* "make" "-C" "build/latex" + "all-pdf" "PAPER=a4" pyver) + ;; FIXME: Generation of the info file fails. + ;; (system* "make" "info" pyver) + ;; (mkdir-p info) + ;; (copy-file "build/texinfo/numpy.info" + ;; (string-append info "/numpy.info")) + (for-each (lambda (file) + (copy-file (string-append "build/latex" file) + (string-append doc file))) + '("/numpy-ref.pdf" "/numpy-user.pdf")) + (with-directory-excursion "build/html" + (for-each (lambda (file) + (let* ((dir (dirname file)) + (tgt-dir (string-append html "/" dir))) + (unless (equal? "." dir) + (mkdir-p tgt-dir)) + (install-file file html))) + (find-files "." ".*"))))) + #t))))) + (home-page (package-home-page python-numpy)) + (synopsis "Documentation for the python-numpy package") + (description (package-description python-numpy)) + (license (package-license python-numpy)))) + +(define-public python2-numpy-documentation + (let ((numpy-documentation (package-with-python2 python-numpy-documentation))) + (package + (inherit numpy-documentation) + (native-inputs `(("python2-functools32" ,python2-functools32) + ,@(package-native-inputs numpy-documentation)))))) + +(define-public python-pygit2 + (package + (name "python-pygit2") + (version "0.27.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pygit2" version)) + (sha256 + (base32 + "046ahvsb7a20sgvscqfm3cb32sp3sii4gim9vz7zzrkf7yz16xlv")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + ;; Remove after the next update. See: + ;; https://github.com/libgit2/pygit2/pull/851 + (add-after 'unpack 'compile-with-cffi + (lambda _ + (substitute* "setup.py" + (("install_requires") + "setup_requires=['cffi'],\n install_requires")) + #t)) + (add-after 'unpack 'fix-dependency-versioning + (lambda _ + (substitute* "setup.py" + (("<") "<=")) + #t))))) + (propagated-inputs + `(("python-six" ,python-six) + ("python-cffi" ,python-cffi) + ("libgit2" ,libgit2) + ("python-tox" ,python-tox))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://github.com/libgit2/pygit2") + (synopsis "Python bindings for libgit2") + (description "Pygit2 is a set of Python bindings to the libgit2 shared +library, libgit2 implements Git plumbing.") + ;; GPL2.0 only, with linking exception. + (license license:gpl2))) + +(define-public python2-pygit2 + (package-with-python2 python-pygit2)) + +(define-public python-pyparsing + (package + (name "python-pyparsing") + (version "2.2.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyparsing" version)) + (sha256 + (base32 "06dgd0iilvf8m0ssmfpcbh8l6jf0zkp8adbb84llksg17crfx4zl")))) + (build-system python-build-system) + (outputs '("out" "doc")) + (arguments + `(#:tests? #f ; no test target + #: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 "https://github.com/pyparsing/pyparsing") + (synopsis "Python parsing class library") + (description + "The pyparsing module is an alternative approach to creating and +executing simple grammars, vs. the traditional lex/yacc approach, or the use +of regular expressions. The pyparsing module provides a library of classes +that client code uses to construct the grammar directly in Python code.") + (license license:expat))) + +(define-public python2-pyparsing + (package-with-python2 python-pyparsing)) + +(define-public python-numpydoc + (package + (name "python-numpydoc") + (version "0.8.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "numpydoc" version)) + (sha256 + (base32 + "1zazxg3m8j4fksv3f7v7vpf4bj9qb1vj3r326am0vdip141vzx31")))) + (build-system python-build-system) + (propagated-inputs + `(("python-sphinx" ,python-sphinx))) + (native-inputs + `(("python-nose" ,python-nose))) + (home-page "https://pypi.python.org/pypi/numpydoc") + (synopsis + "Numpy's Sphinx extensions") + (description + "Sphinx extension to support docstrings in Numpy format.") + (license license:bsd-2))) + +(define-public python2-numpydoc + (package-with-python2 python-numpydoc)) + +(define-public python-numexpr + (package + (name "python-numexpr") + (version "2.6.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "numexpr" version)) + (sha256 + (base32 + "1frnbcwmsi312154x274xl28xazr1k8vjby83fwyla2n10a81bgq")))) + (build-system python-build-system) + (arguments `(#:tests? #f)) ; no tests included + (propagated-inputs + `(("python-numpy" ,python-numpy))) + (home-page "https://github.com/pydata/numexpr") + (synopsis "Fast numerical expression evaluator for NumPy") + (description + "Numexpr is a fast numerical expression evaluator for NumPy. With it, +expressions that operate on arrays are accelerated and use less memory than +doing the same calculation in Python. In addition, its multi-threaded +capabilities can make use of all your cores, which may accelerate +computations, most specially if they are not memory-bounded (e.g. those using +transcendental functions).") + (license license:expat))) + +(define-public python2-numexpr + (package-with-python2 python-numexpr)) + +(define-public python-cycler + (package + (name "python-cycler") + (version "0.10.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "cycler" version)) + (sha256 + (base32 + "1n69n23fak1gjxlrbhqisi2b9pv3ckrfj98llx3p53953082syyd")))) + (build-system python-build-system) + (arguments + ;; XXX: The current version requires 'coveralls' which we don't have. + ;; Enable this for the next release which uses 'python-pytest'. + '(#:tests? #f)) + (propagated-inputs + `(("python-six" ,python-six))) + (home-page "http://matplotlib.org/cycler/") + (synopsis "Composable keyword argument iterator") + (description + "When using @code{matplotlib} and plotting more than one line, it is +common to want to be able to want to be able to cycle over one or more artist +styles; but the plotting logic can quickly become involved. +To address this and enable easy cycling over arbitrary @code{kwargs}, the +@code{Cycler} class was developed.") + (license license:bsd-3))) + +(define-public python2-cycler + (package-with-python2 python-cycler)) + +(define-public python-colorspacious + (package + (name "python-colorspacious") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/njsmith/colorspacious/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version)) + (sha256 + (base32 "1vflh5jm32qb0skza2i8pjacv09w6gq84fqpp2nj77s0rbmzgr4k")))) + (build-system python-build-system) + (propagated-inputs + `(("python-numpy" ,python-numpy))) + (native-inputs + `(("python-nose" ,python-nose))) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (zero? (system* "nosetests" "--all-modules" "-v" "colorspacious"))))))) + (home-page "https://github.com/njsmith/colorspacious") + (synopsis "Python library for colorspace conversions") + (description "@code{colorspacious} is a Python library that lets you +convert between colorspaces like sRGB, XYZ, CIEL*a*b*, CIECAM02, CAM02-UCS, etc.") + (license license:expat))) + +(define-public python2-colorspacious + (package-with-python2 python-colorspacious)) + +(define-public python-matplotlib + (package + (name "python-matplotlib") + (version "2.2.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "matplotlib" version)) + (sha256 + (base32 + "1rcc7x9ig3hpchkc4cwdvym3y451w74275fxr455zkfagrsvymbk")))) + (build-system python-build-system) + (propagated-inputs ; the following packages are all needed at run time + `(("python-cycler" ,python-cycler) + ("python-kiwisolver" ,python-kiwisolver) + ("python-pyparsing" ,python-pyparsing) + ("python-pygobject" ,python-pygobject) + ("gobject-introspection" ,gobject-introspection) + ("python-tkinter" ,python "tk") + ("python-dateutil" ,python-dateutil) + ("python-numpy" ,python-numpy) + ("python-pillow" ,python-pillow) + ("python-pytz" ,python-pytz) + ("python-six" ,python-six) + ;; The 'gtk+' package (and 'gdk-pixbuf', 'atk' and 'pango' propagated + ;; from 'gtk+') provides the required 'typelib' files used by + ;; 'gobject-introspection'. The location of these files is set with the + ;; help of the environment variable GI_TYPELIB_PATH. At build time this + ;; is done automatically by a 'native-search-path' procedure. However, + ;; at run-time the user must set this variable as follows: + ;; + ;; export GI_TYPELIB_PATH=~/.guix-profile/lib/girepository-1.0 + ("gtk+" ,gtk+) + ;; From version 1.4.0 'matplotlib' makes use of 'cairocffi' instead of + ;; 'pycairo'. However, 'pygobject' makes use of a 'pycairo' 'context' + ;; object. For this reason we need to import both libraries. + ;; https://pythonhosted.org/cairocffi/cffi_api.html#converting-pycairo + ("python-pycairo" ,python-pycairo) + ;; XXX: qtwebkit cannot be built reliably. + ("python-pyqt" ,python-pyqt-without-qtwebkit) + ("python-cairocffi" ,python-cairocffi))) + (inputs + `(("libpng" ,libpng) + ("imagemagick" ,imagemagick) + ("freetype" ,freetype) + ("cairo" ,cairo) + ("glib" ,glib) + ;; FIXME: Add backends when available. + ;("python-wxpython" ,python-wxpython) + ("tcl" ,tcl) + ("tk" ,tk))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("python-nose" ,python-nose) + ("python-mock" ,python-mock))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'build 'configure-environment + (lambda* (#:key outputs inputs #:allow-other-keys) + (let ((cairo (assoc-ref inputs "cairo")) + (gtk+ (assoc-ref inputs "gtk+"))) + ;; Setting these directories in the 'basedirlist' of 'setup.cfg' + ;; has not effect. + (setenv "LD_LIBRARY_PATH" + (string-append cairo "/lib:" gtk+ "/lib")) + (setenv "HOME" (getcwd)) + (call-with-output-file "setup.cfg" + (lambda (port) + (format port "[directories]~% +basedirlist = ~a,~a~% + [rc_options]~% +backend = TkAgg~%" + (assoc-ref inputs "tcl") + (assoc-ref inputs "tk"))))) + #t))))) + (home-page "http://matplotlib.org") + (synopsis "2D plotting library for Python") + (description + "Matplotlib is a Python 2D plotting library which produces publication +quality figures in a variety of hardcopy formats and interactive environments +across platforms. Matplotlib can be used in Python scripts, the python and +ipython shell, web application servers, and six graphical user interface +toolkits.") + (license license:psfl) + (properties `((python2-variant . ,(delay python2-matplotlib)))))) + +(define-public python2-matplotlib + (let ((matplotlib (package-with-python2 + (strip-python2-variant python-matplotlib)))) + (package (inherit matplotlib) + ;; Make sure to use special packages for Python 2 instead + ;; of those automatically rewritten by package-with-python2. + (propagated-inputs + `(("python2-pycairo" ,python2-pycairo) + ("python2-backports-functools-lru-cache" + ,python2-backports-functools-lru-cache) + ("python2-functools32" ,python2-functools32) + ("python2-pygobject-2" ,python2-pygobject-2) + ("python2-subprocess32" ,python2-subprocess32) + ("python2-tkinter" ,python-2 "tk") + ,@(fold alist-delete (package-propagated-inputs matplotlib) + '("python-pycairo" "python-pygobject" "python-tkinter"))))))) + +(define-public python-matplotlib-documentation + (package + (name "python-matplotlib-documentation") + (version (package-version python-matplotlib)) + (source (package-source python-matplotlib)) + (build-system python-build-system) + (native-inputs + `(("python-matplotlib" ,python-matplotlib) + ("python-colorspacious" ,python-colorspacious) + ("python-sphinx" ,python-sphinx) + ("python-sphinx-gallery" ,python-sphinx-gallery) + ("python-numpydoc" ,python-numpydoc) + ("python-ipython" ,python-ipython) + ("python-mock" ,python-mock) + ("graphviz" ,graphviz) + ("texlive" ,texlive) + ("texinfo" ,texinfo) + ,@(package-native-inputs python-matplotlib))) + (arguments + `(#:tests? #f ; we're only generating documentation + #:phases + (modify-phases %standard-phases + (replace 'build + (lambda _ + (chdir "doc") + ;; Produce pdf in 'A4' format. + (substitute* "conf.py" + (("latex_paper_size = 'letter'") "") + ;; latex_paper_size is deprecated -> set paper size using + ;; latex_elements + (("latex_elements\\['pointsize'\\] = '11pt'" match) + ;; insert at a point where latex_elements{} is defined: + (string-append match "\nlatex_elements['papersize'] = 'a4paper'"))) + (invoke "make" "SPHINXBUILD=sphinx-build" "html" "latex" "texinfo"))) + (replace 'install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((data (string-append (assoc-ref outputs "out") "/share")) + (doc (string-append data "/doc/python-matplotlib-" ,version)) + (info (string-append data "/info")) + (html (string-append doc "/html"))) + (mkdir-p html) + (mkdir-p info) + (copy-recursively "build/html" html) + (symlink (string-append html "/_images") + (string-append info "/matplotlib-figures")) + (with-directory-excursion "build/texinfo" + (substitute* "matplotlib.texi" + (("@image\\{([^,]*)" all file) + (string-append "@image{matplotlib-figures/" file))) + (symlink (string-append html "/_images") + "./matplotlib-figures") + (system* "makeinfo" "--no-split" + "-o" "matplotlib.info" "matplotlib.texi")) + (copy-file "build/texinfo/matplotlib.info" + (string-append info "/matplotlib.info")) + (copy-file "build/latex/Matplotlib.pdf" + (string-append doc "/Matplotlib.pdf"))) + #t))))) + (home-page (package-home-page python-matplotlib)) + (synopsis "Documentation for the python-matplotlib package") + (description (package-description python-matplotlib)) + (license (package-license python-matplotlib)))) + +(define-public python2-matplotlib-documentation + (package-with-python2 python-matplotlib-documentation)) + +(define-public python2-pysnptools + (package + (name "python2-pysnptools") + (version "0.3.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pysnptools" version ".zip")) + (sha256 + (base32 + "1wybggjzz8zw7aav4pjsg2h22xp17a1lghrprza1pxwlm7wf96y2")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2)) ; only Python 2.7 is supported + (propagated-inputs + `(("python2-numpy" ,python2-numpy) + ("python2-scipy" ,python2-scipy) + ("python2-pandas" ,python2-pandas))) + (native-inputs + `(("python2-cython" ,python2-cython))) + (native-inputs + `(("unzip" ,unzip))) + (home-page "http://research.microsoft.com/en-us/um/redmond/projects/mscompbio/") + (synopsis "Library for reading and manipulating genetic data") + (description + "PySnpTools is a library for reading and manipulating genetic data. It +can, for example, efficiently read whole PLINK *.bed/bim/fam files or parts of +those files. It can also efficiently manipulate ranges of integers using set +operators such as union, intersection, and difference.") + (license license:asl2.0))) + +(define-public python-scipy + (package + (name "python-scipy") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "scipy" version)) + (sha256 + (base32 + "1lfg686w6vv2m2dfs8v9d0bf2i18z7wz5vgzjnkgmpr4hi0550w7")))) + (build-system python-build-system) + (propagated-inputs + `(("python-numpy" ,python-numpy) + ("python-matplotlib" ,python-matplotlib) + ("python-pyparsing" ,python-pyparsing))) + (inputs + `(("lapack" ,lapack) + ("openblas" ,openblas))) + (native-inputs + `(("python-cython" ,python-cython) + ("python-pytest" ,python-pytest) + ("python-sphinx" ,python-sphinx) + ("python-numpydoc" ,python-numpydoc) + ("gfortran" ,gfortran) + ("perl" ,perl) + ("which" ,which))) + (outputs '("out" "doc")) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'disable-broken-tests + (lambda _ + (substitute* "scipy/sparse/linalg/dsolve/tests/test_linsolve.py" + (("^( +)def test_threads_parallel\\(self\\):" m indent) + (string-append indent + "@pytest.mark.skip(reason=\"Disabled by Guix\")\n" + m))) + (substitute* "scipy/sparse/linalg/eigen/arpack/tests/test_arpack.py" + (("^def test_parallel_threads\\(\\):" m) + (string-append "@pytest.mark.skip(reason=\"Disabled by Guix\")\n" + m))) + #t)) + (add-before 'build 'configure-openblas + (lambda* (#:key inputs #:allow-other-keys) + (call-with-output-file "site.cfg" + (lambda (port) + (format port + "[blas] +libraries = openblas +library_dirs = ~a/lib +include_dirs = ~a/include + +# backslash-n to make emacs happy +\n[atlas] +library_dirs = ~a/lib +atlas_libs = openblas +" + (assoc-ref inputs "openblas") + (assoc-ref inputs "openblas") + (assoc-ref inputs "openblas")))) + #t)) + (add-after 'install 'install-doc + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((data (string-append (assoc-ref outputs "doc") "/share")) + (doc (string-append data "/doc/" ,name "-" ,version)) + (html (string-append doc "/html")) + (pyver ,(string-append "PYVER=" (version-major+minor + (package-version python)))) + ;; By default it tries to run sphinx-build through the Python + ;; interpreter which won't work with our shell wrapper. + (sphinxbuild "SPHINXBUILD=LANG=C sphinx-build")) + ;; Make installed package available for building the + ;; documentation + (add-installed-pythonpath inputs outputs) + (with-directory-excursion "doc" + ;; Fix generation of images for mathematical expressions. + (substitute* (find-files "source" "conf\\.py") + (("pngmath_use_preview = True") + "pngmath_use_preview = False")) + (mkdir-p html) + (invoke "make" "html" pyver sphinxbuild) + (with-directory-excursion "build/html" + (for-each (lambda (file) + (let* ((dir (dirname file)) + (tgt-dir (string-append html "/" dir))) + (install-file file html))) + (find-files "." ".*"))))) + #t)) + ;; Tests can only be run after the library has been installed and not + ;; within the source directory. + (delete 'check) + (add-after 'install 'check + (lambda* (#:key inputs outputs #:allow-other-keys) + (add-installed-pythonpath inputs outputs) + (with-directory-excursion "/tmp" + (invoke "python" "-c" + "import scipy; scipy.test(verbose=2)"))))))) + (home-page "https://www.scipy.org/") + (synopsis "The Scipy library provides efficient numerical routines") + (description "The SciPy library is one of the core packages that make up +the SciPy stack. It provides many user-friendly and efficient numerical +routines such as routines for numerical integration and optimization.") + (properties `((python2-variant . ,(delay python2-scipy)))) + (license license:bsd-3))) + +(define-public python2-scipy + (package-with-python2 + (strip-python2-variant python-scipy))) + +(define-public python-socksipy-branch + (package + (name "python-socksipy-branch") + (version "1.01") + (source + (origin + (method url-fetch) + (uri (pypi-uri "SocksiPy-branch" version)) + (sha256 + (base32 + "01l41v4g7fy9fzvinmjxy6zcbhgqaif8dhdqm4w90fwcw9h51a8p")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ; There are no tests + (home-page "https://code.google.com/archive/p/socksipy-branch/") + (synopsis "Python SOCKS module") + (description + "SocksiPy - A Python SOCKS client module. It provides a +socket-like interface that supports connections to any TCP +service through the use of a SOCKS4, SOCKS5 or HTTP proxy. +The original version was developed by Dan Haim, this is a +branch created by Mario Vilas to address some open issues, +as the original project seems to have been abandoned circa 2007.") + (license license:bsd-3))) + +(define-public python2-socksipy-branch + (package-with-python2 python-socksipy-branch)) + +(define-public python-pycodestyle + (package + (name "python-pycodestyle") + (version "2.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pycodestyle" version)) + (sha256 + (base32 + "0fhy4vnlgpjq4qd1wdnl6pvdw7rah0ypmn8c9mkhz8clsndskz6b")))) + (build-system python-build-system) + (home-page "https://pycodestyle.readthedocs.io/") + (synopsis "Python style guide checker") + (description "@code{pycodestyle} (formerly pep8) is a tool to check +Python code against some of the style conventions in +@url{http://www.python.org/dev/peps/pep-0008/,PEP 8}.") + (license license:expat))) + +(define-public python2-pycodestyle + (package-with-python2 python-pycodestyle)) + +(define-public python-multidict + (package + (name "python-multidict") + (version "4.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "multidict" version)) + (sha256 + (base32 + "1vf5bq8hn5a9rvhr5v4fwbmarfsp35hhr8gs74kqfijy34j2f194")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://github.com/aio-libs/multidict/") + (synopsis "Multidict implementation") + (description "Multidict is dict-like collection of key-value pairs +where key might be occurred more than once in the container.") + (license license:asl2.0))) + +(define-public python-orderedmultidict + (package + (name "python-orderedmultidict") + (version "0.7.11") + (source + (origin + (method url-fetch) + (uri (pypi-uri "orderedmultidict" version)) + (sha256 + (base32 + "0dls862ibm7qbq4fnvwx0xn1v9hwyzywbff8xjjdr42dd75208yw")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-tests + (lambda _ + ;; The package uses nosetest for running the tests. + ;; Adding this initfile allows to run the test suite + ;; without requiring nosetest. + (zero? (system* "touch" "tests/__init__.py"))))))) + (propagated-inputs + `(("python-six" ,python-six))) + (native-inputs + `(("python-pycodestyle" ,python-pycodestyle))) + (home-page "https://github.com/gruns/orderedmultidict") + (synopsis "Python Ordered Multivalue Dictionary - omdict") + (description "This package contains a library for ordered multivalue +dictionaries. A multivalue dictionary is a dictionary that can store +multiple values for the same key. An ordered multivalue dictionary is a +multivalue dictionary that retains the order of insertions and deletions.") + (license license:unlicense))) + +(define-public python2-orderedmultidict + (package-with-python2 python-orderedmultidict)) + +(define-public python-autopep8 + (package + (name "python-autopep8") + (version "1.3.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "autopep8" version)) + (sha256 + (base32 + "192bvhzi4d0claqxgzymvv7k3qnj627742bc8sgxpzjj42pd9112")))) + (build-system python-build-system) + (propagated-inputs + `(("python-pycodestyle" ,python-pycodestyle))) + (home-page "https://github.com/hhatto/autopep8") + (synopsis "Format Python code according to the PEP 8 style guide") + (description + "@code{autopep8} automatically formats Python code to conform to +the PEP 8 style guide. It uses the pycodestyle utility to determine +what parts of the code needs to be formatted. @code{autopep8} is +capable of fixing most of the formatting issues that can be reported +by pycodestyle.") + (license (license:non-copyleft + "https://github.com/hhatto/autopep8/blob/master/LICENSE")))) + +(define-public python2-autopep8 + (package-with-python2 python-autopep8)) + +(define-public python-distutils-extra + (package + (name "python-distutils-extra") + (version "2.38") + (source + (origin + (method url-fetch) + (uri (string-append "https://launchpad.net/python-distutils-extra/trunk/" + version "/+download/python-distutils-extra-" + version ".tar.gz")) + (sha256 + (base32 + "0lx15kcbby9zisx33p2h5hgakgwh2bvh0ibag8z0px4j6ifhs41x")))) + (build-system python-build-system) + (home-page "https://launchpad.net/python-distutils-extra/") + (synopsis "Enhancements to Python's distutils") + (description + "The python-distutils-extra module enables you to easily integrate +gettext support, themed icons, and scrollkeeper-based documentation into +Python's distutils.") + (license license:gpl2))) + +(define-public python2-distutils-extra + (package-with-python2 python-distutils-extra)) + +(define-public python2-elib.intl + (package + (name "python2-elib.intl") + (version "0.0.3") + (source + (origin + ;; This project doesn't tag releases or publish tarballs, so we take + ;; source from a (semi-arbitrary, i.e. latest as of now) git commit. + (method git-fetch) + (uri (git-reference + (url "https://github.com/dieterv/elib.intl.git") + (commit "d09997cfef"))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0y7vzff9xgbnaay7m0va1arl6g68ncwrvbgwl7jqlclsahzzb09d")))) + (build-system python-build-system) + (arguments + ;; incompatible with Python 3 (exception syntax) + `(#:python ,python-2 + #:tests? #f)) + (home-page "https://github.com/dieterv/elib.intl") + (synopsis "Enhanced internationalization for Python") + (description + "The elib.intl module provides enhanced internationalization (I18N) +services for your Python modules and applications.") + (license license:lgpl3+))) + +(define-public python-olefile + (package + (name "python-olefile") + (version "0.45.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/decalage2/olefile/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "18ai19zwagm6nli14k8bii31ipbab2rp7plrvsm6gmfql551a8ai")))) + (build-system python-build-system) + (home-page + "https://www.decalage.info/python/olefileio") + (synopsis "Read and write Microsoft OLE2 files.") + (description + "@code{olefile} can parse, read and write Microsoft OLE2 files (Structured +Storage or Compound Document, Microsoft Office). It is an improved version of +the OleFileIO module from PIL, the Python Image Library.") + (license license:bsd-3))) + +(define-public python2-olefile + (package-with-python2 python-olefile)) + +(define-public python-pillow + (package + (name "python-pillow") + (version "5.4.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Pillow" version)) + (sha256 + (base32 + "17waygkhhzjd75kajlfw9v57mbb41lcpg6cvkdijqd7smm76ccsj")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest))) + (inputs + `(("freetype" ,freetype) + ("lcms" ,lcms) + ("zlib" ,zlib) + ("libjpeg" ,libjpeg) + ("openjpeg" ,openjpeg) + ("libtiff" ,libtiff) + ("libwebp" ,libwebp))) + (propagated-inputs + `(("python-olefile" ,python-olefile))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-ldconfig + (lambda _ + (substitute* "setup.py" + (("\\['/sbin/ldconfig', '-p'\\]") "['true']")))) + (delete 'check) ; We must run checks after python-pillow is installed. + (add-after 'install 'check-installed + (lambda* (#:key outputs inputs #:allow-other-keys) + (begin + (setenv "HOME" (getcwd)) + ;; Make installed package available for running the tests. + (add-installed-pythonpath inputs outputs) + (invoke "python" "selftest.py" "--installed") + (invoke "python" "-m" "pytest" "-vv"))))))) + (home-page "https://python-pillow.org") + (synopsis "Fork of the Python Imaging Library") + (description + "The Python Imaging Library adds image processing capabilities to your +Python interpreter. This library provides extensive file format support, an +efficient internal representation, and fairly powerful image processing +capabilities. The core image library is designed for fast access to data +stored in a few basic pixel formats. It should provide a solid foundation for +a general image processing tool.") + (license (license:x11-style + "http://www.pythonware.com/products/pil/license.htm" + "The PIL Software License")))) + +(define-public python2-pillow + (package-with-python2 python-pillow)) + +(define-public python-pycparser + (package + (name "python-pycparser") + (version "2.18") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pycparser" version)) + (sha256 + (base32 + "09mjyw82ibqzl449g7swy8bfxnfpmas0815d2rkdjlcqw81wma4r")))) + (outputs '("out" "doc")) + (build-system python-build-system) + (native-inputs + `(("pkg-config" ,pkg-config))) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (with-directory-excursion "tests" + (zero? (system* "python" "all_tests.py"))))) + (add-after 'install 'install-doc + (lambda* (#:key outputs #:allow-other-keys) + (let* ((data (string-append (assoc-ref outputs "doc") "/share")) + (doc (string-append data "/doc/" ,name "-" ,version)) + (examples (string-append doc "/examples"))) + (mkdir-p examples) + (for-each (lambda (file) + (copy-file (string-append "." file) + (string-append doc file))) + '("/README.rst" "/CHANGES" "/LICENSE")) + (copy-recursively "examples" examples))))))) + (home-page "https://github.com/eliben/pycparser") + (synopsis "C parser in Python") + (description + "Pycparser is a complete parser of the C language, written in pure Python +using the PLY parsing library. It parses C code into an AST and can serve as +a front-end for C compilers or analysis tools.") + (license license:bsd-3))) + +(define-public python2-pycparser + (package-with-python2 python-pycparser)) + +(define-public python-pywavelets + (package + (name "python-pywavelets") + (version "1.0.1") + (home-page "https://github.com/PyWavelets/pywt") + (source (origin + (method url-fetch) + (uri (pypi-uri "PyWavelets" version)) + (sha256 + (base32 + "1p3qv2v66ghnqrb1f98wyyhp9dz71jwcd6kfpsax65sfdpiyqp1w")))) + (build-system python-build-system) + (arguments + '(#:modules ((ice-9 ftw) + (srfi srfi-1) + (srfi srfi-26) + (guix build utils) + (guix build python-build-system)) + #:phases (modify-phases %standard-phases + (replace 'check + (lambda _ + (let ((cwd (getcwd)) + (libdir (find (cut string-prefix? "lib." <>) + (scandir "build")))) + (with-directory-excursion (string-append cwd "/build/" libdir) + (invoke "nosetests" "-v" ".")))))))) + (native-inputs + `(("python-matplotlib" ,python-matplotlib) ;for tests + ("python-nose" ,python-nose))) + (propagated-inputs + `(("python-numpy" ,python-numpy))) + (synopsis "Wavelet transforms in Python") + (description + "PyWavelets is a library for wavelet transforms in Python. Wavelets are +mathematical basis functions that are localized in both time and frequency. +Wavelet transforms are time-frequency transforms employing wavelets. They are +similar to Fourier transforms, the difference being that Fourier transforms are +localized only in frequency instead of in time and frequency.") + (license license:expat))) + +(define-public python2-pywavelets + (package-with-python2 python-pywavelets)) + +(define-public python-xcffib + (package + (name "python-xcffib") + (version "0.6.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "xcffib" version)) + (sha256 + (base32 + "04k91yxyb3pgc5lvxmivh8w71yjrap2g57yk3s73x4rm4nvjq51n")))) + (build-system python-build-system) + (inputs + `(("libxcb" ,libxcb))) + (propagated-inputs + `(("python-cffi" ,python-cffi) ; used at run time + ("python-six" ,python-six))) + (arguments + `(;; FIXME: Tests need more work. See ".travis.yml" in the repository. + #:tests? #f + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-libxcb-path + (lambda* (#:key inputs #:allow-other-keys) + (let ((libxcb (assoc-ref inputs "libxcb"))) + (substitute* '("xcffib/__init__.py") + (("^soname = \"") (string-append "soname = \"" libxcb "/lib/"))) + #t))) + (add-after 'install 'install-doc + (lambda* (#:key outputs #:allow-other-keys) + (let ((doc (string-append (assoc-ref outputs "out") "/share" + "/doc/" ,name "-" ,version))) + (mkdir-p doc) + (copy-file "README.md" + (string-append doc "/README.md")) + #t)))))) + (home-page "https://github.com/tych0/xcffib") + (synopsis "XCB Python bindings") + (description + "Xcffib is a replacement for xpyb, an XCB Python bindings. It adds +support for Python 3 and PyPy. It is based on cffi.") + (license license:expat))) + +(define-public python2-xcffib + (package-with-python2 python-xcffib)) + +(define-public python-cairocffi + (package + (name "python-cairocffi") + (version "0.9.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "cairocffi" version)) + (sha256 + (base32 + "0dq3k4zhqd8cwsf3nyjqvjqm8wkvrjn1wjf44rl3v0h8kqx6qf0m")) + (patches (search-patches "python-cairocffi-dlopen-path.patch")))) + (build-system python-build-system) + (outputs '("out" "doc")) + (inputs + `(("glib" ,glib) + ("gtk+" ,gtk+) + ("gdk-pixbuf" ,gdk-pixbuf) + ("cairo" ,cairo) + ("pango" ,pango))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("python-pytest" ,python-pytest) + ("python-pytest-cov" ,python-pytest-cov) + ("python-pytest-runner" ,python-pytest-runner) + ("python-sphinx" ,python-sphinx) + ("python-docutils" ,python-docutils))) + (propagated-inputs + `(("python-xcffib" ,python-xcffib))) ; used at run time + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-paths + (lambda* (#:key inputs outputs #:allow-other-keys) + (substitute* (find-files "." "\\.py$") + (("dlopen\\(ffi, 'cairo'") + (string-append "dlopen(ffi, '" (assoc-ref inputs "cairo") + "/lib/libcairo.so.2'")) + (("dlopen\\(ffi, 'gdk-3'") + (string-append "dlopen(ffi, '" (assoc-ref inputs "gtk+") + "/lib/libgtk-3.so.0'")) + (("dlopen\\(ffi, 'gdk_pixbuf-2.0'") + (string-append "dlopen(ffi, '" (assoc-ref inputs "gdk-pixbuf") + "/lib/libgdk_pixbuf-2.0.so.0'")) + (("dlopen\\(ffi, 'glib-2.0'") + (string-append "dlopen(ffi, '" (assoc-ref inputs "glib") + "/lib/libglib-2.0.so.0'")) + (("dlopen\\(ffi, 'gobject-2.0'") + (string-append "dlopen(ffi, '" (assoc-ref inputs "glib") + "/lib/libgobject-2.0.so.0'")) + (("dlopen\\(ffi, 'pangocairo-1.0'") + (string-append "dlopen(ffi, '" (assoc-ref inputs "pango") + "/lib/libpangocairo-1.0.so.0'")) + (("dlopen\\(ffi, 'pango-1.0'") + (string-append "dlopen(ffi, '" (assoc-ref inputs "pango") + "/lib/libpango-1.0.so.0'"))) + #t)) + (add-after 'install 'install-doc + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((data (string-append (assoc-ref outputs "doc") "/share")) + (doc (string-append data "/doc/" ,name "-" ,version)) + (html (string-append doc "/html"))) + (setenv "LD_LIBRARY_PATH" + (string-append (assoc-ref inputs "cairo") "/lib" ":" + (assoc-ref inputs "gdk-pixbuf") "/lib")) + (setenv "LANG" "en_US.UTF-8") + (mkdir-p html) + (for-each (lambda (file) + (copy-file (string-append "." file) + (string-append doc file))) + '("/README.rst" "/CHANGES" "/LICENSE")) + (system* "python" "setup.py" "build_sphinx") + (copy-recursively "docs/_build/html" html) + #t)))))) + (home-page "https://github.com/Kozea/cairocffi") + (synopsis "Python bindings and object-oriented API for Cairo") + (description + "Cairocffi is a CFFI-based drop-in replacement for Pycairo, a set of +Python bindings and object-oriented API for cairo. Cairo is a 2D vector +graphics library with support for multiple backends including image buffers, +PNG, PostScript, PDF, and SVG file output.") + (license license:bsd-3))) + +(define-public python2-cairocffi + (package-with-python2 python-cairocffi)) + +(define-public python-decorator + (package + (name "python-decorator") + (version "4.3.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "decorator" version)) + (sha256 + (base32 "0308djallnh00v112y5b7nadl657ysmkp6vc8xn51d6yzc9zm7n3")))) + (build-system python-build-system) + (home-page "https://pypi.python.org/pypi/decorator/") + (synopsis "Python module to simplify usage of decorators") + (description + "The aim of the decorator module is to simplify the usage of decorators +for the average programmer, and to popularize decorators usage giving examples +of useful decorators, such as memoize, tracing, redirecting_stdout, locked, +etc. The core of this module is a decorator factory.") + (license license:expat))) + +(define-public python2-decorator + (package-with-python2 python-decorator)) + +(define-public python-drmaa + (package + (name "python-drmaa") + (version "0.7.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "drmaa" version)) + (sha256 + (base32 "0xzqriqyvk5b8hszbavsyxd29wm3sxirm8zvvdm73rs2iq7w4hkx")))) + (build-system python-build-system) + ;; The test suite requires libdrmaa which is provided by the cluster + ;; environment. At runtime the environment variable DRMAA_LIBRARY_PATH + ;; should be set to the path of the libdrmaa library. + (arguments '(#:tests? #f)) + (native-inputs + `(("python-nose" ,python-nose))) + (home-page "https://pypi.python.org/pypi/drmaa") + (synopsis "Python bindings for the DRMAA library") + (description + "A Python package for Distributed Resource Management (DRM) job +submission and control. This package is an implementation of the DRMAA 1.0 +Python language binding specification.") + (license license:bsd-3))) + +(define-public python2-drmaa + (package-with-python2 python-drmaa)) + +(define-public python-grako + (package + (name "python-grako") + (version "3.99.9") + (source + (origin + (method url-fetch) + (uri + (pypi-uri "grako" version ".zip")) + (sha256 + (base32 + "0r63i68wcnv63rfjkasq1ah81frz61a6mzbcnaxhrkdpx84p7hzw")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; Test file 'grako.ebnf' is missing from archive. + (native-inputs + `(("unzip" ,unzip) + ("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://bitbucket.org/neogeny/grako") + (synopsis "EBNF parser generator") + (description + "Grako takes a grammar in a variation of EBNF as input, and outputs a +memoizing PEG/Packrat parser in Python.") + (license license:bsd-3))) + +(define-public python2-grako + (package-with-python2 python-grako)) + +(define-public python-gridmap + (package + (name "python-gridmap") + (version "0.13.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/pygridtools/gridmap/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "1gzjg2k6f14i1msm2b0ax8d9ds1hvk6qd5nlaivg8m4cxqp4cp1x")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; FIXME: Requires python-cherrypy. + (propagated-inputs + `(("python-psutil" ,python-psutil) + ("python-drmaa" ,python-drmaa) + ("python-pyzmq" ,python-pyzmq))) + (home-page "https://github.com/pygridtools/gridmap") + (synopsis "Create jobs on a cluster directly from Python") + (description + "Gridmap is a Python package to allow you to easily create jobs on the +cluster directly from Python. You can directly map Python functions onto the +cluster without needing to write any wrapper code yourself.") + (license license:gpl3+))) + +(define-public python2-gridmap + (package-with-python2 python-gridmap)) + +(define-public python-honcho + (package + (name "python-honcho") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/nickstenning/honcho/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "0zizn61n5z5hq421hkypk9pw8s6fpxw30f4hsg7k4ivwzy3gjw9j")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-mock" ,python-mock) + ("python-tox" ,python-tox) + ("which" ,which))) ;for tests + (propagated-inputs + `(("python-jinja2" ,python-jinja2))) + (arguments + `(#:phases + (modify-phases %standard-phases + (delete 'check) + (add-after 'install 'check + (lambda* (#:key outputs inputs #:allow-other-keys) + ;; fix honcho path in testsuite + (substitute* "tests/conftest.py" + (("'honcho'") (string-append "'" (assoc-ref outputs "out") + "/bin/honcho" "'"))) + ;; It's easier to run tests after install. + ;; Make installed package available for running the tests + (add-installed-pythonpath inputs outputs) + (zero? (system* "py.test" "-v"))))))) + (home-page "https://github.com/nickstenning/honcho") + (synopsis "Manage Procfile-based applications") + (description + "A Procfile is a file which describes how to run an application +consisting of serveral processes. honcho starts all listed processes. +The output of all running processes is collected by honcho and +displayed.") + (license license:expat))) + +(define-public python2-honcho + (package-with-python2 python-honcho)) + +(define-public python-pexpect + (package + (name "python-pexpect") + (version "4.6.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pexpect" version)) + (sha256 + (base32 "1fla85g47iaxxpjhp9vkxdnv4pgc7rplfy6ja491smrrk0jqi3ia")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'prepare-tests + (lambda _ + (substitute* (find-files "tests") + (("/bin/ls") (which "ls")) + (("/bin/echo") (which "echo")) + (("/bin/which") (which "which")) + ;; Many tests try to use the /bin directory which + ;; is not present in the build environment. + ;; Use one that's non-empty and unlikely to change. + (("/bin'") "/dev'")) + ;; XXX: Socket connection test gets "Connection reset by peer". + ;; Why does it not work? Delete for now. + (delete-file "tests/test_socket.py") + #t)) + (replace 'check (lambda _ (invoke "nosetests" "-v")))))) + (native-inputs + `(("python-nose" ,python-nose) + ("python-pytest" ,python-pytest) + ("man-db" ,man-db) + ("which" ,which) + ("bash-full" ,bash))) ;full Bash for 'test_replwrap.py' + (propagated-inputs + `(("python-ptyprocess" ,python-ptyprocess))) + (home-page "http://pexpect.readthedocs.org/") + (synopsis "Controlling interactive console applications") + (description + "Pexpect is a pure Python module for spawning child applications; +controlling them; and responding to expected patterns in their output. +Pexpect works like Don Libes’ Expect. Pexpect allows your script to spawn a +child application and control it as if a human were typing commands.") + (license license:isc))) + +(define-public python2-pexpect + (package-with-python2 python-pexpect)) + +(define-public python-setuptools-scm + (package + (name "python-setuptools-scm") + (version "3.1.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "setuptools_scm" version)) + (sha256 + (base32 + "0h4bglwfz8b9prqljv8z3w9rgydfyxzaj05bm1y6zs5m6shz548i")))) + (build-system python-build-system) + (home-page "https://github.com/pypa/setuptools_scm/") + (synopsis "Manage Python package versions in SCM metadata") + (description + "Setuptools_scm handles managing your Python package versions in +@dfn{software configuration management} (SCM) metadata instead of declaring +them as the version argument or in a SCM managed file.") + (license license:expat))) + +(define-public python2-setuptools-scm + (package-with-python2 python-setuptools-scm)) + +(define-public python-pathpy + (package + (name "python-pathpy") + (version "11.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "path.py" version)) + (sha256 + (base32 "07x15v8c7ry9bvycw294c9yq6ky9v2b0dalvgi6rn38ilh69vsz7")))) + ;; (outputs '("out" "doc")) + (build-system python-build-system) + (propagated-inputs + `(("python-appdirs" ,python-appdirs))) + (native-inputs + `(("python-setuptools-scm" ,python-setuptools-scm) + ("python-sphinx" ,python-sphinx) + ("python-rst.linker" ,python-rst.linker) + ("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner))) + (arguments + ;; FIXME: Documentation and tests require "jaraco.packaging". + `(#:tests? #f)) + ;; #:phases + ;; (modify-phases %standard-phases + ;; (add-after 'build 'build-doc + ;; (lambda _ + ;; (setenv "LANG" "en_US.UTF-8") + ;; (zero? (system* "python" "setup.py" "build_sphinx")))) + ;; (add-after 'install 'install-doc + ;; (lambda* (#:key outputs #:allow-other-keys) + ;; (let* ((data (string-append (assoc-ref outputs "doc") "/share")) + ;; (doc (string-append data "/doc/" ,name "-" ,version)) + ;; (html (string-append doc "/html"))) + ;; (mkdir-p html) + ;; (for-each (lambda (file) + ;; (copy-file file (string-append doc "/" file))) + ;; '("README.rst" "CHANGES.rst")) + ;; (copy-recursively "build/sphinx/html" html))))))) + (home-page "https://github.com/jaraco/path.py") + (synopsis "Python module wrapper for built-in os.path") + (description + "@code{path.py} implements path objects as first-class entities, allowing +common operations on files to be invoked on those path objects directly.") + (license license:expat))) + +(define-public python2-pathpy + (package-with-python2 python-pathpy)) + +(define-public python-simplegeneric + (package + (name "python-simplegeneric") + (version "0.8.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://pypi.python.org/packages/source/s/" + "simplegeneric/simplegeneric-" version ".zip")) + (sha256 + (base32 "0wwi1c6md4vkbcsfsf8dklf3vr4mcdj4mpxkanwgb6jb1432x5yw")))) + (build-system python-build-system) + (native-inputs + `(("unzip" ,unzip))) + (home-page "http://cheeseshop.python.org/pypi/simplegeneric") + (synopsis "Python module for simple generic functions") + (description + "The simplegeneric module lets you define simple single-dispatch generic +functions, akin to Python’s built-in generic functions like @code{len()}, +@code{iter()} and so on. However, instead of using specially-named methods, +these generic functions use simple lookup tables, akin to those used by +e.g. @code{pickle.dump()} and other generic functions found in the Python +standard library.") + (license license:zpl2.1))) + +(define-public python2-simplegeneric + (package-with-python2 python-simplegeneric)) + +(define-public python-ipython-genutils + ;; TODO: This package is retired, check if can be removed, see description. + (package + (name "python-ipython-genutils") + (version "0.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://pypi.python.org/packages/source/i/" + "ipython_genutils/ipython_genutils-" + version ".tar.gz")) + (sha256 + (base32 "19l2pp1c64ansr89l3cqh19jdi2ixhssdzx0vz4n6r52a6i281is")))) + (build-system python-build-system) + (arguments `(#:tests? #f)) ; no tests + (home-page "https://ipython.org") + (synopsis "Vestigial utilities from IPython") + (description + "This package provides retired utilities from IPython. No packages +outside IPython/Jupyter should depend on it. + +This package shouldn't exist. It contains some common utilities shared by +Jupyter and IPython projects during The Big Split. As soon as possible, those +packages will remove their dependency on this, and this package will go +away.") + (license license:bsd-3))) + +(define-public python2-ipython-genutils + (package-with-python2 python-ipython-genutils)) + +(define-public python-traitlets + (package + (name "python-traitlets") + (version "4.3.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "traitlets" version)) + (sha256 + (base32 + "0dbq7sx26xqz5ixs711k5nc88p8a0nqyz6162pwks5dpcz9d4jww")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check (lambda _ (invoke "pytest" "-vv" "traitlets")))))) + (propagated-inputs + `(("python-ipython-genutils" ,python-ipython-genutils) + ("python-decorator" ,python-decorator))) ;not needed for >4.3.2 + (native-inputs + `(("python-pytest" ,python-pytest))) + (properties `((python2-variant . ,(delay python2-traitlets)))) + (home-page "https://ipython.org") + (synopsis "Configuration system for Python applications") + (description + "Traitlets is a framework that lets Python classes have attributes with +type checking, dynamically calculated default values, and ‘on change’ +callbacks. The package also includes a mechanism to use traitlets for +configuration, loading values from files or from command line arguments. This +is a distinct layer on top of traitlets, so you can use traitlets in your code +without using the configuration machinery.") + (license license:bsd-3))) + +(define-public python2-traitlets + (let ((traitlets (package-with-python2 (strip-python2-variant python-traitlets)))) + (package + (inherit traitlets) + (propagated-inputs + `(("python2-enum34" ,python2-enum34) + ,@(package-propagated-inputs traitlets)))))) + +(define-public python-jupyter-core + (package + (name "python-jupyter-core") + (version "4.4.0") + (source + (origin + (method url-fetch) + (uri (string-append (pypi-uri "jupyter_core" version))) + (sha256 + (base32 + "1dy083rarba8prn9f9srxq3c7n7vyql02ycrqq306c40lr57aw5s")))) + (build-system python-build-system) + ;; FIXME: not sure how to run the tests + (arguments `(#:tests? #f)) + (propagated-inputs + `(("python-traitlets" ,python-traitlets))) + (home-page "http://jupyter.org/") + (synopsis "Jupyter base package") + (description + "Jupyter core is the base package on which Jupyter projects rely.") + (license license:bsd-3))) + +(define-public python2-jupyter-core + (package-with-python2 python-jupyter-core)) + +(define-public python-jupyter-client + (package + (name "python-jupyter-client") + (version "5.2.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "jupyter_client" version)) + (sha256 + (base32 + "0l9mh7ccrpl3lppym3dnky8n1nk7xarzzdcxf4q2s7aw203cpydm")))) + (build-system python-build-system) + ;; Tests fail because of missing native python kernel which I assume is + ;; provided by the ipython package, which we cannot use because it would + ;; cause a dependency cycle. + (arguments `(#:tests? #f)) + (propagated-inputs + `(("python-pyzmq" ,python-pyzmq) + ("python-traitlets" ,python-traitlets) + ("python-jupyter-core" ,python-jupyter-core))) + (home-page "http://jupyter.org/") + (synopsis "Jupyter protocol implementation and client libraries") + (description + "The @code{jupyter_client} package contains the reference implementation +of the Jupyter protocol. It also provides client and kernel management APIs +for working with kernels, and the @code{jupyter kernelspec} entrypoint for +installing @code{kernelspec}s for use with Jupyter frontends.") + (license license:bsd-3))) + +(define-public python2-jupyter-client + (package-with-python2 python-jupyter-client)) + +(define-public python-ipykernel + (package + (name "python-ipykernel") + (version "5.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ipykernel" version)) + (sha256 + (base32 "0br95qhrd5k65g10djngiy27hs0642301hlf2q142i8djabvzh0g")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (setenv "HOME" "/tmp") + (invoke "pytest" "-v") + #t))))) + (propagated-inputs + `(("python-ipython" ,python-ipython) + ;; imported at runtime during connect + ("python-jupyter-client" ,python-jupyter-client))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-nose" ,python-nose))) + (home-page "https://ipython.org") + (synopsis "IPython Kernel for Jupyter") + (description + "This package provides the IPython kernel for Jupyter.") + (license license:bsd-3))) + +(define-public python2-ipykernel + (package-with-python2 python-ipykernel)) + +(define-public python-send2trash + (package + (name "python-send2trash") + (version "1.5.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "send2trash" version)) + (sha256 + (base32 + "1ci8vcwjmjlp11ljj1ckrfmml9fkq1mclx2gr53y4zvhgp01q030")))) + (build-system python-build-system) + (home-page "https://github.com/hsoft/send2trash") + (synopsis "Send files to trash") + (description + "This package provides a cross-platform mechanism to send files to the +trash.") + (license license:bsd-3))) + +(define-public python2-send2trash + (package-with-python2 python-send2trash)) + +;; This is the latest release of the LTS version of ipython with support for +;; Python 2.7 and Python 3.x. Later non-LTS versions starting from 6.0 have +;; dropped support for Python 2.7. We may want to rename this package. +(define-public python-ipython + (package + (name "python-ipython") + (version "5.8.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ipython" version ".tar.gz")) + (sha256 + (base32 "01l93i4hspf0lvhmycvc8j378bslm9rw30mwfspsl6v1ayc69b2b")))) + (build-system python-build-system) + (outputs '("out" "doc")) + (propagated-inputs + `(("python-pyzmq" ,python-pyzmq) + ("python-prompt-toolkit" ,python-prompt-toolkit-1) + ("python-terminado" ,python-terminado) + ("python-matplotlib" ,python-matplotlib) + ("python-numpy" ,python-numpy) + ("python-numpydoc" ,python-numpydoc) + ("python-jinja2" ,python-jinja2) + ("python-mistune" ,python-mistune) + ("python-pexpect" ,python-pexpect) + ("python-pickleshare" ,python-pickleshare) + ("python-simplegeneric" ,python-simplegeneric) + ("python-jsonschema" ,python-jsonschema) + ("python-traitlets" ,python-traitlets) + ("python-nbformat" ,python-nbformat) + ("python-pygments" ,python-pygments))) + (inputs + `(("readline" ,readline) + ("which" ,which))) + (native-inputs + `(("graphviz" ,graphviz) + ("pkg-config" ,pkg-config) + ("python-requests" ,python-requests) ;; for tests + ("python-testpath" ,python-testpath) + ("python-nose" ,python-nose) + ("python-sphinx" ,python-sphinx) + ("python-shpinx-rtd-theme" ,python-sphinx-rtd-theme) + ;; FIXME: It's possible that a smaller union would work just as well. + ("texlive" ,(texlive-union (list texlive-fonts-amsfonts + texlive-fonts-ec + texlive-generic-ifxetex + texlive-generic-pdftex + texlive-latex-amsfonts + texlive-latex-capt-of + texlive-latex-cmap + texlive-latex-environ + texlive-latex-eqparbox + texlive-latex-etoolbox + texlive-latex-expdlist + texlive-latex-fancyhdr + texlive-latex-fancyvrb + texlive-latex-fncychap + texlive-latex-float + texlive-latex-framed + texlive-latex-geometry + texlive-latex-graphics + texlive-latex-hyperref + texlive-latex-mdwtools + texlive-latex-multirow + texlive-latex-oberdiek + texlive-latex-parskip + texlive-latex-preview + texlive-latex-tabulary + texlive-latex-threeparttable + texlive-latex-titlesec + texlive-latex-trimspaces + texlive-latex-ucs + texlive-latex-upquote + texlive-latex-url + texlive-latex-varwidth + texlive-latex-wrapfig))) + ("texinfo" ,texinfo))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'install-doc + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((data (string-append (assoc-ref outputs "doc") "/share")) + (doc (string-append data "/doc/" ,name "-" ,version)) + (html (string-append doc "/html")) + (man1 (string-append data "/man/man1")) + (info (string-append data "/info")) + (examples (string-append doc "/examples")) + (python-arg (string-append "PYTHON=" (which "python")))) + (setenv "LANG" "en_US.utf8") + ;; Make installed package available for running the tests + (add-installed-pythonpath inputs outputs) + (with-directory-excursion "docs" + ;; FIXME: pdf fails to build + ;;(system* "make" "pdf" "PAPER=a4") + (system* "make" python-arg "html") + (system* "make" python-arg "info")) + (copy-recursively "docs/man" man1) + (copy-recursively "examples" examples) + (copy-recursively "docs/build/html" html) + ;; (copy-file "docs/build/latex/ipython.pdf" + ;; (string-append doc "/ipython.pdf")) + (mkdir-p info) + (copy-file "docs/build/texinfo/ipython.info" + (string-append info "/ipython.info")) + (copy-file "COPYING.rst" (string-append doc "/COPYING.rst"))) + #t)) + ;; Tests can only be run after the library has been installed and not + ;; within the source directory. + (delete 'check) + (add-after 'install 'check + (lambda* (#:key inputs outputs tests? #:allow-other-keys) + (if tests? + (begin + ;; Make installed package available for running the tests + (add-installed-pythonpath inputs outputs) + (setenv "HOME" "/tmp/") ;; required by a test + ;; We only test the core because one of the other tests + ;; tries to import ipykernel. + (invoke "python" "IPython/testing/iptest.py" + "-v" "IPython/core/tests")) + #t))) + (add-before 'check 'fix-tests + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "./IPython/utils/_process_posix.py" + (("/usr/bin/env', 'which") (which "which"))) + (substitute* "./IPython/core/tests/test_inputtransformer.py" + (("#!/usr/bin/env python") + (string-append "#!" (which "python")))) + ;; Disable 1 failing test + (substitute* "./IPython/core/tests/test_magic.py" + (("def test_dirops\\(\\):" all) + (string-append "@dec.skipif(True)\n" all))) + ;; This test introduces a circular dependency on ipykernel + ;; (which depends on ipython). + (delete-file "IPython/core/tests/test_display.py") + ;; These tests throw errors for unknown reasons. + (delete-file "IPython/extensions/tests/test_storemagic.py") + (delete-file "IPython/core/tests/test_displayhook.py") + (delete-file "IPython/core/tests/test_interactiveshell.py") + (delete-file "IPython/core/tests/test_pylabtools.py") + (delete-file "IPython/core/tests/test_paths.py") + #t))))) + (home-page "https://ipython.org") + (synopsis "IPython is a tool for interactive computing in Python") + (description + "IPython provides a rich architecture for interactive computing with: +Powerful interactive shells, a browser-based notebook, support for interactive +data visualization, embeddable interpreters and tools for parallel +computing.") + (license license:bsd-3) + (properties `((python2-variant . ,(delay python2-ipython)))))) + +(define-public python2-ipython + (let ((ipython (package-with-python2 (strip-python2-variant python-ipython)))) + (package + (inherit ipython) + ;; FIXME: add pyreadline once available. + (propagated-inputs + `(("python2-backports-shutil-get-terminal-size" + ,python2-backports-shutil-get-terminal-size) + ("python2-pathlib2" ,python2-pathlib2) + ,@(package-propagated-inputs ipython))) + (native-inputs + `(("python2-mock" ,python2-mock) + ,@(package-native-inputs ipython)))))) + +(define-public python-urwid + (package + (name "python-urwid") + (version "2.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "urwid" version)) + (sha256 + (base32 + "1g6cpicybvbananpjikmjk8npmjk4xvak1wjzji62wc600wkwkb4")))) + (build-system python-build-system) + (home-page "http://urwid.org") + (synopsis "Console user interface library for Python") + (description + "Urwid is a curses-based UI/widget library for Python. It includes many +features useful for text console applications.") + (license license:lgpl2.1+))) + +(define-public python2-urwid + (package-with-python2 python-urwid)) + +(define-public python-urwidtrees + (package + (name "python-urwidtrees") + (version "1.0.2") + (source + (origin + (method url-fetch) + ;; package author intends on distributing via github rather than pypi: + ;; https://github.com/pazz/alot/issues/877#issuecomment-230173331 + (uri (string-append "https://github.com/pazz/urwidtrees/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0d30lyd3s2a97rhqfax5w9ssqds2z6aydqx3c6j2c2lk3cb4ngvh")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; no tests + (propagated-inputs `(("python-urwid" ,python-urwid))) + (home-page "https://github.com/pazz/urwidtrees") + (synopsis "Tree widgets for urwid") + (description "Urwidtrees is a Widget Container API for the @code{urwid} +toolkit. Use it to build trees of widgets.") + (license license:gpl3+))) + +(define-public python2-urwidtrees + (package-with-python2 python-urwidtrees)) + +(define-public python-ua-parser + (package + (name "python-ua-parser") + (version "0.8.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ua-parser" version)) + (sha256 + (base32 + "1jwdf58rhchjzzrad405pviv0iq24xa2xmmmdgcm2c8s6b4wzfwp")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ;no test suite in release + (native-inputs + `(("python-pyyaml" ,python-pyyaml))) + (home-page "https://github.com/ua-parser/uap-python") + (synopsis "User agent parser") + (description + "@code{ua-parser} is a Python port of Browserscope's user agent parser.") + (license license:asl2.0))) + +(define-public python2-ua-parser + (package-with-python2 python-ua-parser)) + +(define-public python-user-agents + (package + (name "python-user-agents") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "user-agents" version)) + (sha256 + (base32 + "0fc00cd3j8dahq1zzn8pkgfgd7lq37bp2scmdma2n1c049vicgb4")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ;missing devices.json test file in release + (propagated-inputs + `(("python-ua-parser" ,python-ua-parser))) + (home-page "https://github.com/selwin/python-user-agents") + (synopsis "User Agent strings parsing library") + (description + "A library to identify devices (phones, tablets) and their capabilities by +parsing (browser/HTTP) user agent strings.") + (license license:expat))) + +(define-public python2-user-agents + (package-with-python2 python-user-agents)) + +(define-public python-dbus + (package + (name "python-dbus") + (version "1.2.8") + (source + (origin + (method url-fetch) + (uri (string-append "https://dbus.freedesktop.org/releases/dbus-python/" + "dbus-python-" version ".tar.gz")) + (sha256 + (base32 + "0vvvjmiwnc9cjlks3gcdk43ap7llhlpz7cm1wbw0nc2yfsxjpwdb")))) + (build-system gnu-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before + 'check 'pre-check + (lambda _ + ;; XXX: For the missing '/etc/machine-id'. + (substitute* "test/run-test.sh" + (("DBUS_FATAL_WARNINGS=1") + "DBUS_FATAL_WARNINGS=0")) + #t))))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (inputs + `(("python" ,python-wrapper) + ("dbus-glib" ,dbus-glib))) + (synopsis "Python bindings for D-bus") + (description "python-dbus provides bindings for libdbus, the reference +implementation of D-Bus.") + (home-page "https://www.freedesktop.org/wiki/Software/DBusBindings/") + (license license:expat))) + +(define-public python2-dbus + (package (inherit python-dbus) + (name "python2-dbus") + (inputs `(("python" ,python-2) + ,@(alist-delete "python" + (package-inputs python-dbus) + equal?))) + ;; FIXME: on Python 2, the test_utf8 fails with: + ;; "ValueError: unichr() arg not in range(0x10000) (narrow Python build)" + (arguments `(#:tests? #f)))) + +(define-public python-lxml + (package + (name "python-lxml") + (version "4.2.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "lxml" version)) + (sha256 + (base32 + "0zw0y9hs0nflxhl9cs6ipwwh53szi3w2x06wl0k9cylyqac0cwin")))) + (build-system python-build-system) + (inputs + `(("libxml2" ,libxml2) + ("libxslt" ,libxslt))) + (home-page "http://lxml.de/") + (synopsis + "Python XML processing library") + (description + "The lxml XML toolkit is a Pythonic binding for the C libraries +libxml2 and libxslt.") + (license license:bsd-3))) ; and a few more, see LICENSES.txt + +(define-public python2-lxml + (package-with-python2 python-lxml)) + +;; beautifulsoup4 has a totally different namespace than 3.x, +;; and pypi seems to put it under its own name, so I guess we should too +(define-public python-beautifulsoup4 + (package + (name "python-beautifulsoup4") + (version "4.6.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "beautifulsoup4" version)) + (sha256 + (base32 + "041dhalzjciw6qyzzq7a2k4h1yvyk76xigp35hv5ibnn448ydy4h")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; The Python 2 source is the definitive source of beautifulsoup4. We + ;; must use this conversion script when building with Python 3. The + ;; conversion script also runs the tests. + ;; For more information, see the file 'convert-py3k' in the source + ;; distribution. + (replace 'check + (lambda _ (zero? (system* "./convert-py3k"))))))) + (home-page + "https://www.crummy.com/software/BeautifulSoup/bs4/") + (synopsis + "Python screen-scraping library") + (description + "Beautiful Soup is a Python library designed for rapidly setting up +screen-scraping projects. It offers Pythonic idioms for navigating, +searching, and modifying a parse tree, providing a toolkit for +dissecting a document and extracting what you need. It automatically +converts incoming documents to Unicode and outgoing documents to UTF-8.") + (license license:expat) + (properties `((python2-variant . ,(delay python2-beautifulsoup4)))))) + +(define-public python2-beautifulsoup4 + (package + (inherit (package-with-python2 + (strip-python2-variant python-beautifulsoup4))) + (arguments `(#:python ,python-2)))) + +(define-public python-netifaces + (package + (name "python-netifaces") + (version "0.10.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "netifaces" version)) + (sha256 + (base32 + "1gccklrcplbbqh81g1mdgpa5y8na7kkf29cq2ka3f5a2fp5hyndx")))) + (build-system python-build-system) + (home-page "https://github.com/al45tair/netifaces") + (synopsis + "Python module for portable network interface information") + (description + "Netifaces is a Python module providing information on network +interfaces in an easy and portable manner.") + (license license:expat))) + +(define-public python2-netifaces + (package-with-python2 python-netifaces)) + +(define-public python-networkx + (package + (name "python-networkx") + (version "2.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "networkx" version ".zip")) + (sha256 + (base32 "12swxb15299v9vqjsq4z8rgh5sdhvpx497xwnhpnb0gynrx6zra5")))) + (build-system python-build-system) + ;; python-decorator is needed at runtime. + (propagated-inputs + `(("python-decorator" ,python-decorator))) + (native-inputs + `(("python-nose" ,python-nose) + ("unzip" ,unzip))) + (home-page "https://networkx.github.io/") + (synopsis "Python module for creating and manipulating graphs and networks") + (description + "NetworkX is a Python package for the creation, manipulation, and study +of the structure, dynamics, and functions of complex networks.") + (license license:bsd-3))) + +(define-public python2-networkx + (package-with-python2 python-networkx)) + +(define-public python-datrie + (package + (name "python-datrie") + (version "0.7.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "datrie" version)) + (sha256 + (base32 + "08r0if7dry2q7p34gf7ffyrlnf4bdvnprxgydlfxgfnvq8f3f4bs")))) + (build-system python-build-system) + (arguments + `(#:phases (modify-phases %standard-phases + (add-before 'build 'cythonize + (lambda _ + ;; Regenerate Cython classes to solve ABI issues with Python + ;; 3.7.0. See <https://github.com/pytries/datrie/issues/52>. + (invoke "cython" "src/datrie.pyx" "src/cdatrie.pxd" + "src/stdio_ext.pxd" "-a")))))) + (native-inputs + `(("python-cython" ,python-cython) + ("python-hypothesis" ,python-hypothesis) + ("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://github.com/kmike/datrie") + (synopsis "Fast, efficiently stored trie for Python") + (description + "This package provides a fast, efficiently stored trie implementation for +Python.") + (license license:lgpl2.1+))) + +(define-public snakemake + (package + (name "snakemake") + (version "5.2.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "snakemake" version)) + (sha256 + (base32 "0gj0xxgiq3mp9qyyrbfzldiaq1giliqw0in64nqiz7vx49myqj7z")))) + (build-system python-build-system) + (arguments + ;; TODO: Package missing test dependencies. + '(#:tests? #f + #:phases + (modify-phases %standard-phases + ;; For cluster execution Snakemake will call Python. Since there is + ;; no suitable PYTHONPATH set, cluster execution will fail. We fix + ;; this by calling the snakemake wrapper instead. + (add-after 'unpack 'call-wrapper-not-wrapped-snakemake + (lambda* (#:key outputs #:allow-other-keys) + (substitute* "snakemake/executors.py" + (("\\{sys.executable\\} -m snakemake") + (string-append (assoc-ref outputs "out") + "/bin/snakemake"))) + #t))))) + (propagated-inputs + `(("python-gitpython" ,python-gitpython) + ("python-wrapt" ,python-wrapt) + ("python-requests" ,python-requests) + ("python-appdirs" ,python-appdirs) + ("python-configargparse" ,python-configargparse) + ("python-datrie" ,python-datrie) + ("python-docutils" ,python-docutils) + ("python-jinja2" ,python-jinja2) + ("python-jsonschema" ,python-jsonschema) + ("python-networkx" ,python-networkx) + ("python-pyyaml" ,python-pyyaml) + ("python-ratelimiter" ,python-ratelimiter))) + (home-page "https://snakemake.readthedocs.io") + (synopsis "Python-based execution environment for make-like workflows") + (description + "Snakemake aims to reduce the complexity of creating workflows by +providing a clean and modern domain specific specification language (DSL) in +Python style, together with a fast and comfortable execution environment.") + (license license:expat))) + +;; This is currently needed for the pigx-* packages. +(define-public snakemake-4 + (package (inherit snakemake) + (version "4.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "snakemake" version)) + (sha256 + (base32 "0g0paia4z7w3srnqdmavq3hrb2x7qnpf81jx50njl0p7y4y0j8jv")))) + (propagated-inputs + `(("python-wrapt" ,python-wrapt) + ("python-requests" ,python-requests) + ("python-appdirs" ,python-appdirs) + ("python-configargparse" ,python-configargparse) + ("python-pyyaml" ,python-pyyaml) + ("python-ratelimiter" ,python-ratelimiter))))) + +(define-public python-pyqrcode + (package + (name "python-pyqrcode") + (version "1.2.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "PyQRCode" version)) + (sha256 + (base32 + "1m9ln8k9v7dfbh1i81225hx5mdsh8mpf9g7r4wpbfmiyfcs7dgzx")))) + (build-system python-build-system) + (home-page + "https://github.com/mnooner256/pyqrcode") + (synopsis "QR code generator") + (description + "Pyqrcode is a QR code generator written purely in Python with +SVG, EPS, PNG and terminal output.") + (license license:bsd-3))) + +(define-public python-seaborn + (package + (name "python-seaborn") + (version "0.9.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "seaborn" version)) + (sha256 + (base32 "0bqysi3fxfjl1866m5jq8z7mynhqbqnikim74dmzn8539iwkzj3n")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'start-xserver + (lambda* (#:key inputs #:allow-other-keys) + (let ((xorg-server (assoc-ref inputs "xorg-server"))) + ;; There must be a running X server and make check doesn't + ;; start one. Therefore we must do it. + (system (format #f "~a/bin/Xvfb :1 &" xorg-server)) + (setenv "DISPLAY" ":1") + #t))) + (replace 'check (lambda _ (invoke "pytest" "seaborn") #t))))) + (propagated-inputs + `(("python-pandas" ,python-pandas) + ("python-matplotlib" ,python-matplotlib) + ("python-numpy" ,python-numpy) + ("python-scipy" ,python-scipy))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("xorg-server" ,xorg-server))) + (home-page "http://stanford.edu/~mwaskom/software/seaborn/") + (synopsis "Statistical data visualization") + (description + "Seaborn is a library for making attractive and informative statistical +graphics in Python. It is built on top of matplotlib and tightly integrated +with the PyData stack, including support for numpy and pandas data structures +and statistical routines from scipy and statsmodels.") + (license license:bsd-3))) + +(define-public python2-seaborn + (package-with-python2 python-seaborn)) + +(define-public python-mpmath + (package + (name "python-mpmath") + (version "0.19") + (source (origin + (method url-fetch) + (uri (string-append "http://mpmath.org/files/mpmath-" + version ".tar.gz")) + (sha256 + (base32 + "08ijsr4ifrqv3cjc26mkw0dbvyygsa99in376hr4b96ddm1gdpb8")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (zero? + (system* "python" "mpmath/tests/runtests.py" "-local"))))))) + (home-page "http://mpmath.org") + (synopsis "Arbitrary-precision floating-point arithmetic in python") + (description + "@code{mpmath} can be used as an arbitrary-precision substitute for +Python's float/complex types and math/cmath modules, but also does much +more advanced mathematics.") + (license license:bsd-3))) + +(define-public python2-mpmath + (package-with-python2 python-mpmath)) + +(define-public python-bigfloat + (package + (name "python-bigfloat") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "bigfloat" version)) + (sha256 + (base32 "0xd7q4l7v0f463diznjv4k9wlaks80pn9drdqmfifi7zx8qvybi6")))) + (build-system python-build-system) + (inputs + `(("mpfr" ,mpfr))) + (home-page "https://github.com/mdickinson/bigfloat") + (synopsis "Arbitrary precision floating-point arithmetic for Python") + (description + "This packages provides a Python interface to the MPFR library for +multiprecision arithmetic.") + (license license:lgpl3+))) + +(define-public python2-bigfloat + (package-with-python2 python-bigfloat)) + +(define-public python-sympy + (package + (name "python-sympy") + (version "1.1.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/sympy/sympy/releases/download/sympy-" + version "/sympy-" version ".tar.gz")) + (sha256 + (base32 "190n29sppw7g8ihilc5451y7jlfcaw56crqiqbf1jff43dlmfnxc")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; Run the core tests after installation. By default it would run + ;; *all* tests, which take a very long time to complete and are known + ;; to be flaky. + (delete 'check) + (add-after 'install 'check + (lambda* (#:key outputs #:allow-other-keys) + (invoke "python3" "-c" "import sympy; sympy.test(\"/core\")") + #t))))) + (propagated-inputs + `(("python-mpmath" ,python-mpmath))) + (home-page "http://www.sympy.org/") + (synopsis "Python library for symbolic mathematics") + (description + "SymPy is a Python library for symbolic mathematics. It aims to become a +full-featured computer algebra system (CAS) while keeping the code as simple +as possible in order to be comprehensible and easily extensible.") + (license license:bsd-3))) + +(define-public python2-sympy + (package + (inherit (package-with-python2 python-sympy)) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; Run the core tests after installation. By default it would run + ;; *all* tests, which take a very long time to complete and are known + ;; to be flaky. + (delete 'check) + (add-after 'install 'check + (lambda* (#:key outputs #:allow-other-keys) + (invoke "python" "-c" "import sympy; sympy.test(\"/core\")") + #t))))))) + +(define-public python-q + (package + (name "python-q") + (version "2.6") + (source + (origin + (method url-fetch) + (uri (pypi-uri "q" version)) + (sha256 + (base32 + "1mgfazh8fkizh6walra2zv885f3lcgr3nb02v1frfm4p8ddcy3yy")))) + (build-system python-build-system) + (home-page "https://github.com/zestyping/q") + (synopsis "Quick-and-dirty debugging output for tired programmers") + (description + "q is a Python module for \"print\" style of debugging Python code. It +provides convenient short API for print out of values, tracebacks, and +falling into the Python interpreter.") + (license license:asl2.0))) + +(define-public python2-q + (package-with-python2 python-q)) + +(define-public python2-xlib + (package + (name "python2-xlib") + (version "0.14") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/python-xlib/python-xlib" + "/" version "/" + "python-xlib-" version ".tar.gz")) + (sha256 + (base32 + "1sv0447j0rx8cgs3jhjl695p5pv13ihglcjlrrz1kq05lsvb0wa7")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 ;Python 2 only + #:tests? #f)) ;no tests + (home-page "http://python-xlib.sourceforge.net/") + (synopsis "Python X11 client library") + (description + "The Python X Library is intended to be a fully functional X client +library for Python programs. It is useful to implement low-level X clients. +It is written entirely in Python.") + (license license:gpl2+))) + +(define-public python-singledispatch + (package + (name "python-singledispatch") + (version "3.4.0.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "singledispatch" version)) + (sha256 + (base32 + "171b7ip0hsq5qm83np40h3phlr36ym18w0lay0a8v08kvy3sy1jv")))) + (build-system python-build-system) + (native-inputs + `(("python-six" ,python-six))) ; required for conversion, not at run-time + (home-page + "http://docs.python.org/3/library/functools.html#functools.singledispatch") + (synopsis "Backport of singledispatch feature from Python 3.4") + (description + "This library brings functools.singledispatch from Python 3.4 to Python +2.6-3.3.") + (license license:expat))) + +(define-public python2-singledispatch + (package-with-python2 python-singledispatch)) + +;; the python- version can be removed with python-3.5 +(define-public python-backports-abc + (package + (name "python-backports-abc") + (version "0.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "backports_abc" version)) + (sha256 + (base32 + "1pkv8d1zxj5f9i227dxbjczncbv7ks7ywnjwyxfjagm02i2yafq3")))) + (build-system python-build-system) + (home-page "https://github.com/cython/backports_abc") + (synopsis "Backport of additions to the 'collections.abc' module") + (description + "Python-backports-abc provides a backport of additions to the +'collections.abc' module in Python-3.5.") + (license license:psfl))) + +(define-public python2-backports-abc + (package-with-python2 python-backports-abc)) + +(define-public python-backports-csv + (package + (name "python-backports-csv") + (version "1.0.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "backports.csv" version)) + (sha256 + (base32 + "1imzbrradkfn8s2m1qcimyn74dn1mz2p3j381jljn166rf2i6hlc")))) + (build-system python-build-system) + (home-page "https://github.com/ryanhiebert/backports.csv") + (synopsis "Backport of Python 3's csv module for Python 2") + (description + "Provides a backport of Python 3's @code{csv} module for parsing +comma separated values. The API of the @code{csv} module in Python 2 +is drastically different from the @code{csv} module in Python 3. +This is due, for the most part, to the difference between str in +Python 2 and Python 3.") + (license license:psfl))) + +(define-public python2-backports-csv + (package-with-python2 python-backports-csv)) + +(define-public python2-backports-shutil-get-terminal-size + (package + (name "python2-backports-shutil-get-terminal-size") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "backports.shutil_get_terminal_size" version)) + (sha256 + (base32 + "107cmn7g3jnbkp826zlj8rrj19fam301qvaqf0f3905f5217lgki")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (zero? (system* "py.test" "-v"))))))) + (native-inputs + `(("python2-pytest" ,python2-pytest))) + (home-page "https://github.com/chrippa/backports.shutil_get_terminal_size") + (synopsis "Backport of Python 3.3's @code{shutil.get_terminal_size}") + (description + "This package provides a backport of the @code{get_terminal_size +function} from Python 3.3's @code{shutil}. +Unlike the original version it is written in pure Python rather than C, +so it might be a tiny bit slower.") + (license license:expat))) + +(define-public python-waf + (package + (name "python-waf") + (version "2.0.11") + (source (origin + (method url-fetch) + (uri (string-append "https://waf.io/" + "waf-" version ".tar.bz2")) + (sha256 + (base32 + "13zrniwkmfqgsgzi9v5m1367fppp9yzrz6z2ny6hy8dmpb8mj4z4")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'build + (lambda _ + (invoke "python" "waf-light" "configure" "build"))) + (replace 'check + (lambda _ + (invoke "python" "waf" "--version"))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (install-file "waf" (string-append out "/bin"))) + #t)) + ;; waf breaks when it is wrapped. + (delete 'wrap)))) + (home-page "https://waf.io/") + (synopsis "Python-based build system") + (description + "Waf is a Python-based framework for configuring, compiling and installing +applications.") + (license license:bsd-3))) + +(define-public python2-waf + (package-with-python2 python-waf)) + +(define-public python-pyzmq + (package + (name "python-pyzmq") + (version "17.1.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyzmq" version)) + (sha256 + (base32 "1pyxxrz60f88ffm0y6vpbx3q8jcr9ybz8fcilihwzwhh36n84ax7")))) + (build-system python-build-system) + (arguments + `(#:configure-flags + (list (string-append "--zmq=" (assoc-ref %build-inputs "zeromq"))) + ;; FIXME: You must build pyzmq with 'python setup.py build_ext + ;; --inplace' for 'python setup.py test' to work. + #:tests? #f)) + (inputs + `(("zeromq" ,zeromq))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("python-nose" ,python-nose))) + (home-page "https://github.com/zeromq/pyzmq") + (synopsis "Python bindings for 0MQ") + (description + "PyZMQ is the official Python binding for the ZeroMQ messaging library.") + (license license:bsd-4))) + +(define-public python2-pyzmq + (package-with-python2 python-pyzmq)) + +(define-public python-pep8 + ;; This package has been renamed to ‘pycodestyle’ and is no longer updated. + ;; Its last release (1.7.1) adds only a scary warning to this effect, breaking + ;; some dependents' test suites, and nothing more. + (package + (name "python-pep8") + (version "1.7.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pep8" version)) + (sha256 + (base32 + "002rkl4lsn6x2mxmf8ar00l0m8i3mzrc6pnzz77blyksmpsxa4x1")))) + (build-system python-build-system) + (home-page "https://pep8.readthedocs.org/") + (synopsis "Python style guide checker") + (description + "This tools checks Python code against some of the style conventions in +PEP 8.") + (license license:expat))) + +(define-public python2-pep8 + (package-with-python2 python-pep8)) + +(define-public python-pyflakes + (package + (name "python-pyflakes") + (version "2.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyflakes" version)) + (sha256 + (base32 + "0jba28czyvimdc72llms3f17swp3i8jdcabf5w0j00adfbn64xls")))) + (build-system python-build-system) + (home-page + "https://github.com/pyflakes/pyflakes") + (synopsis "Passive checker of Python programs") + (description + "Pyflakes statically checks Python source code for common errors.") + (license license:expat))) + +(define-public python2-pyflakes + (package-with-python2 python-pyflakes)) + +(define-public python-mccabe + (package + (name "python-mccabe") + (version "0.6.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "mccabe" version)) + (sha256 + (base32 + "07w3p1qm44hgxf3vvwz84kswpsx6s7kvaibzrsx5dzm0hli1i3fx")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest-bootstrap) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://github.com/flintwork/mccabe") + (synopsis "McCabe checker, plugin for flake8") + (description + "This package provides a Flake8 plug-in to compute the McCabe cyclomatic +complexity of Python source code.") + (license license:expat))) + +(define-public python2-mccabe + (package-with-python2 python-mccabe)) + +(define-public python-mccabe-0.2.1 + (package (inherit python-mccabe) + (version "0.2.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "mccabe" version)) + (sha256 + (base32 + "0fi4a81kr5bcv5p4xgibqr595hyj5dafkqgsmfk96mfy8w71fajs")))))) + +(define-public python2-mccabe-0.2.1 + (package-with-python2 python-mccabe-0.2.1)) + +;; Flake8 2.4.1 requires an older version of pep8. +;; This should be removed ASAP. +(define-public python-pep8-1.5.7 + (package (inherit python-pep8) + (version "1.5.7") + (source + (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/source/p/pep8/pep8-" + version + ".tar.gz")) + (sha256 + (base32 + "12b9bbdbwnspxgak14xg58c130x2n0blxzlms5jn2dszn8qj3d0m")))) + (arguments + ;; XXX Tests not compatible with Python 3.5. + '(#:tests? #f)))) + +(define-public python2-pep8-1.5.7 + (package-with-python2 python-pep8-1.5.7)) + +;; Flake8 2.4.1 requires an older version of pyflakes. +;; This should be removed ASAP. +(define-public python-pyflakes-0.8.1 + (package (inherit python-pyflakes) + (version "0.8.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/source/p/pyflakes/pyflakes-" + version + ".tar.gz")) + (sha256 + (base32 + "0sbpq6pqm1i9wqi41mlfrsc5rk92jv4mskvlyxmnhlbdnc80ma1z")))) + (arguments + ;; XXX Tests not compatible with Python 3.5. + '(#:tests? #f)))) + +(define-public python2-pyflakes-0.8.1 + (package-with-python2 python-pyflakes-0.8.1)) + +;; This package is used by hypothesis which has thousands of dependent packages. +;; FIXME: Consolidate this with "python-flake8" below in the next rebuild cycle. +(define-public python-flake8-3.5 + (package + (name "python-flake8") + (version "3.5.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "flake8" version)) + (sha256 + (base32 + "184b33grvvjmiwlv9kyd7yng9qv5ld24154j70z332xxg9gjclvj")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; Two errors don't seem to have assigned codes. + (add-after 'unpack 'delete-broken-test + (lambda _ (delete-file "tests/unit/test_pyflakes_codes.py") #t)) + (add-after 'unpack 'fix-problem-with-pycodestyle + (lambda _ + ;; See https://gitlab.com/pycqa/flake8/merge_requests/230 + ;; This should no longer be needed with the next release. + (substitute* "setup.py" + (("PEP8_PLUGIN\\('break_around_binary_operator'\\),") + "PEP8_PLUGIN('break_after_binary_operator'),\ +PEP8_PLUGIN('break_before_binary_operator'),")) + #t)) + (delete 'check) + (add-after 'install 'check + (lambda* (#:key inputs outputs #:allow-other-keys) + (add-installed-pythonpath inputs outputs) + (invoke "pytest" "-v") + #t))))) + (propagated-inputs + `(("python-pycodestyle" ,python-pycodestyle) + ("python-pyflakes" ,python-pyflakes) + ("python-mccabe" ,python-mccabe))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-pytest" ,python-pytest-bootstrap) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://gitlab.com/pycqa/flake8") + (synopsis + "The modular source code checker: pep8, pyflakes and co") + (description + "Flake8 is a wrapper around PyFlakes, pep8 and python-mccabe.") + (properties `((python2-variant . ,(delay python2-flake8-3.5)))) + (license license:expat))) + +(define-public python2-flake8-3.5 + (let ((base (package-with-python2 (strip-python2-variant python-flake8-3.5)))) + (package (inherit base) + (propagated-inputs + `(("python2-configparser" ,python2-configparser) + ("python2-enum34" ,python2-enum34) + ,@(package-propagated-inputs base)))))) + +;; Version 3.5.0 has compatibility issues with Pyflakes 2.0, so we need +;; this newer version. Keep it as a separate variable for now to avoid +;; rebuilding "python-hypothesis"; this should be removed in the next +;; rebuild cycle. +(define-public python-flake8 + (package + (inherit python-flake8-3.5) + (version "3.6.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "flake8" version)) + (sha256 + (base32 + "0w0nprx22rbvrrkbfx9v5jc5gskbm08g219l7r8wai8zfswgadba")))) + (arguments + (substitute-keyword-arguments (package-arguments python-flake8-3.5) + ((#:phases phases) + `(modify-phases ,phases + (delete 'delete-broken-test) + (delete 'fix-problem-with-pycodestyle))))) + (properties `((python2-variant . ,(delay python2-flake8)))))) + +(define-public python2-flake8 + (let ((base (package-with-python2 (strip-python2-variant python-flake8)))) + (package (inherit base) + (propagated-inputs + (package-propagated-inputs python2-flake8-3.5))))) + +;; python-hacking requires flake8 <2.6.0. +(define-public python-flake8-2.5 + (package + (inherit python-flake8) + (version "2.5.5") + (source (origin + (method url-fetch) + (uri (pypi-uri "flake8" version)) + (sha256 + (base32 + "1snylqwbmrylbx3r1wpz8ggk98f6bcag4441ag8mm2l7wyn58sij")))) + (propagated-inputs + `(("python-pep8" ,python-pep8) + ,@(package-propagated-inputs python-flake8))) + (properties `((python2-variant . ,(delay python2-flake8-2.5)))))) + +(define-public python2-flake8-2.5 + (package + (inherit python2-flake8) + (version (package-version python-flake8-2.5)) + (source (origin + (inherit (package-source python-flake8-2.5)))) + (propagated-inputs + `(("python2-pep8" ,python2-pep8) + ,@(package-propagated-inputs python2-flake8))))) + +(define-public python-flake8-polyfill + (package + (name "python-flake8-polyfill") + (version "1.0.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "flake8-polyfill" version)) + (sha256 + (base32 + "1nlf1mkqw856vi6782qcglqhaacb23khk9wkcgn55npnjxshhjz4")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (setenv "PYTHONPATH" + (string-append (getcwd) "/build/lib:" + (getenv "PYTHONPATH"))) + (zero? (system* "py.test" "-v"))))))) + (native-inputs + `(("python-flake8" ,python-flake8) + ("python-mock" ,python-mock) + ("python-pep8" ,python-pep8) + ("python-pycodestyle" ,python-pycodestyle) + ("python-pytest" ,python-pytest))) + (home-page "https://gitlab.com/pycqa/flake8-polyfill") + (synopsis "Polyfill package for Flake8 plugins") + (description + "This package that provides some compatibility helpers for Flake8 +plugins that intend to support Flake8 2.x and 3.x simultaneously.") + (license license:expat))) + +(define-public python2-flake8-polyfill + (package-with-python2 python-flake8-polyfill)) + +(define-public python-mistune + (package + (name "python-mistune") + (version "0.8.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "mistune" version)) + (sha256 + (base32 + "0vkmsh0x480rni51lhyvigfdf06b9247z868pk3bal1wnnfl58sr")))) + (build-system python-build-system) + (native-inputs + `(("python-nose" ,python-nose) + ("python-cython" ,python-cython))) + (home-page "https://github.com/lepture/mistune") + (synopsis "Markdown parser in pure Python") + (description "This package provides a fast markdown parser in pure +Python.") + (license license:bsd-3))) + +(define-public python2-mistune + (package-with-python2 python-mistune)) + +(define-public python-markdown + (package + (name "python-markdown") + (version "3.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Markdown" version)) + (sha256 + (base32 + "0z6v8649sr434d5r5zmrhydka7v7f9yas4bwcgkcs0650jdhybnh")))) + (build-system python-build-system) + (native-inputs + `(("python-nose" ,python-nose) + ("python-pyyaml" ,python-pyyaml))) + (home-page "https://python-markdown.github.io/") + (synopsis "Python implementation of Markdown") + (description + "This package provides a Python implementation of John Gruber's +Markdown. The library features international input, various Markdown +extensions, and several HTML output formats. A command line wrapper +markdown_py is also provided to convert Markdown files to HTML.") + (license license:bsd-3))) + +(define-public python2-markdown + (package-with-python2 python-markdown)) + +(define-public python-ptyprocess + (package + (name "python-ptyprocess") + (version "0.5.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ptyprocess" version)) + (sha256 + (base32 + "0ra31k10v3629xq0kdn8lwmfbi97anmk48r03yvh7mks0kq96hg6")))) + (build-system python-build-system) + (native-inputs + `(("python-nose" ,python-nose))) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (zero? (system* "nosetests"))))))) + (home-page "https://github.com/pexpect/ptyprocess") + (synopsis "Run a subprocess in a pseudo terminal") + (description + "This package provides a Python library used to launch a subprocess in a +pseudo terminal (pty), and interact with both the process and its pty.") + (license license:isc))) + +(define-public python2-ptyprocess + (package-with-python2 python-ptyprocess)) + +(define-public python-cram + (package + (name "python-cram") + (version "0.7") + (home-page "https://bitheap.org/cram/") + (source (origin + (method url-fetch) + (uri (list (string-append home-page "cram-" + version ".tar.gz") + (pypi-uri "cram" version))) + (sha256 + (base32 + "0bvz6fwdi55rkrz3f50zsy35gvvwhlppki2yml5bj5ffy9d499vx")))) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-source + (lambda _ + (substitute* (find-files "cram" ".*\\.py$") + ;; Replace default shell path. + (("/bin/sh") (which "sh"))) + (substitute* (find-files "tests" ".*\\.t$") + (("md5") "md5sum") + (("/bin/bash") (which "bash")) + (("/bin/sh") (which "sh"))) + (substitute* "cram/_test.py" + ;; This hack works around a bug triggered by substituting + ;; the /bin/sh paths. "tests/usage.t" compares the output of + ;; "cram -h", which breaks the output at 80 characters. This + ;; causes the line showing the default shell to break into two + ;; lines, but the test expects a single line... + (("env\\['COLUMNS'\\] = '80'") + "env['COLUMNS'] = '160'")) + #t)) + (delete 'check) + (add-after 'install 'check + ;; The test phase uses the built library and executable. + ;; It's easier to run it after install since the build + ;; directory contains version-specific PATH. + (lambda* (#:key inputs outputs #:allow-other-keys) + (add-installed-pythonpath inputs outputs) + (setenv "PATH" (string-append (getenv "PATH") ":" + (assoc-ref outputs "out") "/bin")) + (zero? (system* "make" "test"))))))) + (build-system python-build-system) + (native-inputs + `(("python-coverage" ,python-coverage) + ("which" ,which))) + (synopsis "Simple testing framework for command line applications") + (description + "Cram is a functional testing framework for command line applications. +Cram tests look like snippets of interactive shell sessions. Cram runs each +command and compares the command output in the test with the command’s actual +output.") + (license license:gpl2+))) + +(define-public python2-cram + (package-with-python2 python-cram)) + +(define-public python-straight-plugin + (package + (name "python-straight-plugin") + (version "1.4.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "straight.plugin" version)) + (sha256 + (base32 + "069pjll4383p4kkgvcc40hgyvf79j2wdbpgwz77yigzxksh1gj62")))) + (build-system python-build-system) + (home-page "https://github.com/ironfroggy/straight.plugin") + (synopsis "Simple namespaced plugin facility") + (description "Straight Plugin provides a type of plugin you can create from +almost any existing Python modules, and an easy way for outside developers to +add functionality and customization to your projects with their own plugins.") + (license license:expat))) + +(define-public python2-straight-plugin + (package-with-python2 python-straight-plugin)) + +(define-public python-fonttools + (package + (name "python-fonttools") + (version "3.28.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "fonttools" version ".zip")) + (sha256 + (base32 + "0vsvjhidpb5kywpjgz1j3fywzkddxkb0afqai18qa3h6lqjyxwpb")))) + (build-system python-build-system) + (native-inputs + `(("unzip" ,unzip) + ("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://github.com/behdad/fonttools") + (synopsis "Tools to manipulate font files") + (description + "FontTools/TTX is a library to manipulate font files from Python. It +supports reading and writing of TrueType/OpenType fonts, reading and writing +of AFM files, reading (and partially writing) of PS Type 1 fonts. The package +also contains a tool called “TTX” which converts TrueType/OpenType fonts to and +from an XML-based format.") + (license license:expat))) + +(define-public python2-fonttools + (package-with-python2 python-fonttools)) + +(define-public python-ly + (package + (name "python-ly") + (version "0.9.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri name version)) + (sha256 + (base32 + "0x98dv7p8mg26p4816yy8hz4f34zf6hpnnfmr56msgh9jnsm2qfl")))) + (build-system python-build-system) + (arguments + ;; FIXME: Some tests need network access. + '(#:tests? #f)) + (synopsis "Tool and library for manipulating LilyPond files") + (description "This package provides a Python library to parse, manipulate +or create documents in LilyPond format. A command line program ly is also +provided that can be used to do various manipulations with LilyPond files.") + (home-page "https://pypi.python.org/pypi/python-ly") + (license license:gpl2+))) + +(define-public python-appdirs + (package + (name "python-appdirs") + (version "1.4.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "appdirs" version)) + (sha256 + (base32 + "14id6wxi12lgyw0mg3bcfnf888ad07jz9yj46gfzhn186z8rcn4y")))) + (build-system python-build-system) + (home-page "https://github.com/ActiveState/appdirs") + (synopsis + "Determine platform-specific dirs, e.g. a \"user data dir\"") + (description + "This module provides a portable way of finding out where user data +should be stored on various operating systems.") + (license license:expat))) + +(define-public python2-appdirs + (package-with-python2 python-appdirs)) + +(define-public python-llfuse + (package + (name "python-llfuse") + (version "1.3.5") + (source (origin + (method url-fetch) + (uri (pypi-uri "llfuse" version ".tar.bz2")) + (sha256 + (base32 + "1n7a90jww3ly49fm7x27m3xw3la3qfrnykcakga654g6kcyjlhbf")))) + (build-system python-build-system) + (inputs + `(("fuse" ,fuse) + ("attr" ,attr))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (synopsis "Python bindings for FUSE") + (description + "Python-LLFUSE is a set of Python bindings for the low level FUSE API.") + (home-page "https://bitbucket.org/nikratio/python-llfuse/") + (license license:lgpl2.0+) + (properties `((python2-variant . ,(delay python2-llfuse)))))) + +(define-public python2-llfuse + (package (inherit (package-with-python2 + (strip-python2-variant python-llfuse))) + (propagated-inputs `(("python2-contextlib2" ,python2-contextlib2))))) + +;; For attic-0.16 +(define-public python-llfuse-0.41 + (package (inherit python-llfuse) + (version "0.41.1") + (source (origin + (method url-fetch) + (uri (string-append + "https://bitbucket.org/nikratio/python-llfuse/downloads/" + "llfuse-" version ".tar.bz2")) + (sha256 + (base32 + "1imlqw9b73086y97izr036f58pgc5akv4ihc2rrf8j5h75jbrlaa")))) + ;; Python-LLFUSE < 0.42 includes underscore.js, which is MIT (expat) + ;; licensed. The rest of the package is licensed under LGPL2.0 or later. + (license (list license:expat license:lgpl2.0+)))) + +(define-public python-msgpack + (package + (name "python-msgpack") + (version "0.5.6") + (source (origin + (method url-fetch) + (uri (pypi-uri "msgpack" version)) + (sha256 + (base32 + "1hz2dba1nvvn52afg34liijsm7kn65cmn06dl0xbwld6bb4cis0f")))) + (build-system python-build-system) + (arguments + `(#:modules ((guix build utils) + (guix build python-build-system) + (ice-9 ftw) + (srfi srfi-1) + (srfi srfi-26)) + #:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (let ((cwd (getcwd))) + (setenv "PYTHONPATH" + (string-append cwd "/build/" + (find (cut string-prefix? "lib" <>) + (scandir (string-append cwd "/build"))) + ":" + (getenv "PYTHONPATH"))) + (invoke "pytest" "-v" "test"))))))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (synopsis "MessagePack (de)serializer") + (description "MessagePack is a fast, compact binary serialization format, +suitable for similar data to JSON. This package provides CPython bindings for +reading and writing MessagePack data.") + (home-page "https://pypi.python.org/pypi/msgpack/") + (license license:asl2.0))) + +;; This msgpack library's name changed from "python-msgpack" to "msgpack" with +;; release 0.5. Some packages like borg still call it by the old name for now. +;; <https://bugs.gnu.org/30662> +(define-public python-msgpack-transitional + (package + (inherit python-msgpack) + (name "python-msgpack-transitional") + (arguments + (substitute-keyword-arguments (package-arguments python-msgpack) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'unpack 'configure-transitional + (lambda _ + ;; Keep using the old name. + (substitute* "setup.py" + (("TRANSITIONAL = False") + "TRANSITIONAL = 1")) + #t)))))))) + +(define-public python2-msgpack + (package-with-python2 python-msgpack)) + +(define-public python-netaddr + (package + (name "python-netaddr") + (version "0.7.19") + (source + (origin + (method url-fetch) + (uri (pypi-uri "netaddr" version)) + (sha256 + (base32 + "1zdfadvpq4lmcqzr383gywxn4xyn355kj1n3lk9q2l03vmyfrbiq")))) + (build-system python-build-system) + (arguments `(#:tests? #f)) ;; No tests. + (home-page "https://github.com/drkjam/netaddr/") + (synopsis "Pythonic manipulation of network addresses") + (description + "A Python library for representing and manipulating IPv4, IPv6, CIDR, EUI +and MAC network addresses.") + (license license:bsd-3))) + +(define-public python2-netaddr + (package-with-python2 python-netaddr)) + +(define-public python-wrapt + (package + (name "python-wrapt") + (version "1.10.11") + (source + (origin + (method url-fetch) + (uri (pypi-uri "wrapt" version)) + (sha256 + (base32 + "1ip3dwib39xhp79kblskgvz3fjzcwxgx3fs3ahdixhpjg7a61mfl")))) + (build-system python-build-system) + (arguments + ;; Tests are not included in the tarball, they are only available in the + ;; git repository. + `(#:tests? #f)) + (home-page "https://github.com/GrahamDumpleton/wrapt") + (synopsis "Module for decorators, wrappers and monkey patching") + (description + "The aim of the wrapt module is to provide a transparent object proxy for + Python, which can be used as the basis for the construction of function + wrappers and decorator functions.") + (license license:bsd-2))) + +(define-public python2-wrapt + (package-with-python2 python-wrapt)) + +(define-public python-xlrd + (package + (name "python-xlrd") + (version "1.0.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "xlrd" version)) + (sha256 + (base32 + "0s8hjiz01vbhy85xalrz0qlsmd9ypf36zjqrf97hh984spapvy0g")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; Current test in setup.py does not work as of 1.0.0, so use nose to + ;; run tests instead for now. + (replace 'check (lambda _ (zero? (system* "nosetests"))))))) + (native-inputs `(("python-nose" ,python-nose))) + (home-page "http://www.python-excel.org/") + (synopsis "Library for extracting data from Excel files") + (description "This packages provides a library to extract data from +spreadsheets using Microsoft Excel proprietary file formats @samp{.xls} and +@samp{.xlsx} (versions 2.0 onwards). It has support for Excel dates and is +Unicode-aware. It is not intended as an end-user tool.") + (license license:bsd-3))) + +(define-public python2-xlrd + (package-with-python2 python-xlrd)) + +(define-public python-prettytable + (package + (name "python-prettytable") + (version "0.7.2") + (source + (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/source/P/PrettyTable/" + "prettytable-" version ".tar.bz2")) + (sha256 + (base32 + "0diwsicwmiq2cpzpxri7cyl5fmsvicafw6nfqf6p6p322dji2g45")))) + (build-system python-build-system) + (home-page "http://code.google.com/p/prettytable/") + (synopsis "Display tabular data in an ASCII table format") + (description + "A library designed to represent tabular data in visually appealing ASCII +tables. PrettyTable allows for selection of which columns are to be printed, +independent alignment of columns (left or right justified or centred) and +printing of sub-tables by specifying a row range.") + (license license:bsd-3))) + +(define-public python2-prettytable + (package-with-python2 python-prettytable)) + +(define-public python-tables + (package + (name "python-tables") + (version "3.4.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "tables" version)) + (sha256 + (base32 + "0affz7k8babh8wdmsgrz5jxrd569by2w8ffimcxs9wiaf5rw1idx")) + (modules '((guix build utils))) + (snippet + '(begin + ;; Remove pre-compiled .pyc files from source. + (for-each delete-file-recursively + (find-files "." "__pycache__" #:directories? #t)) + (for-each delete-file (find-files "." "\\.pyc$")) + #t)))) + (build-system python-build-system) + (arguments + `(;; FIXME: python-build-system does not pass configure-flags to "build" + ;; or "check", so we must override the build and check phases. + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'use-gcc + (lambda _ + (substitute* "setup.py" + (("compiler = new_compiler\\(\\)" line) + (string-append line + "\ncompiler.set_executables(compiler='gcc'," + "compiler_so='gcc'," + "linker_exe='gcc'," + "linker_so='gcc -shared')"))) + #t)) + (replace 'build + (lambda* (#:key inputs #:allow-other-keys) + (zero? (system* "python" "setup.py" "build" + (string-append "--hdf5=" + (assoc-ref inputs "hdf5")))))) + (replace 'check + (lambda* (#:key inputs #:allow-other-keys) + (zero? (system* "python" "setup.py" "check" + (string-append "--hdf5=" + (assoc-ref inputs "hdf5"))))))))) + (propagated-inputs + `(("python-numexpr" ,python-numexpr) + ("python-numpy" ,python-numpy))) + (native-inputs + `(("python-cython" ,python-cython) + ("pkg-config" ,pkg-config))) + (inputs + `(("hdf5" ,hdf5) + ("bzip2" ,bzip2) + ("zlib" ,zlib))) + (home-page "http://www.pytables.org/") + (synopsis "Hierarchical datasets for Python") + (description "PyTables is a package for managing hierarchical datasets and +designed to efficiently cope with extremely large amounts of data.") + (license license:bsd-3))) + +(define-public python2-tables + (package-with-python2 python-tables)) + +(define-public python-pyasn1 + (package + (name "python-pyasn1") + (version "0.4.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyasn1" version)) + (sha256 + (base32 + "1z5h38anjzzrxpraa9iq9llffyx2zs8gx0q6dc1g029miwnn50gv")))) + (build-system python-build-system) + (home-page "http://pyasn1.sourceforge.net/") + (synopsis "ASN.1 types and codecs") + (description + "This is an implementation of ASN.1 types and codecs in Python. It is +suitable for a wide range of protocols based on the ASN.1 specification.") + (license license:bsd-2))) + +(define-public python2-pyasn1 + (package-with-python2 python-pyasn1)) + +(define-public python-pyasn1-modules + (package + (name "python-pyasn1-modules") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyasn1-modules" version)) + (sha256 + (base32 + "0ivm850yi7ajjbi8j115qpsj95bgxdsx48nbjzg0zip788c3xkx0")))) + (build-system python-build-system) + (propagated-inputs + `(("python-pyasn1" ,python-pyasn1))) + (home-page "https://sourceforge.net/projects/pyasn1/") + (synopsis "ASN.1 codec implementations") + (description + "Pyasn1-modules is a collection of Python modules providing ASN.1 types and +implementations of ASN.1-based codecs and protocols.") + (license license:bsd-3))) + +(define-public python2-pyasn1-modules + (package-with-python2 python-pyasn1-modules)) + +(define-public python-ipaddress + (package + (name "python-ipaddress") + (version "1.0.22") + (source (origin + (method url-fetch) + (uri (pypi-uri "ipaddress" version)) + (sha256 + (base32 + "0b570bm6xqpjwqis15pvdy6lyvvzfndjvkynilcddjj5x98wfimi")))) + (build-system python-build-system) + (home-page "https://github.com/phihag/ipaddress") + (synopsis "IP address manipulation library") + (description + "This package provides a fast, lightweight IPv4/IPv6 manipulation library + in Python. This library is used to create, poke at, and manipulate IPv4 and + IPv6 addresses and networks. This is a port of the Python 3.3 ipaddress + module to older versions of Python.") + (license license:psfl))) + +(define-public python2-ipaddress + (package-with-python2 python-ipaddress)) + +(define-public python2-ipaddr + (package + (name "python2-ipaddr") + (version "2.1.11") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ipaddr" version)) + (sha256 + (base32 "1dwq3ngsapjc93fw61rp17fvzggmab5x1drjzvd4y4q0i255nm8v")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 ;version 2 only + #:phases + (modify-phases %standard-phases + (replace 'check + (lambda* _ + (zero? (system* "python" "ipaddr_test.py"))))))) + (home-page "https://github.com/google/ipaddr-py") + (synopsis "IP address manipulation library") + (description + "Ipaddr is a Python@tie{}2 library for creating and manupilating IPv4 and +IPv6 addresses and networks. + +For new implementations you may prefer to use the standard module +@code{ipaddress}, which was introduced in Python 3.3 and backported to older +versions of Python.") + (license license:asl2.0))) + +(define-public python-idna + (package + (name "python-idna") + (version "2.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "idna" version)) + (sha256 + (base32 + "05jam7d31767dr12x0rbvvs8lxnpb1mhdb2zdlfxgh83z6k3hjk8")))) + (build-system python-build-system) + (home-page "https://github.com/kjd/idna") + (synopsis "Internationalized domain names in applications") + (description + "This is a library to support the Internationalised Domain Names in +Applications (IDNA) protocol as specified in RFC 5891. This version of the +protocol is often referred to as “IDNA2008” and can produce different results +from the earlier standard from 2003. The library is also intended to act as a +suitable drop-in replacement for the “encodings.idna” module that comes with +the Python standard library but currently only supports the older 2003 +specification.") + (license license:bsd-4))) + +(define-public python2-idna + (package-with-python2 python-idna)) + +(define-public python-idna-ssl + (package + (name "python-idna-ssl") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "idna-ssl" version)) + (sha256 + (base32 + "0ydrc8hpg9mdr5hqq1lqfsfbn6sjq69slwpfrnlrm3k0phqg14qj")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ;circular dependency with python-aiohttp + (home-page "https://github.com/aio-libs/idna-ssl") + (synopsis "Patch @code{ssl.match_hostname} for Unicode(idna) domains support") + (description "Patch @code{ssl.match_hostname} for Unicode(idna) +domains support.") + (license license:expat))) + +(define-public python-pretend + (package + (name "python-pretend") + (version "1.0.9") + (source + (origin + (method url-fetch) + (uri (string-append "https://pypi.python.org/packages/source/p/" + "pretend/pretend-" version ".tar.gz")) + (sha256 + (base32 + "040vm94lcbscg5p81g1icmwwwa2jm7wrd1ybmxnv1sz8rl8bh3n9")))) + (build-system python-build-system) + (home-page "https://github.com/alex/pretend") + (synopsis "Library for stubbing in Python") + (description + "Pretend is a library to make stubbing with Python easier. Stubbing is a +technique for writing tests. You may hear the term mixed up with mocks, +fakes, or doubles. Basically, a stub is an object that returns pre-canned +responses, rather than doing any computation.") + (license license:bsd-3))) + +(define-public python2-pretend + (package-with-python2 python-pretend)) + +(define-public python-pip + (package + (name "python-pip") + (version "18.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pip" version)) + (sha256 + (base32 + "188fclay154s520n43s7cxxlhdaiysvxf19zk8vr1xbyjyyr58n0")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; there are no tests in the pypi archive. + (home-page "https://pip.pypa.io/") + (synopsis "Package manager for Python software") + (description + "Pip is a package manager for Python software, that finds packages on the +Python Package Index (PyPI).") + (license license:expat))) + +(define-public python2-pip + (package-with-python2 python-pip)) + +(define-public python-tlsh + (package + (name "python-tlsh") + (version "3.4.5") + (home-page "https://github.com/trendmicro/tlsh") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/trendmicro/tlsh/archive/v" + version ".tar.gz")) + (sha256 + (base32 + "1x1vahd4zg5kpyr9h9hs3fvh460p25rjy4cclwdnbbw8x3vc30q3")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system cmake-build-system) + (arguments + '(#:out-of-source? #f + #:phases (modify-phases %standard-phases + (replace + 'install + (lambda* (#:key outputs #:allow-other-keys) + ;; Build and install the Python bindings. The underlying + ;; C++ library is apparently not meant to be installed. + (let ((out (assoc-ref outputs "out"))) + (with-directory-excursion "py_ext" + (and (system* "python" "setup.py" "build") + (system* "python" "setup.py" "install" + (string-append "--prefix=" out)))))))))) + (inputs `(("python" ,python-wrapper))) ;for the bindings + (synopsis "Fuzzy matching library for Python") + (description + "Trend Micro Locality Sensitive Hash (TLSH) is a fuzzy matching library. +Given a byte stream with a minimum length of 256 bytes, TLSH generates a hash +value which can be used for similarity comparisons. Similar objects have +similar hash values, which allows for the detection of similar objects by +comparing their hash values. The byte stream should have a sufficient amount +of complexity; for example, a byte stream of identical bytes will not generate +a hash value.") + (license license:asl2.0))) + +(define-public python2-tlsh + (package + (inherit python-tlsh) + (name "python2-tlsh") + (inputs `(("python" ,python-2))))) + +(define-public python-termcolor + (package + (name "python-termcolor") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "termcolor" version)) + (sha256 + (base32 + "0fv1vq14rpqwgazxg4981904lfyp84mnammw7y046491cv76jv8x")))) + (build-system python-build-system) + (arguments + ;; There are no tests. + `(#:tests? #f)) + (home-page "https://pypi.python.org/pypi/termcolor") + (synopsis "ANSII Color formatting for terminal output") + (description + "This package provides ANSII Color formatting for output in terminals.") + (license license:expat))) + +(define-public python2-termcolor + (package-with-python2 python-termcolor)) + +(define-public python-libarchive-c + (package + (name "python-libarchive-c") + (version "2.8") + (source (origin + (method url-fetch) + (uri (pypi-uri "libarchive-c" version)) + (sha256 + (base32 + "0qg0v1s9c1xdk9philhnv8k6c6nicvnvfwlc0j9srg90jmdlvm06")))) + (build-system python-build-system) + (arguments + '(#:phases (modify-phases %standard-phases + (add-before + 'build 'reference-libarchive + (lambda* (#:key inputs #:allow-other-keys) + ;; Retain the absolute file name of libarchive.so. + (let ((libarchive (assoc-ref inputs "libarchive"))) + (substitute* "libarchive/ffi.py" + (("find_library\\('archive'\\)") + (string-append "'" libarchive + "/lib/libarchive.so'")))))) + (replace 'check + (lambda _ (invoke "pytest" "-vv")))))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-pytest" ,python-pytest))) + (inputs + `(("libarchive" ,libarchive))) + (home-page "https://github.com/Changaco/python-libarchive-c") + (synopsis "Python interface to libarchive") + (description + "This package provides Python bindings to libarchive, a C library to +access possibly compressed archives in many different formats. It uses +Python's @code{ctypes} foreign function interface (FFI).") + (license license:lgpl2.0+))) + +(define-public python2-libarchive-c + (package-with-python2 python-libarchive-c)) + +(define-public python-file + (package + (inherit file) + (name "python-file") + (build-system python-build-system) + (arguments + '(#:tests? #f ;no tests + #:configure-flags '("--single-version-externally-managed" "--root=/") + #:phases (modify-phases %standard-phases + (add-before 'build 'change-directory + (lambda _ + (chdir "python") + #t)) + (add-before 'build 'set-library-file-name + (lambda* (#:key inputs #:allow-other-keys) + (let ((file (assoc-ref inputs "file"))) + (substitute* "magic.py" + (("find_library\\('magic'\\)") + (string-append "'" file "/lib/libmagic.so'"))) + #t)))))) + (inputs `(("file" ,file))) + (self-native-input? #f) + (synopsis "Python bindings to the libmagic file type guesser. Note that +this module and the python-magic module both provide a \"magic.py\" file; +these two modules, which are different and were developed separately, both +serve the same purpose: provide Python bindings for libmagic."))) + +(define-public python2-file + (package-with-python2 python-file)) + +(define-public python-debian + (package + (name "python-debian") + (home-page "https://salsa.debian.org/python-debian-team/python-debian") + (version "0.1.28") + (source + (origin + (method url-fetch) + (uri (pypi-uri name version)) + (sha256 + (base32 + "0i15f0xzx679sd0ldq2sls9pnnps9fv6vhqvnv9dzf4qhma42i0y")))) + (build-system python-build-system) + (propagated-inputs + `(("python-six" ,python-six))) + (synopsis "Debian package related modules") + (description + ;; XXX: Use @enumerate instead of @itemize to work around + ;; <http://bugs.gnu.org/21772>. + "This package provides Python modules that abstract many formats of +Debian-related files, such as: + +@enumerate +@item Debtags information; +@item @file{debian/changelog} files; +@item packages files, pdiffs; +@item control files of single or multiple RFC822-style paragraphs---e.g. + @file{debian/control}, @file{.changes}, @file{.dsc}; +@item Raw @file{.deb} and @file{.ar} files, with (read-only) access to + contained files and meta-information. +@end enumerate\n") + + ;; Modules are either GPLv2+ or GPLv3+. + (license license:gpl3+))) + +(define-public python2-debian + (package-with-python2 python-debian)) + +(define-public python-nbformat + (package + (name "python-nbformat") + (version "4.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "nbformat" version)) + (sha256 + (base32 + "00nlf08h8yc4q73nphfvfhxrcnilaqanb8z0mdy6nxk0vzq4wjgp")))) + (build-system python-build-system) + (arguments `(#:tests? #f)) ; no test target + (propagated-inputs + `(("python-ipython-genutils" ,python-ipython-genutils) + ("python-jsonschema" ,python-jsonschema) + ("python-jupyter-core" ,python-jupyter-core) + ("python-traitlets" ,python-traitlets))) + (home-page "http://jupyter.org") + (synopsis "Jupyter Notebook format") + (description "This package provides the reference implementation of the +Jupyter Notebook format and Python APIs for working with notebooks.") + (license license:bsd-3))) + +(define-public python2-nbformat + (package-with-python2 python-nbformat)) + +(define-public python-bleach + (package + (name "python-bleach") + (version "1.4.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "bleach" version)) + (sha256 + (base32 + "0jvg3jxrvnx7xmm9gj262v60ib452xlnwlb0navyp7jsvcd0d4qj")))) + (build-system python-build-system) + (propagated-inputs + `(("python-html5lib" ,python-html5lib-0.9) + ("python-six" ,python-six))) + (native-inputs + `(("python-nose" ,python-nose))) + (home-page "https://github.com/jsocol/bleach") + (synopsis "Whitelist-based HTML-sanitizing tool") + (description "Bleach is an easy whitelist-based HTML-sanitizing tool.") + (license license:asl2.0))) + +(define-public python2-bleach + (package-with-python2 python-bleach)) + +(define-public python-entrypoints + (package + (name "python-entrypoints") + (version "0.2.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/takluyver/entrypoints/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1pdvgfr5bxyvnfvxbsd3zi0dh3il71pc4k6rinx6zpps91b84a56")))) + (build-system python-build-system) + ;; The package does not come with a setup.py file, so we have to generate + ;; one ourselves. + (arguments + `(#:tests? #f + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'create-setup.py + (lambda _ + (call-with-output-file "setup.py" + (lambda (port) + (format port "\ +from setuptools import setup +setup(name='entrypoints', version='~a', py_modules=['entrypoints']) +" ,version)))))))) + (home-page "https://github.com/takluyver/entrypoints") + (synopsis "Discover and load entry points from installed Python packages") + (description "Entry points are a way for Python packages to advertise +objects with some common interface. The most common examples are +@code{console_scripts} entry points, which define shell commands by +identifying a Python function to run. The @code{entrypoints} module contains +functions to find and load entry points.") + (license license:expat))) + +(define-public python2-entrypoints + (package-with-python2 python-entrypoints)) + +(define-public python-nbconvert + (package + (name "python-nbconvert") + (version "5.0.0b1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "nbconvert" version)) + (sha256 + (base32 + "0brclbb18l4nmd5qy3dl9wn05rjdh1fz4rmzdlfqacj12rcdvdgp")))) + (build-system python-build-system) + (arguments + `(;; The "bdist_egg" target is disabled by default, causing the installation + ;; to fail. + #:configure-flags (list "bdist_egg") + ;; FIXME: 5 failures, 40 errors. + #:tests? #f)) + ;; #:phases + ;; (modify-phases %standard-phases + ;; (replace 'check + ;; (lambda _ + ;; (zero? (system* "py.test" "-v"))))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (propagated-inputs + `(("python-bleach" ,python-bleach) + ("python-entrypoints" ,python-entrypoints) + ("python-jinja2" ,python-jinja2) + ("python-jupyter-core" ,python-jupyter-core) + ("python-mistune" ,python-mistune) + ("python-nbformat" ,python-nbformat) + ("python-pygments" ,python-pygments) + ("python-traitlets" ,python-traitlets))) + (home-page "http://jupyter.org") + (synopsis "Converting Jupyter Notebooks") + (description "The @code{nbconvert} tool, @{jupyter nbconvert}, converts +notebooks to various other formats via Jinja templates. It allows you to +convert an @code{.ipynb} notebook file into various static formats including: + +@enumerate +@item HTML +@item LaTeX +@item PDF +@item Reveal JS +@item Markdown (md) +@item ReStructured Text (rst) +@item executable script +@end enumerate\n") + (license license:bsd-3))) + +(define-public python2-nbconvert + (package-with-python2 python-nbconvert)) + +(define-public python-prometheus-client + (package + (name "python-prometheus-client") + (version "0.5.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "prometheus_client" version)) + (sha256 + (base32 + "0g7rpv1pq2lab1nfqdx98z9d3bqwc400alg1j4ynrpjkrbsizhg8")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; tests are not included + (propagated-inputs + `(("python-twisted" ,python-twisted))) + (home-page "https://github.com/prometheus/client_python") + (synopsis "Python client for the Prometheus monitoring system") + (description + "This package provides a Python client for the Prometheus monitoring +system.") + (license license:asl2.0))) + +(define-public python2-prometheus-client + (package-with-python2 python-prometheus-client)) + +(define-public python-notebook + (package + (name "python-notebook") + (version "5.7.4") + (source (origin + (method url-fetch) + (uri (pypi-uri "notebook" version)) + (sha256 + (base32 + "0jm7324mbxljmn9hgapj66q7swyz5ai92blmr0jpcy0h80x6f26r")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + ;; These tests require a browser + (delete-file-recursively "notebook/tests/selenium") + ;; Some tests need HOME + (setenv "HOME" "/tmp") + ;; This file contains "warningfilters", which are not supported + ;; by this version of nose. + (delete-file "setup.cfg") + (with-directory-excursion "/tmp" + (invoke "nosetests" "-v")) + #t))))) + (propagated-inputs + `(("python-jupyter-core" ,python-jupyter-core) + ("python-nbformat" ,python-nbformat) + ("python-nbconvert" ,python-nbconvert) + ("python-prometheus-client" ,python-prometheus-client) + ("python-send2trash" ,python-send2trash) + ("python-terminado" ,python-terminado))) + (native-inputs + `(("python-nose" ,python-nose) + ("python-sphinx" ,python-sphinx) + ("python-requests" ,python-requests))) + (home-page "http://jupyter.org/") + (synopsis "Web-based notebook environment for interactive computing") + (description + "The Jupyter HTML notebook is a web-based notebook environment for +interactive computing.") + (properties `((python2-variant . ,(delay python2-notebook)))) + (license license:bsd-3))) + +(define-public python2-notebook + (let ((base (package-with-python2 + (strip-python2-variant python-notebook)))) + (package (inherit base) + (native-inputs + `(("python2-mock" ,python2-mock) + ,@(package-native-inputs base))) + (arguments + (substitute-keyword-arguments (package-arguments base) + ((#:phases phases) + `(modify-phases ,phases + (add-before 'check 'disable-test-case + ;; The test requires network access to localhost. Curiously it + ;; fails with Python 2 only. Simply make the test-case return + ;; immediately. + (lambda _ + (substitute* + "notebook/services/nbconvert/tests/test_nbconvert_api.py" + (("formats = self.nbconvert_api") "return #"))))))))))) + +(define-public python-widgetsnbextension + (package + (name "python-widgetsnbextension") + (version "3.4.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "widgetsnbextension" version)) + (sha256 + (base32 + "0rc2nivdy7k4m3vljx7wdh2jh11djapcgwhvzlbs0isl8gl8nqgs")))) + (build-system python-build-system) + (propagated-inputs + `(("python-ipykernel" ,python-ipykernel) + ("python-notebook" ,python-notebook))) + (native-inputs + `(("python-certifi" ,python-certifi) + ("python-nose" ,python-nose))) + (home-page "https://ipython.org") + (synopsis "IPython HTML widgets for Jupyter") + (description "This package provides interactive HTML widgets for Jupyter +notebooks.") + (license license:bsd-3))) + +(define-public python2-widgetsnbextension + (package-with-python2 python-widgetsnbextension)) + +(define-public python-ipywidgets + (package + (name "python-ipywidgets") + (version "5.2.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ipywidgets" version)) + (sha256 + (base32 + "1lk0qrr5l9a0z7qkkn30hv5832whxwxymf1l576fmmad0n7hkxms")))) + (build-system python-build-system) + (propagated-inputs + `(("python-ipython" ,python-ipython) + ("python-traitlets" ,python-traitlets) + ("python-widgetsnbextension" ,python-widgetsnbextension))) + (native-inputs + `(("python-nose" ,python-nose) + ("python-pytest" ,python-pytest))) + (home-page "https://ipython.org") + (synopsis "IPython HTML widgets for Jupyter") + (description "Ipywidgets are interactive HTML widgets for Jupyter +notebooks and the IPython kernel. Notebooks come alive when interactive +widgets are used. Users gain control of their data and can visualize changes +in the data.") + (license license:bsd-3))) + +(define-public python2-ipywidgets + (package-with-python2 python-ipywidgets)) + +(define-public python-jupyter-console + (package + (name "python-jupyter-console") + (version "5.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "jupyter_console" version)) + (sha256 + (base32 + "1kam1qzgwr7srhm5r6aj90di5sws4bq0jmiw15452ddamb9yspal")))) + (build-system python-build-system) + ;; Tests only run in an TTY. + (arguments `(#:tests? #f)) + (propagated-inputs + `(("python-ipykernel" ,python-ipykernel) + ("python-jupyter-client" ,python-jupyter-client) + ("python-prompt-toolkit" ,python-prompt-toolkit-1) + ("python-pygments" ,python-pygments))) + (native-inputs + `(("python-nose" ,python-nose))) + (home-page "https://jupyter.org") + (synopsis "Jupyter terminal console") + (description "This package provides a terminal-based console frontend for +Jupyter kernels. It also allows for console-based interaction with non-Python +Jupyter kernels such as IJulia and IRKernel.") + (license license:bsd-3))) + +(define-public python2-jupyter-console + (package-with-python2 python-jupyter-console)) + +;; The python-ipython and python-jupyter-console require each other. To get +;; the functionality in both packages working, strip down the +;; python-jupyter-console package when using it as an input to python-ipython. +(define python-jupyter-console-minimal + (package + (inherit python-jupyter-console) + (name "python-jupyter-console-minimal") + (arguments + (substitute-keyword-arguments + (package-arguments python-jupyter-console) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'install 'delete-bin + (lambda* (#:key outputs #:allow-other-keys) + ;; Delete the bin files, to avoid conflicts in profiles + ;; where python-ipython and python-jupyter-console are + ;; both present. + (delete-file-recursively + (string-append + (assoc-ref outputs "out") "/bin")))))))) + ;; Remove the python-ipython propagated input, to avoid the cycle + (propagated-inputs + (alist-delete + "python-ipython" + (package-propagated-inputs python-jupyter-console))))) + +(define-public python-qtconsole + (package + (name "python-qtconsole") + (version "4.4.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "qtconsole" version)) + (sha256 + (base32 + "1b03n1ixzscm0jw97l4dq5iy4fslnqxq5bb8287xb7n2a1gs26xw")))) + (build-system python-build-system) + (arguments + ;; XXX: Tests are disabled, because this package needs python-ipython 7, + ;; but we only have the LTS version 5.x. This means that there might be + ;; runtime errors, but since this is a dependency of the Jupyter package, + ;; and Jupyter can be used without the qtconsole we can overlook this for + ;; now. + `(#:tests? #f + #:phases + (modify-phases %standard-phases + (add-before 'check 'pre-check + (lambda _ + (setenv "QT_QPA_PLATFORM" "offscreen") + #t))))) + (propagated-inputs + `(("python-ipykernel" ,python-ipykernel) + ("python-ipython" ,python-ipython))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "http://jupyter.org") + (synopsis "Jupyter Qt console") + (description "This package provides a Qt-based console for Jupyter with +support for rich media output.") + (license license:bsd-3))) + +(define-public jupyter + (package + (name "jupyter") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "jupyter" version)) + (sha256 + (base32 + "0pwf3pminkzyzgx5kcplvvbvwrrzd3baa7lmh96f647k30rlpp6r")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; there are none. + (propagated-inputs + `(("python-ipykernel" ,python-ipykernel) + ("python-ipywidgets" ,python-ipywidgets) + ("python-jupyter-console" ,python-jupyter-console) + ("python-nbconvert" ,python-nbconvert) + ("python-notebook" ,python-notebook) + ("python-qtconsole" ,python-qtconsole))) + (native-search-paths + (list (search-path-specification + (variable "JUPYTER_PATH") + (files '("share/jupyter"))))) + (home-page "https://jupyter.org") + (synopsis "Web application for interactive documents") + (description + "The Jupyter Notebook is a web application that allows you to create and +share documents that contain live code, equations, visualizations and +explanatory text. Uses include: data cleaning and transformation, numerical +simulation, statistical modeling, machine learning and much more.") + (license license:bsd-3))) + +(define-public python-chardet + (package + (name "python-chardet") + (version "3.0.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "chardet" version)) + (sha256 + (base32 + "1bpalpia6r5x1kknbk11p1fzph56fmmnp405ds8icksd3knr5aw4")))) + (native-inputs + `(("python-hypothesis" ,python-hypothesis) + ("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner))) + (build-system python-build-system) + (home-page "https://github.com/chardet/chardet") + (synopsis "Universal encoding detector for Python 2 and 3") + (description + "This package provides @code{chardet}, a Python module that can +automatically detect a wide range of file encodings.") + (license license:lgpl2.1+))) + +(define-public python2-chardet + (package-with-python2 python-chardet)) + +(define-public python-docopt + (package + (name "python-docopt") + (version "0.6.2") + (source + (origin + (method url-fetch) + ;; The release on PyPI does not include tests. + (uri (string-append + "https://github.com/docopt/docopt/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "16bf890xbdz3m30rsv2qacklh2rdn1zrfspfnwzx9g7vwz8yw4r1")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest))) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ (invoke "py.test")))))) + (home-page "http://docopt.org") + (synopsis "Command-line interface description language for Python") + (description "This library allows the user to define a command-line +interface from a program's help message rather than specifying it +programatically with command-line parsers like @code{getopt} and +@code{argparse}.") + (license license:expat))) + +(define-public python2-docopt + (package-with-python2 python-docopt)) + +(define-public python-pythondialog + (package + (name "python-pythondialog") + (version "3.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pythondialog" version)) + (sha256 + (base32 + "1728ghsran47jczn9bhlnkvk5bvqmmbihabgif5h705b84r1272c")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-path + (lambda* (#:key inputs #:allow-other-keys) + (let* ((dialog (assoc-ref inputs "dialog"))) + ;; Since this library really wants to grovel the search path, we + ;; must hardcode dialog's store path into it. + (substitute* "dialog.py" + (("os.getenv\\(\"PATH\", \":/bin:/usr/bin\"\\)") + (string-append "os.getenv(\"PATH\") + \":" dialog "/bin\""))) + #t)))) + #:tests? #f)) ; no test suite + (propagated-inputs + `(("dialog" ,dialog))) + (home-page "http://pythondialog.sourceforge.net/") + (synopsis "Python interface to the UNIX dialog utility") + (description "A Python wrapper for the dialog utility. Its purpose is to +provide an easy to use, pythonic and comprehensive Python interface to dialog. +This allows one to make simple text-mode user interfaces on Unix-like systems") + (license license:lgpl2.1) + (properties `((python2-variant . ,(delay python2-pythondialog)))))) + +(define-public python2-pythondialog + (let ((base (package-with-python2 (strip-python2-variant python-pythondialog)))) + (package + (inherit base) + (version (package-version python-pythondialog)) + (source (origin + (method url-fetch) + (uri (pypi-uri "python2-pythondialog" version)) + (sha256 + (base32 + "0d8k7lxk50imdyx85lv8j98i4c93a71iwpapnl1506rpkbm9qvd9"))))))) + +(define-public python-configobj + (package + (name "python-configobj") + (version "5.0.6") + (source (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/source/c/configobj/" + "configobj-" version ".tar.gz")) + (sha256 + (base32 + "00h9rcmws03xvdlfni11yb60bz3kxfvsj6dg6nrpzj71f03nbxd2")) + ;; Patch setup.py so it looks for python-setuptools, which is + ;; required to parse the keyword 'install_requires' in setup.py. + (patches (search-patches "python-configobj-setuptools.patch")))) + (build-system python-build-system) + (propagated-inputs + `(("python-six" ,python-six))) + (synopsis "Config file reading, writing and validation") + (description "ConfigObj is a simple but powerful config file reader and +writer: an ini file round tripper. Its main feature is that it is very easy to +use, with a straightforward programmer’s interface and a simple syntax for +config files.") + (home-page "https://github.com/DiffSK/configobj") + (license license:bsd-3))) + +(define-public python2-configobj + (package-with-python2 python-configobj)) + +(define-public python-configargparse + (package + (name "python-configargparse") + (version "0.12.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "ConfigArgParse" version)) + (sha256 + (base32 + "0fgkiqh6r3rbkdq3k8c48m85g52k96686rw3a6jg4lcncrkpvk98")))) + (build-system python-build-system) + (native-inputs + `(("python-pyyaml" ,python-pyyaml))) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + ;; Bypass setuptools-shim because one test relies on "setup.py" + ;; being the first argument passed to the python call. + ;; + ;; NOTE: Many tests do not run because they rely on Python's + ;; built-in test.test_argparse, but we remove the unit tests from + ;; our Python installation. + (invoke "python" "setup.py" "test")))))) + (synopsis "Replacement for argparse") + (description "A drop-in replacement for argparse that allows options to also +be set via config files and/or environment variables.") + (home-page "https://github.com/bw2/ConfigArgParse") + (license license:expat))) + +(define-public python2-configargparse + (package-with-python2 python-configargparse)) + +(define-public python-argparse-manpage + (package + (name "python-argparse-manpage") + (version "1.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "argparse-manpage" version)) + (sha256 + (base32 + "0blh31zns68anina9lba5wh81d1414s97p60zw5l0d0shhh0wj5p")))) + (build-system python-build-system) + (home-page "https://github.com/praiskup/argparse-manpage") + (synopsis "Build manual page from Python's ArgumentParser object") + (description + "This package provides tools to build manual pages from Python's +@code{ArgumentParser} object.") + (license license:asl2.0))) + +(define-public python2-contextlib2 + (package + (name "python2-contextlib2") + (version "0.5.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "contextlib2" version)) + (sha256 + (base32 + "0j6ad6lwwyc9kv71skj098v5l7x5biyj2hs4lc5x1kcixqcr97sh")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ (invoke "python" "test_contextlib2.py" "-v")))))) + (native-inputs + `(("python2-unittest2" ,python2-unittest2))) + (home-page "http://contextlib2.readthedocs.org/") + (synopsis "Tools for decorators and context managers") + (description "This module is primarily a backport of the Python +3.2 contextlib to earlier Python versions. Like contextlib, it +provides utilities for common tasks involving decorators and context +managers. It also contains additional features that are not part of +the standard library.") + (license license:psfl))) + +(define-public python-texttable + (package + (name "python-texttable") + (version "0.8.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "texttable" version)) + (sha256 + (base32 + "1liiiydgkg37i46a418aw19fyf6z3ds51wdwwpyjbs12x0phhf4a")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; no tests + (home-page "https://github.com/foutaise/texttable/") + (synopsis "Python module for creating simple ASCII tables") + (description "Texttable is a Python module for creating simple ASCII +tables.") + (license license:lgpl2.1+))) + +(define-public python2-texttable + (package-with-python2 python-texttable)) + +(define-public python-atomicwrites + (package + (name "python-atomicwrites") + (version "1.1.5") + (source (origin + (method url-fetch) + (uri (pypi-uri "atomicwrites" version)) + (sha256 + (base32 + "11bm90fwm2avvf4f3ib8g925w7jr4m11vcsinn1bi6ns4bm32214")))) + (build-system python-build-system) + (synopsis "Atomic file writes in Python") + (description "Library for atomic file writes using platform dependent tools +for atomic file system operations.") + (home-page "https://github.com/untitaker/python-atomicwrites") + (license license:expat))) + +(define-public python2-atomicwrites + (package-with-python2 python-atomicwrites)) + +(define-public python-click-threading + (package + (name "python-click-threading") + (version "0.4.4") + (source (origin + (method url-fetch) + (uri (pypi-uri "click-threading" version)) + (sha256 + (base32 + "1rsxc2fbkxlhwhlmxsdjzq3spn284l6rvjfcz9mbb17ibgdgmc5j")))) + (build-system python-build-system) + (propagated-inputs + `(("python-click" ,python-click))) + (synopsis "Utilities for multithreading in Click") + (description "This package provides utilities for multithreading in Click +applications.") + (home-page "https://github.com/click-contrib/click-threading") + (license license:expat))) + +(define-public python-click-log + (package + (name "python-click-log") + (version "0.3.2") + (source (origin + (method url-fetch) + (uri (pypi-uri "click-log" version)) + (sha256 + (base32 + "091i03bhxyzsdbc6kilxhivfda2f8ymz3b33xa6cj5kbzjiirz8n")))) + (build-system python-build-system) + (propagated-inputs + `(("python-click" ,python-click))) + (synopsis "Logging for click applications") + (description "This package provides a Python library for logging Click +applications.") + (home-page "https://github.com/click-contrib/click-log") + (license license:expat))) + +(define-public python-apipkg + (package + (name "python-apipkg") + (version "1.4") + (source (origin + (method url-fetch) + (uri (pypi-uri "apipkg" version)) + (sha256 + (base32 + "1iks5701qnp3dlr3q1d9qm68y2plp2m029irhpz92a44psfkjf1f")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest))) + (synopsis "Namespace control and lazy-import mechanism") + (description "With apipkg you can control the exported namespace of a Python +package and greatly reduce the number of imports for your users. It is a small +pure Python module that works on virtually all Python versions.") + (home-page "https://github.com/pytest-dev/apipkg") + (license license:expat))) + +(define-public python2-apipkg + (package-with-python2 python-apipkg)) + +(define-public python-execnet + (package + (name "python-execnet") + (version "1.4.1") + (source (origin + (method url-fetch) + (uri (pypi-uri "execnet" version)) + (sha256 + (base32 + "1rpk1vyclhg911p3hql0m0nrpq7q7mysxnaaw6vs29cpa6kx8vgn")))) + (build-system python-build-system) + (arguments + `(;; 2 failed, 275 passed, 670 skipped, 4 xfailed + ;; The two test failures are caused by the lack of an `ssh` executable. + ;; The test suite can be run with pytest after the 'install' phase. + #:tests? #f)) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-setuptools-scm" ,python-setuptools-scm))) + (propagated-inputs + `(("python-apipkg" ,python-apipkg))) + (synopsis "Rapid multi-Python deployment") + (description "Execnet provides a share-nothing model with +channel-send/receive communication for distributing execution across many +Python interpreters across version, platform and network barriers. It has a +minimal and fast API targeting the following uses: +@enumerate +@item distribute tasks to (many) local or remote CPUs +@item write and deploy hybrid multi-process applications +@item write scripts to administer multiple environments +@end enumerate") + (home-page "http://codespeak.net/execnet/") + (license license:expat))) + +(define-public python2-execnet + (package-with-python2 python-execnet)) + +(define-public python-icalendar + (package + (name "python-icalendar") + (version "4.0.3") + (source (origin + (method url-fetch) + (uri (pypi-uri "icalendar" version)) + (sha256 + (base32 + "0mk3dk1dxkcm46jy48v27j2w2349iv4sbimqj1yb5js43mx49hh7")))) + (build-system python-build-system) + (propagated-inputs + `(("python-dateutil" ,python-dateutil) + ("python-pytz" ,python-pytz))) + (synopsis "Python library for parsing iCalendar files") + (description "The icalendar package is a parser/generator of iCalendar +files for use with Python.") + (home-page "https://github.com/collective/icalendar") + (license license:bsd-2))) + +(define-public python-sphinxcontrib-newsfeed + (package + (name "python-sphinxcontrib-newsfeed") + (version "0.1.4") + (source (origin + (method url-fetch) + (uri (pypi-uri "sphinxcontrib-newsfeed" version)) + (sha256 + (base32 + "1d7gam3mn8v4in4p16yn3v10vps7nnaz6ilw99j4klij39dqd37p")))) + (arguments '(#:tests? #f)) ; No tests. + (build-system python-build-system) + (propagated-inputs + `(("python-sphinx" ,python-sphinx))) + (synopsis "News Feed extension for Sphinx") + (description "Sphinxcontrib-newsfeed is an extension for adding a simple +Blog, News or Announcements section to a Sphinx website.") + (home-page "https://bitbucket.org/prometheus/sphinxcontrib-newsfeed") + (license license:bsd-2))) + +(define-public python-args + (package + (name "python-args") + (version "0.1.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "args" version)) + (sha256 + (base32 + "057qzi46h5dmxdqknsbrssn78lmqjlnm624iqdhrnpk26zcbi1d7")))) + (build-system python-build-system) + (home-page "https://github.com/kennethreitz/args") + (synopsis "Command-line argument parser") + (description + "This library provides a Python module to parse command-line arguments.") + (license license:bsd-3))) + +(define-public python2-args + (package-with-python2 python-args)) + +(define-public python-clint + (package + (name "python-clint") + (version "0.5.1") + (source (origin + (method url-fetch) + (uri (pypi-uri "clint" version)) + (sha256 + (base32 + "1an5lkkqk1zha47198p42ji3m94xmzx1a03dn7866m87n4r4q8h5")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ (invoke "py.test" "-v")))))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (propagated-inputs + `(("python-args" ,python-args))) + (home-page "https://github.com/kennethreitz/clint") + (synopsis "Command-line interface tools") + (description + "Clint is a Python module filled with a set of tools for developing +command-line applications, including tools for colored and indented +output, progress bar display, and pipes.") + (license license:isc))) + +(define-public python2-clint + (package-with-python2 python-clint)) + +(define-public python-astor + (package + (name "python-astor") + (version "0.5") + (source (origin + (method url-fetch) + (uri (pypi-uri "astor" version)) + (sha256 + (base32 + "1fdafq5hkis1fxqlmhw0sn44zp2ar46nxhbc22cvwg7hsd8z5gsa")))) + (build-system python-build-system) + (home-page "https://github.com/berkerpeksag/astor") + (synopsis "Read and write Python ASTs") + (description + "Astor is designed to allow easy manipulation of Python source via the +Abstract Syntax Tree.") + (license license:bsd-3))) + +(define-public python2-astor + (package-with-python2 python-astor)) + +(define-public python-rply + (package + (name "python-rply") + (version "0.7.5") + (source (origin + (method url-fetch) + (uri (pypi-uri "rply" version)) + (sha256 + (base32 + "0lv428895zxsz43968qx0q9bimwqnfykndz4dpjbq515w2gvzhjh")))) + (build-system python-build-system) + (propagated-inputs + `(("python-appdirs" ,python-appdirs))) + (home-page "https://github.com/alex/rply") + (synopsis "Parser generator for Python") + (description + "This package provides a pure Python based parser generator, that also +works with RPython. It is a more-or-less direct port of David Bazzley's PLY, +with a new public API, and RPython support.") + (license license:bsd-3))) + +(define-public python2-rply + (package-with-python2 python-rply)) + +(define-public python-hy + (package + (name "python-hy") + (version "0.13.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "hy" version)) + (sha256 + (base32 + "19sfymaksx9jhksfnb15ahid46mzrhdfzz6yy2craz2qnzvpmky8")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + ;; Tests require write access to HOME. + (setenv "HOME" "/tmp") + (invoke "nosetests")))))) + (native-inputs + `(("python-coverage" ,python-coverage) + ("python-nose" ,python-nose))) + (propagated-inputs + `(("python-astor" ,python-astor) + ("python-clint" ,python-clint) + ("python-rply" ,python-rply))) + (home-page "http://hylang.org/") + (synopsis "Lisp frontend to Python") + (description + "Hy is a dialect of Lisp that's embedded in Python. Since Hy transforms +its Lisp code into the Python Abstract Syntax Tree, you have the whole world of +Python at your fingertips, in Lisp form.") + (license license:expat))) + +(define-public python2-hy + (package-with-python2 python-hy)) + +(define-public python2-functools32 + (package + (name "python2-functools32") + (version "3.2.3-2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "functools32" version)) + (sha256 + (base32 + "0v8ya0b58x47wp216n1zamimv4iw57cxz3xxhzix52jkw3xks9gn")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + #:tests? #f)) ; no test target + (home-page "https://github.com/MiCHiLU/python-functools32") + (synopsis + "Backport of the functools module from Python 3.2.3") + (description + "This package is a backport of the @code{functools} module from Python +3.2.3 for use with older versions of Python and PyPy.") + (license license:expat))) + +(define-public python2-subprocess32 + (package + (name "python2-subprocess32") + (version "3.2.7") + (source (origin + (method url-fetch) + (uri (pypi-uri "subprocess32" version)) + (sha256 + (base32 + "14350dhhlhyz5gqzi3lihn9m6lvskx5mcb20srx1kgsk9i50li8y")) + (patches + (search-patches "python2-subprocess32-disable-input-test.patch")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + ;; The test suite fails with Python > 2.7.13: + ;; import test.support + ;; ImportError: No module named support + #:tests? #f + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-/bin/sh + (lambda _ + (substitute* '("subprocess32.py" + "test_subprocess32.py") + (("/bin/sh") (which "sh"))) + #t))))) + (home-page "https://github.com/google/python-subprocess32") + (synopsis "Backport of the subprocess module from Python 3.2") + (description + "This is a backport of the @code{subprocess} standard library module +from Python 3.2 and 3.3 for use on Python 2. It includes bugfixes and some +new features. On POSIX systems it is guaranteed to be reliable when used +in threaded applications. It includes timeout support from Python 3.3 but +otherwise matches 3.2’s API.") + (license license:psfl))) + +(define-public python2-futures + (package + (name "python2-futures") + (version "3.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "futures" version)) + (sha256 + (base32 + "0rdjmmsab550kxsssdq49jcniz77zlkpw4pvi9hvib3lsskjmh4y")))) + (build-system python-build-system) + (arguments `(#:python ,python-2 + ;; FIXME: Python 2.7.14 moved the test.support library, + ;; but our package has not yet been adjusted. Enable + ;; tests when the python2 package has been fixed. + #:tests? #f)) + (home-page "https://github.com/agronholm/pythonfutures") + (synopsis + "Backport of the concurrent.futures package from Python 3.2") + (description + "The concurrent.futures module provides a high-level interface for +asynchronously executing callables. This package backports the +concurrent.futures package from Python 3.2") + (license license:bsd-3))) + +(define-public python-promise + (package + (name "python-promise") + (version "0.4.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "promise" version)) + (sha256 + (base32 + "1k19ms8l3d5jzjh557rgkxb5sg4mqgfc315rn4hx1z3n8qq6lr3h")))) + (build-system python-build-system) + ;; Tests wants python-futures, which is a python2 only program, and + ;; can't be found by python-promise at test time. + (arguments `(#:tests? #f)) + (home-page "https://github.com/syrusakbary/promise") + (synopsis "Promises/A+ implementation for Python") + (description + "Promises/A+ implementation for Python") + (properties `((python2-variant . ,(delay python2-promise)))) + (license license:expat))) + +(define-public python2-promise + (let ((promise (package-with-python2 + (strip-python2-variant python-promise)))) + (package (inherit promise) + (arguments (substitute-keyword-arguments (package-arguments promise) + ((#:tests? _) #t))) + (native-inputs + `(("python2-futures" ,python2-futures) + ("python2-pytest" ,python2-pytest) + ,@(package-native-inputs promise)))))) + +(define-public python-colorama + (package + (name "python-colorama") + (version "0.3.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "colorama" version)) + (sha256 + (base32 + "1wd1szk0z3073ghx26ynw43gnc140ibln1safgsis6s6z3s25ss8")))) + (build-system python-build-system) + (synopsis "Colored terminal text rendering for Python") + (description "Colorama is a Python library for rendering colored terminal +text.") + (home-page "https://pypi.python.org/pypi/colorama") + (license license:bsd-3))) + +(define-public python2-colorama + (package-with-python2 python-colorama)) + +(define-public python-rsa + (package + (name "python-rsa") + (version "3.4.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "rsa" version)) + (sha256 + (base32 + "1dcxvszbikgzh99ybdc7jq0zb9wspy2ds8z9mjsqiyv3q884xpr5")))) + (build-system python-build-system) + (propagated-inputs + `(("python-pyasn1" ,python-pyasn1))) + (synopsis "Pure-Python RSA implementation") + (description "Python-RSA is a pure-Python RSA implementation. It supports +encryption and decryption, signing and verifying signatures, and key +generation according to PKCS#1 version 1.5. It can be used as a Python +library as well as on the command line.") + (home-page "https://stuvel.eu/rsa") + (license license:asl2.0))) + +(define-public python2-rsa + (package-with-python2 python-rsa)) + +(define-public python-pluggy + (package + (name "python-pluggy") + (version "0.7.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pluggy" version)) + (sha256 + (base32 + "1qbn70mksmr03hac6jgp6fiqc4l7859z8dchx2x950vhlij87swm")))) + (build-system python-build-system) + (native-inputs + `(("python-setuptools-scm" ,python-setuptools-scm))) + (synopsis "Plugin and hook calling mechanism for Python") + (description "Pluggy is an extraction of the plugin manager as used by +Pytest but stripped of Pytest specific details.") + (home-page "https://pypi.python.org/pypi/pluggy") + (license license:expat))) + +(define-public python2-pluggy + (package-with-python2 python-pluggy)) + +(define-public python-tox + (package + (name "python-tox") + (version "2.8.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "tox" version)) + (sha256 + (base32 + "1drp6mwm8wdypjym15ia8lwjxbhcksb9vzxg4ay5dh4ji57by2ny")))) + (build-system python-build-system) + (arguments + ;; FIXME: Tests require pytest-timeout, which itself requires + ;; pytest>=2.8.0 for installation. + '(#:tests? #f)) + (propagated-inputs + `(("python-pluggy" ,python-pluggy) ; >=0.3.0,<0.4.0 + ("python-py" ,python-py) + ("python-virtualenv" ,python-virtualenv))) + (native-inputs + `(; FIXME: Missing: ("python-pytest-timeout" ,python-pytest-timeout) + ("python-pytest" ,python-pytest) ; >= 2.3.5 + ("python-setuptools-scm" ,python-setuptools-scm))) + (home-page "http://tox.testrun.org/") + (synopsis "Virtualenv-based automation of test activities") + (description "Tox is a generic virtualenv management and test command line +tool. It can be used to check that a package installs correctly with +different Python versions and interpreters, or run tests in each type of +supported environment, or act as a frontend to continuous integration +servers.") + (license license:expat))) + +(define-public python2-tox + (package-with-python2 python-tox)) + +(define-public python-jmespath + (package + (name "python-jmespath") + (version "0.9.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "jmespath" version)) + (sha256 + (base32 + "0r7wc7fsxmlwzxx9j1j7rms06c6xs6d4sysirdhz1jk2mb4x90ba")))) + (build-system python-build-system) + (native-inputs + `(("python-nose" ,python-nose))) + (synopsis "JSON Matching Expressions") + (description "JMESPath (pronounced “james path”) is a Python library that +allows one to declaratively specify how to extract elements from a JSON +document.") + (home-page "https://github.com/jmespath/jmespath.py") + (license license:expat))) + +(define-public python2-jmespath + (package-with-python2 python-jmespath)) + +(define-public python-botocore + (package + (name "python-botocore") + (version "1.8.43") + (source + (origin + (method url-fetch) + (uri (pypi-uri "botocore" version)) + (sha256 + (base32 + "12cqpbnz3vfv41mp9admvciw7bc7hz57sjpqs2bxaw9wnfmbw5lg")))) + (build-system python-build-system) + (arguments + ;; FIXME: Many tests are failing. + '(#:tests? #f)) + (propagated-inputs + `(("python-dateutil" ,python-dateutil) + ("python-docutils" ,python-docutils) + ("python-jmespath" ,python-jmespath))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-nose" ,python-nose) + ("behave" ,behave) + ("python-tox" ,python-tox) + ("python-wheel" ,python-wheel))) + (home-page "https://github.com/boto/botocore") + (synopsis "Low-level interface to AWS") + (description "Botocore is a Python library that provides a low-level +interface to the Amazon Web Services (AWS) API.") + (license license:asl2.0))) + +(define-public python2-botocore + (package-with-python2 python-botocore)) + +(define-public python-xdo + (package + (name "python-xdo") + (version "0.3") + (source (origin + (method url-fetch) + (uri (string-append + "http://http.debian.net/debian/pool/main/p/python-xdo/" + "python-xdo_" version ".orig.tar.gz")) + (sha256 + (base32 + "1vqh1n5yy5dhnq312kwrl90fnck4v26is3lq3lxdvcn60vv19da0")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'install 'patch-libxdo-path + ;; Hardcode the path of dynamically loaded libxdo library. + (lambda* (#:key inputs #:allow-other-keys) + (let ((libxdo (string-append + (assoc-ref inputs "xdotool") + "/lib/libxdo.so"))) + (substitute* "xdo/_xdo.py" + (("find_library\\(\"xdo\"\\)") + (simple-format #f "\"~a\"" libxdo))) + #t)))) + #:tests? #f)) ; no tests provided + (propagated-inputs + `(("python-six" ,python-six))) + (inputs + `(("xdotool" ,xdotool) + ("libX11" ,libx11))) + (home-page "https://tracker.debian.org/pkg/python-xdo") + (synopsis "Python library for simulating X11 keyboard/mouse input") + (description "Provides bindings to libxdo for manipulating X11 via simulated +input. (Note that this is mostly a legacy library; you may wish to look at +python-xdo for newer bindings.)") + (license license:bsd-3))) + +(define-public python2-xdo + (package-with-python2 python-xdo)) + +(define-public python-mako + (package + (name "python-mako") + (version "1.0.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Mako" version)) + (sha256 + (base32 + "1bi5gnr8r8dva06qpyx4kgjc6spm2k1y908183nbbaylggjzs0jf")))) + (build-system python-build-system) + (propagated-inputs + `(("python-markupsafe" ,python-markupsafe))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-nose" ,python-nose) + ("python-pytest" ,python-pytest))) + (home-page "http://www.makotemplates.org/") + (synopsis "Templating language for Python") + (description "Mako is a templating language for Python that compiles +templates into Python modules.") + (license license:expat))) + +(define-public python2-mako + (package-with-python2 python-mako)) + +(define-public python-waitress + (package + (name "python-waitress") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "waitress" version)) + (patches (search-patches "python-waitress-fix-tests.patch")) + (sha256 + (base32 + "1a85gyji0kajc3p0s1pwwfm06w4wfxjkvvl4rnrz3h164kbd6g6k")))) + (build-system python-build-system) + (home-page "https://github.com/Pylons/waitress") + (synopsis "Waitress WSGI server") + (description "Waitress is meant to be a production-quality pure-Python WSGI +server with very acceptable performance.") + (license license:zpl2.1))) + +(define-public python2-waitress + (package-with-python2 python-waitress)) + +(define-public python-pyquery + (package + (name "python-pyquery") + (version "1.2.17") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyquery" version)) + (sha256 + (base32 + "1xia20wm0vx5dk85kcwgh13bylz8qh47ffjxssd2586r60xi783a")))) + (build-system python-build-system) + (native-inputs + `(("python-webob" ,python-webob) + ("python-webtest" ,python-webtest))) + (propagated-inputs + `(("python-lxml" ,python-lxml) + ("python-cssselect" ,python-cssselect))) + (home-page "https://github.com/gawel/pyquery") + (synopsis "Make jQuery-like queries on xml documents") + (description "pyquery allows you to make jQuery queries on xml documents. +The API is as much as possible the similar to jQuery. pyquery uses lxml for +fast xml and html manipulation.") + (license license:bsd-3))) + +(define-public python2-pyquery + (package-with-python2 python-pyquery)) + +(define-public python-anyjson + (package + (name "python-anyjson") + (version "0.3.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "anyjson" version)) + (sha256 + (base32 + "1fjph4alvcscsl5d4b6qpv1yh31jy05jxi1l0xff7lws7j32v09p")))) + (build-system python-build-system) + (arguments + `(;; We could possibly get tests working, but on Python 3 it's not so easy. + ;; Very strangely, 2to3 is run *during setup.py install* (or bdist, or + ;; whatever) so this transformation needs to be done before the tests + ;; can be run. Maybe we could add a build step to transform beforehand + ;; but it could be annoying/difficult. + ;; We can enable tests for the Python 2 version, though, and do below. + #:tests? #f)) + (home-page "https://bitbucket.org/runeh/anyjson/") + (synopsis + "Wraps best available JSON implementation in a common interface") + (description + "Anyjson loads whichever is the fastest JSON module installed +and provides a uniform API regardless of which JSON implementation is used.") + (license license:bsd-3) + (properties `((python2-variant . ,(delay python2-anyjson)))))) + +(define-public python2-anyjson + (let ((anyjson (package-with-python2 + (strip-python2-variant python-anyjson)))) + (package + (inherit anyjson) + (arguments `(;; Unlike the python 3 variant, we do run tests. See above! + #:tests? #t + ,@(package-arguments anyjson))) + (native-inputs `(("python2-nose" ,python2-nose)))))) + +(define-public python-amqp + (package + (name "python-amqp") + (version "2.3.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "amqp" version)) + (sha256 + (base32 + "1sv600dgqwpimr6i1g59y9hpn50mc236gdqkr7zin13kvlpx0g87")))) + (build-system python-build-system) + (native-inputs + `(("python-case" ,python-case) + ("python-pytest-sugar" ,python-pytest-sugar) + ("python-mock" ,python-mock))) + (propagated-inputs + `(("python-vine" ,python-vine))) + (home-page "https://github.com/celery/py-amqp") + (synopsis + "Low-level AMQP client for Python (fork of amqplib)") + (description + "This is a fork of amqplib which was originally written by Barry Pederson. +It is maintained by the Celery project, and used by kombu as a pure python +alternative when librabbitmq is not available.") + (license license:lgpl2.1+) + (properties `((python2-variant . ,(delay python2-amqp)))))) + +(define-public python2-amqp + (let ((amqp (package-with-python2 + (strip-python2-variant python-amqp)))) + (package + (inherit amqp) + (arguments `(;; Tries to run coverage tests with nose-cover3, which seems + ;; unmaintained. Weirdly, does not do this on the python 3 + ;; version? + #:tests? #f + ,@(package-arguments amqp)))))) + +(define-public python-txamqp + (package + (name "python-txamqp") + (version "0.8.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "txAMQP" version)) + (sha256 + (base32 + "0jd9864k3csc06kipiwzjlk9mq4054s8kzk5q1cfnxj8572s4iv4")))) + (build-system python-build-system) + (propagated-inputs + `(("python-six" ,python-six) + ("python-twisted" ,python-twisted))) + (home-page "https://github.com/txamqp/txamqp") + (synopsis "Communicate with AMQP peers and brokers using Twisted") + (description + "This package provides a Python library for communicating with AMQP peers +and brokers using the asynchronous networking framework Twisted. It contains +all the necessary code to connect, send and receive messages to/from an +AMQP-compliant peer or broker (Qpid, OpenAMQ, RabbitMQ) using Twisted. It +also includes support for using Thrift RPC over AMQP in Twisted +applications.") + (license license:asl2.0))) + +(define-public python2-txamqp + (package-with-python2 python-txamqp)) + +(define-public python-kombu + (package + (name "python-kombu") + (version "4.2.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "kombu" version)) + (sha256 + (base32 + "15k8f7mzqr049sg9vi48m19vjykviafk3f0p5xzgw9by0x0kyxjj")))) + (build-system python-build-system) + (native-inputs + `(("python-mock" ,python-mock) + ("python-case" ,python-case) + ("python-pyro4" ,python-pyro4) + ("python-pytest-sugar" ,python-pytest-sugar) + ("python-pytz" ,python-pytz))) + (propagated-inputs + `(("python-anyjson" ,python-anyjson) + ("python-amqp" ,python-amqp) + ("python-redis" ,python-redis))) + (home-page "https://kombu.readthedocs.io") + (synopsis "Message passing library for Python") + (description "The aim of Kombu is to make messaging in Python as easy as +possible by providing an idiomatic high-level interface for the AMQ protocol, +and also provide proven and tested solutions to common messaging problems. +AMQP is the Advanced Message Queuing Protocol, an open standard protocol for +message orientation, queuing, routing, reliability and security, for which the +RabbitMQ messaging server is the most popular implementation.") + (license license:bsd-3) + (properties `((python2-variant . ,(delay python2-kombu)))))) + +(define-public python2-kombu + (let ((kombu (package-with-python2 + (strip-python2-variant python-kombu)))) + (package + (inherit kombu) + (arguments `(;; FIXME: 'TestTransport.test_del_sync' fails on python2. + ;; It works fine on the python3 variant. + #:tests? #f + ,@(package-arguments kombu))) + (native-inputs `(("python2-unittest2" ,python2-unittest2) + ,@(package-native-inputs kombu)))))) + +(define-public python-billiard + (package + (name "python-billiard") + (version "3.5.0.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "billiard" version)) + (sha256 + (base32 + "03msmapj3s5zgqk87d646mafz7a01h5bm2wijalgpi0s80ks5na2")))) + (build-system python-build-system) + (native-inputs + `(("python-case" ,python-case) + ("python-pytest" ,python-pytest))) + (home-page "https://github.com/celery/billiard") + (synopsis + "Python multiprocessing fork with improvements and bugfixes") + (description + "Billiard is a fork of the Python 2.7 multiprocessing package. The +multiprocessing package itself is a renamed and updated version of R Oudkerk's +pyprocessing package. This standalone variant is intended to be compatible with +Python 2.4 and 2.5, and will draw its fixes/improvements from python-trunk.") + (license license:bsd-3) + (properties `((python2-variant . ,(delay python2-billiard)))))) + +(define-public python2-billiard + (let ((billiard (package-with-python2 + (strip-python2-variant python-billiard)))) + (package + (inherit billiard) + (native-inputs `(("python2-unittest2" ,python2-unittest2) + ("python2-mock" ,python2-mock) + ,@(package-native-inputs billiard)))))) + +(define-public python-celery + (package + (name "python-celery") + (version "4.2.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "celery" version)) + (sha256 + (base32 + "0y66rz7z8dfcgs3s0qxmdddlaq57bzbgxgfz896nbp14grkv9nkp")))) + (build-system python-build-system) + (arguments + '(;; TODO The tests fail with Python 3.7 + ;; https://github.com/celery/celery/issues/4849 + #:tests? #f + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-requirements + (lambda _ + (substitute* "requirements/test.txt" + (("pytest>=3\\.0,<3\\.3") + "pytest>=3.0")) + #t))))) + (native-inputs + `(("python-case" ,python-case) + ("python-pytest" ,python-pytest))) + (propagated-inputs + `(("python-pytz" ,python-pytz) + ("python-billiard" ,python-billiard) + ("python-kombu" ,python-kombu))) + (home-page "https://celeryproject.org") + (synopsis "Distributed Task Queue") + (description "Celery is an asynchronous task queue/job queue based on +distributed message passing. It is focused on real-time operation, but +supports scheduling as well. The execution units, called tasks, are executed +concurrently on a single or more worker servers using multiprocessing, +Eventlet, or gevent. Tasks can execute asynchronously (in the background) or +synchronously (wait until ready).") + (license license:bsd-3) + (properties `((python2-variant . ,(delay python2-celery)))))) + +(define-public python2-celery + (let ((celery (package-with-python2 + (strip-python2-variant python-celery)))) + (package + (inherit celery) + (native-inputs `(("python2-unittest2" ,python2-unittest2) + ("python2-mock" ,python2-mock) + ,@(package-native-inputs celery)))))) + +(define-public python-translitcodec + (package + (name "python-translitcodec") + (version "0.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "translitcodec" version)) + (sha256 + (base32 + "10x6pvblkzky1zhjs8nmx64nb9jdzxad4bxhq4iwv0j4z2aqjnki")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ; no tests provided + (home-page + "https://github.com/claudep/translitcodec") + (synopsis + "Unicode to 8-bit charset transliteration codec") + (description + "This package contains codecs for transliterating ISO 10646 texts into +best-effort representations using smaller coded character sets (ASCII, +ISO 8859, etc.).") + (license license:expat))) + +(define-public python2-translitcodec + (package-with-python2 python-translitcodec)) + +(define-public python-editor + (package + (name "python-editor") + (version "0.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "python-editor" version)) + (sha256 + (base32 + "1ypnpgvzpkbwsg4rdvy4sy51j28b5xq9v8pnkwxncn07vqz06p7n")))) + (build-system python-build-system) + (home-page + "https://github.com/fmoo/python-editor") + (synopsis + "Programmatically open an editor, capture the result") + (description + "python-editor is a library that provides the editor module for +programmatically interfacing with your system's $EDITOR.") + (license license:asl2.0))) + +(define-public python2-editor + (package-with-python2 python-editor)) + +(define-public python-sphinxcontrib-programoutput + (package + (name "python-sphinxcontrib-programoutput") + (version "0.10") + (source (origin + (method url-fetch) + (uri (pypi-uri "sphinxcontrib-programoutput" version)) + (sha256 + (base32 + "153hhnlbx4688zj9wd64819ps5znc2jlyp5crkgzvn5hxgy99vpx")))) + (build-system python-build-system) + (arguments + ;; FIXME: Many tests are failing and the upstream is gone. + '(#:tests? #f)) + (propagated-inputs + `(("python-sphinx" ,python-sphinx))) + (synopsis "Sphinx extension to include program output") + (description "A Sphinx extension to literally insert the output of arbitrary +commands into documents, helping you to keep your command examples up to date.") + (home-page "https://github.com/lunaryorn/sphinxcontrib-programoutput") + (license license:bsd-2))) + +(define-public python2-sphinxcontrib-programoutput + (package-with-python2 python-sphinxcontrib-programoutput)) + +(define-public python-sphinx-repoze-autointerface + (package + (name "python-sphinx-repoze-autointerface") + (version "0.8") + (source (origin + (method url-fetch) + (uri (pypi-uri "repoze.sphinx.autointerface" version)) + (sha256 + (base32 + "08ycivzf7bh4a1zcyp31hbyqs1b2c9r26raa3vxjwwmbfqr3iw4f")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; No tests. + (propagated-inputs + `(("python-sphinx" ,python-sphinx) + ("python-zope-interface" ,python-zope-interface))) + (synopsis "Auto-generate Sphinx API docs from Zope interfaces") + (description "This package defines an extension for the Sphinx documentation +system. The extension allows generation of API documentation by +introspection of @code{zope.interface} instances in code.") + (home-page "https://github.com/repoze/repoze.sphinx.autointerface") + (license license:repoze))) + +(define-public python2-sphinx-repoze-autointerface + (package-with-python2 python-sphinx-repoze-autointerface)) + +(define-public python-vobject + (package + (name "python-vobject") + (version "0.9.5") + (source (origin + (method url-fetch) + (uri (pypi-uri "vobject" version)) + (sha256 + (base32 + "0hqjgf3ay1m5w1c0k00g5yfpdz1zni5qnr5rh9b8fg9hjvhwlmhg")))) + (build-system python-build-system) + (arguments + '(;; The test suite relies on some non-portable Windows interfaces. + #:tests? #f)) + (propagated-inputs + `(("python-dateutil" ,python-dateutil) + ("python-pyicu" ,python-pyicu))) + (synopsis "Parse and generate vCard and vCalendar files") + (description "Vobject is intended to be a full featured Python package for +parsing and generating vCard and vCalendar files. Currently, iCalendar files +are supported and well tested. vCard 3.0 files are supported, and all data +should be imported, but only a few components are understood in a sophisticated +way.") + (home-page "http://eventable.github.io/vobject/") + (license license:asl2.0))) + +(define-public python2-vobject + (package-with-python2 python-vobject)) + +(define-public python-munkres + (package + (name "python-munkres") + (version "1.0.8") + (source (origin + (method url-fetch) + (uri (pypi-uri "munkres" version)) + (sha256 + (base32 + "0mbspx4zv8id4x6pim6ybsa1xh96qwpbqj7skbqz4c9c9nf1lpqq")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; no test suite + (home-page "http://software.clapper.org/munkres/") + (synopsis "Implementation of the Munkres algorithm") + (description "The Munkres module provides an implementation of the Munkres +algorithm (also called the Hungarian algorithm or the Kuhn-Munkres algorithm), +useful for solving the Assignment Problem.") + (license license:bsd-3))) + +(define-public python2-munkres + (package-with-python2 python-munkres)) + +(define-public python-whoosh + (package + (name "python-whoosh") + (version "2.7.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Whoosh" version)) + (sha256 + (base32 + "10qsqdjpbc85fykc1vgcs8xwbgn4l2l52c8d83xf1q59pwyn79bw")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://bitbucket.org/mchaput/whoosh") + (synopsis "Full text indexing, search, and spell checking library") + (description + "Whoosh is a fast, pure-Python full text indexing, search, and spell +checking library.") + (license license:bsd-2))) + +(define-public python2-whoosh + (let ((whoosh (package-with-python2 (strip-python2-variant python-whoosh)))) + (package (inherit whoosh) + (propagated-inputs + `(("python2-backport-ssl-match-hostname" + ,python2-backport-ssl-match-hostname) + ,@(package-propagated-inputs whoosh)))))) + +(define-public python-pathlib + (package + (name "python-pathlib") + (version "1.0.1") + (source (origin + (method url-fetch) + (uri (pypi-uri "pathlib" version)) + (sha256 + (base32 + "17zajiw4mjbkkv6ahp3xf025qglkj0805m9s41c45zryzj6p2h39")))) + (build-system python-build-system) + ;; The tests depend on the internal "test" module, which does not provide + ;; a stable interface. + (arguments `(#:tests? #f)) + (home-page "https://pathlib.readthedocs.org/") + (synopsis "Object-oriented file system paths") + (description "Pathlib offers a set of classes to handle file system paths. +It offers the following advantages over using string objects: + +@enumerate +@item No more cumbersome use of os and os.path functions. Everything can +be done easily through operators, attribute accesses, and method calls. +@item Embodies the semantics of different path types. For example, +comparing Windows paths ignores casing. +@item Well-defined semantics, eliminating any inconsistencies or +ambiguities (forward vs. backward slashes, etc.). +@end enumerate + +Note: In Python 3.4, pathlib is now part of the standard library. For other +Python versions please consider python-pathlib2 instead, which tracks the +standard library module. This module (python-pathlib) isn't maintained +anymore.") + (license license:expat))) + +(define-public python2-pathlib + (package-with-python2 python-pathlib)) + +(define-public python2-pathlib2 + (package + (name "python2-pathlib2") + (version "2.3.2") + (source (origin + (method url-fetch) + (uri (pypi-uri "pathlib2" version)) + (sha256 + (base32 + "10yb0iv5x2hs631rcppkhbddx799d3h8pcwmkbh2a66ns3w71ccf")))) + (build-system python-build-system) + ;; We only need the the Python 2 variant, since for Python 3 our minimum + ;; version is 3.4 which already includes this package as part of the + ;; standard library. + (arguments + `(#:python ,python-2)) + (propagated-inputs + `(("python2-scandir" ,python2-scandir) + ("python2-six" ,python2-six))) + (home-page "https://pypi.python.org/pypi/pathlib2/") + (synopsis "Object-oriented file system paths - backport of standard +pathlib module") + (description "The goal of pathlib2 is to provide a backport of standard +pathlib module which tracks the standard library module, so all the newest +features of the standard pathlib can be used also on older Python versions. + +Pathlib offers a set of classes to handle file system paths. It offers the +following advantages over using string objects: + +@enumerate +@item No more cumbersome use of os and os.path functions. Everything can +be done easily through operators, attribute accesses, and method calls. +@item Embodies the semantics of different path types. For example, +comparing Windows paths ignores casing. +@item Well-defined semantics, eliminating any inconsistencies or +ambiguities (forward vs. backward slashes, etc.). +@end enumerate") + (license license:expat))) + +(define-public python2-pathlib2-bootstrap + (hidden-package + (package + (inherit python2-pathlib2) + (name "python2-pathlib2-bootstrap") + (propagated-inputs + `(("python2-scandir" ,python2-scandir) + ("python2-six" ,python2-six-bootstrap)))))) + +(define-public python-jellyfish + (package + (name "python-jellyfish") + (version "0.5.6") + (source (origin + (method url-fetch) + (uri (pypi-uri "jellyfish" version)) + (sha256 + (base32 + "1j9rplb16ba2prjj6mip46z0w9pnhnqpwgiwi0x93vnas14rlyl8")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://github.com/jamesturk/jellyfish") + (synopsis "Approximate and phonetic matching of strings") + (description "Jellyfish uses a variety of string comparison and phonetic +encoding algorithms to do fuzzy string matching.") + (license license:bsd-2) + (properties `((python2-variant . ,(delay python2-jellyfish)))))) + +(define-public python2-jellyfish + (let ((jellyfish (package-with-python2 + (strip-python2-variant python-jellyfish)))) + (package (inherit jellyfish) + (native-inputs `(("python2-unicodecsv" ,python2-unicodecsv) + ,@(package-native-inputs jellyfish)))))) + +(define-public python2-unicodecsv + (package + (name "python2-unicodecsv") + (version "0.14.1") + (source (origin + (method url-fetch) + ;; The test suite is not included in the PyPi release. + ;; https://github.com/jdunck/python-unicodecsv/issues/19 + (uri (string-append "https://github.com/jdunck/python-unicodecsv/" + "archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "087nqanfcyp6mlfbbr5lva5f3w6iz1bybls9xlrb8icmc474wh4w")))) + (build-system python-build-system) + (arguments + `(;; It supports Python 3, but Python 3 can already do Unicode CSV. + #:python ,python-2)) + (native-inputs + `(("python2-unittest2" ,python2-unittest2))) + (home-page "https://github.com/jdunck/python-unicodecsv") + (synopsis "Unicode CSV module for Python 2") + (description "Unicodecsv is a drop-in replacement for Python 2.7's CSV +module, adding support for Unicode strings.") + (license license:bsd-2))) + +(define-public python-rarfile + (package + (name "python-rarfile") + (version "2.8") + (source (origin + (method url-fetch) + (uri (pypi-uri "rarfile" version)) + (sha256 + (base32 + "0qfad483kcbga0bn4qmcz953xjk16r52fahiy46zzn56v80y89ra")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + ;; Many tests fail, but the installation proceeds. + (lambda _ (zero? (system* "make" "-C" "test" "test"))))))) + (native-inputs + `(("which" ,which))) ; required for tests + (propagated-inputs + `(("libarchive" ,libarchive))) + (home-page "https://github.com/markokr/rarfile") + (synopsis "RAR archive reader for Python") + (description "This is Python module for RAR archive reading. The interface +is made as zipfile like as possible.") + (license license:isc))) + +(define-public python2-rarfile + (package-with-python2 python-rarfile)) + +(define-public python-magic + (package + (name "python-magic") + (version "0.4.15") + (source + (origin + (method url-fetch) + (uri (pypi-uri "python-magic" version)) + (sha256 + (base32 + "1mgwig9pnzgkf86q9ji9pnc99bngms15lfszq5rgqb9db07mqxpk")) + (file-name (string-append name "-" version "-checkout")))) + (build-system python-build-system) + (arguments + ;; The tests are unreliable, so don't run them. The tests fail + ;; under Python3 because they were written for Python2 and + ;; contain import statements that do not work in Python3. One of + ;; the tests fails under Python2 because its assertions are + ;; overly stringent; it relies on comparing output strings which + ;; are brittle and can change depending on the version of + ;; libmagic being used and the system on which the test is + ;; running. In my case, under GuixSD 0.10.0, only one test + ;; failed, and it seems to have failed only because the version + ;; of libmagic that is packaged in Guix outputs a slightly + ;; different (but not wrong) string than the one that the test + ;; expected. + '(#:tests? #f + #:phases (modify-phases %standard-phases + ;; Replace a specific method call with a hard-coded + ;; path to the necessary libmagic.so file in the + ;; store. If we don't do this, then the method call + ;; will fail to find the libmagic.so file, which in + ;; turn will cause any application using + ;; python-magic to fail. + (add-before 'build 'hard-code-path-to-libmagic + (lambda* (#:key inputs #:allow-other-keys) + (let ((file (assoc-ref inputs "file"))) + (substitute* "magic.py" + (("ctypes.util.find_library\\('magic'\\)") + (string-append "'" file "/lib/libmagic.so'"))) + #t))) + (add-before 'install 'disable-egg-compression + (lambda _ + (let ((port (open-file "setup.cfg" "a"))) + (display "\n[easy_install]\nzip_ok = 0\n" + port) + (close-port port) + #t)))))) + (inputs + ;; python-magic needs to be able to find libmagic.so. + `(("file" ,file))) + (home-page + "https://github.com/ahupp/python-magic") + (synopsis + "File type identification using libmagic") + (description + "This module uses ctypes to access the libmagic file type +identification library. It makes use of the local magic database and +supports both textual and MIME-type output. Note that this module and +the python-file module both provide a \"magic.py\" file; these two +modules, which are different and were developed separately, both serve +the same purpose: to provide Python bindings for libmagic.") + (license license:expat))) + +(define-public python2-magic + (package-with-python2 python-magic)) + +(define-public python2-s3cmd + (package + (name "python2-s3cmd") + (version "1.6.1") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/s3tools/s3cmd/" version "/" + "s3cmd-" version ".tar.gz")) + (sha256 + (base32 + "0ki1rzhm5icvi9ry5jswi4b22yqwyj0d2wsqsgilwx6qhi7pjxa6")))) + (build-system python-build-system) + (arguments + ;; s3cmd is written for python2 only and contains no tests. + `(#:python ,python-2 + #:tests? #f)) + (propagated-inputs + `(("python2-dateutil" ,python2-dateutil) + ;; The python-file package also provides a magic.py module. + ;; This is an unfortunate state of affairs; however, s3cmd + ;; fails to install if it cannot find specifically the + ;; python-magic package. Thus we include it, instead of using + ;; python-file. Ironically, s3cmd sometimes works better + ;; without libmagic bindings at all: + ;; https://github.com/s3tools/s3cmd/issues/198 + ("python2-magic" ,python2-magic))) + (home-page "http://s3tools.org/s3cmd") + (synopsis "Command line tool for S3-compatible storage services") + (description + "S3cmd is a command line tool for uploading, retrieving and managing data +in storage services that are compatible with the Amazon Simple Storage +Service (S3) protocol, including S3 itself. It supports rsync-like backup, +GnuPG encryption, and more. It also supports management of Amazon's +CloudFront content delivery network.") + (license license:gpl2+))) + +(define-public python-pkgconfig + (package + (name "python-pkgconfig") + (version "1.3.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pkgconfig" version)) + (sha256 + (base32 + "107x2wmchlch8saixb488cgjz9n6inl38wi7nxkb942rbaapxiqb")))) + (build-system python-build-system) + (native-inputs + `(("python-nose" ,python-nose))) + (inputs + `(("pkg-config" ,pkg-config))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'build 'patch + ;; Hard-code the path to pkg-config. + (lambda _ + (substitute* "pkgconfig/pkgconfig.py" + (("cmd = 'pkg-config") + (string-append "cmd = '" (which "pkg-config")))) + #t)) + (replace 'check + (lambda _ + (invoke "nosetests" "test.py")))))) + (home-page "https://github.com/matze/pkgconfig") + (synopsis "Python interface for pkg-config") + (description "This module provides a Python interface to pkg-config. It +can be used to find all pkg-config packages, check if a package exists, +check if a package meets certain version requirements, query CFLAGS and +LDFLAGS and parse the output to build extensions with setup.py.") + (license license:expat))) + +(define-public python2-pkgconfig + (package-with-python2 python-pkgconfig)) + +(define-public python-bz2file + (package + (name "python-bz2file") + (version "0.98") + (source + (origin + (method url-fetch) + (uri (pypi-uri "bz2file" version)) + (sha256 + (base32 + "126s53fkpx04f33a829yqqk8fj4png3qwg4m66cvlmhmwc8zihb4")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ; Tests use deprecated python modules. + (home-page "https://github.com/nvawda/bz2file") + (synopsis "Read and write bzip2-compressed files") + (description + "Bz2file is a Python library for reading and writing bzip2-compressed +files. It contains a drop-in replacement for the I/O interface in the +standard library's @code{bz2} module, including features from the latest +development version of CPython that are not available in older releases.") + (license license:asl2.0))) + +(define-public python2-bz2file + (package-with-python2 python-bz2file)) + +(define-public python-future + (package + (name "python-future") + (version "0.16.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "future" version)) + (sha256 + (base32 + "1nzy1k4m9966sikp0qka7lirh8sqrsyainyf8rk97db7nwdfv773")))) + (build-system python-build-system) + ;; Many tests connect to the network or are otherwise flawed. + ;; https://github.com/PythonCharmers/python-future/issues/210 + (arguments + `(#:tests? #f)) + (home-page "http://python-future.org") + (synopsis "Single-source support for Python 3 and 2") + (description + "@code{python-future} is the missing compatibility layer between Python 2 and +Python 3. It allows you to use a single, clean Python 3.x-compatible codebase +to support both Python 2 and Python 3 with minimal overhead.") + (license license:expat))) + +(define-public python2-future + (package-with-python2 python-future)) + +(define-public python-cysignals + (package + (name "python-cysignals") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "cysignals" version ".tar.bz2")) + (sha256 + (base32 + "14cbyd9znlz6cxy1s3g6v6dv5jj45hn27pywkidd9b1zanaysqc6")))) + (build-system python-build-system) + (native-inputs + `(("python-cython" ,python-cython) + ("python-sphinx" ,python-sphinx))) + (inputs + `(("pari-gp" ,pari-gp))) + (arguments + `(#:modules ((guix build python-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) + ;; FIXME: Tests are executed after installation and currently fail + ;; when not installing into standard locations; the author is working + ;; on a fix. + #:tests? #f + #:phases + (modify-phases %standard-phases + (add-before + 'build 'configure + (assoc-ref gnu:%standard-phases 'configure))))) + (home-page + "https://github.com/sagemath/cysignals") + (synopsis + "Handling of interrupts and signals for Cython") + (description + "The cysignals package provides mechanisms to handle interrupts (and +other signals and errors) in Cython code, using two related approaches, +for mixed Cython/Python code or external C libraries and pure Cython code, +respectively.") + (license license:lgpl3+))) + +(define-public python2-cysignals + (package-with-python2 python-cysignals)) + +(define-public python2-shedskin + (package + (name "python2-shedskin") + (version "0.9.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/shedskin/shedskin/" + "releases/download/v" version + "/shedskin-" version ".tgz")) + (sha256 + (base32 + "0nzwrzgw1ga8rw6f0ryq7zr9kkiavd1cqz5hzxkcbicl1dk7kz41")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + #:phases (modify-phases %standard-phases + (add-after 'unpack 'fix-resulting-include-libs + (lambda* (#:key inputs #:allow-other-keys) + (let ((libgc (assoc-ref inputs "libgc")) + (pcre (assoc-ref inputs "pcre"))) + (substitute* "shedskin/makefile.py" + (("variable == 'CCFLAGS':[ ]*") + (string-append "variable == 'CCFLAGS':\n" + " line += ' -I " pcre "/include" + " -I " libgc "/include'")) + (("variable == 'LFLAGS':[ ]*") + (string-append "variable == 'LFLAGS':\n" + " line += ' -L" pcre "/lib" + " -L " libgc "/lib'"))) + #t)))))) + (inputs `(("pcre" ,pcre) + ("libgc" ,libgc))) + (home-page "https://shedskin.github.io/") + (synopsis "Experimental Python-2 to C++ Compiler") + (description (string-append "This is an experimental compiler for a subset of +Python. It generates C++ code and a Makefile.")) + (license (list license:gpl3 license:bsd-3 license:expat)))) + +(define-public python2-rope + (package + (name "python2-rope") + (version "0.10.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "rope" version)) + (sha256 + (base32 + "18k5znhpwvrfck3yp0jmhd5j8r0f0s8bk1zh5yhs2cfgmfhbwigb")))) + (arguments + ;; Rope is currently python-2 only. + ;; https://github.com/python-rope/rope/issues/57 + `(#:python ,python-2)) + (build-system python-build-system) + (native-inputs + `(("python2-unittest2" ,python2-unittest2))) + (home-page "https://github.com/python-rope/rope") + (synopsis "Refactoring library for Python") + (description "Rope is a refactoring library for Python. It facilitates +the renaming, moving and extracting of attributes, functions, modules, fields +and parameters in Python 2 source code. These refactorings can also be applied +to occurrences in strings and comments.") + (license license:gpl2))) + +(define-public python-py3status + (package + (name "python-py3status") + (version "3.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "py3status" version)) + (sha256 + (base32 + "0shxcfz4wcczj0mhwp4w0dvwd2fdd9bgprq8slim1519iiqzgwhq")))) + (build-system python-build-system) + (inputs + `(("file" ,file))) + (arguments + '(#:phases + (modify-phases %standard-phases + ;; 'file' is used for detection of configuration file encoding + ;; let's make link the dependency to particular input + (add-before 'build 'patch-file-path + (lambda* (#:key inputs #:allow-other-keys) + (let ((file-path (assoc-ref inputs "file"))) + (substitute* "py3status/parse_config.py" + (("\\['file', '-b'") + (string-append "['" file-path "/bin/file', '-b'"))) + #t)))) + #:tests? #f)) ; TODO: Requires many libraries not in Guix. + (home-page "https://github.com/ultrabug/py3status") + (synopsis "Extensible i3status wrapper written in Python") + (description "py3status is an i3status wrapper which extends i3status +functionality in a modular way, allowing you to extend your panel with your +own code, responding to click events and updating clock every second.") + (license license:bsd-3))) + +(define-public python-tblib + (package + (name "python-tblib") + (version "1.3.2") + (source (origin + (method url-fetch) + (uri (pypi-uri "tblib" version)) + (sha256 (base32 + "1rsg8h069kqgncyv8fgzyj6qflk6j10cb78pa5jk34ixwq044vj3")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'adjust-tests + (lambda _ + (when (which "python3") + ;; Adjust the example output to match that of Python 3.7: + ;; <https://github.com/ionelmc/python-tblib/issues/36>. + (substitute* "README.rst" + (("Exception\\('fail',") "Exception('fail'")) + #t))) + (replace 'check + (lambda _ + ;; Upstream runs tests after installation and the package itself + ;; resides in a subdirectory. Extend PYTHONPATH so it will be + ;; found. + (setenv "PYTHONPATH" + (string-append (getcwd) "/build/lib:" + (getenv "PYTHONPATH"))) + (invoke "py.test" "-vv" "tests" "README.rst")))))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-six" ,python-six))) + (home-page "https://github.com/ionelmc/python-tblib") + (synopsis "Traceback serialization library") + (description + "Traceback serialization allows you to: + +@enumerate +@item Pickle tracebacks and raise exceptions with pickled tracebacks in +different processes. This allows better error handling when running code over +multiple processes (imagine multiprocessing, billiard, futures, celery etc). + +@item Parse traceback strings and raise with the parsed tracebacks. +@end enumerate\n") + (license license:bsd-3))) + +(define-public python2-tblib + (package-with-python2 python-tblib)) + +(define-public python-greenlet + (package + (name "python-greenlet") + (version "0.4.15") + (source (origin + (method url-fetch) + (uri (pypi-uri "greenlet" version)) + (sha256 + (base32 + "1g4g1wwc472ds89zmqlpyan3fbnzpa8qm48z3z1y6mlk44z485ll")))) + (build-system python-build-system) + (home-page "https://greenlet.readthedocs.io/") + (synopsis "Lightweight in-process concurrent programming") + (description + "Greenlet package is a spin-off of Stackless, a version of CPython +that supports micro-threads called \"tasklets\". Tasklets run +pseudo-concurrently (typically in a single or a few OS-level threads) and +are synchronized with data exchanges on \"channels\".") + (license (list license:psfl license:expat)))) + +(define-public python2-greenlet + (package-with-python2 python-greenlet)) + +(define-public python-objgraph + (package + (name "python-objgraph") + (version "3.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "objgraph" version)) + (sha256 + (base32 + "184m09am5gpbqfaiy7l0hwh476mczbrly1dffs0rw2p1d1i2q32a")))) + (build-system python-build-system) + (propagated-inputs + `(("python-graphviz" ,python-graphviz))) + (native-inputs + `(("python-mock" ,python-mock) + ("graphviz" ,graphviz))) + (home-page "https://mg.pov.lt/objgraph/") + (synopsis "Draw Python object reference graphs with graphviz") + (description + "This package provides tools to draw Python object reference graphs with +graphviz.") + (license license:expat))) + +(define-public python-gevent + (package + (name "python-gevent") + (version "1.3.7") + (source (origin + (method url-fetch) + (uri (pypi-uri "gevent" version)) + (sha256 + (base32 + "0b0fr04qdk1p4sniv87fh8z5psac60x01pv054kpgi94520g81iz")) + (modules '((guix build utils))) + (snippet + '(begin + ;; unbunding libev and c-ares + (delete-file-recursively "deps") + #t)))) + (build-system python-build-system) + (arguments + `(#:modules ((ice-9 ftw) + (ice-9 match) + (srfi srfi-26) + (guix build utils) + (guix build python-build-system)) + #:phases (modify-phases %standard-phases + (add-after 'unpack 'unpack-libev + (lambda* (#:key inputs #:allow-other-keys) + (mkdir-p "deps/libev") + ;; FIXME: gevent requires building libev, even though + ;; it only links against the proper one. + (invoke "tar" "-xf" (assoc-ref inputs "libev-source") + "--strip-components=1" "-C" "deps/libev"))) + (add-before 'patch-source-shebangs 'patch-hard-coded-paths + (lambda _ + (substitute* "src/gevent/subprocess.py" + (("/bin/sh") (which "sh"))) + (for-each (lambda (file) + (substitute* file + (("/bin/sh") (which "sh")) + (("/bin/true") (which "true")))) + (find-files "src/greentest" "\\.py$")) + #t)) + (add-before 'build 'do-not-use-bundled-sources + (lambda* (#:key inputs #:allow-other-keys) + (setenv "CONFIG_SHELL" (which "bash")) + (setenv "LIBEV_EMBED" "false") + (setenv "CARES_EMBED" "false") + (setenv "EMBED" "false") + + (let ((greenlet (string-append + (assoc-ref inputs "python-greenlet") + "/include"))) + (match (scandir greenlet + (lambda (item) + (string-prefix? "python" item))) + ((python) + (setenv "CPATH" + (string-append greenlet "/" python))))) + #t)) + (add-before 'check 'skip-timer-test + (lambda _ + ;; XXX: Skip 'TestTimerResolution', which appears to be + ;; unreliable. + (substitute* "src/greentest/test__core_timer.py" + (("not greentest.RUNNING_ON_CI") "False")) + #t)) + (replace 'check + (lambda _ + ;; Make sure the build directory is on PYTHONPATH. + (setenv "PYTHONPATH" + (string-append + (getenv "PYTHONPATH") ":" + (getcwd) "/build/" + (car (scandir "build" (cut string-prefix? "lib." <>))))) + (with-directory-excursion "src/greentest" + ;; XXX: Many tests require network access. Instead we only + ;; run known-good tests. Unfortunately we cannot use + ;; recursion here since this directory also contains + ;; Python-version-specific subfolders. + (apply invoke "python" "testrunner.py" "--config" + "known_failures.py" + (scandir "." (cut regexp-exec + (make-regexp "test_+(subprocess|core)") + <>))))))))) + (propagated-inputs + `(("python-greenlet" ,python-greenlet) + ("python-objgraph" ,python-objgraph))) + (native-inputs + `(("libev-source" ,(package-source libev)) + ("python-six" ,python-six))) + (inputs + `(("c-ares" ,c-ares) + ("libev" ,libev))) + (home-page "http://www.gevent.org/") + (synopsis "Coroutine-based network library") + (description + "gevent is a coroutine-based Python networking library that uses greenlet +to provide a high-level synchronous API on top of the libev event loop.") + (license license:expat) + (properties `((python2-variant . ,(delay python2-gevent)))))) + +(define-public python2-gevent + (let ((base (package-with-python2 + (strip-python2-variant python-gevent)))) + (package + (inherit base) + (native-inputs `(,@(package-native-inputs python-gevent) + ("python-mock" ,python2-mock)))))) + +(define-public python-fastimport + (package + (name "python-fastimport") + (version "0.9.6") + (source + (origin + (method url-fetch) + (uri (pypi-uri "fastimport" version)) + (sha256 + (base32 "1aqjsin4rmqm7ln4j0p73fzxifws6c6ikgyhav7r137m2ixsxl43")))) + (build-system python-build-system) + (home-page "https://github.com/jelmer/python-fastimport") + (synopsis "VCS fastimport parser and generator in Python") + (description "This package provides a parser for and generator of the Git +@url{https://www.kernel.org/pub/software/scm/git/docs/git-fast-import.html,fastimport} +format.") + (license license:gpl2+))) + +(define-public python2-fastimport + (package-with-python2 python-fastimport)) + +(define-public python-twisted + (package + (name "python-twisted") + (version "17.1.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "Twisted" version ".tar.bz2")) + (sha256 + (base32 + "1p245mg15hkxp7hy5cyq2fgvlgjkb4cg0gwkwd148nzy1bbi3wnv")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; FIXME: Some tests are failing. + ;; #:phases + ;; (modify-phases %standard-phases + ;; (replace 'check + ;; (lambda _ + ;; (zero? (system* "./bin/trial" "twisted"))))) + (propagated-inputs + `(("python-zope-interface" ,python-zope-interface) + ("python-incremental" ,python-incremental) + ("python-constantly" ,python-constantly) + ("python-automat" ,python-automat))) + (home-page "https://twistedmatrix.com/") + (synopsis "Asynchronous networking framework written in Python") + (description + "Twisted is an extensible framework for Python programming, with special +focus on event-based network programming and multiprotocol integration.") + (license license:expat))) + +(define-public python2-twisted + (package-with-python2 python-twisted)) + +(define-public python-pika + (package + (name "python-pika") + (version "0.12.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pika" version)) + (sha256 + (base32 + "0ld7akgm93s8pfa4dsx9qlzlhj76zspbr5m9ms0ns09yd2w4aq9h")))) + (build-system python-build-system) + (native-inputs + `(("python-pyev" ,python-pyev) + ("python-tornado" ,python-tornado) + ("python-twisted" ,python-twisted))) + (home-page "https://pika.readthedocs.org") + (synopsis "Pure Python AMQP Client Library") + (description + "Pika is a pure-Python implementation of the AMQP (Advanced Message Queuing +Protocol) 0-9-1 protocol that tries to stay fairly independent of the underlying +network support library.") + (license license:bsd-3))) + +(define-public python2-pika + (package-with-python2 python-pika)) + +(define-public python-ply + (package + (name "python-ply") + (version "3.10") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ply" version)) + (sha256 + (base32 + "1jxsr1d2f732r6ljhvm827113dckwl6qwakfvpbdhcbhvpvlmscn")))) + (build-system python-build-system) + (home-page "http://www.dabeaz.com/ply/") + (synopsis "Python Lex & Yacc") + (description "PLY is a @code{lex}/@code{yacc} implemented purely in Python. +It uses LR parsing and does extensive error checking.") + (license license:bsd-3))) + +(define-public python2-ply + (package-with-python2 python-ply)) + +(define-public python-tabulate + (package + (name "python-tabulate") + (version "0.7.7") + (source (origin + (method url-fetch) + (uri (pypi-uri "tabulate" version)) + (sha256 + (base32 + "1inqhspd4frxnp08c32yndr0lc4px1xfkqah184i5w09gkhvi843")))) + (build-system python-build-system) + (arguments + ;; FIXME: The pypi release tarball is missing a 'test/common.py' + ;; and the latest release is not tagged in the upstream repository. + '(#:tests? #f)) + (home-page "https://bitbucket.org/astanin/python-tabulate") + (synopsis "Pretty-print tabular data") + (description + "Tabulate is a library and command-line utility to pretty-print tabular +data in Python.") + (license license:expat))) + +(define-public python2-tabulate + (package-with-python2 python-tabulate)) + +(define-public python-kazoo + (package + (name "python-kazoo") + (version "2.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "kazoo" version)) + (sha256 + (base32 + "16y213k7r8shyn2zw1k6lkzjgcrvm441pqv8scvcjixhvpbx3hm7")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; XXX: needs zookeeper + (propagated-inputs + `(("python-six" ,python-six))) + (home-page "https://kazoo.readthedocs.org") + (synopsis "High-level Zookeeper client library") + (description + "Kazoo is a Python client library for the Apache Zookeeper distributed +application service. It is designed to be easy to use and to avoid common +programming errors.") + (license license:asl2.0))) + +(define-public python2-kazoo + (package-with-python2 python-kazoo)) + +(define-public python-pykafka + (package + (name "python-pykafka") + (version "2.4.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/8b/3e/" + "384eeff406b06315738b62483fd2126c6e4f544167116b17cc04ea7d2a59/" + "pykafka-" version ".tar.gz")) + (sha256 + (base32 + "1id6sr159p6aa13bxcqyr9gln8sqg1l0ddzns5iws8kk5q1p5cfv")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; XXX: needs zookeeper, kafka, etc. + (propagated-inputs + `(("python-gevent" ,python-gevent) + ("python-kazoo" ,python-kazoo) + ("python-tabulate" ,python-tabulate))) + (inputs + `(("librdkafka" ,librdkafka))) + (home-page "https://pykafka.readthedocs.io/") + (synopsis "Apache Kafka client for Python") + (description + "PyKafka is a client for the Apache Kafka distributed messaging system. +It includes Python implementations of Kafka producers and consumers, which +are optionally backed by a C extension built on librdkafka.") + (license license:asl2.0))) + +(define-public python2-pykafka + (package-with-python2 python-pykafka)) + +(define-public python-wcwidth + (package + (name "python-wcwidth") + (version "0.1.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "wcwidth" version)) + (sha256 + (base32 + "0pn6dflzm609m4r3i8ik5ni9ijjbb5fa3vg1n7hn6vkd49r77wrx")))) + (build-system python-build-system) + (home-page "https://github.com/jquast/wcwidth") + (synopsis "Measure number of terminal column cells of wide-character codes") + (description "Wcwidth measures the number of terminal column cells of +wide-character codes. It is useful for those implementing a terminal emulator, +or programs that carefully produce output to be interpreted by one. It is a +Python implementation of the @code{wcwidth} and @code{wcswidth} C functions +specified in POSIX.1-2001 and POSIX.1-2008.") + (license license:expat))) + +(define-public python2-wcwidth + (package-with-python2 python-wcwidth)) + +(define-public python2-jsonrpclib + (package + (name "python2-jsonrpclib") + (version "0.1.7") + (source (origin + (method url-fetch) + (uri (string-append + "https://pypi.python.org/packages/source/j/jsonrpclib/" + "jsonrpclib-" version ".tar.gz")) + (sha256 + (base32 + "02vgirw2bcgvpcxhv5hf3yvvb4h5wzd1lpjx8na5psdmaffj6l3z")))) + (build-system python-build-system) + (arguments + `(#:tests? #f + #:python ,python-2)) + (home-page "https://github.com/joshmarshall/jsonrpclib/") + (synopsis "Implementation of JSON-RPC specification for Python") + (description + "This library is an implementation of the JSON-RPC specification. +It supports both the original 1.0 specification, as well as the +new (proposed) 2.0 spec, which includes batch submission, keyword arguments, +etc.") + (license license:asl2.0))) + +(define-public python-chai + (package + (name "python-chai") + (version "1.1.2") + (source (origin + (method url-fetch) + (uri (pypi-uri "chai" version)) + (sha256 + (base32 + "1k6n6zbgrrs83crp6mr3yqj9zlv40b8rpisyrliwsq7naml2p3gz")))) + (build-system python-build-system) + (home-page "https://github.com/agoragames/chai") + (synopsis "Mocking framework for Python") + (description + "Chai provides an api for mocking, stubbing and spying your python +objects, patterned after the Mocha library for Ruby.") + (license license:bsd-3))) + +(define-public python2-chai + (package-with-python2 python-chai)) + +(define-public python-inflection + (package + (name "python-inflection") + (version "0.3.1") + (source + (origin (method url-fetch) + (uri (pypi-uri "inflection" version)) + (sha256 + (base32 + "1jhnxgnw8y3mbzjssixh6qkc7a3afc4fygajhqrqalnilyvpzshq")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://github.com/jpvanhal/inflection") + (synopsis "Python string transformation library") + (description + "Inflection is a string transformation library. It singularizes +and pluralizes English words, and transforms strings from CamelCase to +underscored string.") + (license license:expat))) + +(define-public python2-inflection + (package-with-python2 python-inflection)) + +(define-public python-pylev + (package + (name "python-pylev") + (version "1.3.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "pylev" version)) + (sha256 + (base32 + "1hz1x9blsbxya1y9nnhnwwdnqmakxi9mc0jkwj0rn6b1h44i0f86")))) + (build-system python-build-system) + (home-page "https://github.com/toastdriven/pylev") + (synopsis "Levenshtein distance implementation in Python") + (description "Pure Python Levenshtein implementation, based off the +Wikipedia code samples at +@url{http://en.wikipedia.org/wiki/Levenshtein_distance}.") + (license license:bsd-3))) + +(define-public python2-pylev + (package-with-python2 python-pylev)) + +(define-public python-cleo + (package + (name "python-cleo") + (version "0.6.1") + (source (origin + (method url-fetch) + (uri (pypi-uri "cleo" version)) + (sha256 + (base32 + "0q1cf0szr0d54am4pypzwdnm74zpladdsinad94c2fz5i06fdpf7")))) + (build-system python-build-system) + (native-inputs + `(;; For testing + ("python-mock" ,python-mock) + ("python-pytest-mock" ,python-pytest-mock) + ("python-pytest" ,python-pytest))) + (propagated-inputs + `(("python-backpack" ,python-backpack) + ("python-pastel" ,python-pastel) + ("python-pylev" ,python-pylev))) + (home-page "https://github.com/sdispater/cleo") + (synopsis "Command-line arguments library for Python") + (description + "Cleo allows you to create command-line commands with signature in +docstring and colored output.") + (license license:expat))) + +(define-public python2-cleo + (package-with-python2 python-cleo)) + +(define-public python-lazy-object-proxy + (package + (name "python-lazy-object-proxy") + (version "1.3.1") + (source (origin + (method url-fetch) + (uri (pypi-uri "lazy-object-proxy" version)) + (sha256 + (base32 + "0yha7q9bhw857fwaby785d63mffhngl9npwzlk9i0pwlkwvbx4gb")))) + (build-system python-build-system) + (home-page "https://github.com/ionelmc/python-lazy-object-proxy") + (synopsis "Lazy object proxy for python") + (description + "Lazy object proxy is an object that wraps a callable but defers the call +until the object is actually required, and caches the result of said call.") + (license license:bsd-2))) + +(define-public python2-lazy-object-proxy + (package-with-python2 python-lazy-object-proxy)) + +(define-public python-dnspython + (package + (name "python-dnspython") + (version "1.15.0") + (source (origin + (method url-fetch) + (uri (string-append "http://www.dnspython.org/kits/" + version "/dnspython-" version ".tar.gz")) + (sha256 + (base32 + "0jr4v2pd90i6l1xxbss2m05psbjaxvyvvvpq44wycijpfgjqln8i")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; XXX: requires internet access + (home-page "http://www.dnspython.org") + (synopsis "DNS toolkit for Python") + (description + "dnspython is a DNS toolkit for Python. It supports almost all record +types. It can be used for queries, zone transfers, and dynamic updates. +It supports TSIG authenticated messages and EDNS0.") + (license license:expat))) + +(define-public python2-dnspython + (package-with-python2 python-dnspython)) + +(define-public python-email-validator + (package + (name "python-email-validator") + (version "1.0.2") + (source + (origin (method url-fetch) + (uri (pypi-uri "email_validator" version)) + (sha256 + (base32 + "1ja9149l9ck5n45a72h3is7v476hjny5ybxbcamx1nw6iplsm7k6")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'build 'use-dnspython + (lambda _ + (substitute* "setup.py" + (("dnspython3") "dnspython")) + #t))))) + (propagated-inputs + `(("python-dnspython" ,python-dnspython) + ("python-idna" ,python-idna))) + (home-page "https://github.com/JoshData/python-email-validator") + (synopsis "Email address validation library for Python") + (description + "This library validates email address syntax and deliverability.") + (license license:cc0))) + +(define-public python2-email-validator + (package-with-python2 python-email-validator)) + +(define-public python-ukpostcodeparser + (package + (name "python-ukpostcodeparser") + (version "1.0.3") + (source (origin + (method url-fetch) + (uri (pypi-uri "UkPostcodeParser" version)) + (sha256 + (base32 + "1jwg9z4rz51mcka1821rwgycsd0mcicyp1kiwjfa2kvg8bm9p2qd")))) + (build-system python-build-system) + (home-page "https://github.com/hamstah/ukpostcodeparser") + (synopsis "UK Postcode parser for Python") + (description + "This library provides the @code{parse_uk_postcode} function for +parsing UK postcodes.") + (license license:expat))) + +(define-public python2-ukpostcodeparser + (package-with-python2 python-ukpostcodeparser)) + +(define-public python-faker + (package + (name "python-faker") + (version "0.7.9") + (source (origin + (method url-fetch) + (uri (pypi-uri "Faker" version)) + (sha256 + (base32 + "1fh2p2yz0fsdr4fqwxgddwbvfb6qn6vp8yx0qwqzra27yq5d1wsm")) + (patches + (search-patches "python-faker-fix-build-32bit.patch")) + (modules '((guix build utils))) + (snippet + '(begin + (for-each delete-file (find-files "." "\\.pyc$")) + #t)))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (zero? (system* "python" "-m" "unittest" "-v" "tests"))))))) + (native-inputs + `(;; For testing + ("python-email-validator" ,python-email-validator) + ("python-mock" ,python-mock) + ("python-ukpostcodeparser" ,python-ukpostcodeparser))) + (propagated-inputs + `(("python-dateutil" ,python-dateutil) + ("python-six" ,python-six))) + (home-page "https://github.com/joke2k/faker") + (synopsis "Python package that generates fake data") + (description + "Faker is a Python package that generates fake data such as names, +addresses, and phone numbers.") + (license license:expat) + (properties `((python2-variant . ,(delay python2-faker)))))) + +(define-public python2-faker + (let ((base (package-with-python2 (strip-python2-variant + python-faker)))) + (package + (inherit base) + (propagated-inputs + `(("python2-ipaddress" ,python2-ipaddress) + ,@(package-propagated-inputs base)))))) + +(define-public python-pyaml + (package + (name "python-pyaml") + (version "18.11.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "pyaml" version)) + (sha256 + (base32 + "0fi604ix8lbpj1266q7js6szm771saprdzzcdwmj43wy83694qmr")))) + (build-system python-build-system) + (native-inputs + `(("python-unidecode" ,python-unidecode))) + (propagated-inputs + `(("python-pyyaml" ,python-pyyaml))) + (home-page "https://github.com/mk-fg/pretty-yaml") + (synopsis "YAML pretty-print library for Python") + (description + "pyaml is a PyYAML based python module to produce pretty and readable +YAML-serialized data.") + (license (license:non-copyleft "http://www.wtfpl.net/txt/copying/")))) + +(define-public python2-pyaml + (package-with-python2 python-pyaml)) + +(define-public python-backpack + (package + (name "python-backpack") + (version "0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "backpack" version)) + (sha256 + (base32 + "14rq1mvm0jda90lcx9gyyby9dvq4x3js2cmxvd6vl4686ixwyqh1")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-nose" ,python-nose))) + (propagated-inputs + `(("python-simplejson" ,python-simplejson))) + (home-page "https://github.com/sdispater/backpack") + (synopsis "Utilities for working with Python collections") + (description "Backpack provides some useful utilities for working with +collections of data.") + (license license:expat))) + +(define-public python2-backpack + (package-with-python2 python-backpack)) + +(define-public python-prompt-toolkit + (package + (name "python-prompt-toolkit") + (version "2.0.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "prompt_toolkit" version ".tar.gz")) + (sha256 + (base32 + "0fgacqk73w7s932vy46pan2yp8rvjmlkag20xvaydh9mhf6h85zx")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (delete 'check) + (add-after 'install 'post-install-check + (lambda* (#:key inputs outputs #:allow-other-keys) + ;; HOME is needed for the test + ;; "test_pathcompleter_can_expanduser". + (setenv "HOME" "/tmp") + (add-installed-pythonpath inputs outputs) + (invoke "py.test")))))) + (propagated-inputs + `(("python-wcwidth" ,python-wcwidth) + ("python-six" ,python-six) + ("python-pygments" ,python-pygments))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://github.com/jonathanslenders/python-prompt-toolkit") + (synopsis "Library for building command line interfaces in Python") + (description + "Prompt-Toolkit is a library for building interactive command line +interfaces in Python. It's like GNU Readline but it also features syntax +highlighting while typing, out-of-the-box multi-line input editing, advanced +code completion, incremental search, support for Chinese double-width +characters, mouse support, and auto suggestions.") + (license license:bsd-3))) + +(define-public python2-prompt-toolkit + (package-with-python2 python-prompt-toolkit)) + +(define-public python-prompt-toolkit-1 + (package (inherit python-prompt-toolkit) + (version "1.0.15") + (source + (origin + (method url-fetch) + (uri (pypi-uri "prompt_toolkit" version ".tar.gz")) + (sha256 + (base32 + "05v9h5nydljwpj5nm8n804ms0glajwfy1zagrzqrg91wk3qqi1c5")))))) + +(define-public python2-prompt-toolkit-1 + (package-with-python2 python-prompt-toolkit-1)) + +(define-public python-jedi + (package + (name "python-jedi") + (version "0.13.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "jedi" version)) + (sha256 + (base32 + "0j11q42g5vjkyhhjpyy8nb0gdxs78m3rpjai7p1hvgpyl9rkyjdp")))) + (build-system python-build-system) + (arguments + `( ;; Many tests are failing with Python 3.7.x as of version 0.13.1 (see: + ;; https://github.com/davidhalter/jedi/issues/1263) + #:tests? #f + #:phases + (modify-phases %standard-phases + (replace 'check + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (invoke "py.test" "-vv"))))))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-docopt" ,python-docopt))) + (propagated-inputs + `(("python-parso" ,python-parso))) + (home-page "https://github.com/davidhalter/jedi") + (synopsis "Autocompletion and static analysis library for Python") + (description + "Jedi is a static analysis tool for Python that can be used in Integrated +Development Environments (@dfn{IDE}s) and text editors. It understands Python +on a deeper level than many other static analysis frameworks for Python. + +Jedi understands docstrings and you can use Jedi autocompletion in your REPL as +well.") + (license license:expat))) + +(define-public python2-jedi + (package-with-python2 python-jedi)) + +(define-public ptpython + (package + (name "ptpython") + (version "0.34") + (source (origin + (method url-fetch) + (uri (pypi-uri "ptpython" version)) + (sha256 + (base32 + "1mmbiyzf0n8hm7z2a562x7w5cbl6jc0zsk6vp40q1z4cyblv1k13")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; FIXME: No tests in pypi tarball. + (propagated-inputs + `(("python-docopt" ,python-docopt) + ("python-jedi" ,python-jedi) + ("python-prompt-toolkit" ,python-prompt-toolkit) + ("python-pygments" ,python-pygments))) + (home-page "https://github.com/jonathanslenders/ptpython") + (synopsis "Python Read-Eval-Print-Loop with nice IDE-like features") + (description + "ptpython is a Python read-eval-print loop with IDE-like features. +It supports syntax highlighting, multiline editing, autocompletion, mouse, +color schemes, bracketed paste, Vi and Emacs keybindings, Chinese characters +etc.") + (license license:bsd-3) + (properties `((python2-variant . ,(delay ptpython-2)))))) + +(define-public ptpython-2 + (let ((base (package-with-python2 (strip-python2-variant ptpython)))) + (package + (inherit base) + (name "ptpython2")))) + +(define-public python-stem + (package + (name "python-stem") + (version "1.7.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "stem" version)) + (sha256 + (base32 + "1awiglfiajnx2hva9aqpj3fmdvdb4qg7cwnlfyih827m68y3cq8v")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (invoke "./run_tests.py" "--unit") + #t))))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-pycodestyle" ,python-pycodestyle) + ("python-pyflakes" ,python-pyflakes))) + (home-page "https://stem.torproject.org/") + (synopsis + "Python controller library that allows applications to interact with Tor") + (description + "Stem is a Python controller library for Tor. With it you can use Tor's +control protocol to script against the Tor process and read descriptor data +relays publish about themselves.") + (license license:lgpl3))) + +(define-public python2-stem + (package-with-python2 python-stem)) + +(define-public python-pyserial + (package + (name "python-pyserial") + (version "3.1.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyserial" version)) + (sha256 + (base32 + "0k1nfdrxxkdlv4zgaqsdv8li0pj3gbh2pyxw8q2bsg6f9490amyn")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; FIXME: 3/49 tests are failing. + ;; #:phases + ;; (modify-phases %standard-phases + ;; (replace 'check + ;; (lambda _ + ;; (zero? (system* "python" "test/run_all_tests.py" "loop://"))))))) + (home-page + "https://github.com/pyserial/pyserial") + (synopsis "Python Serial Port Bindings") + (description "@code{pyserial} provide serial port bindings for Python. It +supports different byte sizes, stop bits, parity and flow control with RTS/CTS +and/or Xon/Xoff. The port is accessed in RAW mode.") + (license license:bsd-3))) + +(define-public python2-pyserial + (package-with-python2 python-pyserial)) + +(define-public python-kivy + (package + (name "python-kivy") + (version "1.10.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Kivy" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1zzxjdp78hfjjiklzr82l4zwibwcq4j6kgicspqs6iyyfn5yisbw")))) + (build-system python-build-system) + (arguments + `(#:tests? #f ; Tests require many optional packages + #:phases + (modify-phases %standard-phases + (add-after 'patch-generated-file-shebangs 'set-sdl-paths + (lambda* (#:key inputs #:allow-other-keys) + (setenv "KIVY_SDL2_PATH" + (string-append (assoc-ref inputs "sdl-union") + "/include/SDL2")) + #t))))) + (native-inputs + `(("git" ,git) + ("pkg-config" ,pkg-config) + ("python-cython" ,python-cython))) + (inputs + `(("gstreamer" ,gstreamer) + ("mesa" ,mesa) + ("sdl-union" + ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf))))) + (home-page "http://kivy.org") + (synopsis + "Multitouch application framework") + (description + "A software library for rapid development of +hardware-accelerated multitouch applications.") + (license license:expat))) + +(define-public python2-kivy + (package-with-python2 python-kivy)) + +(define-public python-kivy-next + (deprecated-package "python-kivy-next" python-kivy)) + +(define-public python2-kivy-next + (deprecated-package "python2-kivy-next" python2-kivy)) + +(define-public python-binaryornot + (package + (name "python-binaryornot") + (version "0.4.4") + (source (origin + (method url-fetch) + (uri (pypi-uri "binaryornot" version)) + (sha256 + (base32 + "0qc006986rb6bcbmiymwgcl1mns2jphr1j7sr7nk41nlr7gh359m")))) + (build-system python-build-system) + (propagated-inputs + `(("python-chardet" ,python-chardet) + ("python-hypothesis" ,python-hypothesis))) + (home-page "https://github.com/audreyr/binaryornot") + (synopsis "Package to check if a file is binary or text") + (description "Ultra-lightweight pure Python package to check if a file is +binary or text.") + (license license:bsd-3) + (properties `((python2-variant . ,(delay python2-binaryornot)))))) + +(define-public python2-binaryornot + (let ((base (package-with-python2 (strip-python2-variant python-binaryornot)))) + (package (inherit base) + (propagated-inputs + `(("python2-enum34" ,python2-enum34) + ,@(package-propagated-inputs base)))))) + +(define-public python-nltk + (package + (name "python-nltk") + (version "3.2.1") + (source (origin + (method url-fetch) + (uri (pypi-uri "nltk" version)) + (sha256 + (base32 + "0skxbhnymwlspjkzga0f7x1hg3y50fwpfghs8g8k7fh6f4nknlym")))) + (build-system python-build-system) + (arguments + '(;; The tests require some extra resources to be downloaded. + ;; TODO Try packaging these resources. + #:tests? #f)) + (home-page "http://nltk.org/") + (synopsis "Natural Language Toolkit") + (description "It provides interfaces to over 50 corpora and lexical +resources such as WordNet, along with a suite of text processing libraries +for classification, tokenization, stemming, tagging, parsing, and semantic +reasoning, wrappers for natural language processing libraries.") + (license license:asl2.0))) + +(define-public python2-nltk + (package-with-python2 python-nltk)) + +(define-public python-pymongo + (package + (name "python-pymongo") + (version "3.7.2") + (source (origin + (method url-fetch) + (uri (pypi-uri "pymongo" version)) + (sha256 + (base32 + "0zis4707r9hdg5qgkhp3wss9camr9h56ixyfc8n9dxwlnnly4x4c")))) + (build-system python-build-system) + (propagated-inputs + `(("python-certifi" ,python-certifi))) + (home-page "https://github.com/mongodb/mongo-python-driver") + (synopsis "Python driver for MongoDB") + (description "Python driver for MongoDB.") + (license license:asl2.0))) + +(define-public python2-pymongo + (package-with-python2 python-pymongo)) + +(define-public python-sh + (package + (name "python-sh") + (version "1.11") + (source (origin + (method url-fetch) + (uri (pypi-uri "sh" version)) + (sha256 + (base32 + "192r0mpv6dmkysjzhc43ddffiwb5g7c76bgr1mb1z2xz9awbj3sr")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ; no tests + (home-page "https://github.com/amoffat/sh") + (synopsis "Python subprocess interface") + (description "Abstracts process invocation by providing a function +interface for programs.") + (license license:expat))) + +(define-public python2-sh + (package-with-python2 python-sh)) + +(define-public python-consul + (package + (name "python-consul") + (version "0.6.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "python-consul" version)) + (sha256 + (base32 + "0rfyxcy4cr3x848vhx876ifalxd5ghq6l5x813m49h4vq2d4jiq8")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; The tests are not distributed + (propagated-inputs + `(("python-requests" ,python-requests) + ("python-six" ,python-six))) + (home-page "https://github.com/cablehead/python-consul") + (synopsis "Python client for Consul") + (description + "Python client for @url{http://www.consul.io/,Consul}, a tool for service +discovery, monitoring and configuration.") + (license license:expat))) + +(define-public python2-consul + (package-with-python2 python-consul)) + +(define-public python-schematics + (package + (name "python-schematics") + (version "1.1.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/schematics/schematics/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "19v1i69bf3bzarfxmbv0v6ivpcn758x3shvbiy9l2hy0lvqwnp6l")))) + (build-system python-build-system) + (propagated-inputs + `(("python-six" ,python-six))) + (arguments + `(#:tests? #f)) ; requires a bunch of not very nice packages with fixed + ; version requirements (eg python-coveralls) + (home-page "https://github.com/schematics/schematics") + (synopsis "Python Data Structures for Humans") + (description "Python Data Structures for Humans.") + (license license:bsd-3))) + +(define-public python2-schematics + (package-with-python2 python-schematics)) + +(define-public python-odfpy + (package + (name "python-odfpy") + (version "1.3.3") + (source (origin + (method url-fetch) + (uri (pypi-uri "odfpy" version)) + (sha256 + (base32 + "1a6ms0w9zfhhkqhvrnynwwbxrivw6hgjc0s5k7j06npc7rq0blxw")))) + (arguments + `(#:modules ((srfi srfi-1) + (guix build python-build-system) + (guix build utils)) + #:phases + (modify-phases %standard-phases + (replace 'check + ;; The test runner invokes python2 and python3 for test*.py. + ;; To avoid having both in inputs, we replicate it here. + (lambda _ + (every (lambda (test-file) + (zero? (system* "python" test-file))) + (find-files "tests" "^test.*\\.py$"))))))) + (build-system python-build-system) + (home-page "https://github.com/eea/odfpy") + (synopsis "Python API and tools to manipulate OpenDocument files") + (description "Collection of libraries and utility programs written in +Python to manipulate OpenDocument 1.2 files.") + (license + ;; The software is mainly dual GPL2+ and ASL2.0, but includes a + ;; number of files with other licenses. + (list license:gpl2+ license:asl2.0 license:lgpl2.1+ license:cc-by-sa3.0)))) + +(define-public python2-odfpy + (package-with-python2 python-odfpy)) + +(define-public python-natsort + (package + (name "python-natsort") + (version "5.4.1") + (source (origin + (method url-fetch) + (uri (pypi-uri "natsort" version)) + (sha256 + (base32 + "0i732amg6yzkx4g4c9j09jmqq39q377x9cl2nbkm5hax2c2v0wxf")))) + (build-system python-build-system) + (arguments + `(#:modules ((guix build utils) + (guix build python-build-system) + (srfi srfi-1) + (srfi srfi-26) + (ice-9 ftw)) + #:phases + (modify-phases %standard-phases + (add-before 'check 'set-cachedir + ;; Tests require write access to $HOME by default + (lambda _ (setenv "PYTHON_EGG_CACHE" "/tmp") #t)) + (replace 'check + (lambda _ + (let ((cwd (getcwd))) + (setenv "PYTHONPATH" + (string-append + cwd "/build/" + (find (cut string-prefix? "lib" <>) + (scandir (string-append cwd "/build"))) + ":" + (getenv "PYTHONPATH"))) + (invoke "pytest" "-v"))))))) + (native-inputs + `(("python-hypothesis" ,python-hypothesis) + ("python-pytest-cov" ,python-pytest-cov) + ("python-pytest-mock" ,python-pytest-mock) + ("python-pytest" ,python-pytest))) + (propagated-inputs ; TODO: Add python-fastnumbers. + `(("python-pyicu" ,python-pyicu))) + (home-page "https://github.com/SethMMorton/natsort") + (synopsis "Natural sorting for python and shell") + (description + "Natsort lets you apply natural sorting on lists instead of +lexicographical. If you use the built-in @code{sorted} method in python +on a list such as @code{['a20', 'a9', 'a1', 'a4', 'a10']}, it would be +returned as @code{['a1', 'a10', 'a20', 'a4', 'a9']}. Natsort provides a +function @code{natsorted} that identifies numbers and sorts them separately +from strings. It can also sort version numbers, real numbers, mixed types +and more, and comes with a shell command @command{natsort} that exposes this +functionality in the command line.") + (license license:expat) + (properties `((python2-variant . ,(delay python2-natsort)))))) + +(define-public python2-natsort + (let ((base (package-with-python2 (strip-python2-variant python-natsort)))) + (package (inherit base) + (native-inputs + `(("python2-pathlib" ,python2-pathlib) + ,@(package-native-inputs base)))))) + +(define-public python-glances + (package + (name "python-glances") + (version "3.0.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Glances" version)) + (sha256 + (base32 + "09fxysfp1n16csqvzvawy74qm6a94nvwjf3vcf5gkqp4i6k4vjjy")))) + (build-system python-build-system) + (propagated-inputs + `(("python-psutil" ,python-psutil))) + (home-page + "https://github.com/nicolargo/glances") + (synopsis + "A cross-platform curses-based monitoring tool") + (description + "Glances is a curses-based monitoring tool for a wide variety of platforms. +Glances uses the PsUtil library to get information from your system. It monitors +CPU, load, memory, network bandwidth, disk I/O, disk use, and more.") + (license license:lgpl3+))) + +(define-public python2-glances + (package-with-python2 python-glances)) + +(define-public python-graphql-core + (package + (name "python-graphql-core") + (version "0.5.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "graphql-core" version)) + (sha256 + (base32 + "0rsaarx2sj4xnw9966rhh4haiqaapm4lm2mfqm48ywd51j5vh1a0")))) + (build-system python-build-system) + (arguments + `(#:tests? #f ; Tests require the unpackaged pytest-benchmark. + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-hardcoded-version + (lambda _ (substitute* + "setup.py" + (("'gevent==1.1rc1'") "'gevent'")) + #t))))) + (native-inputs + `(("python-gevent" ,python-gevent) + ("python-mock" ,python-mock) + ("python-pytest-mock" ,python-pytest-mock))) + (propagated-inputs + `(("python-promise" ,python-promise) + ("python-six" ,python-six))) + (home-page "https://github.com/graphql-python/graphql-core") + (synopsis "GraphQL implementation for Python") + (description + "GraphQL implementation for Python. GraphQL is a data query language and +runtime designed and used to request and deliver data to mobile and web apps. +This library is a port of @url{https://github.com/graphql/graphql-js,graphql-js} +to Python.") + (license license:expat))) + +(define-public python2-graphql-core + (package-with-python2 python-graphql-core)) + +(define-public python-graphql-relay + (package + (name "python-graphql-relay") + (version "0.4.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "graphql-relay" version)) + (sha256 + (base32 + "1nv5dxcj59zv31qvl8bd142njmxcmymny2dz3br1l2cpbljbf5i7")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; The tests are not distributed + (propagated-inputs + `(("python-graphql-core" ,python-graphql-core) + ("python-promise" ,python-promise) + ("python-six" ,python-six))) + (home-page "https://github.com/graphql-python/graphql-relay-py") + (synopsis "Relay implementation for Python") + (description + "This is a library to allow the easy creation of Relay-compliant servers +using the GraphQL Python reference implementation of a GraphQL server. It +should be noted that the code is a exact port of the original +@url{https://github.com/graphql/graphql-relay-js,graphql-relay js implementation} +from Facebook.") + (license license:expat))) + +(define-public python2-graphql-relay + (package-with-python2 python-graphql-relay)) + +(define-public python-graphene + (package + (name "python-graphene") + (version "0.10.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "graphene" version)) + (sha256 + (base32 + "09zhac7igh9ixdz0ay6csy35b40l1jwbf2wrbxmgxwfhy51iy06q")))) + (build-system python-build-system) + (propagated-inputs + `(("python-graphql-core" ,python-graphql-core) + ("python-graphql-relay" ,python-graphql-relay) + ("python-iso8601" ,python-iso8601) + ("python-promise" ,python-promise) + ("python-six" ,python-six))) + (arguments + `(#:tests? #f)) ; no tests/ in the PyPI tarball + (home-page "http://graphene-python.org/") + (synopsis "GraphQL Framework for Python") + (description + "Graphene is a Python library for building GraphQL schemas/types. +A GraphQL schema describes your data model, and provides a GraphQL server +with an associated set of resolve methods that know how to fetch data.") + (properties `((python2-variant . ,(delay python2-graphene)))) + (license license:expat))) + +(define-public python2-graphene + (let ((base (package-with-python2 + (strip-python2-variant python-graphene)))) + (package (inherit base) + (native-inputs + `(("python2-sqlalchemy" ,python2-sqlalchemy) + ,@(package-native-inputs base)))))) + +(define-public python-nautilus + (package + (name "python-nautilus") + (version "0.4.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "nautilus" version)) + (sha256 + (base32 + "01hwzjc1zshk4vvxrcghm398fpy4jls66dyz06g07mrwqif8878p")))) + (build-system python-build-system) + (arguments `(#:tests? #f)) ; fails to import test modules + (propagated-inputs + `(("python-bcrypt" ,python-bcrypt) + ("python-click" ,python-click) + ("python-consul" ,python-consul) + ("python-graphene" ,python-graphene) + ("python-jinja2" ,python-jinja2) + ("python-peewee" ,python-peewee) + ("python-pika" ,python-pika) + ("python-tornado" ,python-tornado) + ("python-wtforms" ,python-wtforms))) + (native-inputs + `(("python-nose2" ,python-nose2))) + (home-page "https://github.com/AlecAivazis/nautilus") + (synopsis "Library for creating microservice applications") + (description + "Nautilus is a framework for flux based microservices that looks to +provide extendible implementations of common aspects of a cloud so that you can +focus on building massively scalable web applications.") + (license license:expat))) + +(define-public python-snowballstemmer + (package + (name "python-snowballstemmer") + (version "1.2.1") + (source (origin + (method url-fetch) + (uri (pypi-uri "snowballstemmer" version)) + (sha256 + (base32 + "0a0idq4y5frv7qsg2x62jd7rd272749xk4x99misf5rcifk2d7wi")))) + (build-system python-build-system) + (arguments + `(;; No tests exist + #:tests? #f)) + (home-page "https://github.com/shibukawa/snowball_py") + (synopsis "Snowball stemming library collection for Python") + (description "This package provides 16 word stemmer algorithms generated +from Snowball algorithms. It includes the 15 original ones plus the Poerter +English stemmer.") + (license license:bsd-3))) + +(define-public python2-snowballstemmer + (package-with-python2 python-snowballstemmer)) + +(define-public python-sphinx-cloud-sptheme + (package + (name "python-sphinx-cloud-sptheme") + (version "1.8.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "cloud_sptheme" version)) + (sha256 + (base32 + "1dniqb6a39yh786f86c4jn666rwnyi1jvzn4616zhcchb7sfdshd")))) + (build-system python-build-system) + ;; FIXME: The 'pypi' release archive does not contain tests. + (arguments '(#:tests? #f)) + (native-inputs + `(("python-sphinx" ,python-sphinx))) + (home-page "https://bitbucket.org/ecollins/cloud_sptheme") + (synopsis "'Cloud' theme for Sphinx documenter") + (description "This package contains the \"Cloud\" theme for Sphinx and some +related extensions.") + (license license:bsd-3))) + +(define-public python2-sphinx-cloud-sptheme + (package-with-python2 python-sphinx-cloud-sptheme)) + +(define-public python-sphinx-alabaster-theme + (package + (name "python-sphinx-alabaster-theme") + (version "0.7.12") + (source (origin + (method url-fetch) + (uri (pypi-uri "alabaster" version)) + (sha256 + (base32 + "00nwwjj2d2ym4s2kk217x7jkx1hnczc3fvm8yxbqmsp6b0nxfqd6")))) + (build-system python-build-system) + (propagated-inputs + `(("python-pygments" ,python-pygments))) + (home-page "https://alabaster.readthedocs.io/") + (synopsis "Configurable sidebar-enabled Sphinx theme") + (description "Alabaster is a visually (c)lean, responsive, configurable +theme for the Sphinx documentation system. It's the default theme of Sphinx.") + (license license:bsd-3))) + +(define-public python2-sphinx-alabaster-theme + (package-with-python2 python-sphinx-alabaster-theme)) + +(define-public python-setproctitle +(package + (name "python-setproctitle") + (version "1.1.10") + (source + (origin + (method url-fetch) + (uri (pypi-uri "setproctitle" version)) + (sha256 + (base32 + "163kplw9dcrw0lffq1bvli5yws3rngpnvrxrzdw89pbphjjvg0v2")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'check 'patch-Makefile + ;; Stricly this is only required for the python2 variant. + ;; But adding a phase in an inherited package seems to be + ;; cumbersum. So we patch even for python3. + (lambda _ + (let ((nose (assoc-ref %build-inputs "python2-nose"))) + (when nose + (substitute* "Makefile" + (("\\$\\(PYTHON\\) [^ ]which nosetests[^ ] ") + (string-append nose "/bin/nosetests ")))) + #t))) + (replace 'check + (lambda _ + (setenv "PYTHON" (or (which "python3") (which "python"))) + (setenv "PYCONFIG" (or (which "python3-config") + (which "python-config"))) + (setenv "CC" "gcc") + ;; No need to extend PYTHONPATH to find the built package, since + ;; the Makefile will build anyway + (invoke "make" "check")))))) + (native-inputs + `(("procps" ,procps))) ; required for tests + (home-page + "https://github.com/dvarrazzo/py-setproctitle") + (synopsis + "Setproctitle implementation for Python to customize the process title") + (description "The library allows a process to change its title (as displayed +by system tools such as ps and top). + +Changing the title is mostly useful in multi-process systems, for +example when a master process is forked: changing the children's title +allows to identify the task each process is busy with. The technique +is used by PostgreSQL and the OpenSSH Server for example.") + (license license:bsd-3) + (properties `((python2-variant . ,(delay python2-setproctitle)))))) + +(define-public python2-setproctitle + (let ((base (package-with-python2 + (strip-python2-variant python-setproctitle)))) + (package + (inherit base) + (native-inputs `(("python2-nose" ,python2-nose) + ,@(package-native-inputs base)))))) + +(define-public python-validictory + (package + (name "python-validictory") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "validictory" version)) + (sha256 + (base32 + "1zf1g9sw47xzp5f80bd94pb42j9yqv82lcrgcvdwr6nkaphfi37q")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'bootstrap + ;; Move the tests out of the package directory to avoid + ;; packaging them. + (lambda* _ + (rename-file "validictory/tests" "tests") + (delete-file "tests/__init__.py"))) + (replace 'check + (lambda _ + ;; Extend PYTHONPATH so the built package will be found. + (setenv "PYTHONPATH" + (string-append (getcwd) "/build/lib:" + (getenv "PYTHONPATH"))) + (zero? (system* "py.test" "-vv" ))))))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page + "https://github.com/jamesturk/validictory") + (synopsis "General purpose Python data validator") + (description "It allows validation of arbitrary Python data structures. + +The schema format is based on the JSON Schema +proposal (http://json-schema.org), so combined with json the library is also +useful as a validator for JSON data.") + (license license:expat))) + +(define-public python2-validictory + (package-with-python2 python-validictory)) + +(define-public python-pyelftools + (package + (name "python-pyelftools") + (version "0.25") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyelftools" version)) + (sha256 + (base32 + "090vdksbz341f7ljvr0zswblw4lspa8qaiikzyjkf318arpxmil9")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'set-pythonpath + (lambda _ + (setenv "PYTHONPATH" + (string-append + (getcwd) "/test/" + ":" (getenv "PYTHONPATH"))) + #t))))) + (home-page + "https://github.com/eliben/pyelftools") + (synopsis + "Analyze binary and library file information") + (description "This Python library provides interfaces for parsing and +analyzing two binary and library file formats; the Executable and Linking +Format (ELF), and debugging information in the Debugging With Attributed +Record Format (DWARF).") + (license license:public-domain))) + +(define-public python-pyev + (package + (name "python-pyev") + (version "0.9.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyev" version)) + (sha256 + (base32 + "0rf603lc0s6zpa1nb25vhd8g4y337wg2wyz56i0agsdh7jchl0sx")))) + (build-system python-build-system) + (arguments + `(#:tests? #f ; no test suite + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch + (lambda* (#:key inputs #:allow-other-keys) + (let ((libev (string-append (assoc-ref inputs "libev") + "/lib/libev.so.4"))) + (substitute* "setup.py" + (("libev_dll_name = find_library\\(\\\"ev\\\"\\)") + (string-append "libev_dll_name = \"" libev "\""))))))))) + (inputs + `(("libev" ,libev))) + (home-page "http://pythonhosted.org/pyev/") + (synopsis "Python libev interface") + (description "Pyev provides a Python interface to libev.") + (license license:gpl3))) + +(define-public python2-pyev + (package-with-python2 python-pyev)) + +(define-public python-imagesize + (package + (name "python-imagesize") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "imagesize" version)) + (sha256 + (base32 + "1dg3wn7qpwmhgqc0r9na2ding1wif9q5spz3j9zn2riwphc2k0zk")))) + (build-system python-build-system) + (home-page "https://github.com/shibukawa/imagesize_py") + (synopsis "Gets image size of files in various formats in Python") + (description + "This package allows determination of image size from +PNG, JPEG, JPEG2000 and GIF files in pure Python.") + (license license:expat))) + +(define-public python2-imagesize + (package-with-python2 python-imagesize)) + +(define-public python-termstyle + (package + (name "python-termstyle") + (version "0.1.11") + (source + (origin + (method url-fetch) + (uri (pypi-uri "termstyle" version)) + (sha256 + (base32 + "17wzkkcqy5zc0g68xlad3kcv66iw14d2pwqc0h9420gak0vbhx7g")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (zero? (system* "python" "test3.py"))))))) + (home-page "https://github.com/gfxmonk/termstyle") + (synopsis "Console text coloring for Python") + (description "This package provides console text coloring for Python.") + (license license:bsd-3))) + +(define-public python-argcomplete + (package + (name "python-argcomplete") + (version "1.7.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "argcomplete" version)) + (sha256 + (base32 + "11bwiw6j0nilgz81xnw6f1npyga3prp8asjqrm87cdr3ria5l03x")))) + (build-system python-build-system) + (native-inputs + `(("python-pexpect" ,python-pexpect) + ("tcsh" ,tcsh) + ("bash-full" ,bash))) ;full Bash for 'test_file_completion' + (home-page "https://github.com/kislyuk/argcomplete") + (synopsis "Shell tab completion for Python argparse") + (description "argcomplete provides extensible command line tab completion +of arguments and options for Python scripts using @code{argparse}. It's +particularly useful for programs with many options or sub-parsers that can +dynamically suggest completions; for example, when browsing resources over the +network.") + (license license:asl2.0))) + +(define-public python2-argcomplete + (package-with-python2 python-argcomplete)) + +(define-public python-xopen + (package + (name "python-xopen") + (version "0.3.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "xopen" version)) + (sha256 + (base32 + "1a0wbil552wsmklwd89ssmgz3pjd86qa9i7jh8wqb9wslc8a2qjr")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system python-build-system) + (home-page "https://github.com/marcelm/xopen/") + (synopsis "Open compressed files transparently") + (description "This module provides an @code{xopen} function that works like +Python's built-in @code{open} function, but can also deal with compressed files. +Supported compression formats are gzip, bzip2 and, xz, and are automatically +recognized by their file extensions. The focus is on being as efficient as +possible on all supported Python versions.") + (license license:expat))) + +(define-public python2-xopen + (let ((base (package-with-python2 + (strip-python2-variant python-xopen)))) + (package + (inherit base) + (propagated-inputs `(("python2-bz2file" ,python2-bz2file) + ,@(package-propagated-inputs base)))))) + +(define-public python-cheetah + (package + (name "python-cheetah") + (version "3.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Cheetah3" version)) + (sha256 + (base32 + "1ihag9cxll6b86fc8v5lkhmr3brdbi4yiz16zpgw79yylmv8fgr9")))) + (build-system python-build-system) + (arguments + `(#:modules ((guix build utils) + (guix build python-build-system) + (ice-9 ftw) + (srfi srfi-1) + (srfi srfi-26)) + #:phases (modify-phases %standard-phases + (add-after 'unpack 'use-absolute-python + (lambda _ + (substitute* "Cheetah/CheetahWrapper.py" + (("#!/usr/bin/env python") + (string-append "#!" (which "python")))) + #t)) + (replace 'check + (lambda _ + (let ((cwd (getcwd))) + (setenv "PYTHONPATH" + (string-append + cwd "/build/" + (find (cut string-prefix? "lib" <>) + (scandir (string-append cwd "/build"))) + ":" (getenv "PYTHONPATH"))) + (setenv "PATH" + (string-append (getenv "PATH") + ":" cwd "/bin")) + (setenv "TMPDIR" "/tmp") + + (substitute* "Cheetah/Tests/Test.py" + (("unittest.TextTestRunner\\(\\)") + "unittest.TextTestRunner(verbosity=2)")) + + (invoke "python" "Cheetah/Tests/Test.py"))))))) + (propagated-inputs + `(("python-markdown" ,python-markdown))) ;optional + (home-page "http://cheetahtemplate.org/") + (synopsis "Template engine") + (description "Cheetah is a text-based template engine and Python code +generator. + +Cheetah can be used as a standalone templating utility or referenced as +a library from other Python applications. It has many potential uses, +but web developers looking for a viable alternative to ASP, JSP, PHP and +PSP are expected to be its principle user group. + +Features: +@enumerate +@item Generates HTML, SGML, XML, SQL, Postscript, form email, LaTeX, or any other + text-based format. +@item Cleanly separates content, graphic design, and program code. +@item Blends the power and flexibility of Python with a simple template language + that non-programmers can understand. +@item Gives template writers full access to any Python data structure, module, + function, object, or method in their templates. +@item Makes code reuse easy by providing an object-orientated interface to + templates that is accessible from Python code or other Cheetah templates. + One template can subclass another and selectively reimplement sections of it. +@item Provides a simple, yet powerful, caching mechanism that can dramatically + improve the performance of a dynamic website. +@item Compiles templates into optimized, yet readable, Python code. +@end enumerate") + (license (license:x11-style "file://LICENSE")))) + +(define-public python2-cheetah + (package-with-python2 python-cheetah)) + +(define-public python-dulwich + (package + (name "python-dulwich") + (version "0.18.6") + (source + (origin + (method url-fetch) + (uri (list (string-append "https://www.dulwich.io/releases/" + "dulwich-" version ".tar.gz") + (pypi-uri "dulwich" version))) + (sha256 + (base32 + "1aa1xfrxkc3j9s4xi0llhf5gndyi9ryprcxsqfa5fcb8ph34981q")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'fix-tests + (lambda* (#:key inputs #:allow-other-keys) + ;; The tests use Popen with a custom environment which doesn't + ;; include PATH. + (substitute* "dulwich/tests/compat/utils.py" + (("'git'") (string-append "'" + (which "git") + "'"))) + (substitute* '("dulwich/tests/test_repository.py" + "dulwich/tests/test_hooks.py") + (("#!/bin/sh") (string-append "#!" (which "sh")))) + (setenv "TEST_RUNNER" "unittest") + (setenv "PYTHONHASHSEED" "random") + #t))))) + (propagated-inputs + `(("python-fastimport" ,python-fastimport))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-geventhttpclient" ,python-geventhttpclient) + ("git" ,git))) + (home-page "https://www.dulwich.io/") + (synopsis "Git implementation in Python") + (description "Dulwich is an implementation of the Git file formats and +protocols written in pure Python.") + ;; Can be used with either license. + (license (list license:asl2.0 license:gpl2+)))) + +(define-public python2-dulwich + (package-with-python2 python-dulwich)) + +(define-public python-pbkdf2 + (package + (name "python-pbkdf2") + (version "1.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pbkdf2" version)) + (sha256 + (base32 + "0yb99rl2mbsaamj571s1mf6vgniqh23v98k4632150hjkwv9fqxc")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (setenv "PYTHONPATH" + (string-append (getcwd) "/build/lib:" + (getenv "PYTHONPATH"))) + (zero? (system* "python" "test/test_pbkdf2.py"))))))) + (propagated-inputs + `(("python-pycrypto" ,python-pycrypto))) ; optional + (home-page "https://www.dlitz.net/software/python-pbkdf2/") + (synopsis "Password-based key derivation") + (description "This module implements the password-based key derivation +function, PBKDF2, specified in RSA PKCS#5 v2.0. + +PKCS#5 v2.0 Password-Based Key Derivation is a key derivation function which +is part of the RSA Public Key Cryptography Standards series. The provided +implementation takes a password or a passphrase and a salt value (and +optionally a iteration count, a digest module, and a MAC module) and provides +a file-like object from which an arbitrarly-sized key can be read.") + (license license:expat))) + +(define-public python2-pbkdf2 + (package-with-python2 python-pbkdf2)) + +(define-public python-qrcode + (package + (name "python-qrcode") + (version "6.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "qrcode" version)) + (sha256 + (base32 + "1gz1g2n9kqwqkak78aavr354z1v3yyiksk7q6xp5hi1zr6s0syq3")))) + (build-system python-build-system) + (arguments + ;; FIXME: Tests require packaging 'pymaging'. + '(#:tests? #f)) + (propagated-inputs + `(("python-lxml" ,python-lxml) ; for SVG output + ("python-pillow" ,python-pillow) ; for PNG output + ("python-six" ,python-six))) + (inputs + `(;; The setup.cfg file needs to be used, and support for this requires + ;; at least version 30.3.0 of setuptools + ("python-setuptools" ,python-setuptools))) + (home-page "https://github.com/lincolnloop/python-qrcode") + (synopsis "QR Code image generator") + (description "This package provides a pure Python QR Code generator +module. It uses the Python Imaging Library (PIL) to allow for the generation +of QR Codes. + +In addition this package provides a command line tool to generate QR codes and +either write these QR codes to a file or do the output as ascii art at the +console.") + (license license:bsd-3))) + +(define-public python2-qrcode + (package-with-python2 python-qrcode)) + +(define-public python-rst2ansi + (package + (name "python-rst2ansi") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "rst2ansi" version)) + (sha256 + (base32 + "0vzy6gd60l79ff750scl0sz48r1laalkl6md6dwzah4dcadgn5qv")))) + (build-system python-build-system) + (propagated-inputs + `(("python-docutils" ,python-docutils))) + (home-page "https://github.com/Snaipe/python-rst-to-ansi") + (synopsis "Convert RST to ANSI-decorated console output") + (description + "Python module dedicated to rendering RST (reStructuredText) documents +to ansi-escaped strings suitable for display in a terminal.") + (license license:expat))) + +(define-public python-ansi2html + (package + (name "python-ansi2html") + (version "1.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ansi2html" version)) + (sha256 + (base32 + "1wa00zffprb78w1mqq90dk47czz1knanys2a40zbw2vyapd5lp9y")))) + (build-system python-build-system) + (native-inputs + `(("python-mock" ,python-mock) + ("python-nose" ,python-nose))) + (propagated-inputs + `(("python-six" ,python-six))) + (home-page "https://github.com/ralphbean/ansi2html") + (synopsis "Convert ANSI-decorated console output to HTML") + (description + "@command{ansi2html} is a Python library and command line utility for +convering text with ANSI color codes to HTML or LaTeX.") + (license license:gpl3+))) + +(define-public python2-ansi2html + (package-with-python2 python-ansi2html)) + +(define-public python-ddt + (package + (name "python-ddt") + (version "1.1.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ddt" version)) + (sha256 + (base32 + "1lw17420iimhghkgzgax85nn8d1an2d6k2cfvb7j5kwn2dqlr1vk")))) + (build-system python-build-system) + (native-inputs + `(("python-mock" ,python-mock) + ("python-nose" ,python-nose))) + (propagated-inputs + `(("python-six" ,python-six) + ("python-pyyaml" ,python-pyyaml))) + (home-page "https://github.com/txels/ddt") + (synopsis "Data-Driven Tests") + (description + "Data-Driven Tests (@dfn{DDT}) allow you to multiply one test case by +running it with different test data, and make it appear as multiple test +cases.") + (license license:expat))) + +(define-public python2-ddt + (package-with-python2 python-ddt)) + +(define-public python-pycountry + (package + (name "python-pycountry") + (version "18.5.26") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pycountry" version)) + (sha256 + (base32 + "15q9j047s3yc9cfcxq1ch8b71f81na44cr6dydd5gxk0ki9a4akz")))) + (build-system python-build-system) + (home-page "https://bitbucket.org/flyingcircus/pycountry") + (synopsis "ISO databases for languages, countries, currencies, etc.") + (description + "@code{pycountry} provides the ISO databases for the standards: +@enumerate +@item 639-3 (Languages) +@item 3166 (Countries) +@item 3166-3 (Deleted Countries) +@item 3166-2 (Subdivisions of countries) +@item 4217 (Currencies) +@item 15924 (Scripts) +@end enumerate +It includes a copy from Debian’s pkg-isocodes and makes the data accessible +through a Python API.") + (license license:lgpl2.1+))) + +(define-public python2-pycountry + (package-with-python2 python-pycountry)) + +(define-public python-pycosat + (package + (name "python-pycosat") + (version "0.6.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pycosat" version)) + (sha256 + (base32 + "1kl3wh1f47rc712n4bmwplbx3fqz3x9i1b587jrbpmvdva4c8f6l")))) + ;; TODO: Unundle picosat. http://fmv.jku.at/picosat/ + (build-system python-build-system) + (home-page "https://github.com/ContinuumIO/pycosat") + (synopsis "Bindings to picosat (a SAT solver)") + (description + "This package provides efficient Python bindings to @code{picosat} on +the C level. When importing pycosat, the @code{picosat} solver becomes part +of the Python process itself. @code{picosat} is a @dfn{Boolean Satisfiability +Problem} (SAT) solver.") + (license license:expat))) + +(define-public python2-pycosat + (package-with-python2 python-pycosat)) + +(define-public python2-ruamel.ordereddict + (package + (name "python2-ruamel.ordereddict") + (version "0.4.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ruamel.ordereddict" version)) + (sha256 + (base32 + "1xmkl8v9l9inm2pyxgc1fm5005yxm7fkd5gv74q7lj1iy5qc8n3h")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + (delete 'check) + (add-after 'install 'check + (lambda* (#:key inputs outputs #:allow-other-keys) + (add-installed-pythonpath inputs outputs) + (zero? (system* "python" "test/testordereddict.py"))))))) + (home-page "https://bitbucket.org/ruamel/ordereddict") + (synopsis "Version of dict that keeps keys in insertion order") + (description + "This is an implementation of an ordered dictionary with @dfn{Key +Insertion Order} (KIO: updates of values do not affect the position of the +key), @dfn{Key Value Insertion Order} (KVIO, an existing key's position is +removed and put at the back). The standard library module @code{OrderedDict}, +implemented later, implements a subset of @code{ordereddict} functionality. +Sorted dictionaries are also provided. Currently only with @dfn{Key Sorted +Order} (KSO, no sorting function can be specified, but a transform can be +specified to apply on the key before comparison (e.g. @code{string.lower})).") + (license license:expat))) + +(define-public python-pypeg2 + (package + (name "python-pypeg2") + (version "2.15.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyPEG2" version)) + (sha256 + (base32 + "0v8ziaam2r637v94ra4dbjw6jzxz99gs5x4i585kgag1v204yb9b")))) + (build-system python-build-system) + (propagated-inputs `(("python-lxml" ,python-lxml))) + (arguments + ;;https://bitbucket.org/fdik/pypeg/issues/36/test-failures-on-py35 + '(#:tests? #f)) + (home-page "https://fdik.org/pyPEG/") + (synopsis "Parsering Expression Grammars in Python") + (description "PyPEG is an intrinsic parser interpreter framework for +Python. It is based on Parsing Expression Grammars, PEG. With pyPEG you can +parse many formal languages.") + (license license:gpl2))) + +(define-public python-incremental + (package + (name "python-incremental") + (version "17.5.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "incremental" version)) + (sha256 + (base32 + "1cylxdz1cnkm5g3pklna3h2n0i0rks95ir1pnpxfnvpkmab1cxbv")))) + (build-system python-build-system) + (home-page "https://github.com/hawkowl/incremental") + (synopsis "Library for versioning Python projects") + (description "Incremental is a small library that versions your Python +projects.") + (license license:expat))) + +(define-public python2-incremental + (package-with-python2 python-incremental)) + +(define-public python-invoke + (package + (name "python-invoke") + (home-page "http://www.pyinvoke.org/") + (version "1.1.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "invoke" version)) + (sha256 + (base32 + "0aiy1xvk1f91246zxd1zqrm679vdvd10h843a2na41cqr3cflpi6")))) + (build-system python-build-system) + (arguments + ;; XXX: Requires many dependencies that are not yet in Guix. + `(#:tests? #f)) + (synopsis "Pythonic task execution") + (description + "Invoke is a Python task execution tool and library, drawing inspiration +from various sources to arrive at a powerful and clean feature set. It is +evolved from the Fabric project, but focuses on local and abstract concerns +instead of servers and network commands.") + (license license:bsd-3))) + +(define-public python2-invoke + (package-with-python2 python-invoke)) + +(define-public python-automat + (package + (name "python-automat") + (version "0.6.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "Automat" version)) + (sha256 + (base32 + "1a7nsrljysfmdqmpn2apfa1gg6rfah4y9sizvns8gb08rx7d07rw")))) + (build-system python-build-system) + ;; We disable the tests because they require python-twisted, while + ;; python-twisted depends on python-automat. Twisted is optional, but the + ;; tests fail if it is not available. Also see + ;; <https://github.com/glyph/automat/issues/71>. + (arguments '(#:tests? #f)) + (native-inputs + `(("python-m2r" ,python-m2r) + ("python-setuptools-scm" ,python-setuptools-scm) + ("python-graphviz" ,python-graphviz))) + (propagated-inputs + `(("python-six" ,python-six) + ("python-attrs" ,python-attrs))) + (home-page "https://github.com/glyph/Automat") + (synopsis "Self-service finite-state machines") + (description "Automat is a library for concise, idiomatic Python +expression of finite-state automata (particularly deterministic finite-state +transducers).") + (license license:expat))) + +(define-public python2-automat + (package-with-python2 python-automat)) + +(define-public python-m2r + (package + (name "python-m2r") + (version "0.1.12") + (source (origin + (method url-fetch) + (uri (pypi-uri "m2r" version)) + (sha256 + (base32 + "1axrwnf425sz4qz3c0qc7yhhki4myzb8rki7pczcsgzznzmqdyxd")))) + (build-system python-build-system) + (propagated-inputs + `(("python-docutils" ,python-docutils) + ("python-mistune" ,python-mistune))) + (native-inputs + `(("python-pygments" ,python-pygments) + ("python-mock" ,python-mock))) + (home-page "https://github.com/miyakogi/m2r") + (synopsis "Markdown to reStructuredText converter") + (description "M2R converts a markdown file including reST markups to valid +reST format.") + (license license:expat))) + +(define-public python2-m2r + (package-with-python2 python-m2r)) + +(define-public python-constantly + (package + (name "python-constantly") + (version "15.1.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "constantly" version)) + (sha256 + (base32 + "0dgwdla5kfpqz83hfril716inm41hgn9skxskvi77605jbmp4qsq")))) + (build-system python-build-system) + (home-page "https://github.com/twisted/constantly") + (synopsis "Symbolic constants in Python") + (description "Constantly is a Python library that provides symbolic +constant support. It includes collections and constants with text, numeric, +and bit flag values.") + (license license:expat))) + +(define-public python2-constantly + (package-with-python2 python-constantly)) + +(define-public python-attrs + (package + (name "python-attrs") + (version "18.2.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "attrs" version)) + (sha256 + (base32 + "0s9ydh058wmmf5v391pym877x4ahxg45dw6a0w4c7s5wgpigdjqh")))) + (build-system python-build-system) + (arguments + `(#:modules ((guix build utils) + (guix build python-build-system) + (ice-9 ftw) + (srfi srfi-1) + (srfi srfi-26)) + #:phases (modify-phases %standard-phases + (replace 'check + (lambda _ + (let ((cwd (getcwd))) + (setenv "PYTHONPATH" + (string-append + cwd "/build/" + (find (cut string-prefix? "lib" <>) + (scandir (string-append cwd "/build"))) + ":" + (getenv "PYTHONPATH"))) + (invoke "python" "-m" "pytest"))))))) + (native-inputs + `(("python-coverage" ,python-coverage) + ("python-hypothesis" ,python-hypothesis) + ("python-pympler" ,python-pympler) + ("python-pytest" ,python-pytest) + ("python-six" ,python-six) + ("python-sphinx" ,python-sphinx) + ("python-zope-interface" ,python-zope-interface))) + (home-page "https://github.com/python-attrs/attrs/") + (synopsis "Attributes without boilerplate") + (description "@code{attrs} is a Python package with class decorators that +ease the chores of implementing the most common attribute-related object +protocols.") + (license license:expat))) + +(define-public python2-attrs + (package-with-python2 python-attrs)) + +(define-public python-attrs-bootstrap + (package + (inherit python-attrs) + (name "python-attrs-bootstrap") + ;; Keep this on a fixed version so python-attrs can be updated without + ;; triggering a mass-rebuild. FIXME: Update this in the next rebuild cycle. + (version "17.4.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "attrs" version)) + (sha256 + (base32 + "1jafnn1kzd6qhxgprhx6y6ik1r5m2rilx25syzcmq03azp660y8w")))) + (native-inputs `()) + (arguments `(#:tests? #f)))) + +(define-public python2-attrs-bootstrap + (package-with-python2 python-attrs-bootstrap)) + +(define-public python2-cliapp + (package + (name "python2-cliapp") + (version "1.20170823") + (source + (origin + (method url-fetch) + (uri (string-append + "http://git.liw.fi/cgi-bin/cgit/cgit.cgi/cliapp/snapshot/cliapp-" + version ".tar.gz")) + (sha256 + (base32 + "1i9gik0xrj6jmi95s5w988jl1y265baz5xm5pbqdyvsh8h9ln6yq")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + ;; check phase needs to be run before the build phase. If not, + ;; coverage-test-runner looks for tests for the built source files, + ;; and fails. + (delete 'check) + (add-before 'build 'check + (lambda _ + ;; Disable python3 tests + (substitute* "check" + (("python3") "# python3")) + (zero? (system* "./check"))))))) + (native-inputs + `(("python2-coverage-test-runner" ,python2-coverage-test-runner) + ("python2-pep8" ,python2-pep8))) + (propagated-inputs + `(("python2-pyaml" ,python2-pyaml))) + (home-page "https://liw.fi/cliapp/") + (synopsis "Python framework for command line programs") + (description "@code{python2-cliapp} is a python framework for +command line programs. It contains the typical stuff such programs +need to do, such as parsing the command line for options, and +iterating over input files.") + (license license:gpl2+))) + +(define-public python2-ttystatus + (package + (name "python2-ttystatus") + (version "0.35") + (source + (origin + (method url-fetch) + (uri (string-append + "http://git.liw.fi/cgi-bin/cgit/cgit.cgi/ttystatus/snapshot/ttystatus-" + version ".tar.gz")) + (sha256 + (base32 + "0vivqbw7ddhsq1zj3g9cvvv4f0phl0pis2smsnwcr2szz2fk3hl6")))) + (build-system python-build-system) + (native-inputs + `(("python2-coverage-test-runner" ,python2-coverage-test-runner) + ("python2-pep8" ,python2-pep8))) + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + ;; check phase needs to be run before the build phase. If not, + ;; coverage-test-runner looks for tests for the built source files, + ;; and fails. + (delete 'check) + (add-before 'build 'check + (lambda _ + (zero? (system* "make" "check"))))))) + (home-page "https://liw.fi/ttystatus/") + (synopsis "Python library for showing progress reporting and +status updates on terminals") + (description "@code{python2-ttystatus} is a python library for +showing progress reporting and status updates on terminals, for +command line programs. Output is automatically adapted to the width +of the terminal: truncated if it does not fit, and resized if the +terminal size changes.") + (license license:gpl3+))) + +(define-public python2-tracing + (package + (name "python2-tracing") + (version "0.10") + (source + (origin + (method url-fetch) + (uri (string-append + "http://git.liw.fi/cgi-bin/cgit/cgit.cgi/python-tracing/snapshot/tracing-" + version ".tar.gz")) + (sha256 + (base32 + "06cw4zg42fsvqy372vi2whj26w56vzg5axhzwdjc2bgwf03garbw")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2)) + (home-page "https://liw.fi/tracing/") + (synopsis "Python debug logging helper") + (description "@code{python2-tracing} is a python library for +logging debug messages. It provides a way to turn debugging messages +on and off, based on the filename they occur in. It is much faster +than using @code{logging.Filter} to accomplish the same thing, which +matters when code is run in production mode. The actual logging still +happens using the @code{logging} library.") + (license license:gpl3+))) + +(define-public python2-larch + (package + (name "python2-larch") + (version "1.20151025") + (source + (origin + (method url-fetch) + (uri (string-append + "http://git.liw.fi/cgi-bin/cgit/cgit.cgi/larch/snapshot/larch-" + version ".tar.gz")) + (patches (search-patches + "python2-larch-coverage-4.0a6-compatibility.patch")) + (sha256 + (base32 + "1p4knkkavlqymgciz2wbcnfrdgdbafhg14maplnk4vbw0q8xs663")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + ;; check phase needs to be run before the build phase. If not, + ;; coverage-test-runner looks for tests for the built source files, + ;; and fails. + (delete 'check) + (add-before 'build 'check + (lambda _ + (zero? (system* "make" "check"))))))) + (native-inputs + `(("cmdtest" ,cmdtest) + ("python2-coverage-test-runner" ,python2-coverage-test-runner))) + (propagated-inputs + `(("python2-tracing" ,python2-tracing))) + (home-page "https://liw.fi/larch/") + (synopsis "Python copy-on-write B-tree library") + (description "@code{python2-larch} is an implementation of +particular kind of B-tree, based on research by Ohad Rodeh. See +@url{http://liw.fi/larch/ohad-btrees-shadowing-clones.pdf} for details +on the data structure. + +The distinctive feature of this B-tree is that a node is never +(conceptually) modified. Instead, all updates are done by +copy-on-write. This makes it easy to clone a tree, and modify only the +clone, while other processes access the original tree.") + (license license:gpl3+))) + +(define-public python-astroid + (package + (name "python-astroid") + (version "2.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "astroid" version)) + (sha256 + (base32 + "08hz675knh4294bancdapql392fmbjyimhbyrmfkz1ka7l035c1m")))) + (build-system python-build-system) + (propagated-inputs + `(("python-lazy-object-proxy" ,python-lazy-object-proxy) + ("python-six" ,python-six) + ("python-wrapt" ,python-wrapt))) + (native-inputs + `(("python-dateutil" ,python-dateutil) + ("python-nose" ,python-nose) + ("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'remove-spurious-test + (lambda _ + ;; This can be removed after upgrading from python-3.7 + ;; https://github.com/PyCQA/astroid/issues/593 + ;; https://bugs.python.org/issue34056 + (delete-file "astroid/tests/unittest_modutils.py") + #t)) + (replace 'check + (lambda _ + (invoke "pytest" "astroid")))))) + (home-page "https://github.com/PyCQA/astroid") + (synopsis "Common base representation of python source code for pylint and +other projects") + (description "@code{python-astroid} provides a common base representation +of python source code for projects such as pychecker, pyreverse, pylint, etc. + +It provides a compatible representation which comes from the _ast module. It +rebuilds the tree generated by the builtin _ast module by recursively walking +down the AST and building an extended ast. The new node classes have +additional methods and attributes for different usages. They include some +support for static inference and local name scopes. Furthermore, astroid +builds partial trees by inspecting living objects.") + (license license:lgpl2.1+) + (properties `((python2-variant . ,(delay python2-astroid)))))) + +(define-public python2-astroid + (let ((base (package-with-python2 + (strip-python2-variant python-astroid)))) + (package (inherit base) + ;; Version 2.x removes python2 support. + (version "1.6.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "astroid" version)) + (sha256 + (base32 + "0fir4b67sm7shcacah9n61pvq313m523jb4q80sycrh3p8nmi6zw")))) + (arguments + (substitute-keyword-arguments (package-arguments base) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'unpack 'remove-spurious-test + (lambda _ + ;; https://github.com/PyCQA/astroid/issues/276 + (delete-file "astroid/tests/unittest_brain.py") + #t)) + (replace 'check + (lambda _ + (invoke"python" "-m" "unittest" "discover" + "-p" "unittest*.py"))))))) + (native-inputs `()) + (propagated-inputs + `(("python2-backports-functools-lru-cache" + ,python2-backports-functools-lru-cache) + ("python2-enum34" ,python2-enum34) + ("python2-singledispatch" ,python2-singledispatch) + ,@(package-propagated-inputs base)))))) + +(define-public python-isort + (package + (name "python-isort") + (version "4.2.5") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/timothycrosley/isort/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0zsrgkb0krn5476yncy5dd56k7dk34zqb4bnlvwy44ixgilyjmfh")))) + (build-system python-build-system) + (native-inputs + `(("python-mock" ,python-mock) + ("python-pytest" ,python-pytest))) + (home-page "https://github.com/timothycrosley/isort") + (synopsis "Python utility/library to sort python imports") + (description "@code{python-isort} is a python utility/library to sort +imports alphabetically, and automatically separated into sections. It +provides a command line utility, a python library and plugins for various +editors.") + (license license:expat))) + +(define-public python2-isort + (package-with-python2 python-isort)) + +(define-public python2-backports-functools-lru-cache + (package + (name "python2-backports-functools-lru-cache") + (version "1.5") + (source + (origin + (method url-fetch) + ;; only the pypi tarballs contain the necessary metadata + (uri (pypi-uri "backports.functools_lru_cache" version)) + (sha256 + (base32 + "06jgv8gib4fhky0p5cmxdghvsgjyzcdgk48k8pxb1ccf11znk64x")))) + (build-system python-build-system) + (native-inputs + `(("python2-setuptools-scm" ,python2-setuptools-scm))) + (arguments + `(#:python ,python-2)) + (home-page "https://github.com/jaraco/backports.functools_lru_cache") + (synopsis "Backport of functools.lru_cache from Python 3.3") + (description "@code{python2-backports-functools-lru-cache} is a backport +of @code{functools.lru_cache} from python 3.3.") + (license license:expat))) + +(define-public python-configparser + (package + (name "python-configparser") + (version "3.5.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://bitbucket.org/ambv/configparser/get/" + version ".tar.bz2")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0waq40as14abwzbb321hfz4vr1fi363nscy32ga14qvfygrg96wa")))) + (build-system python-build-system) + (home-page "http://docs.python.org/py3k/library/configparser.html") + (synopsis "Backport of configparser from python 3.5") + (description "@code{python-configparser} is a backport of +@code{configparser} from Python 3.5 so that it can be used directly +in other versions.") + (license license:expat))) + +(define-public python2-configparser + (package-with-python2 python-configparser)) + +(define-public python-mando + (package + (name "python-mando") + (version "0.6.4") + (source (origin + (method url-fetch) + (uri (pypi-uri "mando" version)) + (sha256 + (base32 + "0q6rl085q1hw1wic52pqfndr0x3nirbxnhqj9akdm5zhq2fv3zkr")))) + (build-system python-build-system) + (propagated-inputs + `(("python-rst2ansi" ,python-rst2ansi) + ("python-six" ,python-six))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://mando.readthedocs.org/") + (synopsis + "Wrapper around argparse, allowing creation of complete CLI applications") + (description + "This package is a wrapper around argparse, allowing you to write complete CLI +applications in seconds while maintaining all the flexibility.") + (license license:expat))) + +(define-public python2-mando + (package-with-python2 python-mando)) + +(define-public python-fudge + (package + (name "python-fudge") + ;; 0.9.6 is the latest version suitable for testing the "fabric" Python 2 + ;; package, which is currently the only use of this package. + (version "0.9.6") + (source + (origin + (method url-fetch) + (uri (pypi-uri "fudge" version)) + (sha256 + (base32 + "185ia3vr3qk4f2s1a9hdxb8ci4qc0x0xidrad96pywg8j930qs9l")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ;XXX: Tests require the NoseJS Python package. + (home-page "https://github.com/fudge-py/fudge") + (synopsis "Replace real objects with fakes/mocks/stubs while testing") + (description + "Fudge is a Python module for using fake objects (mocks and stubs) to +test real ones. + +In readable Python code, you declare the methods available on your fake object +and how they should be called. Then you inject that into your application and +start testing. This declarative approach means you don’t have to record and +playback actions and you don’t have to inspect your fakes after running code. +If the fake object was used incorrectly then you’ll see an informative +exception message with a traceback that points to the culprit.") + (license license:expat))) + +(define-public python2-fudge + (package-with-python2 python-fudge)) + +(define-public python-mwclient + (package + (name "python-mwclient") + (version "0.8.4") + (source + (origin + (method url-fetch) + ;; The PyPI version wouldn't contain tests. + (uri (string-append "https://github.com/mwclient/mwclient/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1jj0yhilkjir00719fc7w133x7hdyhkxhk6xblla4asig45klsfv")))) + (build-system python-build-system) + (propagated-inputs + `(("python-requests" ,python-requests) + ("python-requests-oauthlib" + ,python-requests-oauthlib) + ("python-six" ,python-six))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-pytest" ,python-pytest) + ("python-pytest-pep8" ,python-pytest-pep8) + ("python-pytest-cache" ,python-pytest-cache) + ("python-pytest-cov" ,python-pytest-cov) + ("python-responses" ,python-responses))) + (home-page "https://github.com/btongminh/mwclient") + (synopsis "MediaWiki API client") + (description "This package provides a MediaWiki API client.") + (license license:expat))) + +(define-public python2-mwclient + (package-with-python2 python-mwclient)) + +(define-public python-utils + (package + (name "python-utils") + (version "2.1.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "python-utils" version)) + (sha256 + (base32 + "1mcsy6q5am4ya72rgkpb6kax6vv7c93cfkkas89xnpa4sj9zf28p")))) + (build-system python-build-system) + (native-inputs + `(("pytest-runner" ,python-pytest-runner) + ("pytest" ,python-pytest) + ("six" ,python-six))) + (home-page "https://github.com/WoLpH/python-utils") + (synopsis "Convenient utilities not included with the standard Python install") + (description + "Python Utils is a collection of small Python functions and classes which +make common patterns shorter and easier.") + (license license:bsd-2))) + +(define-public python2-utils + (package-with-python2 python-utils)) + +(define-public python-sphinx-me + (package + (name "python-sphinx-me") + (version "0.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "sphinx-me" version)) + (sha256 + (base32 + "06jzgp213zihnvpcy2y5jy3ykid3apc2ncp2pg6a2g05lhiziglq")))) + (build-system python-build-system) + (home-page "https://github.com/stephenmcd/sphinx-me") + (synopsis "Create a Sphinx documentation shell") + (description + "Create a Sphinx documentation shell for your project and include the +README file as the documentation index. It handles extracting the required +meta data such as the project name, author and version from your project for +use in your Sphinx docs.") + (license license:bsd-2))) + +(define-public python2-sphinx-me + (package-with-python2 python-sphinx-me)) + +(define-public python-diff-match-patch + (package + (name "python-diff-match-patch") + (version "20121119") + (source + (origin + (method url-fetch) + (uri (pypi-uri "diff-match-patch" version)) + (sha256 + (base32 + "0k1f3v8nbidcmmrk65m7h8v41jqi37653za9fcs96y7jzc8mdflx")))) + (build-system python-build-system) + (home-page "https://code.google.com/p/google-diff-match-patch") + (synopsis "Synchronize plain text") + (description "Diff Match and Patch libraries offer robust algorithms to +perform the operations required for synchronizing plain text.") + (license license:asl2.0))) + +(define-public python2-diff-match-patch + (package-with-python2 python-diff-match-patch)) + +(define-public python-dirsync + (package + (name "python-dirsync") + (version "2.2.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "dirsync" version)) + (sha256 + (base32 + "1r40fkanksagcszf1ag85mdr8w7rgc7196n6s1qlsk2abw6i7v0z")))) + (build-system python-build-system) + (propagated-inputs + `(("six" ,python-six))) + (home-page "https://bitbucket.org/tkhyn/dirsync") + (synopsis "Advanced directory tree synchronisation tool") + (description "Advanced directory tree synchronisation tool.") + (license license:expat))) + +(define-public python2-dirsync + (package-with-python2 python-dirsync)) + +(define-public python-levenshtein + (package + (name "python-levenshtein") + (version "0.12.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "python-Levenshtein" version)) + (sha256 + (base32 + "1c9ybqcja31nghfcc8xxbbz9h60s9qi12b9hr4jyl69xbvg12fh3")))) + (build-system python-build-system) + (home-page "https://github.com/ztane/python-Levenshtein") + (synopsis "Fast computation of Levenshtein distance and string similarity") + (description + "The Levenshtein Python C extension module contains functions for fast computation of +@enumerate +@item Levenshtein (edit) distance, and edit operations +@item string similarity +@item approximate median strings, and generally string averaging +@item string sequence and set similarity +@end enumerate +It supports both normal and Unicode strings.") + (license license:gpl2+))) + +(define-public python2-levenshtein + (package-with-python2 python-levenshtein)) + +(define-public python-scandir + (package + (name "python-scandir") + (version "1.9.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "scandir" version)) + (sha256 + (base32 "0r3hvf1a9jm1rkqgx40gxkmccknkaiqjavs8lccgq9s8khh5x5s4")))) + (build-system python-build-system) + (arguments + `(#:phases (modify-phases %standard-phases + (replace 'check + (lambda _ + (invoke "python" "test/run_tests.py")))))) + (home-page "https://github.com/benhoyt/scandir") + (synopsis "Directory iteration function") + (description + "Directory iteration function like os.listdir(), except that instead of +returning a list of bare filenames, it yields DirEntry objects that include +file type and stat information along with the name. Using scandir() increases +the speed of os.walk() by 2-20 times (depending on the platform and file +system) by avoiding unnecessary calls to os.stat() in most cases. + +This package is part of the Python standard library since version 3.5.") + (license license:bsd-3))) + +(define-public python2-scandir + (package-with-python2 python-scandir)) + +(define-public python2-stemming + (package + (name "python2-stemming") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "stemming" version)) + (sha256 + (base32 "0ldwa24gnnxhniv0fhygkpc2mwgd93q10ag8rvzayv6hw418frsr")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2)) + (home-page "https://bitbucket.org/mchaput/stemming/overview") + (synopsis "Python implementations of various stemming algorithms") + (description + "Python implementations of the Porter, Porter2, Paice-Husk, and Lovins +stemming algorithms for English. These implementations are straightforward and +efficient, unlike some Python versions of the same algorithms available on the +Web. This package is an extraction of the stemming code included in the Whoosh +search engine.") + (license license:public-domain))) + +(define-public python-factory-boy + (package + (name "python-factory-boy") + (version "2.8.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "factory_boy" version)) + (sha256 + (base32 "1fvin6san5xsjh2c4y18caj2lnmwxlylyqm8mh1yc6rp38wlwr56")))) + (build-system python-build-system) + (arguments + ;; Tests are not included in the tarball. + `(#:tests? #f)) + (propagated-inputs + `(("faker" ,python-faker))) + (home-page "https://github.com/benhoyt/scandir") + (synopsis "Versatile test fixtures replacement") + (description + "Factory_boy is a fixtures replacement based on thoughtbot’s factory_girl. + +As a fixtures replacement tool, it aims to replace static, hard to maintain +fixtures with easy-to-use factories for complex object. + +Instead of building an exhaustive test setup with every possible combination +of corner cases, factory_boy allows you to use objects customized for the +current test, while only declaring the test-specific fields") + (license license:expat))) + +(define-public python2-factory-boy + (package-with-python2 python-factory-boy)) + +(define-public python-translate-toolkit + (package + (name "python-translate-toolkit") + (version "2.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "translate-toolkit" version ".tar.bz2")) + (sha256 + (base32 "1vlkwrg83vb17jc36pmwh2b7jphwf390lz0jw8hakcg16qhwypvq")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-sphinx" ,python-sphinx))) + (propagated-inputs + `(("python-babel" ,python-babel) + ("python-beautifulsoup4" ,python-beautifulsoup4) + ("python-chardet" ,python-chardet) + ("python-diff-match-patch" ,python-diff-match-patch) + ("python-levenshtein" ,python-levenshtein) + ("python-lxml" ,python-lxml) + ("python-six" ,python-six) + ("python-vobject" ,python-vobject) + ("python-pyyaml" ,python-pyyaml))) + (arguments + ;; TODO: tests are not run, because they end with + ;; TypeError: parse() missing 2 required positional arguments: 'tree' and + ;; 'parse_funcs' + ;; during test setup. + `(#:tests? #f)) + (home-page "http://toolkit.translatehouse.org") + (synopsis "Tools and API for translation and localization engineering") + (description + "Tools and API for translation and localization engineering. It contains +several utilities, as well as an API for building localization tools.") + (license license:gpl2+))) + +(define-public python2-translate-toolkit + (package-with-python2 python-translate-toolkit)) + +(define-public python-packaging + (package + (name "python-packaging") + (version "18.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "packaging" version)) + (sha256 + (base32 + "01wq9c53ix5rz6qg2c98gy8n4ff768rmanifm8m5jpjiaizj51h8")))) + (build-system python-build-system) + (arguments + `(#:phases (modify-phases %standard-phases + (replace 'check + (lambda _ (invoke "py.test" "-vv")))))) + (native-inputs + `(("python-pretend" ,python-pretend) + ("python-pytest" ,python-pytest))) + (propagated-inputs + `(("python-pyparsing" ,python-pyparsing) + ("python-six" ,python-six))) + (home-page "https://github.com/pypa/packaging") + (synopsis "Core utilities for Python packages") + (description "Packaging is a Python module for dealing with Python packages. +It offers an interface for working with package versions, names, and dependency +information.") + ;; From 'LICENSE': This software is made available under the terms of + ;; *either* of the licenses found in LICENSE.APACHE or LICENSE.BSD. + ;; Contributions to this software is made under the terms of *both* these + ;; licenses. + (license (list license:asl2.0 license:bsd-2)))) + +(define-public python2-packaging + (package-with-python2 python-packaging)) + +(define-public python-relatorio + (package + (name "python-relatorio") + (version "0.8.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "relatorio" version)) + (sha256 + (base32 + "1na6hlhz1awi1hbjg1gyclq0khz42iz90wvdjw7mmj655788bpxx")))) + (build-system python-build-system) + (propagated-inputs + `(("python-lxml" ,python-lxml) + ("python-genshi" ,python-genshi))) + (native-inputs + `(("python-magic" ,python-magic))) + (home-page "https://relatorio.tryton.org/") + (synopsis "Templating library able to output ODT and PDF files") + (description "Relatorio is a templating library which provides a way to +easily output ODT, ODS, PNG, SVG and several other kinds of files. Support +for more filetypes can be easily added by creating plugins for them.") + (license license:gpl3+))) + +(define-public python2-relatorio + (package-with-python2 python-relatorio)) + +(define-public python-radon + (package + (name "python-radon") + (version "2.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "radon" version)) + (sha256 + (base32 + "07gq5hq4nrffxnlnksws9hrx7fd001gam63j62i82gyfr23gvdym")))) + (build-system python-build-system) + (arguments + `(#:phases (modify-phases %standard-phases + (replace 'check + (lambda _ + (invoke "python" "radon/tests/run.py")))))) + (propagated-inputs + `(("python-colorama" ,python-colorama) + ("python-flake8-polyfill" ,python-flake8-polyfill) + ("python-mando" ,python-mando))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-pytest-mock" ,python-pytest-mock))) + (home-page "https://radon.readthedocs.org/") + (synopsis "Code Metrics in Python") + (description "Radon is a Python tool which computes various code metrics. +Supported metrics are: +@itemize @bullet +@item raw metrics: SLOC, comment lines, blank lines, &c. +@item Cyclomatic Complexity (i.e. McCabe’s Complexity) +@item Halstead metrics (all of them) +@item the Maintainability Index (a Visual Studio metric) +@end itemize") + (license license:expat))) + +(define-public python2-radon + (package-with-python2 python-radon)) + +(define-public python-sure + (package + (name "python-sure") + (version "1.4.11") + (source + (origin + (method url-fetch) + (uri (pypi-uri "sure" version)) + (sha256 + (base32 + "1and0drq8w9iplsic22n2h7hkpyq03a1mbqk4sgcdqhqzdqm539w")))) + (build-system python-build-system) + (propagated-inputs + `(("python-mock" ,python-mock) + ("python-six" ,python-six))) + (native-inputs + `(("python-nose" ,python-nose))) + (home-page "https://github.com/gabrielfalcao/sure") + (synopsis "Automated testing library in python for python") + (description + "Sure is a python library that leverages a DSL for writing assertions. +Sure is heavily inspired by @code{RSpec Expectations} and @code{should.js}.") + (license license:gpl3+))) + +(define-public python2-sure + (package-with-python2 python-sure)) + +(define-public python2-couleur + ;; This package does not seem to support python3 at all, hence, + ;; only the python2 variant definition is provided. + (package + (name "python2-couleur") + (version "0.6.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "couleur" version)) + (sha256 + (base32 + "1qqaxyqz74wvid0cr119dhcwz0h0if5b5by44zl49pd5z65v58k1")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2)) + (home-page "https://github.com/gabrielfalcao/couleur") + (synopsis + "ANSI terminal tool for python, colored shell and other handy fancy features") + (description + "@code{Couleur} provides python programs a way to use the ANSI features in a unix +terminal such as coloured output in the shell, overwriting output, indentation, etc.") + ;; README.md says ASL2.0, but all source code headers are LGPL3+. + ;; https://github.com/gabrielfalcao/couleur/issues/11 + (license license:lgpl3+))) + +(define-public python-misaka + (package + (name "python-misaka") + (version "2.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "misaka" version)) + (sha256 + (base32 + "1yqrq3a5rracirmvk52n28nn6ckdaz897gnigv89a9gmyn87sqw7")))) + (build-system python-build-system) + (arguments + `(;; Line 37 of setup.py calls self.run_command('develop') + ;; in the 'check' phase. This command seems to be trying + ;; to write to + ;; /gnu/store/...-python-<version>/lib/python<version>/site-packages/ + ;; for which it does not have the permission to write. + #:tests? #f)) + (propagated-inputs + `(("python-cffi" ,python-cffi))) + (home-page "https://github.com/FSX/misaka") + (synopsis "Python binding for Hoedown") + (description + "@code{Misaka} is a CFFI-based binding for @code{Hoedown}, a fast markdown processing +library written in C. It features a fast HTML renderer and functionality to make custom +renderers (e.g. man pages or LaTeX).") + (license license:expat))) + +(define-public python2-misaka + (package-with-python2 python-misaka)) + +(define-public python2-steadymark + ;; This is forced into being a python2 only variant + ;; due to its dependence on couleur that has no support + ;; for python3 + (package + (name "python2-steadymark") + (version "0.7.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "steadymark" version)) + (sha256 + (base32 + "1640i9g8dycql3cc8j0bky0jkzj0q39blfbp4lsgpkprkfgcdk8v")))) + (build-system python-build-system) + (native-inputs + `(("python-couleur" ,python2-couleur) + ("python-sure" ,python2-sure) + ("python-misaka" ,python2-misaka))) + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + (add-before 'build 'patch-setup-py + (lambda _ + ;; Update requirements from dependency==version + ;; to dependency>=version + (substitute* "setup.py" + (("==") ">=")) + #t))))) + (home-page "https://github.com/gabrielfalcao/steadymark") + (synopsis "Markdown-based test runner for python") + (description + "@code{Steadymark} allows documentation to be written in github-flavoured +markdown. The documentation may contain snippets of code surrounded by python +code blocks and @code{Steadymark} will find these snippets and run them, making +sure that there are no old malfunctional examples in the documentation examples.") + (license license:expat))) + +(define-public python-jsonpointer + (package + (name "python-jsonpointer") + (version "1.10") + (source + (origin + (method url-fetch) + (uri (pypi-uri "jsonpointer" version)) + (sha256 + (base32 + "1cg0gvgqjysydv6p45v4jywg1jb3v48c7m3cbpi57zgf6nndr9cz")))) + (build-system python-build-system) + (home-page "https://github.com/stefankoegl/python-json-pointer") + (synopsis "Identify specific nodes in a JSON document") + (description "@code{jsonpointer} allows you to access specific nodes +by path in a JSON document (see RFC 6901).") + (license license:bsd-3))) + +(define-public python2-jsonpointer + (package-with-python2 python-jsonpointer)) + +(define-public python-jsonpatch + (package + (name "python-jsonpatch") + (version "1.16") + (source + (origin + (method url-fetch) + ;; pypi version lacks tests.js + (uri (string-append "https://github.com/stefankoegl/python-json-patch/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "085ykisl8v7mv9h7hvhdy3l2fjzs4214gx32r5k6nx4f76hbv6y5")))) + (build-system python-build-system) + (native-inputs + `(("python-jsonpointer" ,python-jsonpointer))) + (home-page "https://github.com/stefankoegl/python-json-patch") + (synopsis "Applying JSON Patches in Python 2.6+ and 3.x") + (description "@code{jsonpatch} is a library and program that allows +applying JSON Patches according to RFC 6902.") + (license license:bsd-3))) + +(define-public python2-jsonpatch + (package-with-python2 python-jsonpatch)) + +(define-public python-jsonpatch-0.4 + (package (inherit python-jsonpatch) + (name "python-jsonpatch") + (version "0.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/stefankoegl/python-json-patch/" + "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0j0cd9z9zyp8kppp464jxrfgrnbgkzl1yi10i5gsv8yz6d95929d")))))) + +(define-public python2-jsonpatch-0.4 + (package-with-python2 python-jsonpatch-0.4)) + +(define-public python-rfc3986 + (package + (name "python-rfc3986") + (version "1.1.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "rfc3986" version)) + (sha256 + (base32 + "06wlmysw83f75ff84zr1yr6n0shvc2xn1n1sb4iwzqap9hf5fn44")))) + (build-system python-build-system) + (arguments + `(#:modules ((guix build utils) + (guix build python-build-system) + (ice-9 ftw) + (srfi srfi-1) + (srfi srfi-26)) + #:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (let ((cwd (getcwd))) + (setenv "PYTHONPATH" + (string-append cwd "/build/" + (find (cut string-prefix? "lib" <>) + (scandir (string-append cwd "/build"))) + ":" + (getenv "PYTHONPATH"))) + (invoke "pytest" "-v"))))))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://rfc3986.readthedocs.io/") + (synopsis "Parse and validate URI references") + (description + "@code{rfc3986} is a Python implementation of RFC@tie{}3986 including +validation and authority parsing. This module also supports RFC@tie{}6874 +which adds support for zone identifiers to IPv6 addresses.") + (license license:asl2.0))) + +(define-public python2-rfc3986 + (package-with-python2 python-rfc3986)) + +(define-public python-rfc3987 + (package + (name "python-rfc3987") + (version "1.3.7") + (source + (origin + (method url-fetch) + (uri (pypi-uri "rfc3987" version)) + (sha256 + (base32 + "192pclzs2y0yaywqkrlvd0x73740q310kvqvm6jldhi619mq59wi")))) + (build-system python-build-system) + (home-page "https://pypi.python.org/pypi/rfc3987") + (synopsis "Parsing and validation of URIs (RFC 3986) and IRIs (RFC 3987)") + (description "@code{rfc3987} provides routines for parsing and +validation of URIs (see RFC 3986) and IRIs (see RFC 3987).") + (license license:gpl3+))) + +(define-public python2-rfc3987 + (package-with-python2 python-rfc3987)) + +(define-public python-validate-email + (package + (name "python-validate-email") + (version "1.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "validate_email" version)) + (sha256 + (base32 + "1bxffaf5yz2cph8ki55vdvdypbwkvn2xr1firlcy62vqbzf1jivq")))) + (build-system python-build-system) + (home-page "https://github.com/syrusakbary/validate_email") + (synopsis "Verifies if an email address is valid and really exists") + (description "@code{validate_email} can be used to verify if an email +address is valid and really exists.") + (license license:lgpl3+))) + +(define-public python2-validate-email + (package-with-python2 python-validate-email)) + +(define-public python-flex + (package + (name "python-flex") + (version "6.10.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "flex" version)) + (sha256 + (base32 + "00pamnwla3khk8nyla7y28dq9jnh69swd7f4jfsl7sn1izs8n8zk")))) + (build-system python-build-system) + (propagated-inputs + `(("python-click" ,python-click) + ("python-iso8601" ,python-iso8601) + ("python-jsonpointer" ,python-jsonpointer) + ("python-pyyaml" ,python-pyyaml) + ("python-requests" ,python-requests) + ("python-rfc3987" ,python-rfc3987) + ("python-six" ,python-six) + ("python-validate-email" ,python-validate-email))) + (home-page "https://github.com/pipermerriam/flex") + (synopsis "Validates Swagger schemata") + (description "@code{flex} can be used to validate Swagger schemata.") + (license license:bsd-3))) + +(define-public python2-flex + (package-with-python2 python-flex)) + +(define-public python-marshmallow + (package + (name "python-marshmallow") + (version "3.0.0b14") + (source + (origin + (method url-fetch) + (uri (pypi-uri "marshmallow" version)) + (sha256 + (base32 + "1digk3f5cfk7wmlka65mc7bzsd96pbsgcsvp6pimd5b4ff9zb5p3")))) + (build-system python-build-system) + (propagated-inputs + `(("python-dateutil" ,python-dateutil) + ("python-simplejson" ,python-simplejson))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-pytz" ,python-pytz))) + (home-page "https://github.com/marshmallow-code/marshmallow") + (synopsis "Convert complex datatypes to and from native +Python datatypes.") + (description "@code{marshmallow} provides a library for converting +complex datatypes to and from native Python datatypes.") + (license license:expat))) + +(define-public python2-marshmallow + (package-with-python2 python-marshmallow)) + +(define-public python-apispec + (package + (name "python-apispec") + (version "0.25.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "apispec" version)) + (sha256 + (base32 + "0kxa8723zbisx10363yh4mmmn4higxrspymbjfz5zq8f644zagm9")))) + (build-system python-build-system) + (propagated-inputs + `(("python-pyyaml" ,python-pyyaml))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-flask" ,python-flask) + ("python-marshmallow" ,python-marshmallow) + ("python-tornado" ,python-tornado) + ("python-bottle" ,python-bottle) + ("python-mock" ,python-mock))) + (home-page "https://github.com/marshmallow-code/apispec") + (synopsis "Swagger 2.0 API specification generator") + (description "@code{python-apispec} is a pluggable API specification +generator. Currently supports the OpenAPI specification (f.k.a. +Swagger 2.0).") + (license license:expat))) + +(define-public python2-apispec + (package-with-python2 python-apispec)) + +(define-public python-flasgger + (package + (name "python-flasgger") + (version "0.6.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/rochacbruno/flasgger/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1gqzlm0rb55fdpsy5ipkganlx9cnpi454fqyycr03jm22zql14ay")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda* (#:key inputs outputs #:allow-other-keys) + (substitute* "Makefile" + (("flake8 flasgger --ignore=F403") + "flake8 flasgger --ignore=E731,F403")) + (setenv "PYTHONPATH" (string-append (getcwd) + ":" + (getenv "PYTHONPATH"))) + (zero? (system* "py.test"))))))) + (propagated-inputs + `(("python-flask" ,python-flask) + ("python-pyyaml" ,python-pyyaml) + ("python-jsonschema" ,python-jsonschema) + ("python-mistune" ,python-mistune) + ("python-six" ,python-six))) + (native-inputs + `(("python-decorator" ,python-decorator) + ("python-flake8" ,python-flake8) + ("python-flask-restful" ,python-flask-restful) + ("python-flex" ,python-flex) + ("python-pytest" ,python-pytest) + ("python-pytest-cov" ,python-pytest-cov) + ("python-marshmallow" ,python-marshmallow) + ("python-apispec" ,python-apispec))) + (home-page "https://github.com/rochacbruno/flasgger/") + (synopsis "Extract Swagger specs from your Flask project") + (description "@code{python-flasgger} allows extracting Swagger specs +from your Flask project. It is a fork of Flask-Swagger.") + (license license:expat))) + +(define-public python2-flasgger + (package-with-python2 python-flasgger)) + +(define-public python-swagger-spec-validator + (package + (name "python-swagger-spec-validator") + (version "2.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "swagger-spec-validator" version)) + (sha256 + (base32 + "13hkpn2lycwr0468yqhjb3kwszqf7hjwlq61w7vdxq1caz31k4nw")))) + (build-system python-build-system) + (propagated-inputs + `(("python-jsonschema" ,python-jsonschema) + ("python-six" ,python-six))) + (home-page + "https://github.com/Yelp/swagger_spec_validator") + (synopsis "Validation of Swagger specifications") + (description "@code{swagger_spec_validator} provides a library for +validating Swagger API specifications.") + (license license:asl2.0))) + +(define-public python2-swagger-spec-validator + (package-with-python2 python-swagger-spec-validator)) + +(define-public python-apache-libcloud + (package + (name "python-apache-libcloud") + (version "2.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "apache-libcloud" version)) + (sha256 + (base32 + "0daj3mkzw79v5zin2r1s2wkrz1hplfc16bwj4ss68i5qjq4l2p0j")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-ssh + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "libcloud/compute/ssh.py" + (("'ssh'") (string-append "'" (assoc-ref inputs "openssh") + "/bin/ssh" "'"))) + #t)) + (add-after 'unpack 'patch-tests + (lambda _ + (substitute* "./libcloud/test/test_file_fixtures.py" + ;; See <https://issues.apache.org/jira/browse/LIBCLOUD-923>. + (("def _ascii") "def _raw_data(self, method, url, body, headers): + return (httplib.OK, + \"1234abcd\", + {\"test\": \"value\"}, + httplib.responses[httplib.OK]) + def _ascii")) + (substitute* "libcloud/test/compute/test_ssh_client.py" + (("class ShellOutSSHClientTests") + "@unittest.skip(\"Guix container doesn't have ssh service\") +class ShellOutSSHClientTests") + ;; See <https://issues.apache.org/jira/browse/LIBCLOUD-924>. + (("'.xf0.x90.x8d.x88'") "b'\\xF0\\x90\\x8D\\x88'") + (("'.xF0', '.x90', '.x8D', '.x88'") + "b'\\xF0', b'\\x90', b'\\x8D', b'\\x88'")) + #t)) + (add-before 'check 'copy-secret + (lambda _ + (copy-file "libcloud/test/secrets.py-dist" + "libcloud/test/secrets.py") + #t))))) + (inputs + `(("openssh" ,openssh))) + (propagated-inputs + `(("python-paramiko" ,python-paramiko) + ("python-requests" ,python-requests))) + (native-inputs + `(("python-lockfile" ,python-lockfile) + ("python-mock" ,python-mock) + ("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner) + ("python-requests-mock" ,python-requests-mock))) + (home-page "https://libcloud.apache.org/") + (synopsis "Unified Cloud API") + (description "@code{libcloud} is a Python library for interacting with +many of the popular cloud service providers using a unified API.") + (license license:asl2.0))) + +(define-public python2-apache-libcloud + (package-with-python2 python-apache-libcloud)) + +(define-public python-smmap2 + (package + (name "python-smmap2") + (version "2.0.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "smmap2" version)) + (sha256 + (base32 + "1hvn28p3zvxa98sbi9lrqvv2ps4q284j4jq9a619zw0m7yv0sly7")))) + (build-system python-build-system) + (native-inputs + `(("python-nosexcover" ,python-nosexcover))) + (home-page "https://github.com/Byron/smmap") + (synopsis "Python sliding window memory map manager") + (description "@code{smmap2} is a pure Python implementation of a sliding +window memory map manager.") + (license license:bsd-3))) + +(define-public python2-smmap2 + (package-with-python2 python-smmap2)) + +(define-public python-regex + (package + (name "python-regex") + (version "2017.06.07") + (source (origin + (method url-fetch) + (uri (pypi-uri "regex" version)) + (sha256 + (base32 + "06r6b7yigikbj3a72whl85r2b64pj1r0ypmw9yalmkm0wnxq8mz4")))) + (build-system python-build-system) + (home-page "https://bitbucket.org/mrabarnett/mrab-regex") + (synopsis "Alternative regular expression module") + (description "This regular expression implementation is backwards- +compatible with the standard @code{re} module, but offers additional +functionality like full case-folding for case-insensitive matches in Unicode.") + (license license:psfl))) + +(define-public python2-regex + (package-with-python2 python-regex)) + +(define-public python2-pyopengl + (package + (name "python2-pyopengl") + (version "3.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "PyOpenGL" version)) + (sha256 + (base32 + "1byxjj6a8rwzhxhjqlc588zdad2qwxdd7vlam2653ylll31waiwv")))) + (arguments + `(#:python ,python-2)) + (build-system python-build-system) + (home-page "http://pyopengl.sourceforge.net") + (synopsis "Standard OpenGL bindings for Python") + (description + "PyOpenGL is the most common cross platform Python binding to OpenGL and +related APIs. The binding is created using the standard @code{ctypes} +library.") + (license license:bsd-3))) + +(define-public python2-pyopengl-accelerate + (package + (inherit python2-pyopengl) + (name "python2-pyopengl-accelerate") + (version "3.1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "PyOpenGL-accelerate" version)) + (sha256 + (base32 + "0464c1ifzk0k92lyndikmvzjgnx1y25r7bkkc8pnxm4kp1q4czwj")))) + (synopsis "Acceleration code for PyOpenGL") + (description + "This is the Cython-coded accelerator module for PyOpenGL."))) + +(define-public python-rencode + (package + (name "python-rencode") + (version "1.0.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "rencode" version)) + (sha256 + (base32 + "0mzwdq1is7kyyr32i5k4iz6g5xxdvmiyc132jnc60p9m6lnwjrpv")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'delete-bogus-test + ;; This test requires /home/aresch/Downloads, which is not provided by + ;; the build environment. + (lambda _ + (delete-file "rencode/t.py") + #t))))) + (native-inputs `(("pkg-config" ,pkg-config) + ("python-cython" ,python-cython))) + (home-page "https://github.com/aresch/rencode") + (synopsis "Serialization of heterogeneous data structures") + (description + "The @code{rencode} module is a data structure serialization library, +similar to @code{bencode} from the BitTorrent project. For complex, +heterogeneous data structures with many small elements, r-encoding stake up +significantly less space than b-encodings. This version of rencode is a +complete rewrite in Cython to attempt to increase the performance over the +pure Python module.") + (license license:bsd-3))) + +(define-public python2-rencode + (package-with-python2 python-rencode)) + +(define-public python-xenon + (package + (name "python-xenon") + (version "0.5.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "xenon" version)) + (sha256 + (base32 + "029cbhysg2vr5n4jz8gpg2793f8wkwnqpr1qgv6c1dn685vy31mc")))) + (build-system python-build-system) + (native-inputs + `(("python-pyyaml" ,python-pyyaml) + ("python-radon" ,python-radon) + ("python-requests" ,python-requests) + ("python-flake8" ,python-flake8) + ("python-tox" ,python-tox))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'build 'patch-test-requirements + (lambda _ + ;; Remove httpretty dependency for tests. + (substitute* "setup.py" + (("httpretty") "")) + #t))))) + (home-page "https://xenon.readthedocs.org/") + (synopsis "Monitor code metrics for Python on your CI server") + (description + "Xenon is a monitoring tool based on Radon. It monitors code complexity. +Ideally, @code{xenon} is run every time code is committed. Through command +line options, various thresholds can be set for the complexity of code. It +will fail (i.e. it will exit with a non-zero exit code) when any of these +requirements is not met.") + (license license:expat))) + +(define-public python2-xenon + (package-with-python2 python-xenon)) + +(define-public python-pysocks + (package + (name "python-pysocks") + (version "1.6.8") + (source + (origin + (method url-fetch) + (uri (pypi-uri "PySocks" version)) + (sha256 + (base32 + "0wn6xafwy9c1gamwljw3fyvih5w19qy9xp39zmv8c90ai5ajrr9z")))) + (build-system python-build-system) + (arguments `(#:tests? #f)) + (home-page "https://github.com/Anorov/PySocks") + (synopsis "SOCKS client module") + (description "@code{pysocks} is an updated and semi-actively maintained +version of @code{SocksiPy} with bug fixes and extra features.") + (license license:bsd-3))) + +(define-public python2-pysocks + (package-with-python2 python-pysocks)) + +(define-public python-pydiff + (package + (name "python-pydiff") + (version "0.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pydiff" version)) + (sha256 + (base32 + "1als83h9w0gab24ipyna6khm390qmpnpkc5jksmdbs2xc8hp2z44")))) + (build-system python-build-system) + (home-page "https://github.com/myint/pydiff") + (synopsis "Library to diff two Python files at the bytecode level") + (description + "@code{pydiff} makes it easy to look for actual code changes while +ignoring formatting changes.") + (license license:expat))) + +(define-public python2-pydiff + (package-with-python2 python-pydiff)) + +(define-public python-tqdm + (package + (name "python-tqdm") + (version "4.19.6") + (source + (origin + (method url-fetch) + (uri (pypi-uri "tqdm" version)) + (sha256 + (base32 + "1pw0ngm0zn9papdmkwipi3yih5c3di6d0w849bdmrraq4d2d9h2y")))) + (build-system python-build-system) + (native-inputs + `(("python-flake8" ,python-flake8) + ("python-nose" ,python-nose) + ("python-coverage" ,python-coverage))) + (home-page "https://github.com/tqdm/tqdm") + (synopsis "Fast, extensible progress meter") + (description + "Make loops show a progress bar on the console by just wrapping any +iterable with @code{|tqdm(iterable)|}. Offers many options to define +design and layout.") + (license (list license:mpl2.0 license:expat)))) + +(define-public python2-tqdm + (package-with-python2 python-tqdm)) + +(define-public python-pkginfo + (package + (name "python-pkginfo") + (version "1.4.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pkginfo" version)) + (sha256 + (base32 + "0x6lm17p1ks031mj6pajyp4rkq74vpqq8qwjb7ikgwmkli1day2q")))) + (build-system python-build-system) + (arguments + ;; The tests are broken upstream. + '(#:tests? #f)) + (home-page + "https://code.launchpad.net/~tseaver/pkginfo/trunk") + (synopsis + "Query metadatdata from sdists, bdists, and installed packages") + (description + "API to query the distutils metadata written in @file{PKG-INFO} inside a +source distriubtion (an sdist) or a binary distribution (e.g., created by +running bdist_egg). It can also query the EGG-INFO directory of an installed +distribution, and the *.egg-info stored in a \"development checkout\" (e.g, +created by running @code{python setup.py develop}).") + (license license:expat))) + +(define-public python2-pkginfo + (package-with-python2 python-pkginfo)) + +(define-public python-twine + (package + (name "python-twine") + (version "1.9.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "twine" version)) + (sha256 + (base32 + "1ay1b6kdq6k4bfbjsvf6ymj41wrgpvinhxndb09355pwhxwmp96a")))) + (build-system python-build-system) + (propagated-inputs + `(("python-tqdm" ,python-tqdm) + ("python-pkginfo" ,python-pkginfo) + ("python-requests" ,python-requests) + ("python-requests-toolbelt" ,python-requests-toolbelt))) + (home-page "https://github.com/pypa/twine") + (synopsis "Collection of utilities for interacting with PyPI") + (description + "@code{twine} currently supports registering projects and uploading +distributions. It authenticates the user over HTTPS, allows them to pre-sign +their files and supports any packaging format (including wheels).") + (license license:asl2.0))) + +(define-public python2-twine + (package-with-python2 python-twine)) + +(define-public python-linecache2 + (package + (name "python-linecache2") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "linecache2" version)) + (sha256 + (base32 + "0z79g3ds5wk2lvnqw0y2jpakjf32h95bd9zmnvp7dnqhf57gy9jb")))) + (build-system python-build-system) + (arguments + `(;; The tests depend on unittest2, and our version is a bit too old. + #:tests? #f)) + (native-inputs + `(("python-pbr" ,python-pbr-minimal))) + (home-page + "https://github.com/testing-cabal/linecache2") + (synopsis "Backports of the linecache module") + (description + "The linecache module allows one to get any line from any file, while +attempting to optimize internally, using a cache, the common case where many +lines are read from a single file.") + (license license:psfl))) + +(define-public python2-linecache2 + (package-with-python2 python-linecache2)) + +(define-public python-traceback2 + (package + (name "python-traceback2") + (version "1.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "traceback2" version)) + (sha256 + (base32 + "0c1h3jas1jp1fdbn9z2mrgn3jj0hw1x3yhnkxp7jw34q15xcdb05")))) + (build-system python-build-system) + (arguments + `(;; python-traceback2 and python-unittest2 depend on one another. + #:tests? #f)) + (native-inputs + `(("python-pbr" ,python-pbr-minimal))) + (propagated-inputs + `(("python-linecache2" ,python-linecache2))) + (home-page + "https://github.com/testing-cabal/traceback2") + (synopsis "Backports of the traceback module") + (description + "This module provides a standard interface to extract, format and print +stack traces of Python programs. It exactly mimics the behavior of the Python +interpreter when it prints a stack trace.") + (license license:psfl))) + +(define-public python2-traceback2 + (package-with-python2 python-traceback2)) + +(define-public python-ratelimiter + (package + (name "python-ratelimiter") + (version "1.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ratelimiter" version)) + (sha256 + (base32 + "1dhz85mj5bqd2mij84ncs6pz32hgidr79hay4aqfmzaa4rbb497p")))) + (build-system python-build-system) + (arguments + '(#:tests? #f)) ; There are no tests in the pypi archive. + (home-page "https://github.com/RazerM/ratelimiter") + (synopsis "Simple rate limiting object") + (description + "The @code{ratelimiter} module ensures that an operation will not be +executed more than a given number of times during a given period.") + (license license:asl2.0))) + +(define-public python2-ratelimiter + (package-with-python2 python-ratelimiter)) + +(define-public python-dukpy + (package + (name "python-dukpy") + (version "0.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/kovidgoyal/dukpy/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0pj39rfwlzivqm5hkrsza7gssg6ggpxlq5ivc8f3h7x5pfgc6y6c")))) + (build-system python-build-system) + (home-page "https://github.com/kovidgoyal/dukpy") + (synopsis "Run JavaScript in python") + (description + "dukpy is a JavaScript runtime environment for Python using the duktape +embeddable JavaScript engine.") + ;; Dukpy is licensed under MIT like the embedded duktape library, + ;; with 'errors.c' as GPL3. + (license (list license:expat license:gpl3)))) + +(define-public python2-dukpy + (package-with-python2 python-dukpy)) + +(define-public python-jsonrpclib-pelix + (package + (name "python-jsonrpclib-pelix") + (version "0.3.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "jsonrpclib-pelix" version)) + (sha256 + (base32 + "0f83z5zi7w32vprhk1dyc94ir1bh4hdd57bjdbwkq9ykng8qilhl")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ; no tests in PyPI tarball + (home-page "https://github.com/tcalmant/jsonrpclib/") + (synopsis "JSON-RPC 2.0 client library for Python") + (description + "This library implements the JSON-RPC v2.0 +specification (backwards-compatible) as a client library for Python. This +version is a fork of jsonrpclib by Josh Marshall, usable with Pelix remote +services.") + (license license:asl2.0))) + +(define-public python2-jsonrpclib-pelix + (package-with-python2 python-jsonrpclib-pelix)) + +(define-public python-setuptools-scm-git-archive + (package + (name "python-setuptools-scm-git-archive") + (version "1.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "setuptools_scm_git_archive" version)) + (sha256 + (base32 + "1nii1sz5jq75ilf18bjnr11l9rz1lvdmyk66bxl7q90qan85yhjj")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest))) + (propagated-inputs + `(("python-setuptools-scm" ,python-setuptools-scm))) + (home-page "https://github.com/Changaco/setuptools_scm_git_archive/") + (synopsis "Setuptools_scm plugin for git archives") + (description + "The setuptools_scm_git_archive package is a plugin to +setuptools_scm, which supports obtaining versions from git archives that +belong to tagged versions.") + (license license:expat))) + +(define-public python2-setuptools-scm-git-archive + (package-with-python2 python-setuptools-scm-git-archive)) + +(define-public python-pyclipper + (package + (name "python-pyclipper") + (version "1.1.0.post1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pyclipper" version ".zip")) + (sha256 + (base32 + "0ldbkbnx94an4zzrwb1sxmg6k0jgk4cwmvcdyy8y5k1zslc612wa")) + (modules '((guix build utils))) + (snippet + '(begin + ;; This file is generated by Cython. + (delete-file "pyclipper/pyclipper.cpp") #t)))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'build 'cythonize-sources + (lambda _ + (with-directory-excursion "pyclipper" + (invoke "cython" "--cplus" "pyclipper.pyx"))))))) + (propagated-inputs + `(("python-setuptools-scm-git-archive" ,python-setuptools-scm-git-archive))) + (native-inputs + `(("python-cython" ,python-cython) + ("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner) + ("python-unittest2" ,python-unittest2) + ("unzip" ,unzip))) + (home-page "https://github.com/greginvm/pyclipper") + (synopsis "Wrapper for Angus Johnson's Clipper library") + (description + "Pyclipper is a Cython wrapper for the C++ translation of the +Angus Johnson's polygon clipping Clipper library (ver. 6.4.2).") + (license license:expat))) + +(define-public python2-pyclipper + (package-with-python2 python-pyclipper)) + +(define-public python2-booleanoperations + (package + (name "python2-booleanoperations") + (version "0.7.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "booleanOperations" version ".zip")) + (sha256 + (base32 + "1hw42fazdpvsn77glx96hwsj9l17mvx37sc5707s08y5w6fx16mn")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2)) + (native-inputs + `(("unzip" ,unzip) + ("python2-pytest" ,python2-pytest) + ("python2-pytest-runner" ,python2-pytest-runner))) + (propagated-inputs + `(("python-fonttools" ,python2-fonttools) + ("python-pyclipper" ,python2-pyclipper) + ("python-ufolib" ,python2-ufolib))) + (home-page "https://github.com/typemytype/booleanOperations") + (synopsis "Boolean operations on paths") + (description + "BooleanOperations provides a Python library that enables +boolean operations on paths.") + (license license:expat))) + +(define-public python-tempdir + (package + (name "python-tempdir") + (version "0.7.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "tempdir" version)) + (sha256 + (base32 + "13msyyxqbicr111a294x7fsqbkl6a31fyrqflx3q7k547gnq15k8")))) + (build-system python-build-system) + (home-page "https://pypi.org/project/tempdir/") + (arguments + ;; the package has no tests + '(#:tests? #f)) + (synopsis "Python library for managing temporary directories") + (description + "This library manages temporary directories that are automatically +deleted with all their contents when they are no longer needed. It is +particularly convenient for use in tests.") + (license license:expat))) + +(define-public python2-tempdir + (package-with-python2 python-tempdir)) + +(define-public python-activepapers + (package + (name "python-activepapers") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ActivePapers.Py" version)) + (sha256 + (base32 + "12wkhjh90ffipjzv10swndp2xv9hd7xrxvg6v0n4n3i411pj4xb8")))) + (build-system python-build-system) + (arguments + `(#:modules ((ice-9 ftw) + (srfi srfi-1) + (guix build utils) + (guix build python-build-system)) + + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'delete-python2-code + (lambda _ + (for-each delete-file + '("lib/activepapers/builtins2.py" + "lib/activepapers/standardlib2.py" + "lib/activepapers/utility2.py")))) + (replace 'check + (lambda _ + ;; Deactivate the test cases that download files + (setenv "NO_NETWORK_ACCESS" "1") + ;; For some strange reason, some tests fail if nosetests runs all + ;; test modules in a single execution. They pass if each test + ;; module is run individually. + (for-each (lambda (filename) + (invoke "nosetests" + (string-append "tests/" filename))) + (scandir "tests" + (lambda (filename) + (string-suffix? ".py" filename))))))))) + (native-inputs + `(("python-tempdir" ,python-tempdir) + ("python-nose" ,python-nose))) + (propagated-inputs + `(("python-h5py" ,python-h5py))) + (home-page "http://www.activepapers.org/") + (synopsis "Executable papers for scientific computing") + (description + "ActivePapers is a tool for working with executable papers, which +combine data, code, and documentation in single-file packages, +suitable for publication as supplementary material or on repositories +such as figshare or Zenodo.") + (properties `((python2-variant . ,(delay python2-activepapers)))) + (license license:bsd-3))) + +(define-public python2-activepapers + (let ((base (package-with-python2 + (strip-python2-variant python-activepapers)))) + (package + (inherit base) + (arguments + (substitute-keyword-arguments (package-arguments base) + ((#:phases phases) + `(modify-phases ,phases + (delete 'delete-python2-code) + (add-after 'unpack 'delete-python3-code + (lambda _ + (for-each delete-file + '("lib/activepapers/builtins3.py" + "lib/activepapers/standardlib3.py" + "lib/activepapers/utility3.py"))))))))))) + +(define-public python-semver + (package + (name "python-semver") + (version "2.7.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "semver" version)) + (sha256 + (base32 + "0hhgqppchv59rqj0yzi1prdg2nfsywqmjsqy2rycyxm0hvxmbyqz")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-test-requirements + (lambda _ + (substitute* "setup.py" + ;; Our Python is new enough. + (("'virtualenv<14\\.0\\.0'") "'virtualenv'")) + #t))))) + (native-inputs + `(("python-tox" ,python-tox) + ("python-virtualenv" ,python-virtualenv))) + (home-page "https://github.com/k-bx/python-semver") + (synopsis "Python helper for Semantic Versioning") + (description "This package provides a Python library for +@url{Semantic Versioning, http://semver.org/}.") + (license license:bsd-3))) + +(define-public python2-semver + (package-with-python2 python-semver)) + +(define-public python-pyro4 + (package + (name "python-pyro4") + (version "4.74") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Pyro4" version)) + (sha256 + (base32 + "0pzp7c6q3vvkxq0wy9lr6wd5wky40sajz69g697i5rb2q497pvc9")))) + (build-system python-build-system) + (propagated-inputs + `(("python-serpent" ,python-serpent))) + (home-page "https://pyro4.readthedocs.io") + (synopsis "Distributed object middleware for Python") + (description + "Pyro enables you to build applications in which objects can talk to each +other over the network. You can just use normal Python method calls to call +objects on other machines, also known as remote procedure calls (RPC).") + (license license:expat))) + +(define-public python2-pyro + (package + (name "python2-pyro") + (version "3.16") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Pyro" version)) + (file-name (string-append "Pyro-" version ".tar.gz")) + (sha256 + (base32 + "0y75wzdqbjy565rpxaxscav4j8xg060sa90lnmb7aypgaf251v8v")))) + (build-system python-build-system) + (arguments + ;; Pyro is not compatible with Python 3 + `(#:python ,python-2 + ;; Pyro has no test cases for automatic execution + #:tests? #f)) + (home-page "http://pythonhosted.org/Pyro/") + (synopsis "Distributed object manager for Python") + (description "Pyro is a Distributed Object Technology system +written in Python that is designed to be easy to use. It resembles +Java's Remote Method Invocation (RMI). It has less similarity to CORBA, +which is a system and language independent Distributed Object Technology +and has much more to offer than Pyro or RMI. Pyro 3.x is no +longer maintained. New projects should use Pyro4 instead, which +is the new Pyro version that is actively developed.") + (license license:expat))) + +(define-public python2-scientific + (package + (name "python2-scientific") + (version "2.9.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://bitbucket.org/khinsen/" + "scientificpython/downloads/ScientificPython-" + version ".tar.gz")) + (file-name (string-append "ScientificPython-" version ".tar.gz")) + (sha256 + (base32 + "0fc69zhlsn9d2jvbzyjl9ah53vj598h84nkq230c83ahfvgzx5y3")))) + (build-system python-build-system) + (inputs + `(("netcdf" ,netcdf))) + (propagated-inputs + `(("python-numpy" ,python2-numpy-1.8) + ("python-pyro" ,python2-pyro))) + (arguments + ;; ScientificPython is not compatible with Python 3 + `(#:python ,python-2 + #:tests? #f ; No test suite + #:phases + (modify-phases %standard-phases + (replace 'build + (lambda* (#:key inputs #:allow-other-keys) + (zero? (system* "python" "setup.py" "build" + (string-append "--netcdf_prefix=" + (assoc-ref inputs "netcdf"))))))))) + (home-page "https://bitbucket.org/khinsen/scientificpython") + (synopsis "Python modules for scientific computing") + (description "ScientificPython is a collection of Python modules that are +useful for scientific computing. Most modules are rather general (Geometry, +physical units, automatic derivatives, ...) whereas others are more +domain-specific (e.g. netCDF and PDB support). The library is currently +not actively maintained and works only with Python 2 and NumPy < 1.9.") + (license license:cecill-c))) + +(define-public python2-mmtk + (package + (name "python2-mmtk") + (version "2.7.11") + (source + (origin + (method url-fetch) + (uri (string-append "https://bitbucket.org/khinsen/" + "mmtk/downloads/MMTK-" version ".tar.gz")) + (file-name (string-append "MMTK-" version ".tar.gz")) + (sha256 + (base32 + "1d0nnjx4lwsvh8f99vv1r6gi50d93yba0adkz8b4zgv4za4c5862")))) + (build-system python-build-system) + (native-inputs + `(("netcdf" ,netcdf))) + (propagated-inputs + `(("python-scientific" ,python2-scientific) + ("python-tkinter" ,python-2 "tk"))) + (arguments + `(#:python ,python-2 + #:tests? #f + #:phases + (modify-phases %standard-phases + (add-before 'build 'includes-from-scientific + (lambda* (#:key inputs #:allow-other-keys) + (mkdir-p "Include/Scientific") + (copy-recursively + (string-append + (assoc-ref inputs "python-scientific") + "/include/python2.7/Scientific") + "Include/Scientific")))))) + (home-page "http://dirac.cnrs-orleans.fr/MMTK") + (synopsis "Python library for molecular simulation") + (description "MMTK is a library for molecular simulations with an emphasis +on biomolecules. It provides widely used methods such as Molecular Dynamics +and normal mode analysis, but also basic routines for implementing new methods +for simulation and analysis. The library is currently not actively maintained +and works only with Python 2 and NumPy < 1.9.") + (license license:cecill-c))) + +(define-public python-phonenumbers + (package + (name "python-phonenumbers") + (version "8.9.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "phonenumbers" version)) + (sha256 + (base32 + "03fmrgb4r8x3ykmddjs9i3zhs703in8smikj3a6447blqpimwyh1")))) + (build-system python-build-system) + (home-page + "https://github.com/daviddrysdale/python-phonenumbers") + (synopsis + "Python library for dealing with international phone numbers") + (description + "This package provides a Python port of Google's libphonenumber library.") + (license license:asl2.0))) + +(define-public python2-phonenumbers + (package-with-python2 python-phonenumbers)) + +(define-public python-send2trash + (package + (name "python-send2trash") + (version "1.4.2") + (source + (origin (method url-fetch) + ;; Source tarball on PyPI doesn't include tests. + (uri (string-append "https://github.com/hsoft/send2trash/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ffyhwjyx61slkdy38iwjc4gmj7fj9gs2q58f075gwvq630pzm9z")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'check 'pre-check + (lambda _ + (mkdir-p "/tmp/foo") + (setenv "HOME" "/tmp/foo") + #t))))) + (home-page "https://github.com/hsoft/send2trash") + (synopsis "Send files to the user's @file{~/Trash} directory") + (description "This package provides a Python library to send files to the +user's @file{~/Trash} directory.") + (license license:bsd-3))) + +(define-public python2-send2trash + (package + (inherit (package-with-python2 python-send2trash)) + (arguments + (substitute-keyword-arguments (package-arguments python-send2trash) + ((#:phases phases) + `(modify-phases ,phases + (add-before 'check 'setenv + (lambda _ + (setenv "PYTHONPATH" + (string-append (getcwd) ":" (getenv "PYTHONPATH"))) + #t)))))) + (properties `((python2-variant . ,(delay python-send2trash)))))) + +(define-public python-yapf + (package + (name "python-yapf") + (version "0.24.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "yapf" version)) + (sha256 + (base32 + "0anwby0ydmyzcsgjc5dn1ryddwvii4dq61vck447q0n96npnzfyf")))) + (build-system python-build-system) + (home-page "https://github.com/google/yapf") + (synopsis "Formatter for Python code") + (description "YAPF is a formatter for Python code. It's based off of +@dfn{clang-format}, developed by Daniel Jasper. In essence, the algorithm +takes the code and reformats it to the best formatting that conforms to the +style guide, even if the original code didn't violate the style guide.") + (license license:asl2.0))) + +(define-public python2-yapf + (package-with-python2 python-yapf)) + +(define-public python-gyp + (let ((commit "5e2b3ddde7cda5eb6bc09a5546a76b00e49d888f") + (revision "0")) + (package + (name "python-gyp") + ;; Google does not release versions, + ;; based on second most recent commit date. + (version (git-version "0.0.0" revision commit)) + (source + (origin + ;; Google does not release tarballs, + ;; git checkout is needed. + (method git-fetch) + (uri (git-reference + (url "https://chromium.googlesource.com/external/gyp") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0fr7nxcrk292djmxzpcjaphnsd123k31gp8jnd91vwknhq6snmv9")))) + (build-system python-build-system) + (home-page "https://gyp.gsrc.io/") + (synopsis "GYP is a Meta-Build system") + (description + "GYP builds build systems for large, cross platform applications. +It can be used to generate XCode projects, Visual Studio projects, Ninja build +files, and Makefiles.") + (license license:bsd-3)))) + +(define-public python2-gyp + (package-with-python2 python-gyp)) + +(define-public python-whatever + (package + (name "python-whatever") + (version "0.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Suor/whatever/archive/" version + ".tar.gz")) + (sha256 + (base32 + "1iqvnaf0zpc6b4rvbqq4xy45mszcscyzpzknv8wg6j84pbp22sap")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (invoke "py.test")))))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "http://github.com/Suor/whatever") + (synopsis "Make anonymous functions by partial application of operators") + (description "@code{whatever} provides an easy way to make anonymous +functions by partial application of operators.") + (license license:bsd-3))) + +(define-public python2-whatever + (package-with-python2 python-whatever)) + +(define-public python-funcy + (package + (name "python-funcy") + (version "1.10") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/Suor/funcy/archive/" version + ".tar.gz")) + (sha256 + (base32 + "1fanxivsip29vgarw6dn39xym3q4pbxcpa11plpp548lvxajpahz")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + (invoke "py.test")))))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-whatever" ,python-whatever))) + (home-page "http://github.com/Suor/funcy") + (synopsis "Functional tools") + (description "@code{funcy} is a library that provides functional tools. +Examples are: +@enumerate +@item merge - Merges collections of the same type +@item walk - Type-preserving map +@item select - Selects a part of a collection +@item take - Takes the first n items of a collection +@item first - Takes the first item of a collection +@item remove - Predicated-removes items of a collection +@item concat - Concatenates two collections +@item flatten - Flattens a collection with subcollections +@item distinct - Returns only distinct items +@item split - Predicated-splits a collection +@item split_at - Splits a collection at a given item +@item group_by - Groups items by group +@item pairwise - Pairs off adjacent items +@item partial - Partially-applies a function +@item curry - Curries a function +@item compose - Composes functions +@item complement - Complements a predicate +@item all_fn - \"all\" with predicate +@end enumerate") + (license license:bsd-3))) + +(define-public python2-funcy + (package-with-python2 python-funcy)) + +(define-public python-isoweek + (package + (name "python-isoweek") + (version "1.3.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "isoweek" version)) + (sha256 + (base32 + "1s7zsf0pab0l9gn6456qadnz5i5h90hafcjwnhx5mq23qjxggwvk")))) + (build-system python-build-system) + (home-page "https://github.com/gisle/isoweek") + (synopsis "Objects representing a week") + (description "The @code{isoweek} module provide the class Week that +implements the week definition of ISO 8601. This standard also defines +a notation for identifying weeks; yyyyWww (where the W is a literal). +Week instances stringify to this form.") + (license license:bsd-3))) + +(define-public python2-isoweek + (package-with-python2 python-isoweek)) + +(define-public python-tokenize-rt + (package + (name "python-tokenize-rt") + (version "2.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "tokenize-rt" version)) + (sha256 + (base32 + "1yjvbz7rvrz31zjyax1cgy3xhf4wb3j18jwnj4bnl77ca4gliyiw")))) + (build-system python-build-system) + (home-page "https://github.com/asottile/tokenize-rt") + (synopsis "Wrapper around the stdlib tokenize which roundtrips.") + (description + "This Python library is a wrapper around @code{tokenize} from the Python +standard library. It provides two additional tokens @code{ESCAPED_NL} and +@code{UNIMPORTANT_WS}, and a @code{Token} data type. Use @code{src_to_tokens} +and @code{tokens_to_src} to roundtrip.") + (license license:expat))) + +(define-public python-future-fstrings + (package + (name "python-future-fstrings") + (version "0.4.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "future_fstrings" version)) + (sha256 + (base32 + "0ydxqz2dvns44g55p8ix2x18qkfk3aaz0m0dc70f3g6n8js35h47")))) + (build-system python-build-system) + (propagated-inputs + `(("python-tokenize-rt" ,python-tokenize-rt))) + (home-page "https://github.com/asottile/future-fstrings") + (synopsis "Backport of fstrings to Python < 3.6") + (description + "This package provides a UTF-8 compatible encoding +@code{future_fstrings}, which performs source manipulation. It decodes the +source bytes using the UTF-8 encoding and then rewrites Python 3.6 style +@code{f} strings.") + (license license:expat))) + +(define-public python-typing + (package + (name "python-typing") + (version "3.6.6") + (source + (origin + (method url-fetch) + (uri (pypi-uri "typing" version)) + (sha256 + (base32 + "0ba9acs4awx15bf9v3nrs781msbd2nx826906nj6fqks2bvca9s0")))) + (build-system python-build-system) + (home-page "https://docs.python.org/3/library/typing.html") + (synopsis "Type hints for Python") + (description "This is a backport of the standard library @code{typing} +module to Python versions older than 3.5. Typing defines a standard notation +for Python function and variable type annotations. The notation can be used +for documenting code in a concise, standard format, and it has been designed +to also be used by static and runtime type checkers, static analyzers, IDEs +and other tools.") + (license license:psfl))) + +(define-public python2-typing + (package-with-python2 python-typing)) + +(define-public bpython + (package + (name "bpython") + (version "0.17.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "bpython" version)) + (sha256 + (base32 + "0bxhxi5zxdkrf8b4gwn0d363kdz3qnypjwhm1aydki53ph8ca1w9")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'remove-failing-test + (lambda _ + ;; Remove failing test. FIXME: make it pass + (delete-file "bpython/test/test_args.py") + #t)) + (add-after 'wrap 'add-aliases + ;; for symmetry to bpython2, add symlinks bypthon3, bpdb3, etc. + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (for-each + (lambda (old new) + (symlink old (string-append out "/bin/" new))) + '("bpython" "bpython-curses" "bpython-urwid" "bpdb") + '("bpython3" "bpython3-curses" "bpython3-urwid" "bpdb3"))) + #t))))) + (propagated-inputs + `(("python-pygments" ,python-pygments) + ("python-requests" ,python-requests) + ("python-babel" ,python-babel) ; optional, for internationalization + ("python-curtsies" ,python-curtsies) ; >= 0.1.18 + ("python-greenlet" ,python-greenlet) + ("python-urwid" ,python-urwid) ; for bpython-urwid only + ("python-six" ,python-six))) + (native-inputs + `(("python-sphinx" ,python-sphinx) + ("python-mock" ,python-mock))) + (home-page "https://bpython-interpreter.org/") + (synopsis "Fancy interface to the Python interpreter") + (description "Bpython is a fancy interface to the Python +interpreter. bpython's main features are + +@enumerate +@item in-line syntax highlighting, +@item readline-like autocomplete with suggestions displayed as you type, +@item expected parameter list for any Python function, +@item \"rewind\" function to pop the last line of code from memory and + re-evaluate, +@item send the code you've entered off to a pastebin, +@item save the code you've entered to a file, and +@item auto-indentation. +@end enumerate") + (license license:expat))) + +(define-public bpython2 + (let ((base (package-with-python2 + (strip-python2-variant bpython)))) + (package (inherit base) + (name "bpython2") + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'remove-failing-test + (lambda _ + ;; Remove failing test. FIXME: make it pass + (delete-file "bpython/test/test_args.py") + ;; Disable failing test-cases (renaming inhibits they are + ;; discovered) + (substitute* "bpython/test/test_curtsies_repl.py" + (("^(\\s*def )(test_get_last_word_with_prev_line\\W)" _ a b) + (string-append a "xxx_off_" b)) + (("^(\\s*def )(test_complex\\W)" _ a b) + (string-append a "xxx_off_" b))) + #t)) + (add-before 'build 'rename-scripts + ;; rename the scripts to bypthon2, bpdb2, etc. + (lambda _ + (substitute* "setup.py" + (("^(\\s+'bpdb)(\\s+=.*',?)\\s*?$" _ name rest) + (string-append name "2" rest "\n")) + (("^(\\s+'bpython)(-\\S+)?(\\s+=.*',?)\\s*?$" _ name sub rest) + (string-append name "2" (or sub "") rest "\n"))) + #t)))))))) + +(define-public python-pyinotify + (package + (name "python-pyinotify") + (version "0.9.6") + (source (origin + (method url-fetch) + (uri (pypi-uri "pyinotify" version)) + (sha256 + (base32 + "1x3i9wmzw33fpkis203alygfnrkcmq9w1aydcm887jh6frfqm6cw")))) + (build-system python-build-system) + (arguments `(#:tests? #f)) ;no tests + (home-page "https://github.com/seb-m/pyinotify") + (synopsis "Python library for monitoring inotify events") + (description + "@code{pyinotify} provides a Python interface for monitoring +file system events on Linux.") + (license license:expat))) + +(define-public python2-pyinotify + (package-with-python2 python-pyinotify)) + +;; Ada parser uses this version. +(define-public python2-quex-0.67.3 + (package + (name "python2-quex") + (version "0.67.3") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/quex/HISTORY/" + (version-major+minor version) + "/quex-" version ".zip")) + (sha256 + (base32 + "14gv8ll3ipqv4kyc2xiy891nrmjl4ic823zfyx8hassagyclyppw")))) + (build-system python-build-system) + (native-inputs + `(("unzip" ,unzip))) + (arguments + `(#:python ,python-2 + #:tests? #f + #:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'build) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (share/quex (string-append out "/share/quex")) + (bin (string-append out "/bin"))) + (copy-recursively "." share/quex) + (mkdir-p bin) + (symlink (string-append share/quex "/quex-exe.py") + (string-append bin "/quex")) + #t)))))) + (native-search-paths + (list (search-path-specification + (variable "QUEX_PATH") + (files '("share/quex"))))) + (home-page "http://quex.sourceforge.net/") + (synopsis "Lexical analyzer generator in Python") + (description "@code{quex} is a lexical analyzer generator in Python.") + (license license:lgpl2.1+))) ; Non-military + +(define-public python2-quex + (package (inherit python2-quex-0.67.3) + (name "python2-quex") + (version "0.68.1") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/quex/DOWNLOAD/quex-" version ".tar.gz")) + (sha256 + (base32 + "0svc9nla3b9145d6b7fb9dizx412l3difzqw0ilh9lz52nsixw8j")) + (file-name (string-append name "-" version ".tar.gz")))))) + +(define-public python-more-itertools + (package + (name "python-more-itertools") + (version "4.3.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "more-itertools" version)) + (sha256 + (base32 + "17h3na0rdh8xq30w4b9pizgkdxmm51896bxw600x84jflg9vaxn4")))) + (build-system python-build-system) + (arguments + `(,@(if (any (cute string-prefix? <> (or (%current-system) + (%current-target-system))) + '("armhf" "i686")) + '(#:phases + (modify-phases %standard-phases + ;; This is required for 32-bit hardware. + ;; TODO: Try to remove this when upgrading. + (add-after 'unpack 'patch-test + (lambda _ + (substitute* "more_itertools/tests/test_more.py" + (("10 \\*\\* 10") "9 ** 9")) + #t)))) + '()))) + (propagated-inputs + `(("python-six" ,python-six-bootstrap))) + (home-page "https://github.com/erikrose/more-itertools") + (synopsis "More routines for operating on iterables, beyond itertools") + (description "Python's built-in @code{itertools} module implements a +number of iterator building blocks inspired by constructs from APL, Haskell, +and SML. @code{more-itertools} includes additional building blocks for +working with iterables.") + (license license:expat))) + +(define-public python2-more-itertools + (package-with-python2 python-more-itertools)) + +(define-public python-latexcodec + (package + (name "python-latexcodec") + (version "1.0.5") + (source + (origin + (method url-fetch) + (uri (pypi-uri "latexcodec" version)) + (sha256 + (base32 + "0zdd1gf24i83ykadx0y30n3001j43scqr2saql3vckk5c39dj1wn")))) + (build-system python-build-system) + (inputs + `(("python-six" ,python-six))) + (home-page "https://readthedocs.org/projects/latexcodec/") + (synopsis "Work with LaTeX code in Python") + (description "Lexer and codec to work with LaTeX code in Python.") + (license license:expat))) + +(define-public python-pybtex + (package + (name "python-pybtex") + (version "0.21") + (source + (origin + (method url-fetch) + (uri (pypi-uri "pybtex" version)) + (sha256 + (base32 + "00300j8dn5pxq4ndxmfmbmycg2znawkqs49val2x6jlmfiy6r2mg")))) + (build-system python-build-system) + (native-inputs + `(("python-nose" ,python-nose))) + (inputs + `(("python-latexcodec" ,python-latexcodec) + ("python-pyyaml" ,python-pyyaml) + ("python-six" ,python-six))) + (arguments + `(#:test-target "nosetests")) + (home-page "https://pybtex.org/") + (synopsis "BibTeX-compatible bibliography processor") + (description "Pybtex is a BibTeX-compatible bibliography processor written +in Python. You can simply type pybtex instead of bibtex.") + (license license:expat))) + +(define-public python-onetimepass + (package + (name "python-onetimepass") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "onetimepass" version)) + (sha256 + (base32 "09vagxgbq78wvq4xbikmn2hpqqsa2i96kqsmphf7dqynfv0dlsd5")))) + (build-system python-build-system) + (propagated-inputs `(("python-six" ,python-six))) + (home-page "https://github.com/tadeck/onetimepass/") + (synopsis "One-time password library") + (description "Python one-time password library for HMAC-based (HOTP) and +time-based (TOTP) passwords.") + (license license:expat))) + +(define-public python-parso + (package + (name "python-parso") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "parso" version)) + (sha256 + (base32 + "18p89iwcm8mnf380f92g9w0bhx5km8wxp392vvjcq4y1ld1llw1m")))) + (native-inputs + `(("python-pytest" ,python-pytest))) + (build-system python-build-system) + (home-page "https://github.com/davidhalter/parso") + (synopsis "Python Parser") + (description "Parso is a Python parser that supports error recovery and +round-trip parsing for different Python versions (in multiple Python versions). +Parso is also able to list multiple syntax errors in your Python file.") + (license license:expat))) + +(define-public python2-parso + (package-with-python2 python-parso)) + +(define-public python-async-generator + (package + (name "python-async-generator") + (version "1.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "async_generator" version)) + (sha256 + (base32 + "0wc3hidz1q85cja93k5pzybn0fprfnqyrv4qlkdqdzklc5f4dmdp")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest))) + (home-page "https://github.com/python-trio/async_generator") + (synopsis "Async generators and context managers for Python 3.5+") + (description "@code{async_generator} back-ports Python 3.6's native async +generators and Python 3.7's context managers into Python 3.5.") + ;; Dual licensed. + (license (list license:expat license:asl2.0)))) + +(define-public python-async-timeout + (package + (name "python-async-timeout") + (version "3.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "async-timeout" version)) + (sha256 + (base32 + "0pscbyr840m7fyfc3r8zv9kgkwdcn9f78p7zsrczciwd09m82g0c")))) + (build-system python-build-system) + (home-page "https://github.com/aio-libs/async_timeout/") + (synopsis "Timeout context manager for asyncio programs") + (description "@code{async-timeout} provides a timeout timeout context +manager compatible with @code{asyncio}.") + (license license:asl2.0))) + +(define-public python-glob2 + (package + (name "python-glob2") + (version "0.6") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/miracle2k/python-glob2/archive/" + version + ".tar.gz")) + (sha256 + (base32 + "0ja168f0dz4kbz4m06dm0rd3acaypk6hjx2km541pw22y9s40mag")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system python-build-system) + (home-page "https://github.com/miracle2k/python-glob2/") + (synopsis "Extended Version of the python buildin glob module") + (description "This is an extended version of the Python +@url{http://docs.python.org/library/glob.html, built-in glob module} which +adds: + +@itemize +@item The ability to capture the text matched by glob patterns, and return +those matches alongside the file names. +@item A recursive @code{**} globbing syntax, akin for example to the +@code{globstar} option of Bash. +@item The ability to replace the file system functions used, in order to glob +on virtual file systems. +@item Compatible with Python 2 and Python 3 (tested with 3.3). +@end itemize + +Glob2 currently based on the glob code from Python 3.3.1.") + (license license:bsd-2))) + +(define-public python2-glob2 + (package-with-python2 python-glob2)) + +(define-public python-gipc + (package + (name "python-gipc") + (version "0.6.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "gipc" version ".zip")) + (sha256 + (base32 + "0pd9by719qh882hqs6xpby61sn1x5h98hms5p2p8yqnycrf1s0h2")))) + (build-system python-build-system) + (native-inputs + `(("unzip" ,unzip))) + (propagated-inputs + `(("python-gevent" ,python-gevent))) + (home-page "http://gehrcke.de/gipc") + (synopsis "Child process management in the context of gevent") + (description "Usage of Python's multiprocessing package in a +gevent-powered application may raise problems. With @code{gipc}, +process-based child processes can safely be created anywhere within a +gevent-powered application.") + (license license:expat))) + +(define-public python2-gipc + (package-with-python2 python-gipc)) + +(define-public python-fusepy + (package + (name "python-fusepy") + (version "2.0.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "fusepy" version)) + (sha256 + (base32 + "0v5grm4zyf58hsplwsxfbihddw95lz9w8cy3rpzbyha287swgx8h")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'build 'set-library-file-name + (lambda* (#:key inputs #:allow-other-keys) + (let ((fuse (assoc-ref inputs "fuse"))) + (substitute* "fuse.py" + (("find_library\\('fuse'\\)") + (string-append "'" fuse "/lib/libfuse.so'"))) + #t)))))) + (propagated-inputs + `(("fuse" ,fuse))) + (home-page "https://github.com/fusepy/fusepy") + (synopsis "Simple ctypes bindings for FUSE") + (description "Python module that provides a simple interface to FUSE and +MacFUSE. The binding is created using the standard @code{ctypes} library.") + (license license:isc))) + +(define-public python2-fusepy + (package-with-python2 python-fusepy)) + +(define-public python2-gdrivefs + (package + (name "python2-gdrivefs") + (version "0.14.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "gdrivefs" version)) + (sha256 + (base32 + "0v9sp2cfg4ki3wagkwf3rnfpjhvgf845anz3757il9z95yvvcvb7")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 + #:phases + (modify-phases %standard-phases + (add-before 'build 'patch-setup-py + (lambda _ + ;; Update requirements from dependency==version + ;; to dependency>=version + (substitute* "gdrivefs/resources/requirements.txt" + (("==") ">=")) + #t))))) + (native-inputs + `(("python2-gipc" ,python2-gipc) + ("python2-gevent" ,python2-gevent) + ("python2-greenlet" ,python2-greenlet) + ("python2-httplib2" ,python2-httplib2) + ("python2-uritemplate" ,python2-uritemplate) + ("python2-oauth2client" ,python2-oauth2client) + ("python2-six" ,python2-six))) + (propagated-inputs + `(("python2-dateutil" ,python2-dateutil) + ("python2-fusepy" ,python2-fusepy) + ("python2-google-api-client" ,python2-google-api-client))) + (home-page "https://github.com/dsoprea/GDriveFS") + (synopsis "Mount Google Drive as a local file system") + (description "@code{gdrivefs} provides a FUSE wrapper for Google Drive +under Python 2.7.") + (license license:gpl2))) + +(define-public pybind11 + (package + (name "pybind11") + (version "2.2.4") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/pybind/pybind11.git") + (commit (string-append "v" version)))) + (sha256 + (base32 + "0pa79ymcasv8br5ifbx7878id5py2jpjac3i20cqxr6gs9l6ivlv")) + (file-name (git-file-name name version)))) + (build-system cmake-build-system) + (native-inputs + `(("python" ,python) + ("python-pytest" ,python-pytest))) + (arguments + `(#:test-target "check")) + (home-page "https://github.com/pybind/pybind11/") + (synopsis "Seamless operability between C++11 and Python") + (description "pybind11 is a lightweight header-only library that exposes +C++ types in Python and vice versa, mainly to create Python bindings of +existing C++ code. Its goals and syntax are similar to the excellent +Boost.Python library by David Abrahams: to minimize boilerplate code in +traditional extension modules by inferring type information using compile-time +introspection.") + (license license:expat))) + +(define-public python-fasteners + (package + (name "python-fasteners") + (version "0.14.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "fasteners" version)) + (sha256 + (base32 + "063y20kx01ihbz2mziapmjxi2cd0dq48jzg587xdsdp07xvpcz22")))) + (build-system python-build-system) + (propagated-inputs + `(("python-monotonic" ,python-monotonic) + ("python-six" ,python-six) + ("python-testtools" ,python-testtools))) + (home-page "https://github.com/harlowja/fasteners") + (synopsis "Python package that provides useful locks") + (description + "This package provides a Python program that provides following locks: + +@itemize +@item Locking decorator +@item Reader-writer locks +@item Inter-process locks +@item Generic helpers +@end itemize\n") + (properties `((python2-variant . ,(delay python2-fasteners)))) + (license license:asl2.0))) + +(define-public python2-fasteners + (let ((base (package-with-python2 (strip-python2-variant python-fasteners)))) + (package + (inherit base) + (propagated-inputs + `(("python2-futures" ,python2-futures) + ,@(package-propagated-inputs base)))))) + +(define-public python-requests-file + (package + (name "python-requests-file") + (version "1.4.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "requests-file" version)) + (sha256 + (base32 + "1yp2jaxg3v86pia0q512dg3hz6s9y5vzdivsgrba1kds05ial14g")))) + (build-system python-build-system) + (propagated-inputs + `(("python-requests" ,python-requests) + ("python-six" ,python-six))) + (home-page + "https://github.com/dashea/requests-file") + (synopsis "File transport adapter for Requests") + (description + "Requests-File is a transport adapter for use with the Requests Python +library to allow local filesystem access via file:// URLs.") + (license license:asl2.0))) + +(define-public python2-requests-file + (package-with-python2 python-requests-file)) + +(define-public python-tldextract + (package + (name "python-tldextract") + (version "2.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "tldextract" version)) + (sha256 + (base32 + "1d5s8v6kpsgazyahflhji1cfdcf89rv7l7z55v774bhzvcjp2y99")))) + (build-system python-build-system) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-responses" ,python-responses))) + (propagated-inputs + `(("python-idna" ,python-idna) + ("python-requests" ,python-requests) + ("python-requests-file" ,python-requests-file))) + (home-page + "https://github.com/john-kurkowski/tldextract") + (synopsis + "Separate the TLD from the registered domain and subdomains of a URL") + (description + "TLDExtract accurately separates the TLD from the registered domain and +subdomains of a URL, using the Public Suffix List. By default, this includes +the public ICANN TLDs and their exceptions. It can optionally support the +Public Suffix List's private domains as well.") + (license license:bsd-3))) + +(define-public python2-tldextract + (package-with-python2 python-tldextract)) + +(define-public python-pynamecheap + (package + (name "python-pynamecheap") + (version "0.0.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "PyNamecheap" version)) + (sha256 + (base32 + "0wkbwz208j8nfrsmzmclvxg22ymknn0mlz76wbdza9k2bx2zja6l")))) + (build-system python-build-system) + (propagated-inputs + `(("python-requests" ,python-requests))) + (home-page + "https://github.com/Bemmu/PyNamecheap") + (synopsis + "Namecheap API client in Python") + (description + "PyNamecheap is a Namecheap API client in Python.") + (license license:expat))) + +(define-public python2-pynamecheap + (package-with-python2 python-pynamecheap)) + +(define-public python-dns-lexicon + (package + (name "python-dns-lexicon") + (version "2.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "dns-lexicon" version)) + (sha256 + (base32 + "0jdn3ns71bsybr7njgsqr9xlxsqh7zh6phn4ld0liazqdn2l5f6m")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ;requires internet access + (propagated-inputs + `(("python-future" ,python-future) + ("python-pynamecheap" ,python-pynamecheap) + ("python-requests" ,python-requests) + ("python-tldextract" ,python-tldextract) + ("python-urllib3" ,python-urllib3))) + (home-page "https://github.com/AnalogJ/lexicon") + (synopsis + "Manipulate DNS records on various DNS providers") + (description + "Lexicon provides a way to manipulate DNS records on multiple DNS +providers in a standardized way. It has a CLI but it can also be used as a +Python library. It was designed to be used in automation, specifically with +Let's Encrypt.") + (license license:expat))) + +(define-public python2-dns-lexicon + (package-with-python2 python-dns-lexicon)) + +(define-public python-commandlines + (package + (name "python-commandlines") + (version "0.4.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "commandlines" version)) + (sha256 + (base32 + "0r7xcr0knv02p4mswa2bng61nn8nbhhrs6kvdnb9bb3hhjvm1dl6")))) + (build-system python-build-system) + (home-page "https://github.com/chrissimpkins/commandlines") + (synopsis "Command line argument to object parsing library") + (description + "@code{Commandlines} is a Python library for command line application +development that supports command line argument parsing, command string +validation testing and application logic.") + (license license:expat))) + +;; Make sure to upgrade python-llvmlite in (gnu packages llvm) together with +;; python-numba. They have a very unflexible relationship. +(define-public python-numba + (package + (name "python-numba") + (version "0.39.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "numba" version)) + (sha256 + (base32 + "1bibvkwga1v8293i9ivl469d8bzgabn3vgr2ig7c1i68v8frsx07")))) + (build-system python-build-system) + (arguments + `(#:modules ((guix build utils) + (guix build python-build-system) + (ice-9 ftw) + (srfi srfi-1) + (srfi srfi-26)) + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'disable-proprietary-features + (lambda _ + (setenv "NUMBA_DISABLE_HSA" "1") + (setenv "NUMBA_DISABLE_CUDA" "1") + #t)) + (add-after 'unpack 'remove-failing-tests + (lambda _ + ;; FIXME: these tests fail for unknown reasons: + ;; test_non_writable_pycache, test_non_creatable_pycache, and + ;; test_frozen (all in numba.tests.test_dispatcher.TestCache). + (substitute* "numba/tests/test_dispatcher.py" + (("def test(_non_writable_pycache)" _ m) + (string-append "def guix_skip" m)) + (("def test(_non_creatable_pycache)" _ m) + (string-append "def guix_skip" m)) + (("def test(_frozen)" _ m) + (string-append "def guix_skip" m))) + + ;; These tests fail because we don't run the tests from the build + ;; directory: test_setup_py_distutils, test_setup_py_setuptools + ;; They ar in numba.tests.test_pycc.TestDistutilsSupport. + (substitute* "numba/tests/test_pycc.py" + (("def test(_setup_py_distutils|_setup_py_setuptools)" _ m) + (string-append "def guix_skip" m))) + #t)) + (replace 'check + (lambda _ + (let ((cwd (getcwd))) + (setenv "PYTHONPATH" + (string-append cwd "/build/" + (find (cut string-prefix? "lib" <>) + (scandir (string-append cwd "/build"))) + ":" + (getenv "PYTHONPATH"))) + ;; Something is wrong with the PYTHONPATH when running the + ;; tests from the build directory, as it complains about not being + ;; able to import certain modules. + (with-directory-excursion "/tmp" + (invoke "python3" "-m" "numba.runtests" "-v" "-m"))) + #t))))) + (propagated-inputs + `(("python-llvmlite" ,python-llvmlite) + ("python-numpy" ,python-numpy) + ("python-singledispatch" ,python-singledispatch))) + ;; Needed for tests. + (inputs + `(("python-jinja2" ,python-jinja2) + ("python-pygments" ,python-pygments))) + (home-page "https://numba.pydata.org") + (synopsis "Compile Python code using LLVM") + (description "Numba gives you the power to speed up your applications with +high performance functions written directly in Python. With a few +annotations, array-oriented and math-heavy Python code can be just-in-time +compiled to native machine instructions, similar in performance to C, C++ and +Fortran, without having to switch languages or Python interpreters. + +Numba works by generating optimized machine code using the LLVM compiler +infrastructure at import time, runtime, or statically (using the included pycc +tool).") + (license license:bsd-3))) + +(define-public python-anndata + (package + (name "python-anndata") + (version "0.6.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "anndata" version)) + (sha256 + (base32 + "1fh461xyyc7pcrjfgd013bdc2alf53r46ss3gfw3431mbb1gappi")))) + (build-system python-build-system) + (propagated-inputs + `(("python-h5py" ,python-h5py) + ("python-natsort" ,python-natsort) + ("python-pandas" ,python-pandas) + ("python-scipy" ,python-scipy))) + (home-page "https://github.com/theislab/anndata") + (synopsis "Annotated data for data analysis pipelines") + (description "Anndata is a package for simple (functional) high-level APIs +for data analysis pipelines. In this context, it provides an efficient, +scalable way of keeping track of data together with learned annotations and +reduces the code overhead typically encountered when using a mostly +object-oriented library such as @code{scikit-learn}.") + (license license:bsd-3))) + +(define-public python-dill + (package + (name "python-dill") + (version "0.2.8.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "dill" version)) + (sha256 + (base32 + "1cymzn9fxwdy33h21zkk4gqgzvd25110hh3zdqnvnwa3p52c4kb2")))) + (build-system python-build-system) + ;; FIXME: The check phase fails with "don't know how to make test". + (arguments '(#:tests? #f)) + (home-page "https://pypi.org/project/dill") + (synopsis "Serialize all of Python") + (description "Dill extends Python's @code{pickle} module for serializing +and de-serializing Python objects to the majority of the built-in Python +types. Dill provides the user the same interface as the @code{pickle} module, +and also includes some additional features. In addition to pickling Python +objects, @code{dill} provides the ability to save the state of an interpreter +session in a single command. Hence, it would be feasable to save a +interpreter session, close the interpreter, ship the pickled file to another +computer, open a new interpreter, unpickle the session and thus continue from +the saved state of the original interpreter session.") + (license license:bsd-3))) + +(define-public python-multiprocess + (package + (name "python-multiprocess") + (version "0.70.6.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "multiprocess" version)) + (sha256 + (base32 + "1ip5caz67b3q0553mr8gm8xwsb8x500jn8ml0gihgyfy52m2ypcq")))) + (build-system python-build-system) + (propagated-inputs + `(("python-dill" ,python-dill))) + (home-page "https://pypi.org/project/multiprocess") + (synopsis "Multiprocessing and multithreading in Python") + (description + "This package is a fork of the multiprocessing Python package, a package +which supports the spawning of processes using the API of the standard +library's @code{threading} module.") + (license license:bsd-3))) + +(define-public python-toolz + (package + (name "python-toolz") + (version "0.9.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "toolz" version)) + (sha256 + (base32 + "1j9i7fdjnx9dz35fdj5gvgxx6585ja9sxgaiv65if77nlxz0m7wj")))) + (build-system python-build-system) + ;; FIXME: tests cannot be computed: "Can't perform this operation for + ;; unregistered loader type" + (arguments '(#:tests? #f)) + (home-page "https://github.com/pytoolz/toolz/") + (synopsis "List processing tools and functional utilities") + (description + "This package provides a set of utility functions for iterators, +functions, and dictionaries.") + (license license:bsd-3))) + +(define-public python2-toolz + (package-with-python2 python-toolz)) + +(define-public python-cytoolz + (package + (name "python-cytoolz") + (version "0.9.0.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "cytoolz" version)) + (sha256 + (base32 + "1r80p88hm3f3r4zpixzr047y5hw4bzy41m4xywnhycda83x0dk44")))) + (build-system python-build-system) + ;; FIXME: tests fail with "module 'cytoolz.curried' has no attribute + ;; 'exceptions'" + (arguments '(#:tests? #f)) + (propagated-inputs + `(("python-toolz" ,python-toolz))) + (native-inputs + `(("python-cython" ,python-cython))) + (home-page "https://github.com/pytoolz/cytoolz") + (synopsis "High performance functional utilities") + (description + "The cytoolz package implements the same API as provided by toolz. The +main differences are that @code{cytoolz} is faster and cytoolz offers a C API +that is accessible to other projects developed in Cython.") + (license license:bsd-3))) + +(define-public python-sortedcontainers + (package + (name "python-sortedcontainers") + (version "2.0.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "sortedcontainers" version)) + (sha256 + (base32 + "10hrk2k0hbf9x78vd3f0lj277m1yzfhzzxr0hja718liwb398wk0")))) + (build-system python-build-system) + (native-inputs + `(("python-tox" ,python-tox))) + (home-page "http://www.grantjenks.com/docs/sortedcontainers/") + (synopsis "Sorted List, Sorted Dict, Sorted Set") + (description + "This package provides a sorted collections library, written in +pure-Python.") + (license license:asl2.0))) + +(define-public python-cloudpickle + (package + (name "python-cloudpickle") + (version "0.6.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "cloudpickle" version)) + (sha256 + (base32 + "1wdw89mlm7fqa3fm3ymskx05jrys66n8m1z1a8s0mss0799ahsgi")))) + (build-system python-build-system) + ;; FIXME: there are 5 errors in 122 tests: + ;; ERROR: test_function_pickle_compat_0_4_0 (tests.cloudpickle_test.CloudPickleTest) + ;; ERROR: test_function_pickle_compat_0_4_1 (tests.cloudpickle_test.CloudPickleTest) + ;; ERROR: test_function_pickle_compat_0_4_0 (tests.cloudpickle_test.Protocol2CloudPickleTest) + ;; ERROR: test_function_pickle_compat_0_4_1 (tests.cloudpickle_test.Protocol2CloudPickleTest) + ;; ERROR: test_temp_file (tests.cloudpickle_file_test.CloudPickleFileTests) + ;; TypeError: cannot serialize '_io.BufferedRandom' object + (arguments '(#:tests? #f)) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-mock" ,python-mock) + ("python-tornado" ,python-tornado))) + (home-page "https://github.com/cloudpipe/cloudpickle") + (synopsis "Extended pickling support for Python objects") + (description + "Cloudpickle makes it possible to serialize Python constructs not +supported by the default pickle module from the Python standard library. It +is especially useful for cluster computing where Python expressions are +shipped over the network to execute on remote hosts, possibly close to the +data.") + (license license:bsd-3))) + +(define-public python2-cloudpickle + (package-with-python2 python-cloudpickle)) + +(define-public python-locket + (package + (name "python-locket") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "locket" version)) + (sha256 + (base32 + "1d4z2zngrpqkrfhnd4yhysh66kjn4mblys2l06sh5dix2p0n7vhz")))) + (build-system python-build-system) + (home-page "https://github.com/mwilliamson/locket.py") + (synopsis "File-based locks for Python") + (description + "Locket implements a lock that can be used by multiple processes provided +they use the same path.") + (license license:bsd-2))) + +(define-public python2-locket + (package-with-python2 python-locket)) + +(define-public python-blosc + (package + (name "python-blosc") + (version "1.5.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "blosc" version)) + (sha256 + (base32 + "1cm91c6r431yla2mbs4895bgiianjf30dfz14vvv99dslygd65jw")))) + (build-system python-build-system) + ;; FIXME: all tests pass, but then this error is printed: + ;; TypeError: calling <function run at 0x7ffff2568d90> returned None, not a test + (arguments '(#:tests? #f)) + (propagated-inputs + `(("python-numpy" ,python-numpy))) + (home-page "https://github.com/blosc/python-blosc") + (synopsis "Python wrapper for the Blosc data compressor library") + (description "Blosc is a high performance compressor optimized for binary +data. It has been designed to transmit data to the processor cache faster +than the traditional, non-compressed, direct memory fetch approach via a +@code{memcpy()} system call. + +Blosc works well for compressing numerical arrays that contains data with +relatively low entropy, like sparse data, time series, grids with +regular-spaced values, etc. + +This Python package wraps the Blosc library.") + (license license:bsd-3))) + +(define-public python2-blosc + (package-with-python2 python-blosc)) + +(define-public python-partd + (package + (name "python-partd") + (version "0.3.9") + (source + (origin + (method url-fetch) + (uri (pypi-uri "partd" version)) + (sha256 + (base32 + "0sz6rwlnl4fqq220pyz863cnv0gjdxl4m7lscl71ishl5z0xkmhz")))) + (build-system python-build-system) + (propagated-inputs + `(("python-blosc" ,python-blosc) + ("python-locket" ,python-locket) + ("python-numpy" ,python-numpy) + ("python-pandas" ,python-pandas) + ("python-pyzmq" ,python-pyzmq) + ("python-toolz" ,python-toolz))) + (home-page "https://github.com/dask/partd/") + (synopsis "Appendable key-value storage") + (description "Partd stores key-value pairs. Values are raw bytes. We +append on old values. Partd excels at shuffling operations.") + (license license:bsd-3))) + +(define-public python2-partd + (package-with-python2 python-partd)) + +(define-public python-dask + (package + (name "python-dask") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "dask" version)) + (sha256 + (base32 + "1xwz8h020ipwav2p5gcq9pskya1cvzd6hjyvd06dvr3w5lxlmym1")))) + (build-system python-build-system) + ;; A single test out of 5000+ fails. This test is marked as xfail when + ;; pytest-xdist is used. + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'disable-broken-test + (lambda _ + (substitute* "dask/tests/test_threaded.py" + (("def test_interrupt\\(\\)" m) + (string-append "@pytest.mark.skip(reason=\"Disabled by Guix\")\n" + m))) + (when (which "python2") + ;; This test fails with recent Pandas: + ;; <https://github.com/dask/dask/issues/3794>. + (substitute* "dask/dataframe/tests/test_dataframe.py" + (("def test_info\\(\\)" m) + (string-append "@pytest.mark.skip(reason=\"Disabled by Guix\")\n" + m)))) + #t)) + (replace 'check + (lambda _ (invoke "pytest" "-vv")))))) + (propagated-inputs + `(("python-cloudpickle" ,python-cloudpickle) + ("python-numpy" ,python-numpy) + ("python-pandas" ,python-pandas) + ("python-partd" ,python-partd) + ("python-toolz" ,python-toolz) + ("python-pyyaml" ,python-pyyaml))) + (native-inputs + `(("python-pytest" ,python-pytest) + ("python-pytest-runner" ,python-pytest-runner))) + (home-page "https://github.com/dask/dask/") + (synopsis "Parallel computing with task scheduling") + (description + "Dask is a flexible parallel computing library for analytics. It +consists of two components: dynamic task scheduling optimized for computation, +and large data collections like parallel arrays, dataframes, and lists that +extend common interfaces like NumPy, Pandas, or Python iterators to +larger-than-memory or distributed environments. These parallel collections +run on top of the dynamic task schedulers. ") + (license license:bsd-3))) + +(define-public python2-dask + (package-with-python2 python-dask)) + +(define-public python-ilinkedlist + (package + (name "python-ilinkedlist") + (version "0.4.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ilinkedlist" version)) + (sha256 + (base32 + "0nrw4sr3afldrp7073hvc0rgdz282s0l819jdmj1i6nn05v33h0l")))) + (build-system python-build-system) + (native-inputs `(("python-pytest" ,python-pytest))) + (inputs `(("python" ,python))) + (home-page "https://github.com/luther9/ilinkedlist-py") + (synopsis "Immutable linked list library") + (description + "This is a implementation of immutable linked lists for Python. It +contains @code{nil} (the empty linked list) and a @code{Pair} class for nodes. +Since a linked list is treated as immutable, it is hashable, and its length +can be retrieved in constant time. Some of the terminology is inspired by +LISP. It is possible to create an improper list by creating a @code{Pair} +with a non-list @code{cdr}.") + (license license:gpl3+))) + +(define-public python-readlike + (package + (name "python-readlike") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "readlike" version)) + (sha256 + (base32 "027w8fvi50ksl57q0a7kb5zvmq8jxaawnviib1jdqw0p3igvm1j4")))) + (build-system python-build-system) + (home-page "https://github.com/jangler/readlike") + (synopsis "GNU Readline-like line editing module") + (description + "This Python module provides line editing functions similar to the default +Emacs-style ones of GNU Readline. Unlike the Python standard library's +@code{readline} package, this one allows access to those capabilties in settings +outside of a standard command-line interface. It is especially well-suited to +interfacing with Urwid, due to a shared syntax for describing key inputs. + +Currently, all stateless Readline commands are implemented. Yanking and history +are not supported.") + (license license:expat))) + +(define-public python2-readlike + (package-with-python2 python-readlike)) + +(define-public python-reparser + (package + (name "python-reparser") + (version "1.4.3") + (source + (origin + (method url-fetch) + (uri (pypi-uri "ReParser" version)) + (sha256 + (base32 "0nniqb69xr0fv7ydlmrr877wyyjb61nlayka7xr08vlxl9caz776")))) + (build-system python-build-system) + (home-page "https://github.com/xmikos/reparser") + (synopsis "Simple lexer/parser for inline markup based on regular expressions") + (description + "This Python library provides a simple lexer/parser for inline markup based +on regular expressions.") + (license license:expat))) + +(define-public python2-reparser + (let ((reparser (package-with-python2 + (strip-python2-variant python-reparser)))) + (package (inherit reparser) + (propagated-inputs + `(("python2-enum34" ,python2-enum34) + ,@(package-propagated-inputs reparser)))))) + +(define-public python-precis-i18n + (package + (name "python-precis-i18n") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "precis_i18n" version)) + (sha256 + (base32 + "0gjhvwd8aifx94rl1ag08vlmndyx2q3fkyqb0c4i46x3p2bc2yi2")))) + (build-system python-build-system) + (home-page "https://github.com/byllyfish/precis_i18n") + (synopsis "Implementation of the PRECIS framework") + (description + "This module implements the PRECIS Framework as described in RFC 8264, +RFC 8265 and RFC 8266.") + (license license:expat))) + +(define-public python-absl-py + (package + (name "python-absl-py") + (version "0.6.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "absl-py" version)) + (sha256 + (base32 + "1mp9lk0b2qa37b7y6ak4lvf6ifw2ylyy6bkf9ik77md3j4xrwlc7")))) + (build-system python-build-system) + (propagated-inputs + `(("python-six" ,python-six))) + (home-page "https://github.com/abseil/abseil-py") + (synopsis "Abseil Python common libraries") + (description + "This package provides the Abseil Python Common Libraries, a collection +of Python libraries for building Python applications.") + (license license:asl2.0))) + +(define-public python-astor + (package + (name "python-astor") + (version "0.7.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "astor" version)) + (sha256 + (base32 + "13gv6f2xz9i564byp21gcpc0l3w4cs23k1wbcam8kky2ls3hvhwm")))) + (build-system python-build-system) + ;; FIXME: There are two errors and two test failures. + (arguments `(#:tests? #f)) + (home-page "https://github.com/berkerpeksag/astor") + (synopsis "Read/rewrite/write Python ASTs") + (description "Astor is designed to allow easy manipulation of Python +source via the AST.") + (license license:bsd-3))) + +(define-public python-grpcio + (package + (name "python-grpcio") + (version "1.17.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "grpcio" version)) + (sha256 + (base32 + "0qb9y6j83nxa6d4kc60i8yfgdm7a8ms7b54kncjzf5y7nsxp8rzx")))) + (build-system python-build-system) + (propagated-inputs + `(("python-six" ,python-six))) + (home-page "https://grpc.io") + (synopsis "HTTP/2-based RPC framework") + (description "This package provides a Python library for communicating +with the HTTP/2-based RPC framework gRPC.") + (license license:asl2.0))) + +(define-public python-astunparse + (package + (name "python-astunparse") + (version "1.6.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "astunparse" version)) + (sha256 + (base32 + "1jhidwyrqn17avqh9xnnm3wd7q7aahaq009cba67g86y6gxicyyj")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ; there are none + (propagated-inputs + `(("python-six" ,python-six) + ("python-wheel" ,python-wheel))) + (home-page "https://github.com/simonpercivall/astunparse") + (synopsis "AST unparser for Python") + (description "This package provides an AST unparser for Python. It is a +factored out version of @code{unparse} found in the Python source +distribution.") + (license license:bsd-3))) + +(define-public python-gast + (package + (name "python-gast") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "gast" version)) + (sha256 + (base32 + "0c296xm1vz9x4w4inmdl0k8mnc0i9arw94si2i7pglpc461r0s3h")))) + (build-system python-build-system) + (propagated-inputs + `(("python-astunparse" ,python-astunparse))) + (home-page "https://pypi.org/project/gast/") + (synopsis "Generic Python AST that abstracts the underlying Python version") + (description + "GAST provides a compatibility layer between the AST of various Python +versions, as produced by @code{ast.parse} from the standard @code{ast} +module.") + (license license:bsd-3))) + +(define-public python-wikidata + (package + (name "python-wikidata") + (version "0.6.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "Wikidata" version)) + (sha256 + (base32 + "08nlnydddfp1jj0cdmshvld1irzngbp3dij928wqsg9ziklm6mw9")))) + (build-system python-build-system) + (propagated-inputs + `(("python-babel" ,python-babel))) + (home-page "https://github.com/dahlia/wikidata") + (synopsis "Wikidata client library") + (description + "This package provides a Python interface to +@url{https://www.wikidata.org/, Wikidata}.") + (properties '((upstream-name . "Wikidata"))) + (license license:gpl3+))) + +(define-public python-doctest-ignore-unicode + (package + (name "python-doctest-ignore-unicode") + (version "0.1.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "doctest-ignore-unicode" version)) + (sha256 + (base32 + "1m9aa4qnyj21lbq4sbvmv1vcz7zksss4rz37ddf2hxv4hk8b547w")))) + (build-system python-build-system) + (native-inputs + `(("python-nose" ,python-nose))) + (home-page "https://github.com/gnublade/doctest-ignore-unicode") + (synopsis "Ignore Unicode literal prefixes in doctests") + (description + "This package adds support for a flag to ignore Unicode literal prefixes +in doctests.") + (license license:asl2.0))) + +(define-public python-attr + (package + (name "python-attr") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "attr" version)) + (sha256 + (base32 + "0pbpskvxp5hzdvcaf766ljwpckshir8sf7z6jqji6zyib20594ch")))) + (build-system python-build-system) + (home-page "https://github.com/denis-ryzhkov/attr") + (synopsis "Decorator for attributes of target function or class") + (description "Simple decorator to set attributes of target function or +class in a @acronym{DRY, Don't Repeat Yourself} way.") + (license license:expat))) diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 86ff4f2044..1c4ea720f1 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -76,74 +76,20 @@ (define-module (gnu packages python) #:use-module ((guix licenses) #:prefix license:) #:use-module (gnu packages) - #:use-module (gnu packages algebra) - #:use-module (gnu packages adns) - #:use-module (gnu packages attr) - #:use-module (gnu packages backup) #:use-module (gnu packages bash) - #:use-module (gnu packages check) #:use-module (gnu packages compression) - #:use-module (gnu packages crypto) - #:use-module (gnu packages databases) - #:use-module (gnu packages file) - #:use-module (gnu packages fontutils) - #:use-module (gnu packages gcc) - #:use-module (gnu packages geo) - #:use-module (gnu packages ghostscript) - #:use-module (gnu packages gl) - #:use-module (gnu packages glib) - #:use-module (gnu packages graphviz) - #:use-module (gnu packages graphics) - #:use-module (gnu packages gstreamer) - #:use-module (gnu packages gtk) - #:use-module (gnu packages icu4c) - #:use-module (gnu packages image) - #:use-module (gnu packages imagemagick) - #:use-module (gnu packages libevent) + #:use-module (gnu packages dbm) #:use-module (gnu packages libffi) - #:use-module (gnu packages linux) - #:use-module (gnu packages llvm) - #:use-module (gnu packages man) - #:use-module (gnu packages maths) - #:use-module (gnu packages multiprecision) - #:use-module (gnu packages networking) - #:use-module (gnu packages ncurses) - #:use-module (gnu packages openstack) - #:use-module (gnu packages pcre) - #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python-crypto) - #:use-module (gnu packages python-web) - #:use-module (gnu packages qt) #:use-module (gnu packages readline) - #:use-module (gnu packages sdl) - #:use-module (gnu packages search) - #:use-module (gnu packages shells) - #:use-module (gnu packages ssh) - #:use-module (gnu packages terminals) - #:use-module (gnu packages tex) - #:use-module (gnu packages texinfo) - #:use-module (gnu packages time) - #:use-module (gnu packages tls) - #:use-module (gnu packages version-control) - #:use-module (gnu packages video) - #:use-module (gnu packages web) - #:use-module (gnu packages base) - #:use-module (gnu packages xml) - #:use-module (gnu packages xorg) - #:use-module (gnu packages xdisorg) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tcl) - #:use-module (gnu packages bdw-gc) + #:use-module (gnu packages tls) #:use-module (guix packages) #:use-module (guix download) - #:use-module (guix git-download) #:use-module (guix utils) #:use-module (guix build-system gnu) - #:use-module (guix build-system cmake) - #:use-module (guix build-system python) - #:use-module (guix build-system trivial) - #:use-module (srfi srfi-1) - #:use-module (srfi srfi-26)) + #:use-module (guix build-system trivial)) (define-public python-2.7 (package @@ -513,14545 +459,3 @@ instead of @command{python3}."))) (define-public python-wrapper (wrap-python3 python)) (define-public python-minimal-wrapper (wrap-python3 python-minimal)) - -(define-public python-psutil - (package - (name "python-psutil") - (version "5.4.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "psutil" version)) - (sha256 - (base32 - "063v69x7spyclyaxrd3gmzj3p16q5ayg97xqhwb1kyn22a9pwip2")))) - (build-system python-build-system) - (arguments - ;; FIXME: some tests does not return and times out. - '(#:tests? #f)) - (home-page "https://www.github.com/giampaolo/psutil") - (synopsis "Library for retrieving information on running processes") - (description - "psutil (Python system and process utilities) is a library for retrieving -information on running processes and system utilization (CPU, memory, disks, -network) in Python. It is useful mainly for system monitoring, profiling and -limiting process resources and management of running processes. It implements -many functionalities offered by command line tools such as: ps, top, lsof, -netstat, ifconfig, who, df, kill, free, nice, ionice, iostat, iotop, uptime, -pidof, tty, taskset, pmap.") - (properties `((python2-variant . ,(delay python2-psutil)))) - (license license:bsd-3))) - -(define-public python2-psutil - (let ((base (package-with-python2 (strip-python2-variant python-psutil)))) - (package - (inherit base) - (propagated-inputs - `(("python2-enum34" ,python2-enum34) ;optional - ,@(package-propagated-inputs base)))))) - -(define-public python-shapely - (package - (name "python-shapely") - (version "1.6.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Shapely" version)) - (sha256 - (base32 - "0svc58dzcw9gj92b4sgq35sdxkf85z0qwlzxarkzq4bp3h8jy58l")))) - (build-system python-build-system) - (native-inputs - `(("python-cython" ,python-cython) - ("python-matplotlib" ,python-matplotlib) - ("python-pytest" ,python-pytest) - ("python-pytest-cov" ,python-pytest-cov))) - (inputs - `(("geos" ,geos))) - (propagated-inputs - `(("python-numpy" ,python-numpy))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-geos-path - (lambda* (#:key inputs #:allow-other-keys) - (let ((geos (assoc-ref inputs "geos")) - (glibc (assoc-ref inputs ,(if (%current-target-system) - "cross-libc" "libc")))) - (substitute* "shapely/geos.py" - (("_lgeos = load_dll\\('geos_c', fallbacks=.*\\)") - (string-append "_lgeos = load_dll('geos_c', fallbacks=['" - geos "/lib/libgeos_c.so'])")) - (("free = load_dll\\('c'\\)\\.free") - (string-append "free = load_dll('c', fallbacks=['" - glibc "/lib/libc.so.6']).free")))) - #t))))) - (home-page "https://github.com/Toblerity/Shapely") - (synopsis "Library for the manipulation and analysis of geometric objects") - (description "Shapely is a Python package for manipulation and analysis of -planar geometric objects. It is based on the @code{GEOS} library.") - (license license:bsd-3))) - -(define-public python-logwrap - (package - (name "python-logwrap") - (version "3.2.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "logwrap" version ".zip")) - (sha256 - (base32 - "1d2k0hvpbi51vl410y8fbs5m0nxnlh2k7gr2nrh3k81ibhzscsra")))) - (build-system python-build-system) - (propagated-inputs - `(("python-six" ,python-six) - ("python-typing" ,python-typing))) - (native-inputs - `(("unzip" ,unzip) - ("python-cython" ,python-cython) - ("python-pytest" ,python-pytest) - ("python-pytest-cov" ,python-pytest-cov) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://github.com/penguinolog/logwrap") - (synopsis "Decorator for logging function arguments") - (description "This package provides a decorator to log function arguments -and function call return values in a human-readable way.") - (license license:asl2.0))) - -(define-public python2-shapely - (package-with-python2 python-shapely)) - -(define-public python-clyent - (package - (name "python-clyent") - (version "1.2.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "clyent" version)) - (sha256 - (base32 - "1r9987qmy1pz3hq54160bapqsywpq14waw4w9x3ly8hmq7kpgfbj")))) - (build-system python-build-system) - (native-inputs - `(("python-mock" ,python-mock))) - (home-page "https://github.com/binstar/clyent") - (synopsis "Command line client library") - (description "Clyent is a Python command line utiliy library. It is used -by @code{binstar}, @code{binstar-build} and @code{chalmers}.") - (license license:bsd-3))) - -(define-public python2-clyent - (package-with-python2 python-clyent)) - -(define-public python-babel - (package - (name "python-babel") - (version "2.6.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Babel" version)) - (sha256 - (base32 - "08rxmbx2s4irp0w0gmn498vns5xy0fagm0fg33xa772jiks51flc")))) - (build-system python-build-system) - (native-inputs - `(("python-freezegun" ,python-freezegun) - ("python-pytest" ,python-pytest))) - (propagated-inputs - `(("python-pytz" ,python-pytz))) - (arguments - `(#:phases (modify-phases %standard-phases - (replace 'check - (lambda _ (invoke "pytest" "-vv")))))) - (home-page "http://babel.pocoo.org/") - (synopsis - "Tools for internationalizing Python applications") - (description - "Babel is composed of two major parts: -- tools to build and work with gettext message catalogs -- a Python interface to the CLDR (Common Locale Data Repository), providing -access to various locale display names, localized number and date formatting, -etc. ") - (license license:bsd-3))) - -(define-public python2-babel - (package-with-python2 python-babel)) - -(define-public python2-backport-ssl-match-hostname - (package - (name "python2-backport-ssl-match-hostname") - (version "3.5.0.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/b/" - "backports.ssl_match_hostname/backports.ssl_match_hostname-" - version ".tar.gz")) - (sha256 - (base32 - "1wndipik52cyqy0677zdgp90i435pmvwd89cz98lm7ri0y3xjajh")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:tests? #f)) ; no test target - (home-page "https://bitbucket.org/brandon/backports.ssl_match_hostname") - (synopsis "Backport of ssl.match_hostname() function from Python 3.5") - (description - "This backport brings the ssl.match_hostname() function to users of -earlier versions of Python. The function checks the hostname in the -certificate returned by the server to which a connection has been established, -and verifies that it matches the intended target hostname.") - (license license:psfl))) - -(define-public python-hdf4 - (package - (name "python-hdf4") - (version "0.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri name version)) - (sha256 - (base32 - "1hjiyrxvxk9817qyqky3nar4y3fs4z8wxz0n884zzb5wi6skrjks")))) - (build-system python-build-system) - (native-inputs `(("nose" ,python-nose))) - (propagated-inputs `(("numpy" ,python-numpy))) - (inputs - `(("hdf4" ,hdf4) - ("libjpeg" ,libjpeg) - ("zlib" ,zlib))) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - ;; The 'runexamples' script sets PYTHONPATH to CWD, then goes - ;; on to import numpy. Somehow this works on their CI system. - ;; Let's just manage PYTHONPATH here instead. - (substitute* "runexamples.sh" - (("export PYTHONPATH=.*") "")) - (setenv "PYTHONPATH" - (string-append (getcwd) ":" - (getenv "PYTHONPATH"))) - (invoke "./runexamples.sh") - (invoke "nosetests" "-v")))))) - (home-page "https://github.com/fhs/python-hdf4") - (synopsis "Python interface to the NCSA HDF4 library") - (description - "Python-HDF4 is a python wrapper around the NCSA HDF version 4 library, -which implements the SD (Scientific Dataset), VS (Vdata) and V (Vgroup) API’s. -NetCDF files can also be read and modified. Python-HDF4 is a fork of -@url{http://hdfeos.org/software/pyhdf.php,pyhdf}.") - (license license:expat))) - -(define-public python2-hdf4 - (package-with-python2 python-hdf4)) - -(define-public python-h5py - (package - (name "python-h5py") - (version "2.8.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "h5py" version)) - (sha256 - (base32 - "0mdr6wrq02ac93m1aqx9kad0ppfzmm4imlxqgyy1x4l7hmdcc9p6")))) - (build-system python-build-system) - (arguments - `(#:tests? #f ; no test target - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'fix-hdf5-paths - (lambda* (#:key inputs #:allow-other-keys) - (let ((prefix (assoc-ref inputs "hdf5"))) - (substitute* "setup_build.py" - (("\\['/opt/local/lib', '/usr/local/lib'\\]") - (string-append "['" prefix "/lib" "']")) - (("'/opt/local/include', '/usr/local/include'") - (string-append "'" prefix "/include" "'"))) - (substitute* "setup_configure.py" - (("\\['/usr/local/lib', '/opt/local/lib'\\]") - (string-append "['" prefix "/lib" "']"))) - #t)))))) - (propagated-inputs - `(("python-six" ,python-six) - ("python-numpy" ,python-numpy))) - (inputs - `(("hdf5" ,hdf5))) - (native-inputs - `(("python-cython" ,python-cython) - ("python-pkgconfig" ,python-pkgconfig))) - (home-page "http://www.h5py.org/") - (synopsis "Read and write HDF5 files from Python") - (description - "The h5py package provides both a high- and low-level interface to the -HDF5 library from Python. The low-level interface is intended to be a -complete wrapping of the HDF5 API, while the high-level component supports -access to HDF5 files, datasets and groups using established Python and NumPy -concepts.") - (license license:bsd-3))) - -(define-public python2-h5py - (package-with-python2 python-h5py)) - -(define-public python-netcdf4 - (package - (name "python-netcdf4") - (version "1.2.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "netCDF4" version)) - (sha256 - (base32 - "1h6jq338amlbk0ilzvjyl7cck80i0bah9a5spn9in71vy2qxm7i5")))) - (build-system python-build-system) - (native-inputs - `(("python-cython" ,python-cython))) - (propagated-inputs - `(("python-numpy" ,python-numpy))) - (inputs - `(("netcdf" ,netcdf) - ("hdf4" ,hdf4) - ("hdf5" ,hdf5))) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (setenv "NO_NET" "1") ; disable opendap tests - (with-directory-excursion "test" - (setenv "PYTHONPATH" ; find and add the library we just built - (string-append - (car (find-files "../build" "lib.*" - #:directories? #:t - #:fail-on-error? #:t)) - ":" (getenv "PYTHONPATH"))) - (zero? (system* "python" "run_all.py")))))))) - (home-page - "https://github.com/Unidata/netcdf4-python") - (synopsis "Python/numpy interface to the netCDF library") - (description "Netcdf4-python is a Python interface to the netCDF C -library. netCDF version 4 has many features not found in earlier -versions of the library and is implemented on top of HDF5. This module -can read and write files in both the new netCDF 4 and the old netCDF 3 -format, and can create files that are readable by HDF5 clients. The -API is modelled after @code{Scientific.IO.NetCDF}, and should be familiar -to users of that module.") - ;; The software is mainly ISC, but includes some files covered - ;; by the Expat license. - (license (list license:isc license:expat)))) - -(define-public python2-netcdf4 - (package-with-python2 python-netcdf4)) - -(define-public python-lockfile - (package - (name "python-lockfile") - (version "0.12.2") - (source - (origin - (method url-fetch) - (uri (string-append "https://pypi.python.org/packages/source/l/lockfile/" - "lockfile-" version ".tar.gz")) - (sha256 - (base32 - "16gpx5hm73ah5n1079ng0vy381hl802v606npkx4x8nb0gg05vba")))) - (build-system python-build-system) - (arguments '(#:test-target "check")) - (native-inputs - `(("python-pbr" ,python-pbr))) - (home-page "https://launchpad.net/pylockfile") - (synopsis "Platform-independent file locking module") - (description - "The lockfile package exports a LockFile class which provides a simple -API for locking files.") - (license license:expat))) - -(define-public python2-lockfile - (package-with-python2 python-lockfile)) - -(define-public python-semantic-version - (package - (name "python-semantic-version") - (version "2.6.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "semantic_version" version)) - (sha256 - (base32 - "1h2l9xyg1zzsda6kjcmfcgycbvrafwci283vcr1v5sbk01l2hhra")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ; PyPI tarball lacks tests - (home-page "https://github.com/rbarrois/python-semanticversion") - (synopsis "Semantic versioning module for Python") - (description - "The @code{semantic_version} class is a small library for handling -@uref{https://semver.org/, semantic versioning} (@dfn{SemVer}) in Python. - -It can compare versions, generate a new version that represents a bump in one of -the version levels, and check whether any given string is a proper semantic -version identifier.") - (license license:bsd-3))) - -(define-public python2-semantic-version - (package-with-python2 python-semantic-version)) - -(define-public python-serpent - (package - (name "python-serpent") - (version "1.27") - (source - (origin - (method url-fetch) - (uri (pypi-uri "serpent" version)) - (sha256 - (base32 - "04p9dsrm5pv8vhk3flvih55kgvlzpi38hlaykdiakddmgwqw93bg")))) - (build-system python-build-system) - (home-page "https://github.com/irmen/Serpent") - (synopsis "Serializer for literal Python expressions") - (description - "Serpent provides ast.literal_eval() compatible object tree -serialization. It serializes an object tree into bytes (utf-8 encoded string) -that can be decoded and then passed as-is to ast.literal_eval() to rebuild it -as the original object tree. As such it is safe to send serpent data to other -machines over the network for instance (because only safe literals are -encoded).") - (license license:expat))) - -(define-public python-setuptools - (package - (name "python-setuptools") - (version "40.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "setuptools" version ".zip")) - (sha256 - (base32 - "0pq116lr14gnc62v76nk0npkm6krb2mpp7p9ab369zgv4n7dnah1")) - (modules '((guix build utils))) - (snippet - '(begin - ;; Remove included binaries which are used to build self-extracting - ;; installers for Windows. - ;; TODO: Find some way to build them ourself so we can include them. - (for-each delete-file (find-files "setuptools" "^(cli|gui).*\\.exe$")) - #t)))) - (build-system python-build-system) - ;; FIXME: Tests require pytest, which itself relies on setuptools. - ;; One could bootstrap with an internal untested setuptools. - (arguments - `(#:tests? #f)) - (home-page "https://pypi.python.org/pypi/setuptools") - (synopsis - "Library designed to facilitate packaging Python projects") - (description - "Setuptools is a fully-featured, stable library designed to facilitate -packaging Python projects, where packaging includes: -Python package and module definitions, -distribution package metadata, -test hooks, -project installation, -platform-specific details, -Python 3 support.") - ;; TODO: setuptools now bundles the following libraries: - ;; packaging, pyparsing, six and appdirs. How to unbundle? - (license (list license:psfl ; setuptools itself - license:expat ; six, appdirs, pyparsing - license:asl2.0 ; packaging is dual ASL2/BSD-2 - license:bsd-2)))) - -(define-public python2-setuptools - (package-with-python2 python-setuptools)) - -(define-public python-uniseg - (package - (name "python-uniseg") - (version "0.7.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "uniseg" version ".zip")) - (sha256 - (base32 - "05jsazvz6nbmh6l3v1rph5ydkqn1hzx1pyggdyvgp2qgmgrnmiz2")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; The test suite requires network access. - (native-inputs - `(("unzip" ,unzip))) - (home-page - "https://bitbucket.org/emptypage/uniseg-python") - (synopsis - "Python library to determine Unicode text segmentations") - (description - "Uniseg is a Python package used to determine Unicode text segmentations. -Supported segmentations include: -@enumerate -@item @dfn{Code point} (any value in the Unicode codespace) -@item @dfn{Grapheme cluster} (user-perceived character made of a single or -multiple Unicode code points, e.g. \"G\" + acute-accent) -@item Word break -@item Sentence break -@item Line break -@end enumerate") - (license license:expat))) - -(define-public python2-uniseg - (package-with-python2 python-uniseg)) - -(define-public python-humanfriendly - (package - (name "python-humanfriendly") - (version "4.4.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "humanfriendly" version)) - (sha256 - (base32 - "0pisgizjql86785jchfjv217g0lsgk114g2lja5j4y3lsc3b9szi")))) - (build-system python-build-system) - (arguments - `(;; XXX: Tests depend on coloredlogs, which in turn depends on humanfriendly. - #:tests? #f)) - (propagated-inputs - `(("python-monotonic" ,python-monotonic))) - (home-page "https://humanfriendly.readthedocs.io") - (synopsis "Human-friendly input and output in Python") - (description - "The functions and classes in @code{humanfriendly} can be used to make -text interfaces more user-friendly. It includes tools to parse and format -numbers, file sizes, and timespans, timers for long-running operations, menus -to allow the user to choose from a list of options, and terminal interaction -helpers.") - (license license:expat))) - -(define-public python2-humanfriendly - (package-with-python2 python-humanfriendly)) - -(define-public python-capturer - (package - (name "python-capturer") - (version "2.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "capturer" version)) - (sha256 - (base32 - "05d6ji4j8ipiq0br7bwam38qc6hd9l1djmfxlzrxx19ziyjl4089")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) - (propagated-inputs - `(("python-humanfriendly" ,python-humanfriendly))) - (home-page "https://capturer.readthedocs.io") - (synopsis "Capture stdout and stderr streams of the current process") - (description - "The capturer package makes it easy to capture the stdout and stderr -streams of the current process and subprocesses. Output can be relayed -to the terminal in real time but is also available to the Python program -for additional processing.") - (license license:expat))) - -(define-public python2-capturer - (package-with-python2 python-capturer)) - -(define-public python-case - (package - (name "python-case") - (version "1.5.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "case" version)) - (sha256 - (base32 - "1cagg06vfph864s6l5jb0zqliwxh647bki8j6lf4a4qrv40jnhs8")))) - (build-system python-build-system) - (propagated-inputs - `(("python-mock" ,python-mock) - ("python-nose" ,python-nose) - ("python-six" ,python-six) - ("python-unittest2" ,python-unittest2))) - (native-inputs - `(("python-coverage" ,python-coverage))) - (home-page "https://github.com/celery/case") - (synopsis "Unittest utilities and convenience methods") - (description - "The @code{case} package provides utilities on top of unittest, including -some helpful Python 2 compatibility convenience methods.") - (license license:bsd-3))) - -(define-public python-verboselogs - (package - (name "python-verboselogs") - (version "1.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "verboselogs" version)) - (sha256 - (base32 - "09z4d1jiasn7k1hs5af2ckmnrd0i1d1m04bhfjhv7z6svzfdwgg3")))) - (build-system python-build-system) - (native-inputs - `(("python-mock" ,python-mock) - ("python-astroid" ,python-astroid) - ("python-pylint" ,python-pylint))) - (home-page "https://verboselogs.readthedocs.io") - (synopsis "Verbose logging level for Python's logging module") - (description - "The @code{verboselogs} package extends Python's @code{logging} module to -add the log levels NOTICE, SPAM, SUCCESS and VERBOSE.") - (license license:expat))) - -(define-public python2-verboselogs - (package-with-python2 python-verboselogs)) - -(define-public python-coloredlogs - (package - (name "python-coloredlogs") - (version "7.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "coloredlogs" version)) - (sha256 - (base32 - "1blcann6dyg5dhps9pg12rn0q0rjrlajpmmil0gy0j4cbvnl2il9")))) - (build-system python-build-system) - (arguments - `(;Tests require some updated modules - #:tests? #f)) - (propagated-inputs - `(("python-capturer" ,python-capturer))) - (home-page "https://coloredlogs.readthedocs.io") - (synopsis "Colored stream handler for Python's logging module") - (description - "The @code{coloredlogs} package enables colored terminal output for -Python's logging module. The @code{ColoredFormatter} class inherits from -@code{logging.Formatter} and uses ANSI escape sequences to render your logging -messages in color.") - (license license:expat))) - -(define-public python2-coloredlogs - (package-with-python2 python-coloredlogs)) - -(define-public python-eventlet - (package - (name "python-eventlet") - (version "0.20.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "eventlet" version)) - (sha256 - (base32 - "0f3q55mq4n021wb7qa53pz3ix6i2py64sap66vsaqm2scjw83m9s")))) - (build-system python-build-system) - (propagated-inputs - `(("python-greenlet" ,python-greenlet))) - (arguments - ;; TODO: Requires unpackaged 'enum-compat'. - '(#:tests? #f)) - (home-page "http://eventlet.net") - (synopsis "Concurrent networking library for Python") - (description - "Eventlet is a concurrent networking library for Python that -allows you to change how you run your code, not how you write it. -It uses @code{epoll} or @code{libevent} for highly scalable non-blocking I/O. -Coroutines ensure that the developer uses a blocking style of programming -that is similar to threading, but provide the benefits of non-blocking I/O. -The event dispatch is implicit, which means you can easily use @code{Eventlet} -from the Python interpreter, or as a small part of a larger application.") - (license license:expat))) - -(define-public python2-eventlet - (let ((base (package-with-python2 - (strip-python2-variant python-eventlet)))) - (package (inherit base) - (propagated-inputs - `(("python2-enum34" ,python2-enum34) - ,@(package-propagated-inputs base)))))) - -(define-public python-six - (package - (name "python-six") - (version "1.11.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "six" version)) - (sha256 - (base32 - "1scqzwc51c875z23phj48gircqjgnn3af8zy2izjwmnlxrxsgs3h")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (invoke "py.test" "-v")))))) - (native-inputs - `(("python-py" ,python-py) - ("python-pytest" ,python-pytest-bootstrap))) - (home-page "https://pypi.python.org/pypi/six/") - (synopsis "Python 2 and 3 compatibility utilities") - (description - "Six is a Python 2 and 3 compatibility library. It provides utility -functions for smoothing over the differences between the Python versions with -the goal of writing Python code that is compatible on both Python versions. -Six supports every Python version since 2.5. It is contained in only one -Python file, so it can be easily copied into your project.") - (license license:x11))) - -(define-public python2-six - (package-with-python2 python-six)) - -(define-public python-six-bootstrap - (package - (inherit python-six) - (name "python-six-bootstrap") - (native-inputs `()) - (arguments `(#:tests? #f)))) - -(define-public python2-six-bootstrap - (package-with-python2 python-six-bootstrap)) - -(define-public python-schedule - (package - (name "python-schedule") - (version "0.4.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "schedule" version)) - (sha256 - (base32 - "0vplyjcbfrq50sphlwya749z8p2pcyi2nycw3518i0qpd9a6189i")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-mock" ,python-mock))) - (home-page "https://github.com/dbader/schedule") - (synopsis "Schedule periodic function calls in Python") - (description - "Schedule is an in-process scheduler for periodic jobs that uses the -builder pattern for configuration. Schedule lets you run Python functions (or -any other callable) periodically at pre-determined intervals using a simple, -human-friendly syntax.") - (license license:expat))) - -(define-public python2-schedule - (package-with-python2 python-schedule)) - -(define-public python-pandas - (package - (name "python-pandas") - (version "0.23.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pandas" version)) - (sha256 - (base32 "1x54pd7hr3y7qahx6b5bf2wzj54xvl8r3s1h4pl254pnmi3wl92v")))) - (build-system python-build-system) - (arguments - `(#:modules ((guix build utils) - (guix build python-build-system) - (ice-9 ftw) - (srfi srfi-26)) - #:phases (modify-phases %standard-phases - (replace 'check - (lambda _ - (let ((build-directory - (string-append - (getcwd) "/build/" - (car (scandir "build" - (cut string-prefix? "lib." <>)))))) - ;; Disable the "strict data files" option which causes - ;; the build to error out if required data files are not - ;; available (as is the case with PyPI archives). - (substitute* "setup.cfg" - (("addopts = --strict-data-files") "addopts = ")) - (with-directory-excursion build-directory - ;; Delete tests that require "moto" which is not yet in Guix. - (for-each delete-file - '("pandas/tests/io/conftest.py" - "pandas/tests/io/json/test_compression.py" - "pandas/tests/io/parser/test_network.py" - "pandas/tests/io/test_excel.py" - "pandas/tests/io/test_parquet.py")) - (invoke "pytest" "-vv" "pandas" "--skip-slow" - "--skip-network" "-k" - ;; XXX: Due to the deleted tests above. - "not test_read_s3_jsonl")))))))) - (propagated-inputs - `(("python-numpy" ,python-numpy) - ("python-pytz" ,python-pytz) - ("python-dateutil" ,python-dateutil))) - (native-inputs - `(("python-cython" ,python-cython) - ("python-beautifulsoup4" ,python-beautifulsoup4) - ("python-lxml" ,python-lxml) - ("python-html5lib" ,python-html5lib) - ("python-nose" ,python-nose) - ("python-pytest" ,python-pytest))) - (home-page "https://pandas.pydata.org") - (synopsis "Data structures for data analysis, time series, and statistics") - (description - "Pandas is a Python package providing fast, flexible, and expressive data -structures designed to make working with structured (tabular, -multidimensional, potentially heterogeneous) and time series data both easy -and intuitive. It aims to be the fundamental high-level building block for -doing practical, real world data analysis in Python.") - (license license:bsd-3))) - -(define-public python2-pandas - (package-with-python2 python-pandas)) - -(define-public python2-mechanize - (package - (name "python2-mechanize") - (version "0.2.5") - (source - (origin - (method url-fetch) - (uri (string-append "https://pypi.python.org/packages/source/m/mechanize/mechanize-" - version ".tar.gz")) - (sha256 - (base32 - "0rj7r166i1dyrq0ihm5rijfmvhs8a04im28lv05c0c3v206v4rrf")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 ; apparently incompatible with Python 3 - #:tests? #f)) - ;; test fails with message - ;; AttributeError: 'module' object has no attribute 'test_pullparser' - ;; (python-3.3.2) or - ;; AttributeError: 'module' object has no attribute 'test_urllib2_localnet' - ;; (python-2.7.5). - ;; The source code is from March 2011 and probably not up-to-date - ;; with respect to python unit tests. - (home-page "http://wwwsearch.sourceforge.net/mechanize/") - (synopsis - "Stateful programmatic web browsing in Python") - (description - "Mechanize implements stateful programmatic web browsing in Python, -after Andy Lester’s Perl module WWW::Mechanize.") - (license (license:non-copyleft - "file://COPYING" - "See COPYING in the distribution.")))) - - -(define-public python-simplejson - (package - (name "python-simplejson") - (version "3.14.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "simplejson" version)) - (sha256 - (base32 - "1lkv3xlf7ryzi69zqfdbkvpxdfy1rg1rq2yzcnxgf4km5m6difqy")))) - (build-system python-build-system) - (home-page "http://simplejson.readthedocs.org/en/latest/") - (synopsis - "Json library for Python") - (description - "JSON (JavaScript Object Notation) is a subset of JavaScript -syntax (ECMA-262 3rd edition) used as a lightweight data interchange -format. - -Simplejson exposes an API familiar to users of the standard library marshal -and pickle modules. It is the externally maintained version of the json -library contained in Python 2.6, but maintains compatibility with Python 2.5 -and (currently) has significant performance advantages, even without using -the optional C extension for speedups. Simplejson is also supported on -Python 3.3+.") - (license license:x11))) - -(define-public python2-simplejson - (package-with-python2 python-simplejson)) - - -(define-public python-pyicu - (package - (name "python-pyicu") - (version "2.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "PyICU" version)) - (sha256 - (base32 - "0wq9y5fi1ighgf5aws9nr87vi1w44p7q1k83rx2y3qj5d2xyhspa")))) - (build-system python-build-system) - (inputs - `(("icu4c" ,icu4c))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-six" ,python-six))) - (home-page "https://github.com/ovalhub/pyicu") - (synopsis "Python extension wrapping the ICU C++ API") - (description - "PyICU is a python extension wrapping the ICU C++ API.") - (properties `((python2-variant . ,(delay python2-pyicu)))) - (license license:x11))) - -(define-public python2-pyicu - (let ((base (package-with-python2 - (strip-python2-variant python-pyicu)))) - (package - (inherit base) - (arguments - `(,@(package-arguments base) - #:phases - (modify-phases %standard-phases - (add-before 'check 'delete-failing-test - (λ _ - ;; XXX: This fails due to Unicode issues unique to Python 2, - ;; it seems: <https://github.com/ovalhub/pyicu/issues/61>. - (delete-file "test/test_Script.py") - #t)))))))) - -(define-public python2-dogtail - ;; Python 2 only, as it leads to "TabError: inconsistent use of tabs and - ;; spaces in indentation" with Python 3. - (package - (name "python2-dogtail") - (version "0.9.9") - (source (origin - (method url-fetch) - (uri (pypi-uri "dogtail" version)) - (sha256 - (base32 - "0p5wfssvzr9w0bvhllzbbd8fnp4cca2qxcpcsc33dchrmh5n552x")))) - (build-system python-build-system) - (arguments `(#:python ,python-2 - #:tests? #f)) ; invalid command "test" - ;; Currently no offical homepage. - (home-page "https://pypi.python.org/pypi/dogtail/") - (synopsis "GUI test tool and automation framework written in Python") - (description - "Dogtail is a GUI test tool and automation framework written in Python. -It uses Accessibility (a11y) technologies to communicate with desktop -applications. dogtail scripts are written in Python and executed like any -other Python program.") - (license license:gpl2+))) - -(define-public python-empy - (package - (name "python-empy") - (version "3.3") - (source (origin - (method url-fetch) - (uri (string-append "http://www.alcyone.com/software/empy/empy-" - version ".tar.gz")) - (sha256 - (base32 - "01g8mmkfnvjdmlhsihwyx56lrg7r5m5d2fg6mnxsvy6g0dnl69f6")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ;python2 only - (home-page "http://www.alcyone.com/software/empy/") - (synopsis "Templating system for Python") - (description - "EmPy is a system for embedding Python expressions and statements in -template text; it takes an EmPy source file, processes it, and produces -output. This is accomplished via expansions, which are special signals to the -EmPy system and are set off by a special prefix (by default the at sign, @@). -EmPy can expand arbitrary Python expressions and statements in this way, as -well as a variety of special forms. Textual data not explicitly delimited in -this way is sent unaffected to the output, allowing Python to be used in -effect as a markup language. Also supported are callbacks via hooks, -recording and playback via diversions, and dynamic, chainable filters. The -system is highly configurable via command line options and embedded -commands.") - (license license:lgpl2.1+))) - -(define-public python2-empy - (package-with-python2 python-empy)) - -(define-public python2-element-tree - (package - (name "python2-element-tree") - (version "1.2.6") - (source (origin - (method url-fetch) - (uri (string-append - "http://effbot.org/media/downloads/elementtree-" - version "-20050316.tar.gz")) - (sha256 - (base32 - "016bphqnlg0l4vslahhw4r0aanw95bpypy65r1i1acyb2wj5z7dj")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 ; seems to be part of Python 3 - #:tests? #f)) ; no 'test' sub-command - (synopsis "Toolkit for XML processing in Python") - (description - "ElementTree is a Python library supporting lightweight XML processing.") - (home-page "http://effbot.org/zone/element-index.htm") - (license (license:x11-style - "http://docs.python.org/2/license.html" - "Like \"CWI LICENSE AGREEMENT FOR PYTHON 0.9.0 THROUGH 1.2\".")))) - -(define-public python2-pybugz - (package - (name "python2-pybugz") - (version "0.6.11") - (source (origin - (method url-fetch) - (uri (string-append - "http://bits.liquidx.net/projects/pybugz/pybugz-" - version ".tar.gz")) - (sha256 - (base32 - "17ni00p08gp5lkxlrrcnvi3x09fmajnlbz4da03qcgl9q21ym4jd")) - (patches (search-patches "pybugz-stty.patch" - "pybugz-encode-error.patch")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 ; SyntaxError with Python 3 - #:tests? #f)) ; no 'test' sub-command - (propagated-inputs - `(("element-tree" ,python2-element-tree))) - (synopsis "Python and command-line interface to Bugzilla") - (description - "PyBugz is a Python library and command-line tool to query the Bugzilla -bug tracking system. It is meant as an aid to speed up interaction with the -bug tracker.") - (home-page "http://www.liquidx.net/pybugz/") - (license license:gpl2))) - -(define-public python2-enum - (package - (name "python2-enum") - (version "0.4.6") - (source (origin - (method url-fetch) - (uri (pypi-uri "enum" version)) - (sha256 - (base32 - "13lk3yrwj42vl30kw3c194f739nrfrdg64s6i0v2p636n4k8brsl")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2)) - (home-page "http://pypi.python.org/pypi/enum/") - (synopsis "Robust enumerated type support in Python") - (description - "This provides a module for robust enumerations in Python. It has -been superseded by the Python standard library and is provided only for -compatibility.") - ;; Choice of either license. - (license (list license:gpl3+ license:psfl)))) - -(define-public python-enum34 - (package - (name "python-enum34") - (version "1.1.6") - (source - (origin - (method url-fetch) - (uri (pypi-uri "enum34" version)) - (sha256 - (base32 - "1cgm5ng2gcfrkrm3hc22brl6chdmv67b9zvva9sfs7gn7dwc9n4a")))) - (build-system python-build-system) - (home-page "https://pypi.python.org/pypi/enum34") - (synopsis "Backported Python 3.4 Enum") - (description - "Enum34 is the new Python stdlib enum module available in Python 3.4 -backported for previous versions of Python from 2.4 to 3.3.") - (license license:bsd-3))) - -(define-public python2-enum34 - (package-with-python2 python-enum34)) - -(define-public python-parse-type - (package - (name "python-parse-type") - (version "0.4.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "parse_type" version)) - (sha256 - (base32 - "0g3b6gsdwnm8dpkh2vn34q6dzxm9gl908ggyzcv31n9xbp3vv5pm")))) - (build-system python-build-system) - (propagated-inputs - `(("python-six" ,python-six) - ("python-parse" ,python-parse))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://github.com/jenisys/parse_type") - (synopsis "Extended parse module") - (description - "Parse_type extends the python parse module.") - (properties - `((python2-variant . ,(delay python2-parse-type)))) - (license license:bsd-3))) - -(define-public python2-parse-type - (let ((base (package-with-python2 - (strip-python2-variant python-parse-type)))) - (package (inherit base) - (propagated-inputs - `(("python2-enum34" ,python2-enum34) - ,@(package-propagated-inputs base)))))) - -(define-public python-parse - (package - (name "python-parse") - (version "1.8.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "parse" version)) - (sha256 - (base32 - "0f8997xr8nq2nq35iiviq8ningd1zvy59fg503xfpbi2dwhgdkf3")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ (invoke "python" "test_parse.py")))))) - (home-page "https://github.com/r1chardj0n3s/parse") - (synopsis "Parse strings") - (description - "Parse strings using a specification based on the Python @code{format()} -syntax.") - (license license:x11))) - -(define-public python-polib - (package - (name "python-polib") - (version "1.0.8") - (source (origin - (method url-fetch) - (uri (pypi-uri "polib" version)) - (sha256 - (base32 - "1pq2hbm3m2q0cjdszk8mc4qa1vl3wcblh5nfyirlfnzb2pcy7zss")))) - (build-system python-build-system) - (home-page "https://bitbucket.org/izi/polib/wiki/Home") - (synopsis "Manipulate, create and modify gettext files") - (description "Polib can manipulate any gettext format (po, pot and mo) -files. It can be used to create po files from scratch or to modify -existing ones.") - (license license:expat))) - -(define-public python2-polib - (let ((base (package-with-python2 (strip-python2-variant python-polib)))) - (package - (inherit base) - (arguments `(,@(package-arguments base) - ;; Tests don't work with python2. - #:tests? #f))))) - -(define-public scons - (package - (name "scons") - (version "3.0.1") - (source (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/scons/scons/" version - "/scons-" version ".tar.gz")) - (sha256 - (base32 - "0wzid419mlwqw9llrg8gsx4nkzhqy16m4m40r0xnh6cwscw5wir4")))) - (build-system python-build-system) - (arguments - `(#:use-setuptools? #f ; still relies on distutils - #:tests? #f)) ; no 'python setup.py test' command - (home-page "http://scons.org/") - (synopsis "Software construction tool written in Python") - (description - "SCons is a software construction tool. Think of SCons as an improved, -cross-platform substitute for the classic Make utility with integrated -functionality similar to autoconf/automake and compiler caches such as ccache. -In short, SCons is an easier, more reliable and faster way to build -software.") - (license license:x11))) - -(define-public scons-python2 - (package - (inherit (package-with-python2 scons)) - (name "scons-python2"))) - -(define-public python-extras - (package - (name "python-extras") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "extras" version)) - (sha256 - (base32 - "0khvm08rcwm62wc47j8niyl6h13f8w51c8669ifivjdr23g3cbhk")))) - (build-system python-build-system) - (arguments - ;; FIXME: Circular dependency on testtools. - '(#:tests? #f)) - (home-page "https://github.com/testing-cabal/extras") - (synopsis "Useful extensions to the Python standard library") - (description - "Extras is a set of extensions to the Python standard library.") - (license license:expat))) - -(define-public python2-extras - (package-with-python2 python-extras)) - -(define-public python-mimeparse - (package - (name "python-mimeparse") - (version "1.6.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/p/python-mimeparse/python-mimeparse-" - version ".tar.gz")) - (sha256 - (base32 - "0y2g6cl660bpz11srgqyvvm8gmywpgyx8g0xfvbiyr0af0yv1r3n")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (invoke "./mimeparse_test.py")))))) - (home-page - "https://github.com/dbtsai/python-mimeparse") - (synopsis "Python library for parsing MIME types") - (description - "Mimeparse provides basic functions for parsing MIME type names and -matching them against a list of media-ranges.") - (license license:expat))) - -(define-public python2-mimeparse - (package-with-python2 python-mimeparse)) - -(define-public python-pafy - (package - (name "python-pafy") - (version "0.5.3.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pafy" version)) - (sha256 - (base32 - "1a7dxi95m1043rxx1r5x3ngb66nwlq6aqcasyqqjzmmmjps4zrim")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ; Currently pafy can not find itself in the tests - (propagated-inputs - ;; Youtube-dl is a python package which is imported in the file - ;; "backend_youtube_dl.py", therefore it needs to be propagated. - `(("youtube-dl" ,youtube-dl))) - (home-page "https://np1.github.io/pafy/") - (synopsis "Retrieve YouTube content and metadata") - (description - "@code{pafy} is a python library to retrieve YouTube content and metadata.") - (license license:lgpl3+))) - -(define-public python2-funcsigs - (package - (name "python2-funcsigs") - (version "1.0.2") - (source (origin - (method url-fetch) - (uri (pypi-uri "funcsigs" version)) - (sha256 - (base32 - "0l4g5818ffyfmfs1a924811azhjj8ax9xd1cffr1mzd3ycn0zfx7")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2)) - (native-inputs - `(("python2-unittest2" ,python2-unittest2))) - (home-page "http://funcsigs.readthedocs.org") - (synopsis "Python function signatures from PEP362") - (description - "Backport of @code{funcsigs} which was introduced in Python 3.3.") - (license license:asl2.0))) - -(define-public python2-funcsigs-bootstrap - (package - (inherit python2-funcsigs) - (name "python2-funcsigs-bootstrap") - (native-inputs `()) - (arguments - `(#:tests? #f - ,@(package-arguments python2-funcsigs))))) - -(define-public python-py - (package - (name "python-py") - (version "1.5.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "py" version)) - (sha256 - (base32 - "1xxvwfn82457djf55f5n2c94699rfqnk43br8fif2r2q8gvrmm9z")))) - (build-system python-build-system) - (arguments - ;; FIXME: "ImportError: 'test' module incorrectly imported from - ;; '/gnu/store/...-python-pytest-mimimal-3.0.5/lib/python3.5/site-packages'. - ;; Expected '/tmp/guix-build-python-py-1.4.31.drv-0/py-1.4.31/py'. - ;; Is this module globally installed?" - '(#:tests? #f)) - (native-inputs - `(("python-setuptools-scm" ,python-setuptools-scm))) - (home-page "https://github.com/pytest-dev/py") - (synopsis "Python library for parsing, I/O, instrospection, and logging") - (description - "Py is a Python library for file name parsing, .ini file parsing, I/O, -code introspection, and logging.") - (license license:expat))) - -(define-public python2-py - (package-with-python2 python-py)) - -;; Recent versions of python-fixtures and python-testrepository need -;; python-pbr for packaging, which itself needs these two packages for -;; testing. -;; To fix this circular dependency, we use a build of python-pbr, based on the -;; same source, just without any test dependencies and with tests disabled. -;; python-pbr-minmal is then used to package python-fixtures and -;; python-testrepository. -;; Strictly speaking we currently could remove the test-requirements from the -;; normal python-pbr package (and save this package) since test are disabled -;; there anyway. But this may change in future. -(define-public python-pbr-minimal - (package - (name "python-pbr-minimal") - (version "3.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pbr" version)) - (sha256 - (base32 - "14fs5acnalnb3h62s7q7av239j541fk0n0z0lawh4h09b1s93s6p")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) - (home-page "http://docs.openstack.org/developer/pbr/") - (synopsis "Minimal build of python-pbr used for bootstrapping") - (description - "Used only for bootstrapping python2-pbr, you should not need this.") - (license license:asl2.0))) - -(define-public python2-pbr-minimal - (package-with-python2 python-pbr-minimal)) - -(define-public python-pbr - (package - (inherit python-pbr-minimal) - (name "python-pbr") - (arguments - `(#:tests? #f)) ;; Most tests seem to use the Internet. - (propagated-inputs - `(("git" ,git))) ;; pbr actually uses the "git" binary. - (native-inputs - `(("python-fixtures" ,python-fixtures-bootstrap) - ;; discover, coverage, hacking, subunit - ("python-mock" ,python-mock) - ("python-six" ,python-six) - ("python-sphinx" ,python-sphinx) - ("python-testrepository" ,python-testrepository-bootstrap) - ("python-testresources" ,python-testresources-bootstrap) - ("python-testscenarios" ,python-testscenarios-bootstrap) - ("python-testtools" ,python-testtools-bootstrap) - ("python-virtualenv" ,python-virtualenv))) - (synopsis "Enhance the default behavior of Python’s setuptools") - (description - "Python Build Reasonableness (PBR) is a library that injects some useful -and sensible default behaviors into your setuptools run. It will set -versions, process requirements files and generate AUTHORS and ChangeLog file -from git information. -"))) - -(define-public python2-pbr - (package-with-python2 python-pbr)) - -(define-public python-exif-read - (package - (name "python-exif-read") - (version "2.1.2") - (source (origin - (method url-fetch) - (uri (pypi-uri "ExifRead" version)) - (sha256 - (base32 - "1b90jf6m9vxh9nanhpyvqdq7hmfx5iggw1l8kq10jrs6xgr49qkr")))) - (build-system python-build-system) - (arguments `(#:tests? #f)) ; no tests - (home-page "https://github.com/ianare/exif-py") - (synopsis "Python library to extract EXIF data from image files") - (description - "ExifRead is a Python library to extract EXIF data from tiff and jpeg -files.") - (license license:bsd-3))) - -(define-public python2-exif-read - (package-with-python2 python-exif-read)) - -(define-public python-pyld - (package - (name "python-pyld") - (version "1.0.3") - (source (origin - (method url-fetch) - (uri (pypi-uri "PyLD" version)) - (sha256 - (base32 - "12i2g6xdj30k7xxcibg3sc5y76snwq8l6n8fy9lyi577kgy0h2pm")))) - (build-system python-build-system) - (home-page "https://github.com/digitalbazaar/pyld") - (synopsis "Python implementation of the JSON-LD specification") - (description - "PyLD is an implementation of the JSON-LD specification.") - (license license:bsd-3))) - -(define-public python2-pyld - (package-with-python2 python-pyld)) - -(define-public python-click - (package - (name "python-click") - (version "6.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "click" version)) - (sha256 - (base32 - "02qkfpykbq35id8glfgwc38yc430427yd05z1wc5cnld8zgicmgi")))) - (build-system python-build-system) - (arguments - `(;; The tests are fragile, depending on a specific version of pytest: - ;; <https://github.com/pallets/click/issues/823> - #:tests? #f - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'fix-paths - (lambda* (#:key inputs #:allow-other-keys) - (let ((glibc (assoc-ref inputs ,(if (%current-target-system) - "cross-libc" "libc")))) - (substitute* "click/_unicodefun.py" - (("'locale'") - (string-append "'" glibc "/bin/locale'")))) - #t))))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "http://click.pocoo.org") - (synopsis "Command line library for Python") - (description - "Click is a Python package for creating command line interfaces in a -composable way with as little code as necessary. Its name stands for -\"Command Line Interface Creation Kit\". It's highly configurable but comes -with sensible defaults out of the box.") - (license license:bsd-3))) - -(define-public python2-click - (package-with-python2 python-click)) - -(define-public python-wheel - (package - (name "python-wheel") - (version "0.30.0a0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "wheel" version)) - (sha256 - (base32 - "1nm6mn8isny0hr86rhbfrpfj867c0phf001xgsd69xfp9ady1wwq")))) - (build-system python-build-system) - (native-inputs - `(("python-jsonschema" ,python-jsonschema) - ("python-pytest-cov" ,python-pytest-cov))) - (home-page "https://bitbucket.org/pypa/wheel/") - (synopsis "Format for built Python packages") - (description - "A wheel is a ZIP-format archive with a specially formatted filename and -the @code{.whl} extension. It is designed to contain all the files for a PEP -376 compatible install in a way that is very close to the on-disk format. Many -packages will be properly installed with only the @code{Unpack} step and the -unpacked archive preserves enough information to @code{Spread} (copy data and -scripts to their final locations) at any later time. Wheel files can be -installed with a newer @code{pip} or with wheel's own command line utility.") - (license license:expat) - (properties `((python2-variant . ,(delay python2-wheel)))))) - -(define-public python2-wheel - (let ((wheel (package-with-python2 - (strip-python2-variant python-wheel)))) - (package (inherit wheel) - (native-inputs `(("python2-functools32" ,python2-functools32) - ,@(package-native-inputs wheel)))))) - -(define-public python-vcversioner - (package - (name "python-vcversioner") - (version "2.16.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "vcversioner" version)) - (sha256 - (base32 - "16z10sm78jd7ca3jbkgc3q5i8a8q7y1h21q1li21yy3rlhbhrrns")))) - (build-system python-build-system) - (synopsis "Python library for version number discovery") - (description "Vcversioner is a Python library that inspects tagging -information in a variety of version control systems in order to discover -version numbers.") - (home-page "https://github.com/habnabit/vcversioner") - (license license:isc))) - -(define-public python2-vcversioner - (package-with-python2 python-vcversioner)) - -(define-public python-jsonschema - (package - (name "python-jsonschema") - (version "2.6.0") - (source (origin - (method url-fetch) - (uri - (string-append - "https://pypi.python.org/packages/source/j/jsonschema/jsonschema-" - version ".tar.gz")) - (sha256 - (base32 - "00kf3zmpp9ya4sydffpifn0j0mzm342a2vzh82p6r0vh10cg7xbg")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check (lambda _ (zero? (system* "nosetests"))))))) - (native-inputs - `(("python-nose" ,python-nose) - ("python-vcversioner" ,python-vcversioner))) - (home-page "https://github.com/Julian/jsonschema") - (synopsis "Implementation of JSON Schema for Python") - (description - "Jsonschema is an implementation of JSON Schema for Python.") - (license license:expat) - (properties `((python2-variant . ,(delay python2-jsonschema)))))) - -(define-public python2-jsonschema - (let ((jsonschema (package-with-python2 - (strip-python2-variant python-jsonschema)))) - (package (inherit jsonschema) - (native-inputs - `(("python2-mock" ,python2-mock) - ,@(package-native-inputs jsonschema))) - (propagated-inputs - `(("python2-functools32" ,python2-functools32)))))) - -(define-public python-schema - (package - (name "python-schema") - (version "0.6.6") - (source - (origin - (method url-fetch) - (uri (pypi-uri "schema" version)) - (sha256 - (base32 - "1lw28j9w9vxyigg7vkfkvi6ic9lgjkdnfvnxdr7pklslqvzmk2vm")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://github.com/keleshev/schema") - (synopsis "Simple data validation library") - (description - "@code{python-schema} is a library for validating Python data -structures, such as those obtained from config-files, forms, external -services or command-line parsing, converted from JSON/YAML (or -something else) to Python data-types.") - (license license:psfl))) - -(define-public python2-schema - (package-with-python2 python-schema)) - -(define-public python-schema-0.5 - (package (inherit python-schema) - (version "0.5.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "schema" version)) - (sha256 - (base32 - "10zqvpaky51kgb8nd42bk7jwl8cn2zvayxjpdc1wwmpybj92x67s")))))) - -(define-public python2-schema-0.5 - (package-with-python2 python-schema-0.5)) - -(define-public python-kitchen - (package - (name "python-kitchen") - (version "1.2.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "kitchen" version)) - (sha256 - (base32 - "1zakh6l0yjvwic9p0nkvmbidpnkygkxbigh2skmb5gccyrhbp7xg")))) - (build-system python-build-system) - (propagated-inputs - `(("python-chardet" ,python-chardet))) - (home-page "https://github.com/fedora-infra/kitchen") - (synopsis "Python API for snippets") - (description "@code{kitchen} module provides a python API for all sorts of -little useful snippets of code that everybody ends up writing for their projects -but never seem big enough to build an independent release. Use kitchen and stop -cutting and pasting that code over and over.") - (license (list license:lgpl2.1+ - ;; subprocess.py, test_subprocess.py, - ;; kitchen/pycompat25/defaultdict.py: - license:psfl)))) - -(define-public python2-kitchen - (package-with-python2 python-kitchen)) - -(define-public python-unidecode - (package - (name "python-unidecode") - (version "1.0.23") - (source (origin - (method url-fetch) - (uri (pypi-uri "Unidecode" version)) - (sha256 - (base32 - "1ysjbr3nqfqj97h8zyj3v9pya413vkv7a1mzml80w37xx15kb1cb")))) - (build-system python-build-system) - (home-page "https://pypi.python.org/pypi/Unidecode") - (synopsis "ASCII transliterations of Unicode text") - (description - "Unidecode provides ASCII transliterations of Unicode text. Unidecode is -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 intelligible.") - (license license:gpl2+))) - -(define-public python2-unidecode - (package-with-python2 python-unidecode)) - -(define-public python-pyjwt - (package - (name "python-pyjwt") - (version "1.5.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "PyJWT" version)) - (sha256 - (base32 - "1rxsg14i33vm2i6lz0my628108c81k43v10n4h3p0gx62xdyf2sh")) - (modules '((guix build utils))) - (snippet - '(begin - (for-each delete-file-recursively - (find-files "." "\\.pyc$")) - #t)))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-pytest-cov" ,python-pytest-cov) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://github.com/progrium/pyjwt") - (synopsis "JSON Web Token implementation in Python") - (description - "PyJWT is a JSON Web Token implementation written in Python.") - (license license:expat))) - -(define-public python2-pyjwt - (package-with-python2 python-pyjwt)) - -(define-public python-pykka - (package - (name "python-pykka") - (version "1.2.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Pykka" version)) - (sha256 - (base32 - "049w3r0mdnnw7xv19jiq7rvls9k7xs73x05b4qs5d6z4vvmgyiz8")))) - (build-system python-build-system) - (native-inputs - `(("python-mock" ,python-mock) - ("python-nose" ,python-nose) - ("python-gevent" ,python-gevent) - ("python-eventlet" ,python-eventlet))) - (home-page "https://www.pykka.org/") - (synopsis "Pykka is a Python implementation of the actor model") - (description - "Pykka is a Python implementation of the actor model. -The actor model introduces some simple rules to control the sharing -of state and cooperation between execution units, which makes it -easier to build concurrent applications.") - (license license:asl2.0))) - -(define-public python2-pykka - (package-with-python2 python-pykka)) - -(define-public python-pympler - (package - (name "python-pympler") - (home-page "https://pythonhosted.org/Pympler/") - (version "0.5") - (source (origin - (method url-fetch) - (uri (pypi-uri "Pympler" version)) - (sha256 - (base32 - "03qwsbilqgvnbl3a1jmpgixbr2kq6m3fvdlzyr3wdp01bwlc85kx")))) - (build-system python-build-system) - (arguments - `(#:phases (modify-phases %standard-phases - (delete 'check) - (add-after 'install 'check - (lambda* (#:key inputs outputs #:allow-other-keys) - (add-installed-pythonpath inputs outputs) - (invoke "python" "setup.py" "test")))))) - (synopsis "Measure, monitor and analyze memory behavior") - (description - "Pympler is a development tool to measure, monitor and analyze -the memory behavior of Python objects in a running Python application. - -By pympling a Python application, detailed insight in the size and the -lifetime of Python objects can be obtained. Undesirable or unexpected -runtime behavior like memory bloat and other @samp{pymples} can easily -be identified. - -A web profiling frontend exposes process statistics, garbage -visualisation and class tracker statistics.") - (license license:asl2.0))) - -(define-public python2-pympler - (package-with-python2 python-pympler)) - -(define-public python-itsdangerous - (package - (name "python-itsdangerous") - (version "0.24") - (source - (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/i/itsdangerous/itsdangerous-" - version ".tar.gz")) - (sha256 - (base32 - "06856q6x675ly542ig0plbqcyab6ksfzijlyf1hzhgg3sgwgrcyb")))) - (build-system python-build-system) - (home-page "https://github.com/mitsuhiko/itsdangerous") - (synopsis "Python library for passing data to/from untrusted environments") - (description - "Itsdangerous provides various helpers to pass trusted data to untrusted -environments and back.") - (license license:bsd-3))) - -(define-public python2-itsdangerous - (package-with-python2 python-itsdangerous)) - -(define-public python-pyyaml - (package - (name "python-pyyaml") - (version "3.13") - (source - (origin - (method url-fetch) - (uri (pypi-uri "PyYAML" version)) - (sha256 - (base32 - "1gx603g484z46cb74j9rzr6sjlh2vndxayicvlyhxdz98lhhkwry")))) - (build-system python-build-system) - (inputs - `(("libyaml" ,libyaml))) - (home-page "http://pyyaml.org/wiki/PyYAML") - (synopsis "YAML parser and emitter for Python") - (description - "PyYAML is a YAML parser and emitter for Python. PyYAML features a -complete YAML 1.1 parser, Unicode support, pickle support, capable extension -API, and sensible error messages. PyYAML supports standard YAML tags and -provides Python-specific tags that allow to represent an arbitrary Python -object.") - (license license:expat))) - -(define-public python2-pyyaml - (package-with-python2 python-pyyaml)) - -(define-public python-vine - (package - (name "python-vine") - (version "1.1.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "vine" version)) - (sha256 - (base32 - "0wkskb2hb494v9gixqnf4bl972p4ibcmxdykzpwjlfa5picns4aj")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-case" ,python-case))) - (home-page "https://github.com/celery/vine") - (synopsis "Promises for Python") - (description - "@code{vine} provides a special implementation of promises in that it can -be used both for \"promise of a value\" and lazy evaluation. The biggest -upside for this is that everything in a promise can also be a promise, -e.g. filters, callbacks and errbacks can all be promises.") - (license license:bsd-3))) - -(define-public python-virtualenv - (package - (name "python-virtualenv") - (version "15.0.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "virtualenv" version)) - (sha256 - (base32 - "07cbajzk8l05k5zhlw0b9wbf2is65bl9v6zrn2a0iyn57w6pd73d")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - ;; Disable failing test. See upstream bug report - ;; https://github.com/pypa/virtualenv/issues/957 - (substitute* "tests/test_virtualenv.py" - (("skipif.*") "skipif(True, reason=\"Guix\")\n")) - (zero? (system* "py.test"))))))) - (native-inputs - `(("python-mock" ,python-mock) - ("python-pytest" ,python-pytest))) - (home-page "https://virtualenv.pypa.io/") - (synopsis "Virtual Python environment builder") - (description - "Virtualenv is a tool to create isolated Python environments.") - (license license:expat))) - -(define-public python2-virtualenv - (package-with-python2 python-virtualenv)) - -(define-public python-markupsafe - (package - (name "python-markupsafe") - (version "1.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/M/MarkupSafe/MarkupSafe-" - version ".tar.gz")) - (sha256 - (base32 - "0rdn1s8x9ni7ss8rfiacj7x1085lx8mh2zdwqslnw8xc3l4nkgm6")))) - (build-system python-build-system) - (home-page "https://github.com/mitsuhiko/markupsafe") - (synopsis "XML/HTML/XHTML markup safe string implementation for Python") - (description - "Markupsafe provides an XML/HTML/XHTML markup safe string implementation -for Python.") - (license license:bsd-3))) - -(define-public python2-markupsafe - (package-with-python2 python-markupsafe)) - -(define-public python-jinja2 - (package - (name "python-jinja2") - (version "2.10") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Jinja2" version)) - (sha256 - (base32 - "190l36hfw3wb2n3n68yacjabxyb1pnxwn7vjx96cmjj002xy2jzq")))) - (build-system python-build-system) - (propagated-inputs - `(("python-markupsafe" ,python-markupsafe))) - (home-page "http://jinja.pocoo.org/") - (synopsis "Python template engine") - (description - "Jinja2 is a small but fast and easy to use stand-alone template engine -written in pure Python.") - (license license:bsd-3))) - -(define-public python2-jinja2 - (package-with-python2 python-jinja2)) - -(define-public python-pystache - (package - (name "python-pystache") - (version "0.5.4") - (source (origin - (method url-fetch) - (uri (pypi-uri "pystache" version)) - (sha256 - (base32 - "0nmqsfmiw4arjxqkmf9z66ml950pcdjk6aq4gin4sywmzdjw5fzp")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; FIXME: Python 3 tests are failing. - (home-page "http://defunkt.io/pystache/") - (synopsis "Python logic-less template engine") - (description - "Pystache is a Python implementation of the framework agnostic, -logic-free templating system Mustache.") - (license license:expat) - (properties `((python2-variant . ,(delay python2-pystache)))))) - -(define-public python2-pystache - (package (inherit (package-with-python2 - (strip-python2-variant python-pystache))) - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (zero? (system* "python" "test_pystache.py"))))))))) - -(define-public python-joblib - (package - (name "python-joblib") - (version "0.13.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "joblib" version)) - (sha256 - (base32 - "0612nazad8dxmn3xghfrmjax6456l4xy6hn9cngs7vydi14ds7v5")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ (invoke "pytest" "-v" "joblib")))))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://joblib.readthedocs.io/") - (synopsis "Using Python functions as pipeline jobs") - (description - "Joblib is a set of tools to provide lightweight pipelining in Python. -In particular, joblib offers: transparent disk-caching of the output values -and lazy re-evaluation (memoize pattern), easy simple parallel computing -logging and tracing of the execution.") - (license license:bsd-3))) - -(define-public python2-joblib - (package-with-python2 python-joblib)) - -(define-public python-docutils - (package - (name "python-docutils") - (version "0.14") - (source - (origin - (method url-fetch) - (uri (pypi-uri "docutils" version)) - (sha256 - (base32 - "0x22fs3pdmr42kvz6c654756wja305qv6cx1zbhwlagvxgr4xrji")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; no setup.py test command - (home-page "http://docutils.sourceforge.net/") - (synopsis "Python Documentation Utilities") - (description - "Docutils is a modular system for processing documentation into useful -formats, such as HTML, XML, and LaTeX. For input Docutils supports -reStructuredText.") - ;; Most of the source code is public domain, but some source files are - ;; licensed under the PFSL, BSD 2-clause, and GPLv3+ licenses. - (license (list license:public-domain license:psfl license:bsd-2 license:gpl3+)))) - -(define-public python2-docutils - (package-with-python2 python-docutils)) - -(define-public python-pygments - (package - (name "python-pygments") - (version "2.2.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Pygments" version)) - (sha256 - (base32 - "1k78qdvir1yb1c634nkv6rbga8wv4289xarghmsbbvzhvr311bnv")))) - (build-system python-build-system) - (arguments - ;; FIXME: Tests require sphinx, which depends on this. - '(#:tests? #f)) - (home-page "http://pygments.org/") - (synopsis "Syntax highlighting") - (description - "Pygments is a syntax highlighting package written in Python.") - (license license:bsd-2))) - -(define-public python2-pygments - (package-with-python2 python-pygments)) - -(define-public python-sphinxcontrib-websupport - (package - (name "python-sphinxcontrib-websupport") - (version "1.1.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "sphinxcontrib-websupport" version)) - (sha256 - (base32 - "1ff3ix76xi1y6m99qxhaq5161ix9swwzydilvdya07mgbcvpzr4x")))) - (build-system python-build-system) - (arguments - ;; FIXME: Tests depend on Sphinx, which depends on this. - `(#:tests? #f)) - (home-page "http://sphinx-doc.org/") - (synopsis "Sphinx API for web applications") - (description "This package provides a Python API to easily integrate -Sphinx documentation into your web application. It provides tools to -integrate Sphinx documents in web templates and to handle searches.") - (license license:bsd-3))) - -(define-public python2-sphinxcontrib-websupport - (package-with-python2 python-sphinxcontrib-websupport)) - -(define-public python-sphinx - (package - (name "python-sphinx") - (version "1.7.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Sphinx" version)) - (sha256 - (base32 - "0pkkbfj7cl157q550gcs45am5y78ps0h7q6455d64s1zmw01jlvi")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - ;; Requires Internet access. - (delete-file "tests/test_build_linkcheck.py") - (substitute* "tests/test_build_latex.py" - (("@pytest.mark.sphinx\\('latex', testroot='images'\\)") - "@pytest.mark.skip()")) - (when (which "python") - ;; XXX: These tests are broken when using Python2: - ;; <https://github.com/sphinx-doc/sphinx/issues/4710>. - (delete-file "tests/test_api_translator.py") - (delete-file "tests/test_setup_command.py")) - (invoke "make" "test")))))) - (propagated-inputs - `(("python-imagesize" ,python-imagesize) - ("python-sphinx-alabaster-theme" - ,python-sphinx-alabaster-theme) - ("python-babel" ,python-babel) - ("python-snowballstemmer" ,python-snowballstemmer) - ("python-docutils" ,python-docutils) - ("python-jinja2" ,python-jinja2) - ("python-packaging" ,python-packaging) - ("python-pygments" ,python-pygments) - ("python-requests" ,python-requests) - ("python-six" ,python-six) - ("python-sphinxcontrib-websupport" ,python-sphinxcontrib-websupport))) - (native-inputs - `(("graphviz" ,graphviz) - ("imagemagick" ,imagemagick) ;for "convert" - ("python-html5lib" ,python-html5lib) - ("python-mock" ,python-mock) - ("python-nose" ,python-nose) - ("python-pytest" ,python-pytest))) - (home-page "http://sphinx-doc.org/") - (synopsis "Python documentation generator") - (description "Sphinx is a tool that makes it easy to create documentation -for Python projects or other documents consisting of multiple reStructuredText -sources.") - (license license:bsd-3) - (properties `((python2-variant . ,(delay python2-sphinx)))))) - -(define-public python2-sphinx - (let ((base (package-with-python2 (strip-python2-variant python-sphinx)))) - (package - (inherit base) - (native-inputs `(("python2-mock" ,python2-mock) - ("python2-enum34" ,python2-enum34) - ,@(package-native-inputs base))) - (propagated-inputs `(("python2-pytz" ,python2-pytz) - ("python2-typing" ,python2-typing) - ,@(package-propagated-inputs base)))))) - -(define-public python-sphinx-gallery - (package - (name "python-sphinx-gallery") - (version "0.1.13") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/sphinx-gallery/sphinx-gallery" - "/archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "03fs99mcb1r7qp0xixqv07vcz98sk21yq19ffdysi0infdcpzfkd")))) - (build-system python-build-system) - (arguments - ;; FIXME: Tests attempt to download <https://docs.python.org/3/objects.inv>, - ;; <https://docs.scipy.org/doc/numpy/objects.inv>, and - ;; <https://matplotlib.org/objects.inv>. - `(#:tests? #f)) - (native-inputs - `(("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://sphinx-gallery.github.io/") - (synopsis "Generate an examples gallery automatically") - (description - "@code{sphinx_gallery} is a Sphinx extension that builds an HTML version -from any set of Python scripts and puts it into an examples gallery.") - (license license:bsd-3))) - -(define-public python2-sphinx-gallery - (package-with-python2 python-sphinx-gallery)) - -(define-public python-sphinx-rtd-theme - (package - (name "python-sphinx-rtd-theme") - (version "0.2.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "sphinx_rtd_theme" version)) - (sha256 - (base32 - "05rlhjzdyapr2w74jjs7mrm8hi69qskcr5vya9f9drpsys7lpxrd")))) - (build-system python-build-system) - (arguments '(#:tests? #f)) ; No tests. - (propagated-inputs - `(("python-sphinx" ,python-sphinx))) - (home-page "https://github.com/snide/sphinx_rtd_theme/") - (synopsis "ReadTheDocs.org theme for Sphinx") - (description "A theme for Sphinx used by ReadTheDocs.org.") - (license license:expat))) - -(define-public python2-sphinx-rtd-theme - (package-with-python2 python-sphinx-rtd-theme)) - -(define-public python-guzzle-sphinx-theme - (package - (name "python-guzzle-sphinx-theme") - (version "0.7.11") - (source - (origin - (method url-fetch) - (uri (pypi-uri "guzzle_sphinx_theme" version)) - (sha256 - (base32 - "1rnkzrrsbnifn3vsb4pfaia3nlvgvw6ndpxp7lzjrh23qcwid34v")))) - (build-system python-build-system) - (propagated-inputs - `(("python-sphinx" ,python-sphinx))) - (home-page "https://github.com/guzzle/guzzle_sphinx_theme") - (synopsis "Sphinx theme used by Guzzle") - (description "This package provides guzzle_sphinx_theme, a theme for the -Sphinx documentation system, used by @uref{http://docs.guzzlephp.org, Guzzle} -and several other projects.") - (license license:expat))) - -(define-public python2-guzzle-sphinx-theme - (package-with-python2 python-guzzle-sphinx-theme)) - -(define-public python-rst.linker - (package - (name "python-rst.linker") - (version "1.10") - (source - (origin - (method url-fetch) - (uri (pypi-uri "rst.linker" version)) - (sha256 - (base32 - "0iqaacp7pj1s8avs4kc0qg0r7dscywaq37y6l9j14glqdikk0wdj")))) - (build-system python-build-system) - (propagated-inputs - `(("python-dateutil" ,python-dateutil) - ("python-six" ,python-six))) - (native-inputs - `(("python-setuptools-scm" ,python-setuptools-scm))) - ;; Test would require path.py, which would introduce a cyclic dependence. - (arguments `(#:tests? #f)) - ;; Note: As of version 1.7 the documentation is not worth building. - (home-page "https://github.com/jaraco/rst.linker") - (synopsis "Sphinx plugin to add links and timestamps") - (description "rst.linker allows to automatically replace text by a -reStructuredText external reference or timestamps. It's primary purpose is to -augment the changelog, but it can be used for other documents, too.") - (license license:expat))) - -(define-public python2-rst.linker - (package-with-python2 python-rst.linker)) - -(define-public python-feedgenerator - (package - (name "python-feedgenerator") - (version "1.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "feedgenerator" version)) - (sha256 - (base32 - "01mirwkm7xfx539hmvj7g9da1j51gw5lsx74dr0glizskjm5vq2s")) - (modules '((guix build utils))) - (snippet - '(begin - ;; Remove pre-compiled .pyc files from source. - (for-each delete-file-recursively - (find-files "." "__pycache__" #:directories? #t)) - (for-each delete-file (find-files "." "\\.pyc$")) - #t)))) - (build-system python-build-system) - (propagated-inputs - `(("python-pytz" ,python-pytz) - ("python-six" ,python-six))) - (home-page "https://github.com/getpelican/feedgenerator") - (synopsis - "Standalone version of Django's Atom/RSS feed generator") - (description - "Feedgenerator-py3k is a standalone version of Django's feedgenerator, -which can produce feeds in RSS 2.0, RSS 0.91, and Atom formats.") - (license license:bsd-3))) - -(define-public python2-feedgenerator - (package-with-python2 python-feedgenerator)) - -(define-public python-toml - (package - (name "python-toml") - (version "0.9.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "toml" version)) - (sha256 - (base32 - "0bdbpbip67wdm6c7xwc6mmbmskyradj4cdxn1iibj4fcx1nbv1lf")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ;no tests suite in release - (home-page "https://github.com/uiri/toml") - (synopsis "Library for TOML") - (description - "@code{toml} is a library for parsing and creating Tom's Obvious, Minimal -Language (TOML) configuration files.") - (license license:expat))) - -(define-public python-black - (package - (name "python-black") - (version "18.6b4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "black" version)) - (sha256 - (base32 - "0i4sfqgz6w15vd50kbhi7g7rifgqlf8yfr8y78rypd56q64qn592")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'patch-source-shebangs 'patch-extra-shebangs - (lambda _ - (let ((python3 (which "python3"))) - (substitute* '("tests/data/fmtonoff.py" - "tests/data/string_prefixes.py" - "tests/data/function.py") - (("#!/usr/bin/env python3(\\.[0-9]+)?" _ minor-version) - (string-append "#!" python3 (if (string? minor-version) - minor-version - "")))))))))) - (propagated-inputs - `(("python-click" ,python-click) - ("python-attrs" ,python-attrs) - ("python-appdirs" ,python-appdirs) - ("python-toml" ,python-toml))) - (home-page "https://github.com/ambv/black") - (synopsis "The uncompromising code formatter") - (description "Black is the uncompromising Python code formatter.") - (license license:expat))) - -(define-public python-blinker - (package - (name "python-blinker") - (version "1.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "blinker" version)) - (sha256 - (base32 - "1dpq0vb01p36jjwbhhd08ylvrnyvcc82yxx3mwjx6awrycjyw6j7")))) - (build-system python-build-system) - (home-page "http://pythonhosted.org/blinker/") - (synopsis "Fast, simple object-to-object and broadcast signaling") - (description - "Blinker provides a fast dispatching system that allows any number of -interested parties to subscribe to events, or \"signals\".") - (license license:expat))) - -(define-public python2-blinker - (package-with-python2 python-blinker)) - -(define-public pelican - (package - (name "pelican") - (version "3.7.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pelican" version)) - (sha256 - (base32 - "12spygavv9b6xpb5pgp7f0p3z0mms60nx6zrpx1yfkj68zz4flra")))) - (build-system python-build-system) - (propagated-inputs - `(("python-feedgenerator" ,python-feedgenerator) - ("python-jinja2" ,python-jinja2) - ("python-pygments" ,python-pygments) - ("python-docutils" ,python-docutils) - ("python-pytz" ,python-pytz) - ("python-blinker" ,python-blinker) - ("python-unidecode" ,python-unidecode) - ("python-six" ,python-six) - ("python-dateutil" ,python-dateutil) - ("python-markdown" ,python-markdown))) - (home-page "https://getpelican.com/") - (arguments - `(;; XXX Requires a lot more packages to do unit tests :P - #:tests? #f - #:phases (modify-phases %standard-phases - (add-before - 'install 'adjust-requires - ;; Since feedgenerator is installed from git, it doesn't - ;; conform to the version requirements. - ;; - ;; We *do have* "feedgenerator >= 1.6", but strip off the - ;; version requirement so setuptools doesn't get confused. - (lambda _ - (substitute* "setup.py" - (("['\"]feedgenerator.*?['\"]") - "'feedgenerator'"))))))) - (synopsis "Python-based static site publishing system") - (description - "Pelican is a tool to generate a static blog from reStructuredText, -Markdown input files, and more. Pelican uses Jinja2 for templating -and is very extensible.") - (license license:agpl3+))) - -(define-public python-scikit-image - (package - (name "python-scikit-image") - (version "0.14.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "scikit-image" version)) - (sha256 - (base32 "0l1c3rl4s1jyv80i5hns4pgih09zrxfj7lygdc51w8sgyysb7ac6")))) - (build-system python-build-system) - (arguments - ;; TODO: Some tests require running X11 server. Disable them? - '(#:tests? #f)) - ;; See DEPENDS.txt for the list of build and run time requiremnts - (propagated-inputs - `(("python-cloudpickle" ,python-cloudpickle) - ("python-dask" ,python-dask) - ("python-matplotlib" ,python-matplotlib) - ("python-networkx" ,python-networkx) - ("python-numpy" ,python-numpy) - ("python-pillow" ,python-pillow) - ("python-pywavelets" ,python-pywavelets) - ("python-scipy" ,python-scipy) - ("python-six" ,python-six))) - (native-inputs - `(("python-cython" ,python-cython))) - (home-page "http://scikit-image.org/") - (synopsis "Image processing in Python") - (description - "Scikit-image is a collection of algorithms for image processing.") - (license license:bsd-3))) - -(define-public python2-scikit-image - (package-with-python2 python-scikit-image)) - -(define-public python-cython - (package - (name "python-cython") - (version "0.28.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Cython" version)) - (sha256 - (base32 - "0imw9s2rbrh32clbl10csnwmig9p3nzkrd2baxxxfmnrsc42pb3n")))) - (build-system python-build-system) - ;; we need the full python package and not just the python-wrapper - ;; because we need libpython3.3m.so - (inputs - `(("python" ,python))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'set-HOME - ;; some tests require access to "$HOME/.cython" - (lambda _ (setenv "HOME" "/tmp") #t)) - - ;; FIXME: These tests started failing on armhf after the 0.28 update - ;; (commit c69d11c5930), both with an error such as this: - ;; compiling (cpp) and running dictcomp ... - ;; === C/C++ compiler error output: === - ;; ‘ - ;; dictcomp.cpp:5221: confused by earlier errors, bailing out - ;; See <https://hydra.gnu.org/build/2948724> for logs. - ,@(if (target-arm32?) - `((add-before 'check 'disable-failing-tests - (lambda _ - (let ((disabled-tests (open-file "tests/bugs.txt" "a"))) - (for-each (lambda (test) - (format disabled-tests "~a\n" test)) - '("memslice" "dictcomp")) - (close-port disabled-tests))))) - '()) - - (replace 'check - (lambda _ - ;; The "with_outer_raising" test fails with Python 3.7. See - ;; https://github.com/cython/cython/issues/2454 - (delete-file "tests/run/generators_py.py") - (invoke "python" "runtests.py" "-vv")))))) - (home-page "http://cython.org/") - (synopsis "C extensions for Python") - (description "Cython is an optimising static compiler for both the Python -programming language and the extended Cython programming language. It makes -writing C extensions for Python as easy as Python itself.") - (license license:asl2.0) - (properties `((python2-variant . ,(delay python2-cython)))))) - -(define-public python2-cython - (package (inherit (package-with-python2 - (strip-python2-variant python-cython))) - (name "python2-cython") - (inputs - `(("python-2" ,python-2))))) ; this is not automatically changed - -;; The RPython toolchain currently does not support Python 3. -(define-public python2-rpython - (package - (name "python2-rpython") - (version "0.2.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "rpython" version)) - (sha256 - (base32 - "02z9cvxf0y41dcvwnvf2zn0albhhw1drvjjbq27m6i1piw1k6fc0")))) - (build-system python-build-system) - (arguments `(#:python ,python-2)) - (native-inputs - `(("python2-pytest" ,python2-pytest))) ; needed for running tests - (home-page "https://rpython.readthedocs.org") - (synopsis "Framework for implementing interpreters and virtual machines") - (description "RPython is a translation and support framework for -producing implementations of dynamic languages, emphasizing a clean separation -between language specification and implementation aspects.") - (license license:expat))) - -;; NOTE: when upgrading numpy please make sure that python-pandas and -;; python-scipy still build, as these three packages are often used together. -(define-public python-numpy - (package - (name "python-numpy") - (version "1.15.4") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/numpy/numpy/releases/download/v" - version "/numpy-" version ".tar.gz")) - (sha256 - (base32 - "102vcl2qq4pjbm7a3d67vkkvn4466ngia1d8wi5avqwqh8j0jvkn")))) - (build-system python-build-system) - (inputs - `(("openblas" ,openblas) - ("lapack" ,lapack))) - (native-inputs - `(("python-cython" ,python-cython) - ("python-pytest" ,python-pytest) - ("gfortran" ,gfortran))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'build 'configure-blas-lapack - (lambda* (#:key inputs #:allow-other-keys) - (call-with-output-file "site.cfg" - (lambda (port) - (format port - "[openblas] -libraries = openblas -library_dirs = ~a/lib -include_dirs = ~a/include - -# backslash-n to make emacs happy -\n[lapack] -lapack_libs = lapack -library_dirs = ~a/lib -include_dirs = ~a/include -" - (assoc-ref inputs "openblas") - (assoc-ref inputs "openblas") - (assoc-ref inputs "lapack") - (assoc-ref inputs "lapack")))) - #t)) - (add-before 'build 'fix-executable-paths - (lambda* (#:key inputs #:allow-other-keys) - ;; Make /gnu/store/...-bash-.../bin/sh the default shell, - ;; instead of /bin/sh. - (substitute* "numpy/distutils/exec_command.py" - (("(os.environ.get\\('SHELL', ')(/bin/sh'\\))" match match-start match-end) - (string-append match-start (assoc-ref inputs "bash") match-end))) - ;; Use "gcc" executable, not "cc". - (substitute* "numpy/distutils/system_info.py" - (("c = distutils\\.ccompiler\\.new_compiler\\(\\)") - "c = distutils.ccompiler.new_compiler(); c.set_executables(compiler='gcc',compiler_so='gcc',linker_exe='gcc',linker_so='gcc -shared')")) - #t)) - ;; Tests can only be run after the library has been installed and not - ;; within the source directory. - (delete 'check) - (add-after 'install 'check - (lambda* (#:key outputs inputs #:allow-other-keys) - ;; Make installed package available for running the tests - (add-installed-pythonpath inputs outputs) - ;; Make sure "f2py" etc is found. - (setenv "PATH" (string-append (assoc-ref outputs "out") "/bin" - ":" (getenv "PATH"))) - (with-directory-excursion "/tmp" - (invoke "python" "-c" - "import numpy; numpy.test(verbose=2)"))))))) - (home-page "http://www.numpy.org/") - (synopsis "Fundamental package for scientific computing with Python") - (description "NumPy is the fundamental package for scientific computing -with Python. It contains among other things: a powerful N-dimensional array -object, sophisticated (broadcasting) functions, tools for integrating C/C++ -and Fortran code, useful linear algebra, Fourier transform, and random number -capabilities.") - (license license:bsd-3))) - -(define-public python2-numpy - (package-with-python2 python-numpy)) - -;; NOTE: NumPy 1.8 is packaged only for Python 2 because it is of -;; interest only for legacy code going back to NumPy's predecessor -;; Numeric. -(define-public python2-numpy-1.8 - (package (inherit python2-numpy) - (version "1.8.2") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/numpy/numpy/archive/v" version ".tar.gz")) - (file-name (string-append "python2-numpy-" version ".tar.gz")) - (sha256 - (base32 - "0sc20gz1b17xnyrkp5frca3ql5qfalpv916hfg2kqxpwr6jg0f1g")))) - (arguments - (substitute-keyword-arguments (package-arguments python2-numpy) - ((#:phases phases) - `(modify-phases ,phases - (replace 'configure-blas-lapack - (lambda* (#:key inputs #:allow-other-keys) - (call-with-output-file "site.cfg" - (lambda (port) - (format port - "[openblas] -libraries = openblas,lapack -library_dirs = ~a/lib:~a/lib -include_dirs = ~a/include:~a/include -" - (assoc-ref inputs "openblas") - (assoc-ref inputs "lapack") - (assoc-ref inputs "openblas") - (assoc-ref inputs "lapack")))) - #t)))))) - (native-inputs - `(("python2-nose" ,python2-nose))) - (description "NumPy is the fundamental package for scientific computing -with Python. It contains among other things: a powerful N-dimensional array -object, sophisticated (broadcasting) functions, tools for integrating C/C++ -and Fortran code, useful linear algebra, Fourier transform, and random number -capabilities. Version 1.8 is the last one to contain the numpy.oldnumeric API -that includes the compatibility layer numpy.oldnumeric with NumPy's predecessor -Numeric.") - (license license:bsd-3))) - -(define-public python-munch - (package - (name "python-munch") - (version "2.0.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "munch" version)) - (sha256 - (base32 - "1cmqg91xnqx8gvnh4pmp0bfl1dfcm65d5p9mg73zz8pkjhx6h80l")))) - (build-system python-build-system) - (home-page "https://github.com/Infinidat/munch") - (synopsis "Dot-accessible dictionary") - (description "Munch is a dot-accessible dictionary similar to JavaScript -objects.") - (license license:expat))) - -(define-public python2-munch - (package-with-python2 python-munch)) - -(define-public python-colormath - (package - (name "python-colormath") - (version "3.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "colormath" version)) - (sha256 - (base32 - "05qjycgxp3p2f9n6lmic68sxmsyvgnnlyl4z9w7dl9s56jphaiix")))) - (build-system python-build-system) - (propagated-inputs - `(("python-networkx" ,python-networkx) - ("python-numpy" ,python-numpy))) - (home-page "https://github.com/gtaylor/python-colormath") - (synopsis "Color math and conversion library") - (description - "This is a Python library for color math and conversions.") - (license license:bsd-3))) - -(define-public python2-colormath - (package-with-python2 python-colormath)) - -(define-public python-spectra - (package - (name "python-spectra") - (version "0.0.11") - (source - (origin - (method url-fetch) - (uri (pypi-uri "spectra" version)) - (sha256 - (base32 - "1f322x914bhkg6r5gv1vmnir3iy0k5kih0fd2gp3rdkw32jn5cwf")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (zero? (system* "nosetests" "-v"))))))) - (propagated-inputs - `(("python-colormath" ,python-colormath))) - (native-inputs - `(("python-nose" ,python-nose))) - (home-page "https://github.com/jsvine/spectra") - (synopsis "Color scales and color conversion") - (description - "This package provides a Python library intended to make color math, -color scales, and color space conversion easy. It has support for: - -@enumerate -@item Color scales -@item Color ranges -@item Color blending -@item Brightening/darkening colors -@item Saturating/desaturating colors -@item Conversion to/from multiple color spaces. -@end enumerate\n") - (license license:expat))) - -(define-public python2-spectra - (package-with-python2 python-spectra)) - -(define-public python-numpy-documentation - (package - (name "python-numpy-documentation") - (version (package-version python-numpy)) - (source (package-source python-numpy)) - (build-system python-build-system) - (native-inputs - `(("python-matplotlib" ,python-matplotlib) - ("python-numpy" ,python-numpy) - ("pkg-config" ,pkg-config) - ("python-sphinx" ,python-sphinx) - ("python-numpydoc" ,python-numpydoc) - ("texlive" ,(texlive-union (list texlive-fonts-amsfonts - texlive-fonts-ec - texlive-generic-ifxetex - texlive-generic-pdftex - texlive-latex-amsfonts - texlive-latex-capt-of - texlive-latex-cmap - texlive-latex-environ - texlive-latex-eqparbox - texlive-latex-etoolbox - texlive-latex-expdlist - texlive-latex-fancyhdr - texlive-latex-fancyvrb - texlive-latex-fncychap - texlive-latex-float - texlive-latex-framed - texlive-latex-geometry - texlive-latex-graphics - texlive-latex-hyperref - texlive-latex-mdwtools - texlive-latex-multirow - texlive-latex-oberdiek - texlive-latex-parskip - texlive-latex-preview - texlive-latex-tabulary - texlive-latex-threeparttable - texlive-latex-titlesec - texlive-latex-trimspaces - texlive-latex-ucs - texlive-latex-upquote - texlive-latex-url - texlive-latex-varwidth - texlive-latex-wrapfig))) - ("texinfo" ,texinfo) - ("perl" ,perl) - ("scipy-sphinx-theme" - ,(origin ; The build script expects scipy-sphinx-theme as a git submodule - (method git-fetch) - (uri (git-reference - (url "https://github.com/scipy/scipy-sphinx-theme.git") - (commit "c466764e2231ba132c09826b5b138fffa1cfcec3"))) - (sha256 - (base32 - "0q2y87clwlsgc7wvlsn9pzyssybcq10plwhq2w1ydykfsyyqbmkl")))) - ,@(package-native-inputs python-numpy))) - (arguments - `(#:tests? #f ; we're only generating the documentation - #:phases - (modify-phases %standard-phases - (delete 'build) - (replace 'install - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((data (string-append (assoc-ref outputs "out") "/share")) - (doc (string-append - data "/doc/" ,name "-" - ,(package-version python-numpy))) - (info-reader (string-append data "/info")) - (html (string-append doc "/html")) - (scipy-sphinx-theme "scipy-sphinx-theme") - (sphinx-theme-checkout (assoc-ref inputs scipy-sphinx-theme)) - (pyver ,(string-append "PYVER="))) - - ;; FIXME: this is needed to for texlive-union to generate - ;; fonts, which are not found. - (setenv "HOME" "/tmp") - - (with-directory-excursion "doc" - (copy-recursively sphinx-theme-checkout scipy-sphinx-theme) - (mkdir-p html) - (system* "make" "html" pyver) - (system* "make" "latex" "PAPER=a4" pyver) - (system* "make" "-C" "build/latex" - "all-pdf" "PAPER=a4" pyver) - ;; FIXME: Generation of the info file fails. - ;; (system* "make" "info" pyver) - ;; (mkdir-p info) - ;; (copy-file "build/texinfo/numpy.info" - ;; (string-append info "/numpy.info")) - (for-each (lambda (file) - (copy-file (string-append "build/latex" file) - (string-append doc file))) - '("/numpy-ref.pdf" "/numpy-user.pdf")) - (with-directory-excursion "build/html" - (for-each (lambda (file) - (let* ((dir (dirname file)) - (tgt-dir (string-append html "/" dir))) - (unless (equal? "." dir) - (mkdir-p tgt-dir)) - (install-file file html))) - (find-files "." ".*"))))) - #t))))) - (home-page (package-home-page python-numpy)) - (synopsis "Documentation for the python-numpy package") - (description (package-description python-numpy)) - (license (package-license python-numpy)))) - -(define-public python2-numpy-documentation - (let ((numpy-documentation (package-with-python2 python-numpy-documentation))) - (package - (inherit numpy-documentation) - (native-inputs `(("python2-functools32" ,python2-functools32) - ,@(package-native-inputs numpy-documentation)))))) - -(define-public python-pygit2 - (package - (name "python-pygit2") - (version "0.27.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pygit2" version)) - (sha256 - (base32 - "046ahvsb7a20sgvscqfm3cb32sp3sii4gim9vz7zzrkf7yz16xlv")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - ;; Remove after the next update. See: - ;; https://github.com/libgit2/pygit2/pull/851 - (add-after 'unpack 'compile-with-cffi - (lambda _ - (substitute* "setup.py" - (("install_requires") - "setup_requires=['cffi'],\n install_requires")) - #t)) - (add-after 'unpack 'fix-dependency-versioning - (lambda _ - (substitute* "setup.py" - (("<") "<=")) - #t))))) - (propagated-inputs - `(("python-six" ,python-six) - ("python-cffi" ,python-cffi) - ("libgit2" ,libgit2) - ("python-tox" ,python-tox))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://github.com/libgit2/pygit2") - (synopsis "Python bindings for libgit2") - (description "Pygit2 is a set of Python bindings to the libgit2 shared -library, libgit2 implements Git plumbing.") - ;; GPL2.0 only, with linking exception. - (license license:gpl2))) - -(define-public python2-pygit2 - (package-with-python2 python-pygit2)) - -(define-public python-pyparsing - (package - (name "python-pyparsing") - (version "2.2.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyparsing" version)) - (sha256 - (base32 "06dgd0iilvf8m0ssmfpcbh8l6jf0zkp8adbb84llksg17crfx4zl")))) - (build-system python-build-system) - (outputs '("out" "doc")) - (arguments - `(#:tests? #f ; no test target - #: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 "https://github.com/pyparsing/pyparsing") - (synopsis "Python parsing class library") - (description - "The pyparsing module is an alternative approach to creating and -executing simple grammars, vs. the traditional lex/yacc approach, or the use -of regular expressions. The pyparsing module provides a library of classes -that client code uses to construct the grammar directly in Python code.") - (license license:expat))) - -(define-public python2-pyparsing - (package-with-python2 python-pyparsing)) - -(define-public python-numpydoc - (package - (name "python-numpydoc") - (version "0.8.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "numpydoc" version)) - (sha256 - (base32 - "1zazxg3m8j4fksv3f7v7vpf4bj9qb1vj3r326am0vdip141vzx31")))) - (build-system python-build-system) - (propagated-inputs - `(("python-sphinx" ,python-sphinx))) - (native-inputs - `(("python-nose" ,python-nose))) - (home-page "https://pypi.python.org/pypi/numpydoc") - (synopsis - "Numpy's Sphinx extensions") - (description - "Sphinx extension to support docstrings in Numpy format.") - (license license:bsd-2))) - -(define-public python2-numpydoc - (package-with-python2 python-numpydoc)) - -(define-public python-numexpr - (package - (name "python-numexpr") - (version "2.6.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "numexpr" version)) - (sha256 - (base32 - "1frnbcwmsi312154x274xl28xazr1k8vjby83fwyla2n10a81bgq")))) - (build-system python-build-system) - (arguments `(#:tests? #f)) ; no tests included - (propagated-inputs - `(("python-numpy" ,python-numpy))) - (home-page "https://github.com/pydata/numexpr") - (synopsis "Fast numerical expression evaluator for NumPy") - (description - "Numexpr is a fast numerical expression evaluator for NumPy. With it, -expressions that operate on arrays are accelerated and use less memory than -doing the same calculation in Python. In addition, its multi-threaded -capabilities can make use of all your cores, which may accelerate -computations, most specially if they are not memory-bounded (e.g. those using -transcendental functions).") - (license license:expat))) - -(define-public python2-numexpr - (package-with-python2 python-numexpr)) - -(define-public python-cycler - (package - (name "python-cycler") - (version "0.10.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "cycler" version)) - (sha256 - (base32 - "1n69n23fak1gjxlrbhqisi2b9pv3ckrfj98llx3p53953082syyd")))) - (build-system python-build-system) - (arguments - ;; XXX: The current version requires 'coveralls' which we don't have. - ;; Enable this for the next release which uses 'python-pytest'. - '(#:tests? #f)) - (propagated-inputs - `(("python-six" ,python-six))) - (home-page "http://matplotlib.org/cycler/") - (synopsis "Composable keyword argument iterator") - (description - "When using @code{matplotlib} and plotting more than one line, it is -common to want to be able to want to be able to cycle over one or more artist -styles; but the plotting logic can quickly become involved. -To address this and enable easy cycling over arbitrary @code{kwargs}, the -@code{Cycler} class was developed.") - (license license:bsd-3))) - -(define-public python2-cycler - (package-with-python2 python-cycler)) - -(define-public python-colorspacious - (package - (name "python-colorspacious") - (version "1.1.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/njsmith/colorspacious/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version)) - (sha256 - (base32 "1vflh5jm32qb0skza2i8pjacv09w6gq84fqpp2nj77s0rbmzgr4k")))) - (build-system python-build-system) - (propagated-inputs - `(("python-numpy" ,python-numpy))) - (native-inputs - `(("python-nose" ,python-nose))) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (zero? (system* "nosetests" "--all-modules" "-v" "colorspacious"))))))) - (home-page "https://github.com/njsmith/colorspacious") - (synopsis "Python library for colorspace conversions") - (description "@code{colorspacious} is a Python library that lets you -convert between colorspaces like sRGB, XYZ, CIEL*a*b*, CIECAM02, CAM02-UCS, etc.") - (license license:expat))) - -(define-public python2-colorspacious - (package-with-python2 python-colorspacious)) - -(define-public python-matplotlib - (package - (name "python-matplotlib") - (version "2.2.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "matplotlib" version)) - (sha256 - (base32 - "1rcc7x9ig3hpchkc4cwdvym3y451w74275fxr455zkfagrsvymbk")))) - (build-system python-build-system) - (propagated-inputs ; the following packages are all needed at run time - `(("python-cycler" ,python-cycler) - ("python-kiwisolver" ,python-kiwisolver) - ("python-pyparsing" ,python-pyparsing) - ("python-pygobject" ,python-pygobject) - ("gobject-introspection" ,gobject-introspection) - ("python-tkinter" ,python "tk") - ("python-dateutil" ,python-dateutil) - ("python-numpy" ,python-numpy) - ("python-pillow" ,python-pillow) - ("python-pytz" ,python-pytz) - ("python-six" ,python-six) - ;; The 'gtk+' package (and 'gdk-pixbuf', 'atk' and 'pango' propagated - ;; from 'gtk+') provides the required 'typelib' files used by - ;; 'gobject-introspection'. The location of these files is set with the - ;; help of the environment variable GI_TYPELIB_PATH. At build time this - ;; is done automatically by a 'native-search-path' procedure. However, - ;; at run-time the user must set this variable as follows: - ;; - ;; export GI_TYPELIB_PATH=~/.guix-profile/lib/girepository-1.0 - ("gtk+" ,gtk+) - ;; From version 1.4.0 'matplotlib' makes use of 'cairocffi' instead of - ;; 'pycairo'. However, 'pygobject' makes use of a 'pycairo' 'context' - ;; object. For this reason we need to import both libraries. - ;; https://pythonhosted.org/cairocffi/cffi_api.html#converting-pycairo - ("python-pycairo" ,python-pycairo) - ;; XXX: qtwebkit cannot be built reliably. - ("python-pyqt" ,python-pyqt-without-qtwebkit) - ("python-cairocffi" ,python-cairocffi))) - (inputs - `(("libpng" ,libpng) - ("imagemagick" ,imagemagick) - ("freetype" ,freetype) - ("cairo" ,cairo) - ("glib" ,glib) - ;; FIXME: Add backends when available. - ;("python-wxpython" ,python-wxpython) - ("tcl" ,tcl) - ("tk" ,tk))) - (native-inputs - `(("pkg-config" ,pkg-config) - ("python-nose" ,python-nose) - ("python-mock" ,python-mock))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'build 'configure-environment - (lambda* (#:key outputs inputs #:allow-other-keys) - (let ((cairo (assoc-ref inputs "cairo")) - (gtk+ (assoc-ref inputs "gtk+"))) - ;; Setting these directories in the 'basedirlist' of 'setup.cfg' - ;; has not effect. - (setenv "LD_LIBRARY_PATH" - (string-append cairo "/lib:" gtk+ "/lib")) - (setenv "HOME" (getcwd)) - (call-with-output-file "setup.cfg" - (lambda (port) - (format port "[directories]~% -basedirlist = ~a,~a~% - [rc_options]~% -backend = TkAgg~%" - (assoc-ref inputs "tcl") - (assoc-ref inputs "tk"))))) - #t))))) - (home-page "http://matplotlib.org") - (synopsis "2D plotting library for Python") - (description - "Matplotlib is a Python 2D plotting library which produces publication -quality figures in a variety of hardcopy formats and interactive environments -across platforms. Matplotlib can be used in Python scripts, the python and -ipython shell, web application servers, and six graphical user interface -toolkits.") - (license license:psfl) - (properties `((python2-variant . ,(delay python2-matplotlib)))))) - -(define-public python2-matplotlib - (let ((matplotlib (package-with-python2 - (strip-python2-variant python-matplotlib)))) - (package (inherit matplotlib) - ;; Make sure to use special packages for Python 2 instead - ;; of those automatically rewritten by package-with-python2. - (propagated-inputs - `(("python2-pycairo" ,python2-pycairo) - ("python2-backports-functools-lru-cache" - ,python2-backports-functools-lru-cache) - ("python2-functools32" ,python2-functools32) - ("python2-pygobject-2" ,python2-pygobject-2) - ("python2-subprocess32" ,python2-subprocess32) - ("python2-tkinter" ,python-2 "tk") - ,@(fold alist-delete (package-propagated-inputs matplotlib) - '("python-pycairo" "python-pygobject" "python-tkinter"))))))) - -(define-public python-matplotlib-documentation - (package - (name "python-matplotlib-documentation") - (version (package-version python-matplotlib)) - (source (package-source python-matplotlib)) - (build-system python-build-system) - (native-inputs - `(("python-matplotlib" ,python-matplotlib) - ("python-colorspacious" ,python-colorspacious) - ("python-sphinx" ,python-sphinx) - ("python-sphinx-gallery" ,python-sphinx-gallery) - ("python-numpydoc" ,python-numpydoc) - ("python-ipython" ,python-ipython) - ("python-mock" ,python-mock) - ("graphviz" ,graphviz) - ("texlive" ,texlive) - ("texinfo" ,texinfo) - ,@(package-native-inputs python-matplotlib))) - (arguments - `(#:tests? #f ; we're only generating documentation - #:phases - (modify-phases %standard-phases - (replace 'build - (lambda _ - (chdir "doc") - ;; Produce pdf in 'A4' format. - (substitute* "conf.py" - (("latex_paper_size = 'letter'") "") - ;; latex_paper_size is deprecated -> set paper size using - ;; latex_elements - (("latex_elements\\['pointsize'\\] = '11pt'" match) - ;; insert at a point where latex_elements{} is defined: - (string-append match "\nlatex_elements['papersize'] = 'a4paper'"))) - (invoke "make" "SPHINXBUILD=sphinx-build" "html" "latex" "texinfo"))) - (replace 'install - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((data (string-append (assoc-ref outputs "out") "/share")) - (doc (string-append data "/doc/python-matplotlib-" ,version)) - (info (string-append data "/info")) - (html (string-append doc "/html"))) - (mkdir-p html) - (mkdir-p info) - (copy-recursively "build/html" html) - (symlink (string-append html "/_images") - (string-append info "/matplotlib-figures")) - (with-directory-excursion "build/texinfo" - (substitute* "matplotlib.texi" - (("@image\\{([^,]*)" all file) - (string-append "@image{matplotlib-figures/" file))) - (symlink (string-append html "/_images") - "./matplotlib-figures") - (system* "makeinfo" "--no-split" - "-o" "matplotlib.info" "matplotlib.texi")) - (copy-file "build/texinfo/matplotlib.info" - (string-append info "/matplotlib.info")) - (copy-file "build/latex/Matplotlib.pdf" - (string-append doc "/Matplotlib.pdf"))) - #t))))) - (home-page (package-home-page python-matplotlib)) - (synopsis "Documentation for the python-matplotlib package") - (description (package-description python-matplotlib)) - (license (package-license python-matplotlib)))) - -(define-public python2-matplotlib-documentation - (package-with-python2 python-matplotlib-documentation)) - -(define-public python2-pysnptools - (package - (name "python2-pysnptools") - (version "0.3.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pysnptools" version ".zip")) - (sha256 - (base32 - "1wybggjzz8zw7aav4pjsg2h22xp17a1lghrprza1pxwlm7wf96y2")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2)) ; only Python 2.7 is supported - (propagated-inputs - `(("python2-numpy" ,python2-numpy) - ("python2-scipy" ,python2-scipy) - ("python2-pandas" ,python2-pandas))) - (native-inputs - `(("python2-cython" ,python2-cython))) - (native-inputs - `(("unzip" ,unzip))) - (home-page "http://research.microsoft.com/en-us/um/redmond/projects/mscompbio/") - (synopsis "Library for reading and manipulating genetic data") - (description - "PySnpTools is a library for reading and manipulating genetic data. It -can, for example, efficiently read whole PLINK *.bed/bim/fam files or parts of -those files. It can also efficiently manipulate ranges of integers using set -operators such as union, intersection, and difference.") - (license license:asl2.0))) - -(define-public python-scipy - (package - (name "python-scipy") - (version "1.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "scipy" version)) - (sha256 - (base32 - "1lfg686w6vv2m2dfs8v9d0bf2i18z7wz5vgzjnkgmpr4hi0550w7")))) - (build-system python-build-system) - (propagated-inputs - `(("python-numpy" ,python-numpy) - ("python-matplotlib" ,python-matplotlib) - ("python-pyparsing" ,python-pyparsing))) - (inputs - `(("lapack" ,lapack) - ("openblas" ,openblas))) - (native-inputs - `(("python-cython" ,python-cython) - ("python-pytest" ,python-pytest) - ("python-sphinx" ,python-sphinx) - ("python-numpydoc" ,python-numpydoc) - ("gfortran" ,gfortran) - ("perl" ,perl) - ("which" ,which))) - (outputs '("out" "doc")) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'disable-broken-tests - (lambda _ - (substitute* "scipy/sparse/linalg/dsolve/tests/test_linsolve.py" - (("^( +)def test_threads_parallel\\(self\\):" m indent) - (string-append indent - "@pytest.mark.skip(reason=\"Disabled by Guix\")\n" - m))) - (substitute* "scipy/sparse/linalg/eigen/arpack/tests/test_arpack.py" - (("^def test_parallel_threads\\(\\):" m) - (string-append "@pytest.mark.skip(reason=\"Disabled by Guix\")\n" - m))) - #t)) - (add-before 'build 'configure-openblas - (lambda* (#:key inputs #:allow-other-keys) - (call-with-output-file "site.cfg" - (lambda (port) - (format port - "[blas] -libraries = openblas -library_dirs = ~a/lib -include_dirs = ~a/include - -# backslash-n to make emacs happy -\n[atlas] -library_dirs = ~a/lib -atlas_libs = openblas -" - (assoc-ref inputs "openblas") - (assoc-ref inputs "openblas") - (assoc-ref inputs "openblas")))) - #t)) - (add-after 'install 'install-doc - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((data (string-append (assoc-ref outputs "doc") "/share")) - (doc (string-append data "/doc/" ,name "-" ,version)) - (html (string-append doc "/html")) - (pyver ,(string-append "PYVER=" (version-major+minor - (package-version python)))) - ;; By default it tries to run sphinx-build through the Python - ;; interpreter which won't work with our shell wrapper. - (sphinxbuild "SPHINXBUILD=LANG=C sphinx-build")) - ;; Make installed package available for building the - ;; documentation - (add-installed-pythonpath inputs outputs) - (with-directory-excursion "doc" - ;; Fix generation of images for mathematical expressions. - (substitute* (find-files "source" "conf\\.py") - (("pngmath_use_preview = True") - "pngmath_use_preview = False")) - (mkdir-p html) - (invoke "make" "html" pyver sphinxbuild) - (with-directory-excursion "build/html" - (for-each (lambda (file) - (let* ((dir (dirname file)) - (tgt-dir (string-append html "/" dir))) - (install-file file html))) - (find-files "." ".*"))))) - #t)) - ;; Tests can only be run after the library has been installed and not - ;; within the source directory. - (delete 'check) - (add-after 'install 'check - (lambda* (#:key inputs outputs #:allow-other-keys) - (add-installed-pythonpath inputs outputs) - (with-directory-excursion "/tmp" - (invoke "python" "-c" - "import scipy; scipy.test(verbose=2)"))))))) - (home-page "https://www.scipy.org/") - (synopsis "The Scipy library provides efficient numerical routines") - (description "The SciPy library is one of the core packages that make up -the SciPy stack. It provides many user-friendly and efficient numerical -routines such as routines for numerical integration and optimization.") - (properties `((python2-variant . ,(delay python2-scipy)))) - (license license:bsd-3))) - -(define-public python2-scipy - (package-with-python2 - (strip-python2-variant python-scipy))) - -(define-public python-socksipy-branch - (package - (name "python-socksipy-branch") - (version "1.01") - (source - (origin - (method url-fetch) - (uri (pypi-uri "SocksiPy-branch" version)) - (sha256 - (base32 - "01l41v4g7fy9fzvinmjxy6zcbhgqaif8dhdqm4w90fwcw9h51a8p")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ; There are no tests - (home-page "https://code.google.com/archive/p/socksipy-branch/") - (synopsis "Python SOCKS module") - (description - "SocksiPy - A Python SOCKS client module. It provides a -socket-like interface that supports connections to any TCP -service through the use of a SOCKS4, SOCKS5 or HTTP proxy. -The original version was developed by Dan Haim, this is a -branch created by Mario Vilas to address some open issues, -as the original project seems to have been abandoned circa 2007.") - (license license:bsd-3))) - -(define-public python2-socksipy-branch - (package-with-python2 python-socksipy-branch)) - -(define-public python-pycodestyle - (package - (name "python-pycodestyle") - (version "2.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pycodestyle" version)) - (sha256 - (base32 - "0fhy4vnlgpjq4qd1wdnl6pvdw7rah0ypmn8c9mkhz8clsndskz6b")))) - (build-system python-build-system) - (home-page "https://pycodestyle.readthedocs.io/") - (synopsis "Python style guide checker") - (description "@code{pycodestyle} (formerly pep8) is a tool to check -Python code against some of the style conventions in -@url{http://www.python.org/dev/peps/pep-0008/,PEP 8}.") - (license license:expat))) - -(define-public python2-pycodestyle - (package-with-python2 python-pycodestyle)) - -(define-public python-multidict - (package - (name "python-multidict") - (version "4.2.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "multidict" version)) - (sha256 - (base32 - "1vf5bq8hn5a9rvhr5v4fwbmarfsp35hhr8gs74kqfijy34j2f194")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://github.com/aio-libs/multidict/") - (synopsis "Multidict implementation") - (description "Multidict is dict-like collection of key-value pairs -where key might be occurred more than once in the container.") - (license license:asl2.0))) - -(define-public python-orderedmultidict - (package - (name "python-orderedmultidict") - (version "0.7.11") - (source - (origin - (method url-fetch) - (uri (pypi-uri "orderedmultidict" version)) - (sha256 - (base32 - "0dls862ibm7qbq4fnvwx0xn1v9hwyzywbff8xjjdr42dd75208yw")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'fix-tests - (lambda _ - ;; The package uses nosetest for running the tests. - ;; Adding this initfile allows to run the test suite - ;; without requiring nosetest. - (zero? (system* "touch" "tests/__init__.py"))))))) - (propagated-inputs - `(("python-six" ,python-six))) - (native-inputs - `(("python-pycodestyle" ,python-pycodestyle))) - (home-page "https://github.com/gruns/orderedmultidict") - (synopsis "Python Ordered Multivalue Dictionary - omdict") - (description "This package contains a library for ordered multivalue -dictionaries. A multivalue dictionary is a dictionary that can store -multiple values for the same key. An ordered multivalue dictionary is a -multivalue dictionary that retains the order of insertions and deletions.") - (license license:unlicense))) - -(define-public python2-orderedmultidict - (package-with-python2 python-orderedmultidict)) - -(define-public python-autopep8 - (package - (name "python-autopep8") - (version "1.3.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "autopep8" version)) - (sha256 - (base32 - "192bvhzi4d0claqxgzymvv7k3qnj627742bc8sgxpzjj42pd9112")))) - (build-system python-build-system) - (propagated-inputs - `(("python-pycodestyle" ,python-pycodestyle))) - (home-page "https://github.com/hhatto/autopep8") - (synopsis "Format Python code according to the PEP 8 style guide") - (description - "@code{autopep8} automatically formats Python code to conform to -the PEP 8 style guide. It uses the pycodestyle utility to determine -what parts of the code needs to be formatted. @code{autopep8} is -capable of fixing most of the formatting issues that can be reported -by pycodestyle.") - (license (license:non-copyleft - "https://github.com/hhatto/autopep8/blob/master/LICENSE")))) - -(define-public python2-autopep8 - (package-with-python2 python-autopep8)) - -(define-public python-distutils-extra - (package - (name "python-distutils-extra") - (version "2.38") - (source - (origin - (method url-fetch) - (uri (string-append "https://launchpad.net/python-distutils-extra/trunk/" - version "/+download/python-distutils-extra-" - version ".tar.gz")) - (sha256 - (base32 - "0lx15kcbby9zisx33p2h5hgakgwh2bvh0ibag8z0px4j6ifhs41x")))) - (build-system python-build-system) - (home-page "https://launchpad.net/python-distutils-extra/") - (synopsis "Enhancements to Python's distutils") - (description - "The python-distutils-extra module enables you to easily integrate -gettext support, themed icons, and scrollkeeper-based documentation into -Python's distutils.") - (license license:gpl2))) - -(define-public python2-distutils-extra - (package-with-python2 python-distutils-extra)) - -(define-public python2-elib.intl - (package - (name "python2-elib.intl") - (version "0.0.3") - (source - (origin - ;; This project doesn't tag releases or publish tarballs, so we take - ;; source from a (semi-arbitrary, i.e. latest as of now) git commit. - (method git-fetch) - (uri (git-reference - (url "https://github.com/dieterv/elib.intl.git") - (commit "d09997cfef"))) - (file-name (string-append name "-" version "-checkout")) - (sha256 - (base32 - "0y7vzff9xgbnaay7m0va1arl6g68ncwrvbgwl7jqlclsahzzb09d")))) - (build-system python-build-system) - (arguments - ;; incompatible with Python 3 (exception syntax) - `(#:python ,python-2 - #:tests? #f)) - (home-page "https://github.com/dieterv/elib.intl") - (synopsis "Enhanced internationalization for Python") - (description - "The elib.intl module provides enhanced internationalization (I18N) -services for your Python modules and applications.") - (license license:lgpl3+))) - -(define-public python-olefile - (package - (name "python-olefile") - (version "0.45.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/decalage2/olefile/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "18ai19zwagm6nli14k8bii31ipbab2rp7plrvsm6gmfql551a8ai")))) - (build-system python-build-system) - (home-page - "https://www.decalage.info/python/olefileio") - (synopsis "Read and write Microsoft OLE2 files.") - (description - "@code{olefile} can parse, read and write Microsoft OLE2 files (Structured -Storage or Compound Document, Microsoft Office). It is an improved version of -the OleFileIO module from PIL, the Python Image Library.") - (license license:bsd-3))) - -(define-public python2-olefile - (package-with-python2 python-olefile)) - -(define-public python-pillow - (package - (name "python-pillow") - (version "5.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Pillow" version)) - (sha256 - (base32 - "0qrkcjszym7ixffg5zphhp8a07w8w11yyc2ylcbdrhwm771z316m")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest))) - (inputs - `(("freetype" ,freetype) - ("lcms" ,lcms) - ("zlib" ,zlib) - ("libjpeg" ,libjpeg) - ("openjpeg" ,openjpeg) - ("libtiff" ,libtiff) - ("libwebp" ,libwebp))) - (propagated-inputs - `(("python-olefile" ,python-olefile))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-ldconfig - (lambda _ - (substitute* "setup.py" - (("\\['/sbin/ldconfig', '-p'\\]") "['true']")))) - (delete 'check) ; We must run checks after python-pillow is installed. - (add-after 'install 'check-installed - (lambda* (#:key outputs inputs #:allow-other-keys) - (begin - (setenv "HOME" (getcwd)) - ;; Make installed package available for running the tests. - (add-installed-pythonpath inputs outputs) - (invoke "python" "selftest.py" "--installed") - (invoke "python" "-m" "pytest" "-vv"))))))) - (home-page "https://python-pillow.org") - (synopsis "Fork of the Python Imaging Library") - (description - "The Python Imaging Library adds image processing capabilities to your -Python interpreter. This library provides extensive file format support, an -efficient internal representation, and fairly powerful image processing -capabilities. The core image library is designed for fast access to data -stored in a few basic pixel formats. It should provide a solid foundation for -a general image processing tool.") - (license (license:x11-style - "http://www.pythonware.com/products/pil/license.htm" - "The PIL Software License")))) - -(define-public python2-pillow - (package-with-python2 python-pillow)) - -(define-public python-pycparser - (package - (name "python-pycparser") - (version "2.18") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pycparser" version)) - (sha256 - (base32 - "09mjyw82ibqzl449g7swy8bfxnfpmas0815d2rkdjlcqw81wma4r")))) - (outputs '("out" "doc")) - (build-system python-build-system) - (native-inputs - `(("pkg-config" ,pkg-config))) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (with-directory-excursion "tests" - (zero? (system* "python" "all_tests.py"))))) - (add-after 'install 'install-doc - (lambda* (#:key outputs #:allow-other-keys) - (let* ((data (string-append (assoc-ref outputs "doc") "/share")) - (doc (string-append data "/doc/" ,name "-" ,version)) - (examples (string-append doc "/examples"))) - (mkdir-p examples) - (for-each (lambda (file) - (copy-file (string-append "." file) - (string-append doc file))) - '("/README.rst" "/CHANGES" "/LICENSE")) - (copy-recursively "examples" examples))))))) - (home-page "https://github.com/eliben/pycparser") - (synopsis "C parser in Python") - (description - "Pycparser is a complete parser of the C language, written in pure Python -using the PLY parsing library. It parses C code into an AST and can serve as -a front-end for C compilers or analysis tools.") - (license license:bsd-3))) - -(define-public python2-pycparser - (package-with-python2 python-pycparser)) - -(define-public python-pywavelets - (package - (name "python-pywavelets") - (version "1.0.1") - (home-page "https://github.com/PyWavelets/pywt") - (source (origin - (method url-fetch) - (uri (pypi-uri "PyWavelets" version)) - (sha256 - (base32 - "1p3qv2v66ghnqrb1f98wyyhp9dz71jwcd6kfpsax65sfdpiyqp1w")))) - (build-system python-build-system) - (arguments - '(#:modules ((ice-9 ftw) - (srfi srfi-1) - (srfi srfi-26) - (guix build utils) - (guix build python-build-system)) - #:phases (modify-phases %standard-phases - (replace 'check - (lambda _ - (let ((cwd (getcwd)) - (libdir (find (cut string-prefix? "lib." <>) - (scandir "build")))) - (with-directory-excursion (string-append cwd "/build/" libdir) - (invoke "nosetests" "-v" ".")))))))) - (native-inputs - `(("python-matplotlib" ,python-matplotlib) ;for tests - ("python-nose" ,python-nose))) - (propagated-inputs - `(("python-numpy" ,python-numpy))) - (synopsis "Wavelet transforms in Python") - (description - "PyWavelets is a library for wavelet transforms in Python. Wavelets are -mathematical basis functions that are localized in both time and frequency. -Wavelet transforms are time-frequency transforms employing wavelets. They are -similar to Fourier transforms, the difference being that Fourier transforms are -localized only in frequency instead of in time and frequency.") - (license license:expat))) - -(define-public python2-pywavelets - (package-with-python2 python-pywavelets)) - -(define-public python-xcffib - (package - (name "python-xcffib") - (version "0.6.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "xcffib" version)) - (sha256 - (base32 - "04k91yxyb3pgc5lvxmivh8w71yjrap2g57yk3s73x4rm4nvjq51n")))) - (build-system python-build-system) - (inputs - `(("libxcb" ,libxcb))) - (propagated-inputs - `(("python-cffi" ,python-cffi) ; used at run time - ("python-six" ,python-six))) - (arguments - `(;; FIXME: Tests need more work. See ".travis.yml" in the repository. - #:tests? #f - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'fix-libxcb-path - (lambda* (#:key inputs #:allow-other-keys) - (let ((libxcb (assoc-ref inputs "libxcb"))) - (substitute* '("xcffib/__init__.py") - (("^soname = \"") (string-append "soname = \"" libxcb "/lib/"))) - #t))) - (add-after 'install 'install-doc - (lambda* (#:key outputs #:allow-other-keys) - (let ((doc (string-append (assoc-ref outputs "out") "/share" - "/doc/" ,name "-" ,version))) - (mkdir-p doc) - (copy-file "README.md" - (string-append doc "/README.md")) - #t)))))) - (home-page "https://github.com/tych0/xcffib") - (synopsis "XCB Python bindings") - (description - "Xcffib is a replacement for xpyb, an XCB Python bindings. It adds -support for Python 3 and PyPy. It is based on cffi.") - (license license:expat))) - -(define-public python2-xcffib - (package-with-python2 python-xcffib)) - -(define-public python-cairocffi - (package - (name "python-cairocffi") - (version "0.9.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "cairocffi" version)) - (sha256 - (base32 - "0dq3k4zhqd8cwsf3nyjqvjqm8wkvrjn1wjf44rl3v0h8kqx6qf0m")) - (patches (search-patches "python-cairocffi-dlopen-path.patch")))) - (build-system python-build-system) - (outputs '("out" "doc")) - (inputs - `(("glib" ,glib) - ("gtk+" ,gtk+) - ("gdk-pixbuf" ,gdk-pixbuf) - ("cairo" ,cairo) - ("pango" ,pango))) - (native-inputs - `(("pkg-config" ,pkg-config) - ("python-pytest" ,python-pytest) - ("python-pytest-cov" ,python-pytest-cov) - ("python-pytest-runner" ,python-pytest-runner) - ("python-sphinx" ,python-sphinx) - ("python-docutils" ,python-docutils))) - (propagated-inputs - `(("python-xcffib" ,python-xcffib))) ; used at run time - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-paths - (lambda* (#:key inputs outputs #:allow-other-keys) - (substitute* (find-files "." "\\.py$") - (("dlopen\\(ffi, 'cairo'") - (string-append "dlopen(ffi, '" (assoc-ref inputs "cairo") - "/lib/libcairo.so.2'")) - (("dlopen\\(ffi, 'gdk-3'") - (string-append "dlopen(ffi, '" (assoc-ref inputs "gtk+") - "/lib/libgtk-3.so.0'")) - (("dlopen\\(ffi, 'gdk_pixbuf-2.0'") - (string-append "dlopen(ffi, '" (assoc-ref inputs "gdk-pixbuf") - "/lib/libgdk_pixbuf-2.0.so.0'")) - (("dlopen\\(ffi, 'glib-2.0'") - (string-append "dlopen(ffi, '" (assoc-ref inputs "glib") - "/lib/libglib-2.0.so.0'")) - (("dlopen\\(ffi, 'gobject-2.0'") - (string-append "dlopen(ffi, '" (assoc-ref inputs "glib") - "/lib/libgobject-2.0.so.0'")) - (("dlopen\\(ffi, 'pangocairo-1.0'") - (string-append "dlopen(ffi, '" (assoc-ref inputs "pango") - "/lib/libpangocairo-1.0.so.0'")) - (("dlopen\\(ffi, 'pango-1.0'") - (string-append "dlopen(ffi, '" (assoc-ref inputs "pango") - "/lib/libpango-1.0.so.0'"))) - #t)) - (add-after 'install 'install-doc - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((data (string-append (assoc-ref outputs "doc") "/share")) - (doc (string-append data "/doc/" ,name "-" ,version)) - (html (string-append doc "/html"))) - (setenv "LD_LIBRARY_PATH" - (string-append (assoc-ref inputs "cairo") "/lib" ":" - (assoc-ref inputs "gdk-pixbuf") "/lib")) - (setenv "LANG" "en_US.UTF-8") - (mkdir-p html) - (for-each (lambda (file) - (copy-file (string-append "." file) - (string-append doc file))) - '("/README.rst" "/CHANGES" "/LICENSE")) - (system* "python" "setup.py" "build_sphinx") - (copy-recursively "docs/_build/html" html) - #t)))))) - (home-page "https://github.com/Kozea/cairocffi") - (synopsis "Python bindings and object-oriented API for Cairo") - (description - "Cairocffi is a CFFI-based drop-in replacement for Pycairo, a set of -Python bindings and object-oriented API for cairo. Cairo is a 2D vector -graphics library with support for multiple backends including image buffers, -PNG, PostScript, PDF, and SVG file output.") - (license license:bsd-3))) - -(define-public python2-cairocffi - (package-with-python2 python-cairocffi)) - -(define-public python-decorator - (package - (name "python-decorator") - (version "4.3.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "decorator" version)) - (sha256 - (base32 "0308djallnh00v112y5b7nadl657ysmkp6vc8xn51d6yzc9zm7n3")))) - (build-system python-build-system) - (home-page "https://pypi.python.org/pypi/decorator/") - (synopsis "Python module to simplify usage of decorators") - (description - "The aim of the decorator module is to simplify the usage of decorators -for the average programmer, and to popularize decorators usage giving examples -of useful decorators, such as memoize, tracing, redirecting_stdout, locked, -etc. The core of this module is a decorator factory.") - (license license:expat))) - -(define-public python2-decorator - (package-with-python2 python-decorator)) - -(define-public python-drmaa - (package - (name "python-drmaa") - (version "0.7.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "drmaa" version)) - (sha256 - (base32 "0xzqriqyvk5b8hszbavsyxd29wm3sxirm8zvvdm73rs2iq7w4hkx")))) - (build-system python-build-system) - ;; The test suite requires libdrmaa which is provided by the cluster - ;; environment. At runtime the environment variable DRMAA_LIBRARY_PATH - ;; should be set to the path of the libdrmaa library. - (arguments '(#:tests? #f)) - (native-inputs - `(("python-nose" ,python-nose))) - (home-page "https://pypi.python.org/pypi/drmaa") - (synopsis "Python bindings for the DRMAA library") - (description - "A Python package for Distributed Resource Management (DRM) job -submission and control. This package is an implementation of the DRMAA 1.0 -Python language binding specification.") - (license license:bsd-3))) - -(define-public python2-drmaa - (package-with-python2 python-drmaa)) - -(define-public python-grako - (package - (name "python-grako") - (version "3.99.9") - (source - (origin - (method url-fetch) - (uri - (pypi-uri "grako" version ".zip")) - (sha256 - (base32 - "0r63i68wcnv63rfjkasq1ah81frz61a6mzbcnaxhrkdpx84p7hzw")))) - (build-system python-build-system) - (arguments '(#:tests? #f)) ; Test file 'grako.ebnf' is missing from archive. - (native-inputs - `(("unzip" ,unzip) - ("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://bitbucket.org/neogeny/grako") - (synopsis "EBNF parser generator") - (description - "Grako takes a grammar in a variation of EBNF as input, and outputs a -memoizing PEG/Packrat parser in Python.") - (license license:bsd-3))) - -(define-public python2-grako - (package-with-python2 python-grako)) - -(define-public python-gridmap - (package - (name "python-gridmap") - (version "0.13.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/pygridtools/gridmap/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 "1gzjg2k6f14i1msm2b0ax8d9ds1hvk6qd5nlaivg8m4cxqp4cp1x")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; FIXME: Requires python-cherrypy. - (propagated-inputs - `(("python-psutil" ,python-psutil) - ("python-drmaa" ,python-drmaa) - ("python-pyzmq" ,python-pyzmq))) - (home-page "https://github.com/pygridtools/gridmap") - (synopsis "Create jobs on a cluster directly from Python") - (description - "Gridmap is a Python package to allow you to easily create jobs on the -cluster directly from Python. You can directly map Python functions onto the -cluster without needing to write any wrapper code yourself.") - (license license:gpl3+))) - -(define-public python2-gridmap - (package-with-python2 python-gridmap)) - -(define-public python-honcho - (package - (name "python-honcho") - (version "1.0.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/nickstenning/honcho/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 "0zizn61n5z5hq421hkypk9pw8s6fpxw30f4hsg7k4ivwzy3gjw9j")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-mock" ,python-mock) - ("python-tox" ,python-tox) - ("which" ,which))) ;for tests - (propagated-inputs - `(("python-jinja2" ,python-jinja2))) - (arguments - `(#:phases - (modify-phases %standard-phases - (delete 'check) - (add-after 'install 'check - (lambda* (#:key outputs inputs #:allow-other-keys) - ;; fix honcho path in testsuite - (substitute* "tests/conftest.py" - (("'honcho'") (string-append "'" (assoc-ref outputs "out") - "/bin/honcho" "'"))) - ;; It's easier to run tests after install. - ;; Make installed package available for running the tests - (add-installed-pythonpath inputs outputs) - (zero? (system* "py.test" "-v"))))))) - (home-page "https://github.com/nickstenning/honcho") - (synopsis "Manage Procfile-based applications") - (description - "A Procfile is a file which describes how to run an application -consisting of serveral processes. honcho starts all listed processes. -The output of all running processes is collected by honcho and -displayed.") - (license license:expat))) - -(define-public python2-honcho - (package-with-python2 python-honcho)) - -(define-public python-pexpect - (package - (name "python-pexpect") - (version "4.6.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pexpect" version)) - (sha256 - (base32 "1fla85g47iaxxpjhp9vkxdnv4pgc7rplfy6ja491smrrk0jqi3ia")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'prepare-tests - (lambda _ - (substitute* (find-files "tests") - (("/bin/ls") (which "ls")) - (("/bin/echo") (which "echo")) - (("/bin/which") (which "which")) - ;; Many tests try to use the /bin directory which - ;; is not present in the build environment. - ;; Use one that's non-empty and unlikely to change. - (("/bin'") "/dev'")) - ;; XXX: Socket connection test gets "Connection reset by peer". - ;; Why does it not work? Delete for now. - (delete-file "tests/test_socket.py") - #t)) - (replace 'check (lambda _ (invoke "nosetests" "-v")))))) - (native-inputs - `(("python-nose" ,python-nose) - ("python-pytest" ,python-pytest) - ("man-db" ,man-db) - ("which" ,which) - ("bash-full" ,bash))) ;full Bash for 'test_replwrap.py' - (propagated-inputs - `(("python-ptyprocess" ,python-ptyprocess))) - (home-page "http://pexpect.readthedocs.org/") - (synopsis "Controlling interactive console applications") - (description - "Pexpect is a pure Python module for spawning child applications; -controlling them; and responding to expected patterns in their output. -Pexpect works like Don Libes’ Expect. Pexpect allows your script to spawn a -child application and control it as if a human were typing commands.") - (license license:isc))) - -(define-public python2-pexpect - (package-with-python2 python-pexpect)) - -(define-public python-setuptools-scm - (package - (name "python-setuptools-scm") - (version "3.1.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "setuptools_scm" version)) - (sha256 - (base32 - "0h4bglwfz8b9prqljv8z3w9rgydfyxzaj05bm1y6zs5m6shz548i")))) - (build-system python-build-system) - (home-page "https://github.com/pypa/setuptools_scm/") - (synopsis "Manage Python package versions in SCM metadata") - (description - "Setuptools_scm handles managing your Python package versions in -@dfn{software configuration management} (SCM) metadata instead of declaring -them as the version argument or in a SCM managed file.") - (license license:expat))) - -(define-public python2-setuptools-scm - (package-with-python2 python-setuptools-scm)) - -(define-public python-pathpy - (package - (name "python-pathpy") - (version "11.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "path.py" version)) - (sha256 - (base32 "07x15v8c7ry9bvycw294c9yq6ky9v2b0dalvgi6rn38ilh69vsz7")))) - ;; (outputs '("out" "doc")) - (build-system python-build-system) - (propagated-inputs - `(("python-appdirs" ,python-appdirs))) - (native-inputs - `(("python-setuptools-scm" ,python-setuptools-scm) - ("python-sphinx" ,python-sphinx) - ("python-rst.linker" ,python-rst.linker) - ("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner))) - (arguments - ;; FIXME: Documentation and tests require "jaraco.packaging". - `(#:tests? #f)) - ;; #:phases - ;; (modify-phases %standard-phases - ;; (add-after 'build 'build-doc - ;; (lambda _ - ;; (setenv "LANG" "en_US.UTF-8") - ;; (zero? (system* "python" "setup.py" "build_sphinx")))) - ;; (add-after 'install 'install-doc - ;; (lambda* (#:key outputs #:allow-other-keys) - ;; (let* ((data (string-append (assoc-ref outputs "doc") "/share")) - ;; (doc (string-append data "/doc/" ,name "-" ,version)) - ;; (html (string-append doc "/html"))) - ;; (mkdir-p html) - ;; (for-each (lambda (file) - ;; (copy-file file (string-append doc "/" file))) - ;; '("README.rst" "CHANGES.rst")) - ;; (copy-recursively "build/sphinx/html" html))))))) - (home-page "https://github.com/jaraco/path.py") - (synopsis "Python module wrapper for built-in os.path") - (description - "@code{path.py} implements path objects as first-class entities, allowing -common operations on files to be invoked on those path objects directly.") - (license license:expat))) - -(define-public python2-pathpy - (package-with-python2 python-pathpy)) - -(define-public python-simplegeneric - (package - (name "python-simplegeneric") - (version "0.8.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://pypi.python.org/packages/source/s/" - "simplegeneric/simplegeneric-" version ".zip")) - (sha256 - (base32 "0wwi1c6md4vkbcsfsf8dklf3vr4mcdj4mpxkanwgb6jb1432x5yw")))) - (build-system python-build-system) - (native-inputs - `(("unzip" ,unzip))) - (home-page "http://cheeseshop.python.org/pypi/simplegeneric") - (synopsis "Python module for simple generic functions") - (description - "The simplegeneric module lets you define simple single-dispatch generic -functions, akin to Python’s built-in generic functions like @code{len()}, -@code{iter()} and so on. However, instead of using specially-named methods, -these generic functions use simple lookup tables, akin to those used by -e.g. @code{pickle.dump()} and other generic functions found in the Python -standard library.") - (license license:zpl2.1))) - -(define-public python2-simplegeneric - (package-with-python2 python-simplegeneric)) - -(define-public python-ipython-genutils - ;; TODO: This package is retired, check if can be removed, see description. - (package - (name "python-ipython-genutils") - (version "0.1.0") - (source - (origin - (method url-fetch) - (uri (string-append "https://pypi.python.org/packages/source/i/" - "ipython_genutils/ipython_genutils-" - version ".tar.gz")) - (sha256 - (base32 "19l2pp1c64ansr89l3cqh19jdi2ixhssdzx0vz4n6r52a6i281is")))) - (build-system python-build-system) - (arguments `(#:tests? #f)) ; no tests - (home-page "https://ipython.org") - (synopsis "Vestigial utilities from IPython") - (description - "This package provides retired utilities from IPython. No packages -outside IPython/Jupyter should depend on it. - -This package shouldn't exist. It contains some common utilities shared by -Jupyter and IPython projects during The Big Split. As soon as possible, those -packages will remove their dependency on this, and this package will go -away.") - (license license:bsd-3))) - -(define-public python2-ipython-genutils - (package-with-python2 python-ipython-genutils)) - -(define-public python-traitlets - (package - (name "python-traitlets") - (version "4.3.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "traitlets" version)) - (sha256 - (base32 - "0dbq7sx26xqz5ixs711k5nc88p8a0nqyz6162pwks5dpcz9d4jww")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check (lambda _ (invoke "pytest" "-vv" "traitlets")))))) - (propagated-inputs - `(("python-ipython-genutils" ,python-ipython-genutils) - ("python-decorator" ,python-decorator))) ;not needed for >4.3.2 - (native-inputs - `(("python-pytest" ,python-pytest))) - (properties `((python2-variant . ,(delay python2-traitlets)))) - (home-page "https://ipython.org") - (synopsis "Configuration system for Python applications") - (description - "Traitlets is a framework that lets Python classes have attributes with -type checking, dynamically calculated default values, and ‘on change’ -callbacks. The package also includes a mechanism to use traitlets for -configuration, loading values from files or from command line arguments. This -is a distinct layer on top of traitlets, so you can use traitlets in your code -without using the configuration machinery.") - (license license:bsd-3))) - -(define-public python2-traitlets - (let ((traitlets (package-with-python2 (strip-python2-variant python-traitlets)))) - (package - (inherit traitlets) - (propagated-inputs - `(("python2-enum34" ,python2-enum34) - ,@(package-propagated-inputs traitlets)))))) - -(define-public python-jupyter-core - (package - (name "python-jupyter-core") - (version "4.4.0") - (source - (origin - (method url-fetch) - (uri (string-append (pypi-uri "jupyter_core" version))) - (sha256 - (base32 - "1dy083rarba8prn9f9srxq3c7n7vyql02ycrqq306c40lr57aw5s")))) - (build-system python-build-system) - ;; FIXME: not sure how to run the tests - (arguments `(#:tests? #f)) - (propagated-inputs - `(("python-traitlets" ,python-traitlets))) - (home-page "http://jupyter.org/") - (synopsis "Jupyter base package") - (description - "Jupyter core is the base package on which Jupyter projects rely.") - (license license:bsd-3))) - -(define-public python2-jupyter-core - (package-with-python2 python-jupyter-core)) - -(define-public python-jupyter-client - (package - (name "python-jupyter-client") - (version "5.2.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "jupyter_client" version)) - (sha256 - (base32 - "0l9mh7ccrpl3lppym3dnky8n1nk7xarzzdcxf4q2s7aw203cpydm")))) - (build-system python-build-system) - ;; Tests fail because of missing native python kernel which I assume is - ;; provided by the ipython package, which we cannot use because it would - ;; cause a dependency cycle. - (arguments `(#:tests? #f)) - (propagated-inputs - `(("python-pyzmq" ,python-pyzmq) - ("python-traitlets" ,python-traitlets) - ("python-jupyter-core" ,python-jupyter-core))) - (home-page "http://jupyter.org/") - (synopsis "Jupyter protocol implementation and client libraries") - (description - "The @code{jupyter_client} package contains the reference implementation -of the Jupyter protocol. It also provides client and kernel management APIs -for working with kernels, and the @code{jupyter kernelspec} entrypoint for -installing @code{kernelspec}s for use with Jupyter frontends.") - (license license:bsd-3))) - -(define-public python2-jupyter-client - (package-with-python2 python-jupyter-client)) - -(define-public python-ipykernel - (package - (name "python-ipykernel") - (version "5.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ipykernel" version)) - (sha256 - (base32 "0br95qhrd5k65g10djngiy27hs0642301hlf2q142i8djabvzh0g")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (setenv "HOME" "/tmp") - (invoke "pytest" "-v") - #t))))) - (propagated-inputs - `(("python-ipython" ,python-ipython) - ;; imported at runtime during connect - ("python-jupyter-client" ,python-jupyter-client))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-nose" ,python-nose))) - (home-page "https://ipython.org") - (synopsis "IPython Kernel for Jupyter") - (description - "This package provides the IPython kernel for Jupyter.") - (license license:bsd-3))) - -(define-public python2-ipykernel - (package-with-python2 python-ipykernel)) - -(define-public python-send2trash - (package - (name "python-send2trash") - (version "1.5.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "send2trash" version)) - (sha256 - (base32 - "1ci8vcwjmjlp11ljj1ckrfmml9fkq1mclx2gr53y4zvhgp01q030")))) - (build-system python-build-system) - (home-page "https://github.com/hsoft/send2trash") - (synopsis "Send files to trash") - (description - "This package provides a cross-platform mechanism to send files to the -trash.") - (license license:bsd-3))) - -(define-public python2-send2trash - (package-with-python2 python-send2trash)) - -;; This is the latest release of the LTS version of ipython with support for -;; Python 2.7 and Python 3.x. Later non-LTS versions starting from 6.0 have -;; dropped support for Python 2.7. We may want to rename this package. -(define-public python-ipython - (package - (name "python-ipython") - (version "5.8.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ipython" version ".tar.gz")) - (sha256 - (base32 "01l93i4hspf0lvhmycvc8j378bslm9rw30mwfspsl6v1ayc69b2b")))) - (build-system python-build-system) - (outputs '("out" "doc")) - (propagated-inputs - `(("python-pyzmq" ,python-pyzmq) - ("python-prompt-toolkit" ,python-prompt-toolkit-1) - ("python-terminado" ,python-terminado) - ("python-matplotlib" ,python-matplotlib) - ("python-numpy" ,python-numpy) - ("python-numpydoc" ,python-numpydoc) - ("python-jinja2" ,python-jinja2) - ("python-mistune" ,python-mistune) - ("python-pexpect" ,python-pexpect) - ("python-pickleshare" ,python-pickleshare) - ("python-simplegeneric" ,python-simplegeneric) - ("python-jsonschema" ,python-jsonschema) - ("python-traitlets" ,python-traitlets) - ("python-nbformat" ,python-nbformat) - ("python-pygments" ,python-pygments))) - (inputs - `(("readline" ,readline) - ("which" ,which))) - (native-inputs - `(("graphviz" ,graphviz) - ("pkg-config" ,pkg-config) - ("python-requests" ,python-requests) ;; for tests - ("python-testpath" ,python-testpath) - ("python-nose" ,python-nose) - ("python-sphinx" ,python-sphinx) - ("python-shpinx-rtd-theme" ,python-sphinx-rtd-theme) - ;; FIXME: It's possible that a smaller union would work just as well. - ("texlive" ,(texlive-union (list texlive-fonts-amsfonts - texlive-fonts-ec - texlive-generic-ifxetex - texlive-generic-pdftex - texlive-latex-amsfonts - texlive-latex-capt-of - texlive-latex-cmap - texlive-latex-environ - texlive-latex-eqparbox - texlive-latex-etoolbox - texlive-latex-expdlist - texlive-latex-fancyhdr - texlive-latex-fancyvrb - texlive-latex-fncychap - texlive-latex-float - texlive-latex-framed - texlive-latex-geometry - texlive-latex-graphics - texlive-latex-hyperref - texlive-latex-mdwtools - texlive-latex-multirow - texlive-latex-oberdiek - texlive-latex-parskip - texlive-latex-preview - texlive-latex-tabulary - texlive-latex-threeparttable - texlive-latex-titlesec - texlive-latex-trimspaces - texlive-latex-ucs - texlive-latex-upquote - texlive-latex-url - texlive-latex-varwidth - texlive-latex-wrapfig))) - ("texinfo" ,texinfo))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'install 'install-doc - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((data (string-append (assoc-ref outputs "doc") "/share")) - (doc (string-append data "/doc/" ,name "-" ,version)) - (html (string-append doc "/html")) - (man1 (string-append data "/man/man1")) - (info (string-append data "/info")) - (examples (string-append doc "/examples")) - (python-arg (string-append "PYTHON=" (which "python")))) - (setenv "LANG" "en_US.utf8") - ;; Make installed package available for running the tests - (add-installed-pythonpath inputs outputs) - (with-directory-excursion "docs" - ;; FIXME: pdf fails to build - ;;(system* "make" "pdf" "PAPER=a4") - (system* "make" python-arg "html") - (system* "make" python-arg "info")) - (copy-recursively "docs/man" man1) - (copy-recursively "examples" examples) - (copy-recursively "docs/build/html" html) - ;; (copy-file "docs/build/latex/ipython.pdf" - ;; (string-append doc "/ipython.pdf")) - (mkdir-p info) - (copy-file "docs/build/texinfo/ipython.info" - (string-append info "/ipython.info")) - (copy-file "COPYING.rst" (string-append doc "/COPYING.rst"))) - #t)) - ;; Tests can only be run after the library has been installed and not - ;; within the source directory. - (delete 'check) - (add-after 'install 'check - (lambda* (#:key inputs outputs tests? #:allow-other-keys) - (if tests? - (begin - ;; Make installed package available for running the tests - (add-installed-pythonpath inputs outputs) - (setenv "HOME" "/tmp/") ;; required by a test - ;; We only test the core because one of the other tests - ;; tries to import ipykernel. - (invoke "python" "IPython/testing/iptest.py" - "-v" "IPython/core/tests")) - #t))) - (add-before 'check 'fix-tests - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "./IPython/utils/_process_posix.py" - (("/usr/bin/env', 'which") (which "which"))) - (substitute* "./IPython/core/tests/test_inputtransformer.py" - (("#!/usr/bin/env python") - (string-append "#!" (which "python")))) - ;; Disable 1 failing test - (substitute* "./IPython/core/tests/test_magic.py" - (("def test_dirops\\(\\):" all) - (string-append "@dec.skipif(True)\n" all))) - ;; This test introduces a circular dependency on ipykernel - ;; (which depends on ipython). - (delete-file "IPython/core/tests/test_display.py") - ;; These tests throw errors for unknown reasons. - (delete-file "IPython/extensions/tests/test_storemagic.py") - (delete-file "IPython/core/tests/test_displayhook.py") - (delete-file "IPython/core/tests/test_interactiveshell.py") - (delete-file "IPython/core/tests/test_pylabtools.py") - (delete-file "IPython/core/tests/test_paths.py") - #t))))) - (home-page "https://ipython.org") - (synopsis "IPython is a tool for interactive computing in Python") - (description - "IPython provides a rich architecture for interactive computing with: -Powerful interactive shells, a browser-based notebook, support for interactive -data visualization, embeddable interpreters and tools for parallel -computing.") - (license license:bsd-3) - (properties `((python2-variant . ,(delay python2-ipython)))))) - -(define-public python2-ipython - (let ((ipython (package-with-python2 (strip-python2-variant python-ipython)))) - (package - (inherit ipython) - ;; FIXME: add pyreadline once available. - (propagated-inputs - `(("python2-backports-shutil-get-terminal-size" - ,python2-backports-shutil-get-terminal-size) - ("python2-pathlib2" ,python2-pathlib2) - ,@(package-propagated-inputs ipython))) - (native-inputs - `(("python2-mock" ,python2-mock) - ,@(package-native-inputs ipython)))))) - -(define-public python-urwid - (package - (name "python-urwid") - (version "2.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "urwid" version)) - (sha256 - (base32 - "1g6cpicybvbananpjikmjk8npmjk4xvak1wjzji62wc600wkwkb4")))) - (build-system python-build-system) - (home-page "http://urwid.org") - (synopsis "Console user interface library for Python") - (description - "Urwid is a curses-based UI/widget library for Python. It includes many -features useful for text console applications.") - (license license:lgpl2.1+))) - -(define-public python2-urwid - (package-with-python2 python-urwid)) - -(define-public python-urwidtrees - (package - (name "python-urwidtrees") - (version "1.0.2") - (source - (origin - (method url-fetch) - ;; package author intends on distributing via github rather than pypi: - ;; https://github.com/pazz/alot/issues/877#issuecomment-230173331 - (uri (string-append "https://github.com/pazz/urwidtrees/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0d30lyd3s2a97rhqfax5w9ssqds2z6aydqx3c6j2c2lk3cb4ngvh")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; no tests - (propagated-inputs `(("python-urwid" ,python-urwid))) - (home-page "https://github.com/pazz/urwidtrees") - (synopsis "Tree widgets for urwid") - (description "Urwidtrees is a Widget Container API for the @code{urwid} -toolkit. Use it to build trees of widgets.") - (license license:gpl3+))) - -(define-public python2-urwidtrees - (package-with-python2 python-urwidtrees)) - -(define-public python-ua-parser - (package - (name "python-ua-parser") - (version "0.8.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ua-parser" version)) - (sha256 - (base32 - "1jwdf58rhchjzzrad405pviv0iq24xa2xmmmdgcm2c8s6b4wzfwp")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ;no test suite in release - (native-inputs - `(("python-pyyaml" ,python-pyyaml))) - (home-page "https://github.com/ua-parser/uap-python") - (synopsis "User agent parser") - (description - "@code{ua-parser} is a Python port of Browserscope's user agent parser.") - (license license:asl2.0))) - -(define-public python2-ua-parser - (package-with-python2 python-ua-parser)) - -(define-public python-user-agents - (package - (name "python-user-agents") - (version "1.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "user-agents" version)) - (sha256 - (base32 - "0fc00cd3j8dahq1zzn8pkgfgd7lq37bp2scmdma2n1c049vicgb4")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ;missing devices.json test file in release - (propagated-inputs - `(("python-ua-parser" ,python-ua-parser))) - (home-page "https://github.com/selwin/python-user-agents") - (synopsis "User Agent strings parsing library") - (description - "A library to identify devices (phones, tablets) and their capabilities by -parsing (browser/HTTP) user agent strings.") - (license license:expat))) - -(define-public python2-user-agents - (package-with-python2 python-user-agents)) - -(define-public python-dbus - (package - (name "python-dbus") - (version "1.2.8") - (source - (origin - (method url-fetch) - (uri (string-append "https://dbus.freedesktop.org/releases/dbus-python/" - "dbus-python-" version ".tar.gz")) - (sha256 - (base32 - "0vvvjmiwnc9cjlks3gcdk43ap7llhlpz7cm1wbw0nc2yfsxjpwdb")))) - (build-system gnu-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-before - 'check 'pre-check - (lambda _ - ;; XXX: For the missing '/etc/machine-id'. - (substitute* "test/run-test.sh" - (("DBUS_FATAL_WARNINGS=1") - "DBUS_FATAL_WARNINGS=0")) - #t))))) - (native-inputs - `(("pkg-config" ,pkg-config))) - (inputs - `(("python" ,python-wrapper) - ("dbus-glib" ,dbus-glib))) - (synopsis "Python bindings for D-bus") - (description "python-dbus provides bindings for libdbus, the reference -implementation of D-Bus.") - (home-page "https://www.freedesktop.org/wiki/Software/DBusBindings/") - (license license:expat))) - -(define-public python2-dbus - (package (inherit python-dbus) - (name "python2-dbus") - (inputs `(("python" ,python-2) - ,@(alist-delete "python" - (package-inputs python-dbus) - equal?))) - ;; FIXME: on Python 2, the test_utf8 fails with: - ;; "ValueError: unichr() arg not in range(0x10000) (narrow Python build)" - (arguments `(#:tests? #f)))) - -(define-public python-lxml - (package - (name "python-lxml") - (version "4.2.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "lxml" version)) - (sha256 - (base32 - "0zw0y9hs0nflxhl9cs6ipwwh53szi3w2x06wl0k9cylyqac0cwin")))) - (build-system python-build-system) - (inputs - `(("libxml2" ,libxml2) - ("libxslt" ,libxslt))) - (home-page "http://lxml.de/") - (synopsis - "Python XML processing library") - (description - "The lxml XML toolkit is a Pythonic binding for the C libraries -libxml2 and libxslt.") - (license license:bsd-3))) ; and a few more, see LICENSES.txt - -(define-public python2-lxml - (package-with-python2 python-lxml)) - -;; beautifulsoup4 has a totally different namespace than 3.x, -;; and pypi seems to put it under its own name, so I guess we should too -(define-public python-beautifulsoup4 - (package - (name "python-beautifulsoup4") - (version "4.6.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "beautifulsoup4" version)) - (sha256 - (base32 - "041dhalzjciw6qyzzq7a2k4h1yvyk76xigp35hv5ibnn448ydy4h")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - ;; The Python 2 source is the definitive source of beautifulsoup4. We - ;; must use this conversion script when building with Python 3. The - ;; conversion script also runs the tests. - ;; For more information, see the file 'convert-py3k' in the source - ;; distribution. - (replace 'check - (lambda _ (zero? (system* "./convert-py3k"))))))) - (home-page - "https://www.crummy.com/software/BeautifulSoup/bs4/") - (synopsis - "Python screen-scraping library") - (description - "Beautiful Soup is a Python library designed for rapidly setting up -screen-scraping projects. It offers Pythonic idioms for navigating, -searching, and modifying a parse tree, providing a toolkit for -dissecting a document and extracting what you need. It automatically -converts incoming documents to Unicode and outgoing documents to UTF-8.") - (license license:expat) - (properties `((python2-variant . ,(delay python2-beautifulsoup4)))))) - -(define-public python2-beautifulsoup4 - (package - (inherit (package-with-python2 - (strip-python2-variant python-beautifulsoup4))) - (arguments `(#:python ,python-2)))) - -(define-public python-netifaces - (package - (name "python-netifaces") - (version "0.10.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "netifaces" version)) - (sha256 - (base32 - "1gccklrcplbbqh81g1mdgpa5y8na7kkf29cq2ka3f5a2fp5hyndx")))) - (build-system python-build-system) - (home-page "https://github.com/al45tair/netifaces") - (synopsis - "Python module for portable network interface information") - (description - "Netifaces is a Python module providing information on network -interfaces in an easy and portable manner.") - (license license:expat))) - -(define-public python2-netifaces - (package-with-python2 python-netifaces)) - -(define-public python-networkx - (package - (name "python-networkx") - (version "2.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "networkx" version ".zip")) - (sha256 - (base32 "12swxb15299v9vqjsq4z8rgh5sdhvpx497xwnhpnb0gynrx6zra5")))) - (build-system python-build-system) - ;; python-decorator is needed at runtime. - (propagated-inputs - `(("python-decorator" ,python-decorator))) - (native-inputs - `(("python-nose" ,python-nose) - ("unzip" ,unzip))) - (home-page "https://networkx.github.io/") - (synopsis "Python module for creating and manipulating graphs and networks") - (description - "NetworkX is a Python package for the creation, manipulation, and study -of the structure, dynamics, and functions of complex networks.") - (license license:bsd-3))) - -(define-public python2-networkx - (package-with-python2 python-networkx)) - -(define-public python-datrie - (package - (name "python-datrie") - (version "0.7.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "datrie" version)) - (sha256 - (base32 - "08r0if7dry2q7p34gf7ffyrlnf4bdvnprxgydlfxgfnvq8f3f4bs")))) - (build-system python-build-system) - (arguments - `(#:phases (modify-phases %standard-phases - (add-before 'build 'cythonize - (lambda _ - ;; Regenerate Cython classes to solve ABI issues with Python - ;; 3.7.0. See <https://github.com/pytries/datrie/issues/52>. - (invoke "cython" "src/datrie.pyx" "src/cdatrie.pxd" - "src/stdio_ext.pxd" "-a")))))) - (native-inputs - `(("python-cython" ,python-cython) - ("python-hypothesis" ,python-hypothesis) - ("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://github.com/kmike/datrie") - (synopsis "Fast, efficiently stored trie for Python") - (description - "This package provides a fast, efficiently stored trie implementation for -Python.") - (license license:lgpl2.1+))) - -(define-public snakemake - (package - (name "snakemake") - (version "5.2.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "snakemake" version)) - (sha256 - (base32 "0gj0xxgiq3mp9qyyrbfzldiaq1giliqw0in64nqiz7vx49myqj7z")))) - (build-system python-build-system) - (arguments - ;; TODO: Package missing test dependencies. - '(#:tests? #f - #:phases - (modify-phases %standard-phases - ;; For cluster execution Snakemake will call Python. Since there is - ;; no suitable PYTHONPATH set, cluster execution will fail. We fix - ;; this by calling the snakemake wrapper instead. - (add-after 'unpack 'call-wrapper-not-wrapped-snakemake - (lambda* (#:key outputs #:allow-other-keys) - (substitute* "snakemake/executors.py" - (("\\{sys.executable\\} -m snakemake") - (string-append (assoc-ref outputs "out") - "/bin/snakemake"))) - #t))))) - (propagated-inputs - `(("python-gitpython" ,python-gitpython) - ("python-wrapt" ,python-wrapt) - ("python-requests" ,python-requests) - ("python-appdirs" ,python-appdirs) - ("python-configargparse" ,python-configargparse) - ("python-datrie" ,python-datrie) - ("python-docutils" ,python-docutils) - ("python-jinja2" ,python-jinja2) - ("python-jsonschema" ,python-jsonschema) - ("python-networkx" ,python-networkx) - ("python-pyyaml" ,python-pyyaml) - ("python-ratelimiter" ,python-ratelimiter))) - (home-page "https://snakemake.readthedocs.io") - (synopsis "Python-based execution environment for make-like workflows") - (description - "Snakemake aims to reduce the complexity of creating workflows by -providing a clean and modern domain specific specification language (DSL) in -Python style, together with a fast and comfortable execution environment.") - (license license:expat))) - -;; This is currently needed for the pigx-* packages. -(define-public snakemake-4 - (package (inherit snakemake) - (version "4.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "snakemake" version)) - (sha256 - (base32 "0g0paia4z7w3srnqdmavq3hrb2x7qnpf81jx50njl0p7y4y0j8jv")))) - (propagated-inputs - `(("python-wrapt" ,python-wrapt) - ("python-requests" ,python-requests) - ("python-appdirs" ,python-appdirs) - ("python-configargparse" ,python-configargparse) - ("python-pyyaml" ,python-pyyaml) - ("python-ratelimiter" ,python-ratelimiter))))) - -(define-public python-pyqrcode - (package - (name "python-pyqrcode") - (version "1.2.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "PyQRCode" version)) - (sha256 - (base32 - "1m9ln8k9v7dfbh1i81225hx5mdsh8mpf9g7r4wpbfmiyfcs7dgzx")))) - (build-system python-build-system) - (home-page - "https://github.com/mnooner256/pyqrcode") - (synopsis "QR code generator") - (description - "Pyqrcode is a QR code generator written purely in Python with -SVG, EPS, PNG and terminal output.") - (license license:bsd-3))) - -(define-public python-seaborn - (package - (name "python-seaborn") - (version "0.9.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "seaborn" version)) - (sha256 - (base32 "0bqysi3fxfjl1866m5jq8z7mynhqbqnikim74dmzn8539iwkzj3n")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'start-xserver - (lambda* (#:key inputs #:allow-other-keys) - (let ((xorg-server (assoc-ref inputs "xorg-server"))) - ;; There must be a running X server and make check doesn't - ;; start one. Therefore we must do it. - (system (format #f "~a/bin/Xvfb :1 &" xorg-server)) - (setenv "DISPLAY" ":1") - #t))) - (replace 'check (lambda _ (invoke "pytest" "seaborn") #t))))) - (propagated-inputs - `(("python-pandas" ,python-pandas) - ("python-matplotlib" ,python-matplotlib) - ("python-numpy" ,python-numpy) - ("python-scipy" ,python-scipy))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("xorg-server" ,xorg-server))) - (home-page "http://stanford.edu/~mwaskom/software/seaborn/") - (synopsis "Statistical data visualization") - (description - "Seaborn is a library for making attractive and informative statistical -graphics in Python. It is built on top of matplotlib and tightly integrated -with the PyData stack, including support for numpy and pandas data structures -and statistical routines from scipy and statsmodels.") - (license license:bsd-3))) - -(define-public python2-seaborn - (package-with-python2 python-seaborn)) - -(define-public python-mpmath - (package - (name "python-mpmath") - (version "0.19") - (source (origin - (method url-fetch) - (uri (string-append "http://mpmath.org/files/mpmath-" - version ".tar.gz")) - (sha256 - (base32 - "08ijsr4ifrqv3cjc26mkw0dbvyygsa99in376hr4b96ddm1gdpb8")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (zero? - (system* "python" "mpmath/tests/runtests.py" "-local"))))))) - (home-page "http://mpmath.org") - (synopsis "Arbitrary-precision floating-point arithmetic in python") - (description - "@code{mpmath} can be used as an arbitrary-precision substitute for -Python's float/complex types and math/cmath modules, but also does much -more advanced mathematics.") - (license license:bsd-3))) - -(define-public python2-mpmath - (package-with-python2 python-mpmath)) - -(define-public python-bigfloat - (package - (name "python-bigfloat") - (version "0.3.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "bigfloat" version)) - (sha256 - (base32 "0xd7q4l7v0f463diznjv4k9wlaks80pn9drdqmfifi7zx8qvybi6")))) - (build-system python-build-system) - (inputs - `(("mpfr" ,mpfr))) - (home-page "https://github.com/mdickinson/bigfloat") - (synopsis "Arbitrary precision floating-point arithmetic for Python") - (description - "This packages provides a Python interface to the MPFR library for -multiprecision arithmetic.") - (license license:lgpl3+))) - -(define-public python2-bigfloat - (package-with-python2 python-bigfloat)) - -(define-public python-sympy - (package - (name "python-sympy") - (version "1.1.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/sympy/sympy/releases/download/sympy-" - version "/sympy-" version ".tar.gz")) - (sha256 - (base32 "190n29sppw7g8ihilc5451y7jlfcaw56crqiqbf1jff43dlmfnxc")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - ;; Run the core tests after installation. By default it would run - ;; *all* tests, which take a very long time to complete and are known - ;; to be flaky. - (delete 'check) - (add-after 'install 'check - (lambda* (#:key outputs #:allow-other-keys) - (invoke "python3" "-c" "import sympy; sympy.test(\"/core\")") - #t))))) - (propagated-inputs - `(("python-mpmath" ,python-mpmath))) - (home-page "http://www.sympy.org/") - (synopsis "Python library for symbolic mathematics") - (description - "SymPy is a Python library for symbolic mathematics. It aims to become a -full-featured computer algebra system (CAS) while keeping the code as simple -as possible in order to be comprehensible and easily extensible.") - (license license:bsd-3))) - -(define-public python2-sympy - (package - (inherit (package-with-python2 python-sympy)) - (arguments - `(#:phases - (modify-phases %standard-phases - ;; Run the core tests after installation. By default it would run - ;; *all* tests, which take a very long time to complete and are known - ;; to be flaky. - (delete 'check) - (add-after 'install 'check - (lambda* (#:key outputs #:allow-other-keys) - (invoke "python" "-c" "import sympy; sympy.test(\"/core\")") - #t))))))) - -(define-public python-q - (package - (name "python-q") - (version "2.6") - (source - (origin - (method url-fetch) - (uri (pypi-uri "q" version)) - (sha256 - (base32 - "1mgfazh8fkizh6walra2zv885f3lcgr3nb02v1frfm4p8ddcy3yy")))) - (build-system python-build-system) - (home-page "https://github.com/zestyping/q") - (synopsis "Quick-and-dirty debugging output for tired programmers") - (description - "q is a Python module for \"print\" style of debugging Python code. It -provides convenient short API for print out of values, tracebacks, and -falling into the Python interpreter.") - (license license:asl2.0))) - -(define-public python2-q - (package-with-python2 python-q)) - -(define-public python2-xlib - (package - (name "python2-xlib") - (version "0.14") - (source (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/python-xlib/python-xlib" - "/" version "/" - "python-xlib-" version ".tar.gz")) - (sha256 - (base32 - "1sv0447j0rx8cgs3jhjl695p5pv13ihglcjlrrz1kq05lsvb0wa7")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 ;Python 2 only - #:tests? #f)) ;no tests - (home-page "http://python-xlib.sourceforge.net/") - (synopsis "Python X11 client library") - (description - "The Python X Library is intended to be a fully functional X client -library for Python programs. It is useful to implement low-level X clients. -It is written entirely in Python.") - (license license:gpl2+))) - -(define-public python-singledispatch - (package - (name "python-singledispatch") - (version "3.4.0.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "singledispatch" version)) - (sha256 - (base32 - "171b7ip0hsq5qm83np40h3phlr36ym18w0lay0a8v08kvy3sy1jv")))) - (build-system python-build-system) - (native-inputs - `(("python-six" ,python-six))) ; required for conversion, not at run-time - (home-page - "http://docs.python.org/3/library/functools.html#functools.singledispatch") - (synopsis "Backport of singledispatch feature from Python 3.4") - (description - "This library brings functools.singledispatch from Python 3.4 to Python -2.6-3.3.") - (license license:expat))) - -(define-public python2-singledispatch - (package-with-python2 python-singledispatch)) - -;; the python- version can be removed with python-3.5 -(define-public python-backports-abc - (package - (name "python-backports-abc") - (version "0.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "backports_abc" version)) - (sha256 - (base32 - "1pkv8d1zxj5f9i227dxbjczncbv7ks7ywnjwyxfjagm02i2yafq3")))) - (build-system python-build-system) - (home-page "https://github.com/cython/backports_abc") - (synopsis "Backport of additions to the 'collections.abc' module") - (description - "Python-backports-abc provides a backport of additions to the -'collections.abc' module in Python-3.5.") - (license license:psfl))) - -(define-public python2-backports-abc - (package-with-python2 python-backports-abc)) - -(define-public python-backports-csv - (package - (name "python-backports-csv") - (version "1.0.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "backports.csv" version)) - (sha256 - (base32 - "1imzbrradkfn8s2m1qcimyn74dn1mz2p3j381jljn166rf2i6hlc")))) - (build-system python-build-system) - (home-page "https://github.com/ryanhiebert/backports.csv") - (synopsis "Backport of Python 3's csv module for Python 2") - (description - "Provides a backport of Python 3's @code{csv} module for parsing -comma separated values. The API of the @code{csv} module in Python 2 -is drastically different from the @code{csv} module in Python 3. -This is due, for the most part, to the difference between str in -Python 2 and Python 3.") - (license license:psfl))) - -(define-public python2-backports-csv - (package-with-python2 python-backports-csv)) - -(define-public python2-backports-shutil-get-terminal-size - (package - (name "python2-backports-shutil-get-terminal-size") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "backports.shutil_get_terminal_size" version)) - (sha256 - (base32 - "107cmn7g3jnbkp826zlj8rrj19fam301qvaqf0f3905f5217lgki")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (zero? (system* "py.test" "-v"))))))) - (native-inputs - `(("python2-pytest" ,python2-pytest))) - (home-page "https://github.com/chrippa/backports.shutil_get_terminal_size") - (synopsis "Backport of Python 3.3's @code{shutil.get_terminal_size}") - (description - "This package provides a backport of the @code{get_terminal_size -function} from Python 3.3's @code{shutil}. -Unlike the original version it is written in pure Python rather than C, -so it might be a tiny bit slower.") - (license license:expat))) - -(define-public python-waf - (package - (name "python-waf") - (version "2.0.11") - (source (origin - (method url-fetch) - (uri (string-append "https://waf.io/" - "waf-" version ".tar.bz2")) - (sha256 - (base32 - "13zrniwkmfqgsgzi9v5m1367fppp9yzrz6z2ny6hy8dmpb8mj4z4")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'build - (lambda _ - (invoke "python" "waf-light" "configure" "build"))) - (replace 'check - (lambda _ - (invoke "python" "waf" "--version"))) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (install-file "waf" (string-append out "/bin"))) - #t)) - ;; waf breaks when it is wrapped. - (delete 'wrap)))) - (home-page "https://waf.io/") - (synopsis "Python-based build system") - (description - "Waf is a Python-based framework for configuring, compiling and installing -applications.") - (license license:bsd-3))) - -(define-public python2-waf - (package-with-python2 python-waf)) - -(define-public python-pyzmq - (package - (name "python-pyzmq") - (version "17.1.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyzmq" version)) - (sha256 - (base32 "1pyxxrz60f88ffm0y6vpbx3q8jcr9ybz8fcilihwzwhh36n84ax7")))) - (build-system python-build-system) - (arguments - `(#:configure-flags - (list (string-append "--zmq=" (assoc-ref %build-inputs "zeromq"))) - ;; FIXME: You must build pyzmq with 'python setup.py build_ext - ;; --inplace' for 'python setup.py test' to work. - #:tests? #f)) - (inputs - `(("zeromq" ,zeromq))) - (native-inputs - `(("pkg-config" ,pkg-config) - ("python-nose" ,python-nose))) - (home-page "https://github.com/zeromq/pyzmq") - (synopsis "Python bindings for 0MQ") - (description - "PyZMQ is the official Python binding for the ZeroMQ messaging library.") - (license license:bsd-4))) - -(define-public python2-pyzmq - (package-with-python2 python-pyzmq)) - -(define-public python-pep8 - ;; This package has been renamed to ‘pycodestyle’ and is no longer updated. - ;; Its last release (1.7.1) adds only a scary warning to this effect, breaking - ;; some dependents' test suites, and nothing more. - (package - (name "python-pep8") - (version "1.7.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pep8" version)) - (sha256 - (base32 - "002rkl4lsn6x2mxmf8ar00l0m8i3mzrc6pnzz77blyksmpsxa4x1")))) - (build-system python-build-system) - (home-page "https://pep8.readthedocs.org/") - (synopsis "Python style guide checker") - (description - "This tools checks Python code against some of the style conventions in -PEP 8.") - (license license:expat))) - -(define-public python2-pep8 - (package-with-python2 python-pep8)) - -(define-public python-pyflakes - (package - (name "python-pyflakes") - (version "2.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyflakes" version)) - (sha256 - (base32 - "0jba28czyvimdc72llms3f17swp3i8jdcabf5w0j00adfbn64xls")))) - (build-system python-build-system) - (home-page - "https://github.com/pyflakes/pyflakes") - (synopsis "Passive checker of Python programs") - (description - "Pyflakes statically checks Python source code for common errors.") - (license license:expat))) - -(define-public python2-pyflakes - (package-with-python2 python-pyflakes)) - -(define-public python-mccabe - (package - (name "python-mccabe") - (version "0.6.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "mccabe" version)) - (sha256 - (base32 - "07w3p1qm44hgxf3vvwz84kswpsx6s7kvaibzrsx5dzm0hli1i3fx")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest-bootstrap) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://github.com/flintwork/mccabe") - (synopsis "McCabe checker, plugin for flake8") - (description - "This package provides a Flake8 plug-in to compute the McCabe cyclomatic -complexity of Python source code.") - (license license:expat))) - -(define-public python2-mccabe - (package-with-python2 python-mccabe)) - -(define-public python-mccabe-0.2.1 - (package (inherit python-mccabe) - (version "0.2.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "mccabe" version)) - (sha256 - (base32 - "0fi4a81kr5bcv5p4xgibqr595hyj5dafkqgsmfk96mfy8w71fajs")))))) - -(define-public python2-mccabe-0.2.1 - (package-with-python2 python-mccabe-0.2.1)) - -;; Flake8 2.4.1 requires an older version of pep8. -;; This should be removed ASAP. -(define-public python-pep8-1.5.7 - (package (inherit python-pep8) - (version "1.5.7") - (source - (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/p/pep8/pep8-" - version - ".tar.gz")) - (sha256 - (base32 - "12b9bbdbwnspxgak14xg58c130x2n0blxzlms5jn2dszn8qj3d0m")))) - (arguments - ;; XXX Tests not compatible with Python 3.5. - '(#:tests? #f)))) - -(define-public python2-pep8-1.5.7 - (package-with-python2 python-pep8-1.5.7)) - -;; Flake8 2.4.1 requires an older version of pyflakes. -;; This should be removed ASAP. -(define-public python-pyflakes-0.8.1 - (package (inherit python-pyflakes) - (version "0.8.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/p/pyflakes/pyflakes-" - version - ".tar.gz")) - (sha256 - (base32 - "0sbpq6pqm1i9wqi41mlfrsc5rk92jv4mskvlyxmnhlbdnc80ma1z")))) - (arguments - ;; XXX Tests not compatible with Python 3.5. - '(#:tests? #f)))) - -(define-public python2-pyflakes-0.8.1 - (package-with-python2 python-pyflakes-0.8.1)) - -;; This package is used by hypothesis which has thousands of dependent packages. -;; FIXME: Consolidate this with "python-flake8" below in the next rebuild cycle. -(define-public python-flake8-3.5 - (package - (name "python-flake8") - (version "3.5.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "flake8" version)) - (sha256 - (base32 - "184b33grvvjmiwlv9kyd7yng9qv5ld24154j70z332xxg9gjclvj")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - ;; Two errors don't seem to have assigned codes. - (add-after 'unpack 'delete-broken-test - (lambda _ (delete-file "tests/unit/test_pyflakes_codes.py") #t)) - (add-after 'unpack 'fix-problem-with-pycodestyle - (lambda _ - ;; See https://gitlab.com/pycqa/flake8/merge_requests/230 - ;; This should no longer be needed with the next release. - (substitute* "setup.py" - (("PEP8_PLUGIN\\('break_around_binary_operator'\\),") - "PEP8_PLUGIN('break_after_binary_operator'),\ -PEP8_PLUGIN('break_before_binary_operator'),")) - #t)) - (delete 'check) - (add-after 'install 'check - (lambda* (#:key inputs outputs #:allow-other-keys) - (add-installed-pythonpath inputs outputs) - (invoke "pytest" "-v") - #t))))) - (propagated-inputs - `(("python-pycodestyle" ,python-pycodestyle) - ("python-pyflakes" ,python-pyflakes) - ("python-mccabe" ,python-mccabe))) - (native-inputs - `(("python-mock" ,python-mock) - ("python-pytest" ,python-pytest-bootstrap) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://gitlab.com/pycqa/flake8") - (synopsis - "The modular source code checker: pep8, pyflakes and co") - (description - "Flake8 is a wrapper around PyFlakes, pep8 and python-mccabe.") - (properties `((python2-variant . ,(delay python2-flake8-3.5)))) - (license license:expat))) - -(define-public python2-flake8-3.5 - (let ((base (package-with-python2 (strip-python2-variant python-flake8-3.5)))) - (package (inherit base) - (propagated-inputs - `(("python2-configparser" ,python2-configparser) - ("python2-enum34" ,python2-enum34) - ,@(package-propagated-inputs base)))))) - -;; Version 3.5.0 has compatibility issues with Pyflakes 2.0, so we need -;; this newer version. Keep it as a separate variable for now to avoid -;; rebuilding "python-hypothesis"; this should be removed in the next -;; rebuild cycle. -(define-public python-flake8 - (package - (inherit python-flake8-3.5) - (version "3.6.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "flake8" version)) - (sha256 - (base32 - "0w0nprx22rbvrrkbfx9v5jc5gskbm08g219l7r8wai8zfswgadba")))) - (arguments - (substitute-keyword-arguments (package-arguments python-flake8-3.5) - ((#:phases phases) - `(modify-phases ,phases - (delete 'delete-broken-test) - (delete 'fix-problem-with-pycodestyle))))) - (properties `((python2-variant . ,(delay python2-flake8)))))) - -(define-public python2-flake8 - (let ((base (package-with-python2 (strip-python2-variant python-flake8)))) - (package (inherit base) - (propagated-inputs - (package-propagated-inputs python2-flake8-3.5))))) - -;; python-hacking requires flake8 <2.6.0. -(define-public python-flake8-2.5 - (package - (inherit python-flake8) - (version "2.5.5") - (source (origin - (method url-fetch) - (uri (pypi-uri "flake8" version)) - (sha256 - (base32 - "1snylqwbmrylbx3r1wpz8ggk98f6bcag4441ag8mm2l7wyn58sij")))) - (propagated-inputs - `(("python-pep8" ,python-pep8) - ,@(package-propagated-inputs python-flake8))) - (properties `((python2-variant . ,(delay python2-flake8-2.5)))))) - -(define-public python2-flake8-2.5 - (package - (inherit python2-flake8) - (version (package-version python-flake8-2.5)) - (source (origin - (inherit (package-source python-flake8-2.5)))) - (propagated-inputs - `(("python2-pep8" ,python2-pep8) - ,@(package-propagated-inputs python2-flake8))))) - -(define-public python-flake8-polyfill - (package - (name "python-flake8-polyfill") - (version "1.0.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "flake8-polyfill" version)) - (sha256 - (base32 - "1nlf1mkqw856vi6782qcglqhaacb23khk9wkcgn55npnjxshhjz4")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (setenv "PYTHONPATH" - (string-append (getcwd) "/build/lib:" - (getenv "PYTHONPATH"))) - (zero? (system* "py.test" "-v"))))))) - (native-inputs - `(("python-flake8" ,python-flake8) - ("python-mock" ,python-mock) - ("python-pep8" ,python-pep8) - ("python-pycodestyle" ,python-pycodestyle) - ("python-pytest" ,python-pytest))) - (home-page "https://gitlab.com/pycqa/flake8-polyfill") - (synopsis "Polyfill package for Flake8 plugins") - (description - "This package that provides some compatibility helpers for Flake8 -plugins that intend to support Flake8 2.x and 3.x simultaneously.") - (license license:expat))) - -(define-public python2-flake8-polyfill - (package-with-python2 python-flake8-polyfill)) - -(define-public python-mistune - (package - (name "python-mistune") - (version "0.8.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "mistune" version)) - (sha256 - (base32 - "0vkmsh0x480rni51lhyvigfdf06b9247z868pk3bal1wnnfl58sr")))) - (build-system python-build-system) - (native-inputs - `(("python-nose" ,python-nose) - ("python-cython" ,python-cython))) - (home-page "https://github.com/lepture/mistune") - (synopsis "Markdown parser in pure Python") - (description "This package provides a fast markdown parser in pure -Python.") - (license license:bsd-3))) - -(define-public python2-mistune - (package-with-python2 python-mistune)) - -(define-public python-markdown - (package - (name "python-markdown") - (version "3.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Markdown" version)) - (sha256 - (base32 - "0z6v8649sr434d5r5zmrhydka7v7f9yas4bwcgkcs0650jdhybnh")))) - (build-system python-build-system) - (native-inputs - `(("python-nose" ,python-nose) - ("python-pyyaml" ,python-pyyaml))) - (home-page "https://python-markdown.github.io/") - (synopsis "Python implementation of Markdown") - (description - "This package provides a Python implementation of John Gruber's -Markdown. The library features international input, various Markdown -extensions, and several HTML output formats. A command line wrapper -markdown_py is also provided to convert Markdown files to HTML.") - (license license:bsd-3))) - -(define-public python2-markdown - (package-with-python2 python-markdown)) - -(define-public python-ptyprocess - (package - (name "python-ptyprocess") - (version "0.5.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ptyprocess" version)) - (sha256 - (base32 - "0ra31k10v3629xq0kdn8lwmfbi97anmk48r03yvh7mks0kq96hg6")))) - (build-system python-build-system) - (native-inputs - `(("python-nose" ,python-nose))) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (zero? (system* "nosetests"))))))) - (home-page "https://github.com/pexpect/ptyprocess") - (synopsis "Run a subprocess in a pseudo terminal") - (description - "This package provides a Python library used to launch a subprocess in a -pseudo terminal (pty), and interact with both the process and its pty.") - (license license:isc))) - -(define-public python2-ptyprocess - (package-with-python2 python-ptyprocess)) - -(define-public python-cram - (package - (name "python-cram") - (version "0.7") - (home-page "https://bitheap.org/cram/") - (source (origin - (method url-fetch) - (uri (list (string-append home-page "cram-" - version ".tar.gz") - (pypi-uri "cram" version))) - (sha256 - (base32 - "0bvz6fwdi55rkrz3f50zsy35gvvwhlppki2yml5bj5ffy9d499vx")))) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-source - (lambda _ - (substitute* (find-files "cram" ".*\\.py$") - ;; Replace default shell path. - (("/bin/sh") (which "sh"))) - (substitute* (find-files "tests" ".*\\.t$") - (("md5") "md5sum") - (("/bin/bash") (which "bash")) - (("/bin/sh") (which "sh"))) - (substitute* "cram/_test.py" - ;; This hack works around a bug triggered by substituting - ;; the /bin/sh paths. "tests/usage.t" compares the output of - ;; "cram -h", which breaks the output at 80 characters. This - ;; causes the line showing the default shell to break into two - ;; lines, but the test expects a single line... - (("env\\['COLUMNS'\\] = '80'") - "env['COLUMNS'] = '160'")) - #t)) - (delete 'check) - (add-after 'install 'check - ;; The test phase uses the built library and executable. - ;; It's easier to run it after install since the build - ;; directory contains version-specific PATH. - (lambda* (#:key inputs outputs #:allow-other-keys) - (add-installed-pythonpath inputs outputs) - (setenv "PATH" (string-append (getenv "PATH") ":" - (assoc-ref outputs "out") "/bin")) - (zero? (system* "make" "test"))))))) - (build-system python-build-system) - (native-inputs - `(("python-coverage" ,python-coverage) - ("which" ,which))) - (synopsis "Simple testing framework for command line applications") - (description - "Cram is a functional testing framework for command line applications. -Cram tests look like snippets of interactive shell sessions. Cram runs each -command and compares the command output in the test with the command’s actual -output.") - (license license:gpl2+))) - -(define-public python2-cram - (package-with-python2 python-cram)) - -(define-public python-straight-plugin - (package - (name "python-straight-plugin") - (version "1.4.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "straight.plugin" version)) - (sha256 - (base32 - "069pjll4383p4kkgvcc40hgyvf79j2wdbpgwz77yigzxksh1gj62")))) - (build-system python-build-system) - (home-page "https://github.com/ironfroggy/straight.plugin") - (synopsis "Simple namespaced plugin facility") - (description "Straight Plugin provides a type of plugin you can create from -almost any existing Python modules, and an easy way for outside developers to -add functionality and customization to your projects with their own plugins.") - (license license:expat))) - -(define-public python2-straight-plugin - (package-with-python2 python-straight-plugin)) - -(define-public python-fonttools - (package - (name "python-fonttools") - (version "3.28.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "fonttools" version ".zip")) - (sha256 - (base32 - "0vsvjhidpb5kywpjgz1j3fywzkddxkb0afqai18qa3h6lqjyxwpb")))) - (build-system python-build-system) - (native-inputs - `(("unzip" ,unzip) - ("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://github.com/behdad/fonttools") - (synopsis "Tools to manipulate font files") - (description - "FontTools/TTX is a library to manipulate font files from Python. It -supports reading and writing of TrueType/OpenType fonts, reading and writing -of AFM files, reading (and partially writing) of PS Type 1 fonts. The package -also contains a tool called “TTX” which converts TrueType/OpenType fonts to and -from an XML-based format.") - (license license:expat))) - -(define-public python2-fonttools - (package-with-python2 python-fonttools)) - -(define-public python-ly - (package - (name "python-ly") - (version "0.9.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri name version)) - (sha256 - (base32 - "0x98dv7p8mg26p4816yy8hz4f34zf6hpnnfmr56msgh9jnsm2qfl")))) - (build-system python-build-system) - (arguments - ;; FIXME: Some tests need network access. - '(#:tests? #f)) - (synopsis "Tool and library for manipulating LilyPond files") - (description "This package provides a Python library to parse, manipulate -or create documents in LilyPond format. A command line program ly is also -provided that can be used to do various manipulations with LilyPond files.") - (home-page "https://pypi.python.org/pypi/python-ly") - (license license:gpl2+))) - -(define-public python-appdirs - (package - (name "python-appdirs") - (version "1.4.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "appdirs" version)) - (sha256 - (base32 - "14id6wxi12lgyw0mg3bcfnf888ad07jz9yj46gfzhn186z8rcn4y")))) - (build-system python-build-system) - (home-page "https://github.com/ActiveState/appdirs") - (synopsis - "Determine platform-specific dirs, e.g. a \"user data dir\"") - (description - "This module provides a portable way of finding out where user data -should be stored on various operating systems.") - (license license:expat))) - -(define-public python2-appdirs - (package-with-python2 python-appdirs)) - -(define-public python-llfuse - (package - (name "python-llfuse") - (version "1.3.5") - (source (origin - (method url-fetch) - (uri (pypi-uri "llfuse" version ".tar.bz2")) - (sha256 - (base32 - "1n7a90jww3ly49fm7x27m3xw3la3qfrnykcakga654g6kcyjlhbf")))) - (build-system python-build-system) - (inputs - `(("fuse" ,fuse) - ("attr" ,attr))) - (native-inputs - `(("pkg-config" ,pkg-config))) - (synopsis "Python bindings for FUSE") - (description - "Python-LLFUSE is a set of Python bindings for the low level FUSE API.") - (home-page "https://bitbucket.org/nikratio/python-llfuse/") - (license license:lgpl2.0+) - (properties `((python2-variant . ,(delay python2-llfuse)))))) - -(define-public python2-llfuse - (package (inherit (package-with-python2 - (strip-python2-variant python-llfuse))) - (propagated-inputs `(("python2-contextlib2" ,python2-contextlib2))))) - -;; For attic-0.16 -(define-public python-llfuse-0.41 - (package (inherit python-llfuse) - (version "0.41.1") - (source (origin - (method url-fetch) - (uri (string-append - "https://bitbucket.org/nikratio/python-llfuse/downloads/" - "llfuse-" version ".tar.bz2")) - (sha256 - (base32 - "1imlqw9b73086y97izr036f58pgc5akv4ihc2rrf8j5h75jbrlaa")))) - ;; Python-LLFUSE < 0.42 includes underscore.js, which is MIT (expat) - ;; licensed. The rest of the package is licensed under LGPL2.0 or later. - (license (list license:expat license:lgpl2.0+)))) - -(define-public python-msgpack - (package - (name "python-msgpack") - (version "0.5.6") - (source (origin - (method url-fetch) - (uri (pypi-uri "msgpack" version)) - (sha256 - (base32 - "1hz2dba1nvvn52afg34liijsm7kn65cmn06dl0xbwld6bb4cis0f")))) - (build-system python-build-system) - (arguments - `(#:modules ((guix build utils) - (guix build python-build-system) - (ice-9 ftw) - (srfi srfi-1) - (srfi srfi-26)) - #:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (let ((cwd (getcwd))) - (setenv "PYTHONPATH" - (string-append cwd "/build/" - (find (cut string-prefix? "lib" <>) - (scandir (string-append cwd "/build"))) - ":" - (getenv "PYTHONPATH"))) - (invoke "pytest" "-v" "test"))))))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (synopsis "MessagePack (de)serializer") - (description "MessagePack is a fast, compact binary serialization format, -suitable for similar data to JSON. This package provides CPython bindings for -reading and writing MessagePack data.") - (home-page "https://pypi.python.org/pypi/msgpack/") - (license license:asl2.0))) - -;; This msgpack library's name changed from "python-msgpack" to "msgpack" with -;; release 0.5. Some packages like borg still call it by the old name for now. -;; <https://bugs.gnu.org/30662> -(define-public python-msgpack-transitional - (package - (inherit python-msgpack) - (name "python-msgpack-transitional") - (arguments - (substitute-keyword-arguments (package-arguments python-msgpack) - ((#:phases phases) - `(modify-phases ,phases - (add-after 'unpack 'configure-transitional - (lambda _ - ;; Keep using the old name. - (substitute* "setup.py" - (("TRANSITIONAL = False") - "TRANSITIONAL = 1")) - #t)))))))) - -(define-public python2-msgpack - (package-with-python2 python-msgpack)) - -(define-public python-netaddr - (package - (name "python-netaddr") - (version "0.7.19") - (source - (origin - (method url-fetch) - (uri (pypi-uri "netaddr" version)) - (sha256 - (base32 - "1zdfadvpq4lmcqzr383gywxn4xyn355kj1n3lk9q2l03vmyfrbiq")))) - (build-system python-build-system) - (arguments `(#:tests? #f)) ;; No tests. - (home-page "https://github.com/drkjam/netaddr/") - (synopsis "Pythonic manipulation of network addresses") - (description - "A Python library for representing and manipulating IPv4, IPv6, CIDR, EUI -and MAC network addresses.") - (license license:bsd-3))) - -(define-public python2-netaddr - (package-with-python2 python-netaddr)) - -(define-public python-wrapt - (package - (name "python-wrapt") - (version "1.10.11") - (source - (origin - (method url-fetch) - (uri (pypi-uri "wrapt" version)) - (sha256 - (base32 - "1ip3dwib39xhp79kblskgvz3fjzcwxgx3fs3ahdixhpjg7a61mfl")))) - (build-system python-build-system) - (arguments - ;; Tests are not included in the tarball, they are only available in the - ;; git repository. - `(#:tests? #f)) - (home-page "https://github.com/GrahamDumpleton/wrapt") - (synopsis "Module for decorators, wrappers and monkey patching") - (description - "The aim of the wrapt module is to provide a transparent object proxy for - Python, which can be used as the basis for the construction of function - wrappers and decorator functions.") - (license license:bsd-2))) - -(define-public python2-wrapt - (package-with-python2 python-wrapt)) - -(define-public python-xlrd - (package - (name "python-xlrd") - (version "1.0.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "xlrd" version)) - (sha256 - (base32 - "0s8hjiz01vbhy85xalrz0qlsmd9ypf36zjqrf97hh984spapvy0g")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - ;; Current test in setup.py does not work as of 1.0.0, so use nose to - ;; run tests instead for now. - (replace 'check (lambda _ (zero? (system* "nosetests"))))))) - (native-inputs `(("python-nose" ,python-nose))) - (home-page "http://www.python-excel.org/") - (synopsis "Library for extracting data from Excel files") - (description "This packages provides a library to extract data from -spreadsheets using Microsoft Excel proprietary file formats @samp{.xls} and -@samp{.xlsx} (versions 2.0 onwards). It has support for Excel dates and is -Unicode-aware. It is not intended as an end-user tool.") - (license license:bsd-3))) - -(define-public python2-xlrd - (package-with-python2 python-xlrd)) - -(define-public python-prettytable - (package - (name "python-prettytable") - (version "0.7.2") - (source - (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/P/PrettyTable/" - "prettytable-" version ".tar.bz2")) - (sha256 - (base32 - "0diwsicwmiq2cpzpxri7cyl5fmsvicafw6nfqf6p6p322dji2g45")))) - (build-system python-build-system) - (home-page "http://code.google.com/p/prettytable/") - (synopsis "Display tabular data in an ASCII table format") - (description - "A library designed to represent tabular data in visually appealing ASCII -tables. PrettyTable allows for selection of which columns are to be printed, -independent alignment of columns (left or right justified or centred) and -printing of sub-tables by specifying a row range.") - (license license:bsd-3))) - -(define-public python2-prettytable - (package-with-python2 python-prettytable)) - -(define-public python-tables - (package - (name "python-tables") - (version "3.4.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "tables" version)) - (sha256 - (base32 - "0affz7k8babh8wdmsgrz5jxrd569by2w8ffimcxs9wiaf5rw1idx")) - (modules '((guix build utils))) - (snippet - '(begin - ;; Remove pre-compiled .pyc files from source. - (for-each delete-file-recursively - (find-files "." "__pycache__" #:directories? #t)) - (for-each delete-file (find-files "." "\\.pyc$")) - #t)))) - (build-system python-build-system) - (arguments - `(;; FIXME: python-build-system does not pass configure-flags to "build" - ;; or "check", so we must override the build and check phases. - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'use-gcc - (lambda _ - (substitute* "setup.py" - (("compiler = new_compiler\\(\\)" line) - (string-append line - "\ncompiler.set_executables(compiler='gcc'," - "compiler_so='gcc'," - "linker_exe='gcc'," - "linker_so='gcc -shared')"))) - #t)) - (replace 'build - (lambda* (#:key inputs #:allow-other-keys) - (zero? (system* "python" "setup.py" "build" - (string-append "--hdf5=" - (assoc-ref inputs "hdf5")))))) - (replace 'check - (lambda* (#:key inputs #:allow-other-keys) - (zero? (system* "python" "setup.py" "check" - (string-append "--hdf5=" - (assoc-ref inputs "hdf5"))))))))) - (propagated-inputs - `(("python-numexpr" ,python-numexpr) - ("python-numpy" ,python-numpy))) - (native-inputs - `(("python-cython" ,python-cython) - ("pkg-config" ,pkg-config))) - (inputs - `(("hdf5" ,hdf5) - ("bzip2" ,bzip2) - ("zlib" ,zlib))) - (home-page "http://www.pytables.org/") - (synopsis "Hierarchical datasets for Python") - (description "PyTables is a package for managing hierarchical datasets and -designed to efficiently cope with extremely large amounts of data.") - (license license:bsd-3))) - -(define-public python2-tables - (package-with-python2 python-tables)) - -(define-public python-pyasn1 - (package - (name "python-pyasn1") - (version "0.4.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyasn1" version)) - (sha256 - (base32 - "1z5h38anjzzrxpraa9iq9llffyx2zs8gx0q6dc1g029miwnn50gv")))) - (build-system python-build-system) - (home-page "http://pyasn1.sourceforge.net/") - (synopsis "ASN.1 types and codecs") - (description - "This is an implementation of ASN.1 types and codecs in Python. It is -suitable for a wide range of protocols based on the ASN.1 specification.") - (license license:bsd-2))) - -(define-public python2-pyasn1 - (package-with-python2 python-pyasn1)) - -(define-public python-pyasn1-modules - (package - (name "python-pyasn1-modules") - (version "0.2.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyasn1-modules" version)) - (sha256 - (base32 - "0ivm850yi7ajjbi8j115qpsj95bgxdsx48nbjzg0zip788c3xkx0")))) - (build-system python-build-system) - (propagated-inputs - `(("python-pyasn1" ,python-pyasn1))) - (home-page "https://sourceforge.net/projects/pyasn1/") - (synopsis "ASN.1 codec implementations") - (description - "Pyasn1-modules is a collection of Python modules providing ASN.1 types and -implementations of ASN.1-based codecs and protocols.") - (license license:bsd-3))) - -(define-public python2-pyasn1-modules - (package-with-python2 python-pyasn1-modules)) - -(define-public python-ipaddress - (package - (name "python-ipaddress") - (version "1.0.22") - (source (origin - (method url-fetch) - (uri (pypi-uri "ipaddress" version)) - (sha256 - (base32 - "0b570bm6xqpjwqis15pvdy6lyvvzfndjvkynilcddjj5x98wfimi")))) - (build-system python-build-system) - (home-page "https://github.com/phihag/ipaddress") - (synopsis "IP address manipulation library") - (description - "This package provides a fast, lightweight IPv4/IPv6 manipulation library - in Python. This library is used to create, poke at, and manipulate IPv4 and - IPv6 addresses and networks. This is a port of the Python 3.3 ipaddress - module to older versions of Python.") - (license license:psfl))) - -(define-public python2-ipaddress - (package-with-python2 python-ipaddress)) - -(define-public python2-ipaddr - (package - (name "python2-ipaddr") - (version "2.1.11") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ipaddr" version)) - (sha256 - (base32 "1dwq3ngsapjc93fw61rp17fvzggmab5x1drjzvd4y4q0i255nm8v")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 ;version 2 only - #:phases - (modify-phases %standard-phases - (replace 'check - (lambda* _ - (zero? (system* "python" "ipaddr_test.py"))))))) - (home-page "https://github.com/google/ipaddr-py") - (synopsis "IP address manipulation library") - (description - "Ipaddr is a Python@tie{}2 library for creating and manupilating IPv4 and -IPv6 addresses and networks. - -For new implementations you may prefer to use the standard module -@code{ipaddress}, which was introduced in Python 3.3 and backported to older -versions of Python.") - (license license:asl2.0))) - -(define-public python-idna - (package - (name "python-idna") - (version "2.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "idna" version)) - (sha256 - (base32 - "05jam7d31767dr12x0rbvvs8lxnpb1mhdb2zdlfxgh83z6k3hjk8")))) - (build-system python-build-system) - (home-page "https://github.com/kjd/idna") - (synopsis "Internationalized domain names in applications") - (description - "This is a library to support the Internationalised Domain Names in -Applications (IDNA) protocol as specified in RFC 5891. This version of the -protocol is often referred to as “IDNA2008” and can produce different results -from the earlier standard from 2003. The library is also intended to act as a -suitable drop-in replacement for the “encodings.idna” module that comes with -the Python standard library but currently only supports the older 2003 -specification.") - (license license:bsd-4))) - -(define-public python2-idna - (package-with-python2 python-idna)) - -(define-public python-idna-ssl - (package - (name "python-idna-ssl") - (version "1.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "idna-ssl" version)) - (sha256 - (base32 - "0ydrc8hpg9mdr5hqq1lqfsfbn6sjq69slwpfrnlrm3k0phqg14qj")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ;circular dependency with python-aiohttp - (home-page "https://github.com/aio-libs/idna-ssl") - (synopsis "Patch @code{ssl.match_hostname} for Unicode(idna) domains support") - (description "Patch @code{ssl.match_hostname} for Unicode(idna) -domains support.") - (license license:expat))) - -(define-public python-pretend - (package - (name "python-pretend") - (version "1.0.9") - (source - (origin - (method url-fetch) - (uri (string-append "https://pypi.python.org/packages/source/p/" - "pretend/pretend-" version ".tar.gz")) - (sha256 - (base32 - "040vm94lcbscg5p81g1icmwwwa2jm7wrd1ybmxnv1sz8rl8bh3n9")))) - (build-system python-build-system) - (home-page "https://github.com/alex/pretend") - (synopsis "Library for stubbing in Python") - (description - "Pretend is a library to make stubbing with Python easier. Stubbing is a -technique for writing tests. You may hear the term mixed up with mocks, -fakes, or doubles. Basically, a stub is an object that returns pre-canned -responses, rather than doing any computation.") - (license license:bsd-3))) - -(define-public python2-pretend - (package-with-python2 python-pretend)) - -(define-public python-pip - (package - (name "python-pip") - (version "18.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pip" version)) - (sha256 - (base32 - "188fclay154s520n43s7cxxlhdaiysvxf19zk8vr1xbyjyyr58n0")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; there are no tests in the pypi archive. - (home-page "https://pip.pypa.io/") - (synopsis "Package manager for Python software") - (description - "Pip is a package manager for Python software, that finds packages on the -Python Package Index (PyPI).") - (license license:expat))) - -(define-public python2-pip - (package-with-python2 python-pip)) - -(define-public python-tlsh - (package - (name "python-tlsh") - (version "3.4.5") - (home-page "https://github.com/trendmicro/tlsh") - (source (origin - (method url-fetch) - (uri (string-append "https://github.com/trendmicro/tlsh/archive/v" - version ".tar.gz")) - (sha256 - (base32 - "1x1vahd4zg5kpyr9h9hs3fvh460p25rjy4cclwdnbbw8x3vc30q3")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system cmake-build-system) - (arguments - '(#:out-of-source? #f - #:phases (modify-phases %standard-phases - (replace - 'install - (lambda* (#:key outputs #:allow-other-keys) - ;; Build and install the Python bindings. The underlying - ;; C++ library is apparently not meant to be installed. - (let ((out (assoc-ref outputs "out"))) - (with-directory-excursion "py_ext" - (and (system* "python" "setup.py" "build") - (system* "python" "setup.py" "install" - (string-append "--prefix=" out)))))))))) - (inputs `(("python" ,python-wrapper))) ;for the bindings - (synopsis "Fuzzy matching library for Python") - (description - "Trend Micro Locality Sensitive Hash (TLSH) is a fuzzy matching library. -Given a byte stream with a minimum length of 256 bytes, TLSH generates a hash -value which can be used for similarity comparisons. Similar objects have -similar hash values, which allows for the detection of similar objects by -comparing their hash values. The byte stream should have a sufficient amount -of complexity; for example, a byte stream of identical bytes will not generate -a hash value.") - (license license:asl2.0))) - -(define-public python2-tlsh - (package - (inherit python-tlsh) - (name "python2-tlsh") - (inputs `(("python" ,python-2))))) - -(define-public python-termcolor - (package - (name "python-termcolor") - (version "1.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "termcolor" version)) - (sha256 - (base32 - "0fv1vq14rpqwgazxg4981904lfyp84mnammw7y046491cv76jv8x")))) - (build-system python-build-system) - (arguments - ;; There are no tests. - `(#:tests? #f)) - (home-page "https://pypi.python.org/pypi/termcolor") - (synopsis "ANSII Color formatting for terminal output") - (description - "This package provides ANSII Color formatting for output in terminals.") - (license license:expat))) - -(define-public python2-termcolor - (package-with-python2 python-termcolor)) - -(define-public python-libarchive-c - (package - (name "python-libarchive-c") - (version "2.8") - (source (origin - (method url-fetch) - (uri (pypi-uri "libarchive-c" version)) - (sha256 - (base32 - "0qg0v1s9c1xdk9philhnv8k6c6nicvnvfwlc0j9srg90jmdlvm06")))) - (build-system python-build-system) - (arguments - '(#:phases (modify-phases %standard-phases - (add-before - 'build 'reference-libarchive - (lambda* (#:key inputs #:allow-other-keys) - ;; Retain the absolute file name of libarchive.so. - (let ((libarchive (assoc-ref inputs "libarchive"))) - (substitute* "libarchive/ffi.py" - (("find_library\\('archive'\\)") - (string-append "'" libarchive - "/lib/libarchive.so'")))))) - (replace 'check - (lambda _ (invoke "pytest" "-vv")))))) - (native-inputs - `(("python-mock" ,python-mock) - ("python-pytest" ,python-pytest))) - (inputs - `(("libarchive" ,libarchive))) - (home-page "https://github.com/Changaco/python-libarchive-c") - (synopsis "Python interface to libarchive") - (description - "This package provides Python bindings to libarchive, a C library to -access possibly compressed archives in many different formats. It uses -Python's @code{ctypes} foreign function interface (FFI).") - (license license:lgpl2.0+))) - -(define-public python2-libarchive-c - (package-with-python2 python-libarchive-c)) - -(define-public python-file - (package - (inherit file) - (name "python-file") - (build-system python-build-system) - (arguments - '(#:tests? #f ;no tests - #:configure-flags '("--single-version-externally-managed" "--root=/") - #:phases (modify-phases %standard-phases - (add-before 'build 'change-directory - (lambda _ - (chdir "python") - #t)) - (add-before 'build 'set-library-file-name - (lambda* (#:key inputs #:allow-other-keys) - (let ((file (assoc-ref inputs "file"))) - (substitute* "magic.py" - (("find_library\\('magic'\\)") - (string-append "'" file "/lib/libmagic.so'"))) - #t)))))) - (inputs `(("file" ,file))) - (self-native-input? #f) - (synopsis "Python bindings to the libmagic file type guesser. Note that -this module and the python-magic module both provide a \"magic.py\" file; -these two modules, which are different and were developed separately, both -serve the same purpose: provide Python bindings for libmagic."))) - -(define-public python2-file - (package-with-python2 python-file)) - -(define-public python-debian - (package - (name "python-debian") - (home-page "https://salsa.debian.org/python-debian-team/python-debian") - (version "0.1.28") - (source - (origin - (method url-fetch) - (uri (pypi-uri name version)) - (sha256 - (base32 - "0i15f0xzx679sd0ldq2sls9pnnps9fv6vhqvnv9dzf4qhma42i0y")))) - (build-system python-build-system) - (propagated-inputs - `(("python-six" ,python-six))) - (synopsis "Debian package related modules") - (description - ;; XXX: Use @enumerate instead of @itemize to work around - ;; <http://bugs.gnu.org/21772>. - "This package provides Python modules that abstract many formats of -Debian-related files, such as: - -@enumerate -@item Debtags information; -@item @file{debian/changelog} files; -@item packages files, pdiffs; -@item control files of single or multiple RFC822-style paragraphs---e.g. - @file{debian/control}, @file{.changes}, @file{.dsc}; -@item Raw @file{.deb} and @file{.ar} files, with (read-only) access to - contained files and meta-information. -@end enumerate\n") - - ;; Modules are either GPLv2+ or GPLv3+. - (license license:gpl3+))) - -(define-public python2-debian - (package-with-python2 python-debian)) - -(define-public python-nbformat - (package - (name "python-nbformat") - (version "4.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "nbformat" version)) - (sha256 - (base32 - "00nlf08h8yc4q73nphfvfhxrcnilaqanb8z0mdy6nxk0vzq4wjgp")))) - (build-system python-build-system) - (arguments `(#:tests? #f)) ; no test target - (propagated-inputs - `(("python-ipython-genutils" ,python-ipython-genutils) - ("python-jsonschema" ,python-jsonschema) - ("python-jupyter-core" ,python-jupyter-core) - ("python-traitlets" ,python-traitlets))) - (home-page "http://jupyter.org") - (synopsis "Jupyter Notebook format") - (description "This package provides the reference implementation of the -Jupyter Notebook format and Python APIs for working with notebooks.") - (license license:bsd-3))) - -(define-public python2-nbformat - (package-with-python2 python-nbformat)) - -(define-public python-bleach - (package - (name "python-bleach") - (version "1.4.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "bleach" version)) - (sha256 - (base32 - "0jvg3jxrvnx7xmm9gj262v60ib452xlnwlb0navyp7jsvcd0d4qj")))) - (build-system python-build-system) - (propagated-inputs - `(("python-html5lib" ,python-html5lib-0.9) - ("python-six" ,python-six))) - (native-inputs - `(("python-nose" ,python-nose))) - (home-page "https://github.com/jsocol/bleach") - (synopsis "Whitelist-based HTML-sanitizing tool") - (description "Bleach is an easy whitelist-based HTML-sanitizing tool.") - (license license:asl2.0))) - -(define-public python2-bleach - (package-with-python2 python-bleach)) - -(define-public python-entrypoints - (package - (name "python-entrypoints") - (version "0.2.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/takluyver/entrypoints/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1pdvgfr5bxyvnfvxbsd3zi0dh3il71pc4k6rinx6zpps91b84a56")))) - (build-system python-build-system) - ;; The package does not come with a setup.py file, so we have to generate - ;; one ourselves. - (arguments - `(#:tests? #f - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'create-setup.py - (lambda _ - (call-with-output-file "setup.py" - (lambda (port) - (format port "\ -from setuptools import setup -setup(name='entrypoints', version='~a', py_modules=['entrypoints']) -" ,version)))))))) - (home-page "https://github.com/takluyver/entrypoints") - (synopsis "Discover and load entry points from installed Python packages") - (description "Entry points are a way for Python packages to advertise -objects with some common interface. The most common examples are -@code{console_scripts} entry points, which define shell commands by -identifying a Python function to run. The @code{entrypoints} module contains -functions to find and load entry points.") - (license license:expat))) - -(define-public python2-entrypoints - (package-with-python2 python-entrypoints)) - -(define-public python-nbconvert - (package - (name "python-nbconvert") - (version "5.0.0b1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "nbconvert" version)) - (sha256 - (base32 - "0brclbb18l4nmd5qy3dl9wn05rjdh1fz4rmzdlfqacj12rcdvdgp")))) - (build-system python-build-system) - (arguments - `(;; The "bdist_egg" target is disabled by default, causing the installation - ;; to fail. - #:configure-flags (list "bdist_egg") - ;; FIXME: 5 failures, 40 errors. - #:tests? #f)) - ;; #:phases - ;; (modify-phases %standard-phases - ;; (replace 'check - ;; (lambda _ - ;; (zero? (system* "py.test" "-v"))))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (propagated-inputs - `(("python-bleach" ,python-bleach) - ("python-entrypoints" ,python-entrypoints) - ("python-jinja2" ,python-jinja2) - ("python-jupyter-core" ,python-jupyter-core) - ("python-mistune" ,python-mistune) - ("python-nbformat" ,python-nbformat) - ("python-pygments" ,python-pygments) - ("python-traitlets" ,python-traitlets))) - (home-page "http://jupyter.org") - (synopsis "Converting Jupyter Notebooks") - (description "The @code{nbconvert} tool, @{jupyter nbconvert}, converts -notebooks to various other formats via Jinja templates. It allows you to -convert an @code{.ipynb} notebook file into various static formats including: - -@enumerate -@item HTML -@item LaTeX -@item PDF -@item Reveal JS -@item Markdown (md) -@item ReStructured Text (rst) -@item executable script -@end enumerate\n") - (license license:bsd-3))) - -(define-public python2-nbconvert - (package-with-python2 python-nbconvert)) - -(define-public python-prometheus-client - (package - (name "python-prometheus-client") - (version "0.5.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "prometheus_client" version)) - (sha256 - (base32 - "0g7rpv1pq2lab1nfqdx98z9d3bqwc400alg1j4ynrpjkrbsizhg8")))) - (build-system python-build-system) - (arguments '(#:tests? #f)) ; tests are not included - (propagated-inputs - `(("python-twisted" ,python-twisted))) - (home-page "https://github.com/prometheus/client_python") - (synopsis "Python client for the Prometheus monitoring system") - (description - "This package provides a Python client for the Prometheus monitoring -system.") - (license license:asl2.0))) - -(define-public python2-prometheus-client - (package-with-python2 python-prometheus-client)) - -(define-public python-notebook - (package - (name "python-notebook") - (version "5.7.4") - (source (origin - (method url-fetch) - (uri (pypi-uri "notebook" version)) - (sha256 - (base32 - "0jm7324mbxljmn9hgapj66q7swyz5ai92blmr0jpcy0h80x6f26r")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - ;; These tests require a browser - (delete-file-recursively "notebook/tests/selenium") - ;; Some tests need HOME - (setenv "HOME" "/tmp") - ;; This file contains "warningfilters", which are not supported - ;; by this version of nose. - (delete-file "setup.cfg") - (with-directory-excursion "/tmp" - (invoke "nosetests" "-v")) - #t))))) - (propagated-inputs - `(("python-jupyter-core" ,python-jupyter-core) - ("python-nbformat" ,python-nbformat) - ("python-nbconvert" ,python-nbconvert) - ("python-prometheus-client" ,python-prometheus-client) - ("python-send2trash" ,python-send2trash) - ("python-terminado" ,python-terminado))) - (native-inputs - `(("python-nose" ,python-nose) - ("python-sphinx" ,python-sphinx) - ("python-requests" ,python-requests))) - (home-page "http://jupyter.org/") - (synopsis "Web-based notebook environment for interactive computing") - (description - "The Jupyter HTML notebook is a web-based notebook environment for -interactive computing.") - (properties `((python2-variant . ,(delay python2-notebook)))) - (license license:bsd-3))) - -(define-public python2-notebook - (let ((base (package-with-python2 - (strip-python2-variant python-notebook)))) - (package (inherit base) - (native-inputs - `(("python2-mock" ,python2-mock) - ,@(package-native-inputs base))) - (arguments - (substitute-keyword-arguments (package-arguments base) - ((#:phases phases) - `(modify-phases ,phases - (add-before 'check 'disable-test-case - ;; The test requires network access to localhost. Curiously it - ;; fails with Python 2 only. Simply make the test-case return - ;; immediately. - (lambda _ - (substitute* - "notebook/services/nbconvert/tests/test_nbconvert_api.py" - (("formats = self.nbconvert_api") "return #"))))))))))) - -(define-public python-widgetsnbextension - (package - (name "python-widgetsnbextension") - (version "3.4.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "widgetsnbextension" version)) - (sha256 - (base32 - "0rc2nivdy7k4m3vljx7wdh2jh11djapcgwhvzlbs0isl8gl8nqgs")))) - (build-system python-build-system) - (propagated-inputs - `(("python-ipykernel" ,python-ipykernel) - ("python-notebook" ,python-notebook))) - (native-inputs - `(("python-certifi" ,python-certifi) - ("python-nose" ,python-nose))) - (home-page "https://ipython.org") - (synopsis "IPython HTML widgets for Jupyter") - (description "This package provides interactive HTML widgets for Jupyter -notebooks.") - (license license:bsd-3))) - -(define-public python2-widgetsnbextension - (package-with-python2 python-widgetsnbextension)) - -(define-public python-ipywidgets - (package - (name "python-ipywidgets") - (version "5.2.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ipywidgets" version)) - (sha256 - (base32 - "1lk0qrr5l9a0z7qkkn30hv5832whxwxymf1l576fmmad0n7hkxms")))) - (build-system python-build-system) - (propagated-inputs - `(("python-ipython" ,python-ipython) - ("python-traitlets" ,python-traitlets) - ("python-widgetsnbextension" ,python-widgetsnbextension))) - (native-inputs - `(("python-nose" ,python-nose) - ("python-pytest" ,python-pytest))) - (home-page "https://ipython.org") - (synopsis "IPython HTML widgets for Jupyter") - (description "Ipywidgets are interactive HTML widgets for Jupyter -notebooks and the IPython kernel. Notebooks come alive when interactive -widgets are used. Users gain control of their data and can visualize changes -in the data.") - (license license:bsd-3))) - -(define-public python2-ipywidgets - (package-with-python2 python-ipywidgets)) - -(define-public python-jupyter-console - (package - (name "python-jupyter-console") - (version "5.2.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "jupyter_console" version)) - (sha256 - (base32 - "1kam1qzgwr7srhm5r6aj90di5sws4bq0jmiw15452ddamb9yspal")))) - (build-system python-build-system) - ;; Tests only run in an TTY. - (arguments `(#:tests? #f)) - (propagated-inputs - `(("python-ipykernel" ,python-ipykernel) - ("python-jupyter-client" ,python-jupyter-client) - ("python-prompt-toolkit" ,python-prompt-toolkit-1) - ("python-pygments" ,python-pygments))) - (native-inputs - `(("python-nose" ,python-nose))) - (home-page "https://jupyter.org") - (synopsis "Jupyter terminal console") - (description "This package provides a terminal-based console frontend for -Jupyter kernels. It also allows for console-based interaction with non-Python -Jupyter kernels such as IJulia and IRKernel.") - (license license:bsd-3))) - -(define-public python2-jupyter-console - (package-with-python2 python-jupyter-console)) - -;; The python-ipython and python-jupyter-console require each other. To get -;; the functionality in both packages working, strip down the -;; python-jupyter-console package when using it as an input to python-ipython. -(define python-jupyter-console-minimal - (package - (inherit python-jupyter-console) - (name "python-jupyter-console-minimal") - (arguments - (substitute-keyword-arguments - (package-arguments python-jupyter-console) - ((#:phases phases) - `(modify-phases ,phases - (add-after 'install 'delete-bin - (lambda* (#:key outputs #:allow-other-keys) - ;; Delete the bin files, to avoid conflicts in profiles - ;; where python-ipython and python-jupyter-console are - ;; both present. - (delete-file-recursively - (string-append - (assoc-ref outputs "out") "/bin")))))))) - ;; Remove the python-ipython propagated input, to avoid the cycle - (propagated-inputs - (alist-delete - "python-ipython" - (package-propagated-inputs python-jupyter-console))))) - -(define-public python-qtconsole - (package - (name "python-qtconsole") - (version "4.4.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "qtconsole" version)) - (sha256 - (base32 - "1b03n1ixzscm0jw97l4dq5iy4fslnqxq5bb8287xb7n2a1gs26xw")))) - (build-system python-build-system) - (arguments - ;; XXX: Tests are disabled, because this package needs python-ipython 7, - ;; but we only have the LTS version 5.x. This means that there might be - ;; runtime errors, but since this is a dependency of the Jupyter package, - ;; and Jupyter can be used without the qtconsole we can overlook this for - ;; now. - `(#:tests? #f - #:phases - (modify-phases %standard-phases - (add-before 'check 'pre-check - (lambda _ - (setenv "QT_QPA_PLATFORM" "offscreen") - #t))))) - (propagated-inputs - `(("python-ipykernel" ,python-ipykernel) - ("python-ipython" ,python-ipython))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "http://jupyter.org") - (synopsis "Jupyter Qt console") - (description "This package provides a Qt-based console for Jupyter with -support for rich media output.") - (license license:bsd-3))) - -(define-public jupyter - (package - (name "jupyter") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "jupyter" version)) - (sha256 - (base32 - "0pwf3pminkzyzgx5kcplvvbvwrrzd3baa7lmh96f647k30rlpp6r")))) - (build-system python-build-system) - (arguments '(#:tests? #f)) ; there are none. - (propagated-inputs - `(("python-ipykernel" ,python-ipykernel) - ("python-ipywidgets" ,python-ipywidgets) - ("python-jupyter-console" ,python-jupyter-console) - ("python-nbconvert" ,python-nbconvert) - ("python-notebook" ,python-notebook) - ("python-qtconsole" ,python-qtconsole))) - (native-search-paths - (list (search-path-specification - (variable "JUPYTER_PATH") - (files '("share/jupyter"))))) - (home-page "https://jupyter.org") - (synopsis "Web application for interactive documents") - (description - "The Jupyter Notebook is a web application that allows you to create and -share documents that contain live code, equations, visualizations and -explanatory text. Uses include: data cleaning and transformation, numerical -simulation, statistical modeling, machine learning and much more.") - (license license:bsd-3))) - -(define-public python-chardet - (package - (name "python-chardet") - (version "3.0.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "chardet" version)) - (sha256 - (base32 - "1bpalpia6r5x1kknbk11p1fzph56fmmnp405ds8icksd3knr5aw4")))) - (native-inputs - `(("python-hypothesis" ,python-hypothesis) - ("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner))) - (build-system python-build-system) - (home-page "https://github.com/chardet/chardet") - (synopsis "Universal encoding detector for Python 2 and 3") - (description - "This package provides @code{chardet}, a Python module that can -automatically detect a wide range of file encodings.") - (license license:lgpl2.1+))) - -(define-public python2-chardet - (package-with-python2 python-chardet)) - -(define-public python-docopt - (package - (name "python-docopt") - (version "0.6.2") - (source - (origin - (method url-fetch) - ;; The release on PyPI does not include tests. - (uri (string-append - "https://github.com/docopt/docopt/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "16bf890xbdz3m30rsv2qacklh2rdn1zrfspfnwzx9g7vwz8yw4r1")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest))) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ (invoke "py.test")))))) - (home-page "http://docopt.org") - (synopsis "Command-line interface description language for Python") - (description "This library allows the user to define a command-line -interface from a program's help message rather than specifying it -programatically with command-line parsers like @code{getopt} and -@code{argparse}.") - (license license:expat))) - -(define-public python2-docopt - (package-with-python2 python-docopt)) - -(define-public python-pythondialog - (package - (name "python-pythondialog") - (version "3.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pythondialog" version)) - (sha256 - (base32 - "1728ghsran47jczn9bhlnkvk5bvqmmbihabgif5h705b84r1272c")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-path - (lambda* (#:key inputs #:allow-other-keys) - (let* ((dialog (assoc-ref inputs "dialog"))) - ;; Since this library really wants to grovel the search path, we - ;; must hardcode dialog's store path into it. - (substitute* "dialog.py" - (("os.getenv\\(\"PATH\", \":/bin:/usr/bin\"\\)") - (string-append "os.getenv(\"PATH\") + \":" dialog "/bin\""))) - #t)))) - #:tests? #f)) ; no test suite - (propagated-inputs - `(("dialog" ,dialog))) - (home-page "http://pythondialog.sourceforge.net/") - (synopsis "Python interface to the UNIX dialog utility") - (description "A Python wrapper for the dialog utility. Its purpose is to -provide an easy to use, pythonic and comprehensive Python interface to dialog. -This allows one to make simple text-mode user interfaces on Unix-like systems") - (license license:lgpl2.1) - (properties `((python2-variant . ,(delay python2-pythondialog)))))) - -(define-public python2-pythondialog - (let ((base (package-with-python2 (strip-python2-variant python-pythondialog)))) - (package - (inherit base) - (version (package-version python-pythondialog)) - (source (origin - (method url-fetch) - (uri (pypi-uri "python2-pythondialog" version)) - (sha256 - (base32 - "0d8k7lxk50imdyx85lv8j98i4c93a71iwpapnl1506rpkbm9qvd9"))))))) - -(define-public python-configobj - (package - (name "python-configobj") - (version "5.0.6") - (source (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/c/configobj/" - "configobj-" version ".tar.gz")) - (sha256 - (base32 - "00h9rcmws03xvdlfni11yb60bz3kxfvsj6dg6nrpzj71f03nbxd2")) - ;; Patch setup.py so it looks for python-setuptools, which is - ;; required to parse the keyword 'install_requires' in setup.py. - (patches (search-patches "python-configobj-setuptools.patch")))) - (build-system python-build-system) - (propagated-inputs - `(("python-six" ,python-six))) - (synopsis "Config file reading, writing and validation") - (description "ConfigObj is a simple but powerful config file reader and -writer: an ini file round tripper. Its main feature is that it is very easy to -use, with a straightforward programmer’s interface and a simple syntax for -config files.") - (home-page "https://github.com/DiffSK/configobj") - (license license:bsd-3))) - -(define-public python2-configobj - (package-with-python2 python-configobj)) - -(define-public python-configargparse - (package - (name "python-configargparse") - (version "0.12.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "ConfigArgParse" version)) - (sha256 - (base32 - "0fgkiqh6r3rbkdq3k8c48m85g52k96686rw3a6jg4lcncrkpvk98")))) - (build-system python-build-system) - (native-inputs - `(("python-pyyaml" ,python-pyyaml))) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - ;; Bypass setuptools-shim because one test relies on "setup.py" - ;; being the first argument passed to the python call. - ;; - ;; NOTE: Many tests do not run because they rely on Python's - ;; built-in test.test_argparse, but we remove the unit tests from - ;; our Python installation. - (invoke "python" "setup.py" "test")))))) - (synopsis "Replacement for argparse") - (description "A drop-in replacement for argparse that allows options to also -be set via config files and/or environment variables.") - (home-page "https://github.com/bw2/ConfigArgParse") - (license license:expat))) - -(define-public python2-configargparse - (package-with-python2 python-configargparse)) - -(define-public python-argparse-manpage - (package - (name "python-argparse-manpage") - (version "1.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "argparse-manpage" version)) - (sha256 - (base32 - "0blh31zns68anina9lba5wh81d1414s97p60zw5l0d0shhh0wj5p")))) - (build-system python-build-system) - (home-page "https://github.com/praiskup/argparse-manpage") - (synopsis "Build manual page from Python's ArgumentParser object") - (description - "This package provides tools to build manual pages from Python's -@code{ArgumentParser} object.") - (license license:asl2.0))) - -(define-public python2-contextlib2 - (package - (name "python2-contextlib2") - (version "0.5.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "contextlib2" version)) - (sha256 - (base32 - "0j6ad6lwwyc9kv71skj098v5l7x5biyj2hs4lc5x1kcixqcr97sh")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ (invoke "python" "test_contextlib2.py" "-v")))))) - (native-inputs - `(("python2-unittest2" ,python2-unittest2))) - (home-page "http://contextlib2.readthedocs.org/") - (synopsis "Tools for decorators and context managers") - (description "This module is primarily a backport of the Python -3.2 contextlib to earlier Python versions. Like contextlib, it -provides utilities for common tasks involving decorators and context -managers. It also contains additional features that are not part of -the standard library.") - (license license:psfl))) - -(define-public python-texttable - (package - (name "python-texttable") - (version "0.8.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "texttable" version)) - (sha256 - (base32 - "1liiiydgkg37i46a418aw19fyf6z3ds51wdwwpyjbs12x0phhf4a")))) - (build-system python-build-system) - (arguments '(#:tests? #f)) ; no tests - (home-page "https://github.com/foutaise/texttable/") - (synopsis "Python module for creating simple ASCII tables") - (description "Texttable is a Python module for creating simple ASCII -tables.") - (license license:lgpl2.1+))) - -(define-public python2-texttable - (package-with-python2 python-texttable)) - -(define-public python-atomicwrites - (package - (name "python-atomicwrites") - (version "1.1.5") - (source (origin - (method url-fetch) - (uri (pypi-uri "atomicwrites" version)) - (sha256 - (base32 - "11bm90fwm2avvf4f3ib8g925w7jr4m11vcsinn1bi6ns4bm32214")))) - (build-system python-build-system) - (synopsis "Atomic file writes in Python") - (description "Library for atomic file writes using platform dependent tools -for atomic file system operations.") - (home-page "https://github.com/untitaker/python-atomicwrites") - (license license:expat))) - -(define-public python2-atomicwrites - (package-with-python2 python-atomicwrites)) - -(define-public python-click-threading - (package - (name "python-click-threading") - (version "0.4.4") - (source (origin - (method url-fetch) - (uri (pypi-uri "click-threading" version)) - (sha256 - (base32 - "1rsxc2fbkxlhwhlmxsdjzq3spn284l6rvjfcz9mbb17ibgdgmc5j")))) - (build-system python-build-system) - (propagated-inputs - `(("python-click" ,python-click))) - (synopsis "Utilities for multithreading in Click") - (description "This package provides utilities for multithreading in Click -applications.") - (home-page "https://github.com/click-contrib/click-threading") - (license license:expat))) - -(define-public python-click-log - (package - (name "python-click-log") - (version "0.3.2") - (source (origin - (method url-fetch) - (uri (pypi-uri "click-log" version)) - (sha256 - (base32 - "091i03bhxyzsdbc6kilxhivfda2f8ymz3b33xa6cj5kbzjiirz8n")))) - (build-system python-build-system) - (propagated-inputs - `(("python-click" ,python-click))) - (synopsis "Logging for click applications") - (description "This package provides a Python library for logging Click -applications.") - (home-page "https://github.com/click-contrib/click-log") - (license license:expat))) - -(define-public python-apipkg - (package - (name "python-apipkg") - (version "1.4") - (source (origin - (method url-fetch) - (uri (pypi-uri "apipkg" version)) - (sha256 - (base32 - "1iks5701qnp3dlr3q1d9qm68y2plp2m029irhpz92a44psfkjf1f")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest))) - (synopsis "Namespace control and lazy-import mechanism") - (description "With apipkg you can control the exported namespace of a Python -package and greatly reduce the number of imports for your users. It is a small -pure Python module that works on virtually all Python versions.") - (home-page "https://github.com/pytest-dev/apipkg") - (license license:expat))) - -(define-public python2-apipkg - (package-with-python2 python-apipkg)) - -(define-public python-execnet - (package - (name "python-execnet") - (version "1.4.1") - (source (origin - (method url-fetch) - (uri (pypi-uri "execnet" version)) - (sha256 - (base32 - "1rpk1vyclhg911p3hql0m0nrpq7q7mysxnaaw6vs29cpa6kx8vgn")))) - (build-system python-build-system) - (arguments - `(;; 2 failed, 275 passed, 670 skipped, 4 xfailed - ;; The two test failures are caused by the lack of an `ssh` executable. - ;; The test suite can be run with pytest after the 'install' phase. - #:tests? #f)) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-setuptools-scm" ,python-setuptools-scm))) - (propagated-inputs - `(("python-apipkg" ,python-apipkg))) - (synopsis "Rapid multi-Python deployment") - (description "Execnet provides a share-nothing model with -channel-send/receive communication for distributing execution across many -Python interpreters across version, platform and network barriers. It has a -minimal and fast API targeting the following uses: -@enumerate -@item distribute tasks to (many) local or remote CPUs -@item write and deploy hybrid multi-process applications -@item write scripts to administer multiple environments -@end enumerate") - (home-page "http://codespeak.net/execnet/") - (license license:expat))) - -(define-public python2-execnet - (package-with-python2 python-execnet)) - -(define-public python-icalendar - (package - (name "python-icalendar") - (version "4.0.3") - (source (origin - (method url-fetch) - (uri (pypi-uri "icalendar" version)) - (sha256 - (base32 - "0mk3dk1dxkcm46jy48v27j2w2349iv4sbimqj1yb5js43mx49hh7")))) - (build-system python-build-system) - (propagated-inputs - `(("python-dateutil" ,python-dateutil) - ("python-pytz" ,python-pytz))) - (synopsis "Python library for parsing iCalendar files") - (description "The icalendar package is a parser/generator of iCalendar -files for use with Python.") - (home-page "https://github.com/collective/icalendar") - (license license:bsd-2))) - -(define-public python-sphinxcontrib-newsfeed - (package - (name "python-sphinxcontrib-newsfeed") - (version "0.1.4") - (source (origin - (method url-fetch) - (uri (pypi-uri "sphinxcontrib-newsfeed" version)) - (sha256 - (base32 - "1d7gam3mn8v4in4p16yn3v10vps7nnaz6ilw99j4klij39dqd37p")))) - (arguments '(#:tests? #f)) ; No tests. - (build-system python-build-system) - (propagated-inputs - `(("python-sphinx" ,python-sphinx))) - (synopsis "News Feed extension for Sphinx") - (description "Sphinxcontrib-newsfeed is an extension for adding a simple -Blog, News or Announcements section to a Sphinx website.") - (home-page "https://bitbucket.org/prometheus/sphinxcontrib-newsfeed") - (license license:bsd-2))) - -(define-public python-args - (package - (name "python-args") - (version "0.1.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "args" version)) - (sha256 - (base32 - "057qzi46h5dmxdqknsbrssn78lmqjlnm624iqdhrnpk26zcbi1d7")))) - (build-system python-build-system) - (home-page "https://github.com/kennethreitz/args") - (synopsis "Command-line argument parser") - (description - "This library provides a Python module to parse command-line arguments.") - (license license:bsd-3))) - -(define-public python2-args - (package-with-python2 python-args)) - -(define-public python-clint - (package - (name "python-clint") - (version "0.5.1") - (source (origin - (method url-fetch) - (uri (pypi-uri "clint" version)) - (sha256 - (base32 - "1an5lkkqk1zha47198p42ji3m94xmzx1a03dn7866m87n4r4q8h5")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ (invoke "py.test" "-v")))))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (propagated-inputs - `(("python-args" ,python-args))) - (home-page "https://github.com/kennethreitz/clint") - (synopsis "Command-line interface tools") - (description - "Clint is a Python module filled with a set of tools for developing -command-line applications, including tools for colored and indented -output, progress bar display, and pipes.") - (license license:isc))) - -(define-public python2-clint - (package-with-python2 python-clint)) - -(define-public python-astor - (package - (name "python-astor") - (version "0.5") - (source (origin - (method url-fetch) - (uri (pypi-uri "astor" version)) - (sha256 - (base32 - "1fdafq5hkis1fxqlmhw0sn44zp2ar46nxhbc22cvwg7hsd8z5gsa")))) - (build-system python-build-system) - (home-page "https://github.com/berkerpeksag/astor") - (synopsis "Read and write Python ASTs") - (description - "Astor is designed to allow easy manipulation of Python source via the -Abstract Syntax Tree.") - (license license:bsd-3))) - -(define-public python2-astor - (package-with-python2 python-astor)) - -(define-public python-rply - (package - (name "python-rply") - (version "0.7.5") - (source (origin - (method url-fetch) - (uri (pypi-uri "rply" version)) - (sha256 - (base32 - "0lv428895zxsz43968qx0q9bimwqnfykndz4dpjbq515w2gvzhjh")))) - (build-system python-build-system) - (propagated-inputs - `(("python-appdirs" ,python-appdirs))) - (home-page "https://github.com/alex/rply") - (synopsis "Parser generator for Python") - (description - "This package provides a pure Python based parser generator, that also -works with RPython. It is a more-or-less direct port of David Bazzley's PLY, -with a new public API, and RPython support.") - (license license:bsd-3))) - -(define-public python2-rply - (package-with-python2 python-rply)) - -(define-public python-hy - (package - (name "python-hy") - (version "0.13.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "hy" version)) - (sha256 - (base32 - "19sfymaksx9jhksfnb15ahid46mzrhdfzz6yy2craz2qnzvpmky8")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - ;; Tests require write access to HOME. - (setenv "HOME" "/tmp") - (invoke "nosetests")))))) - (native-inputs - `(("python-coverage" ,python-coverage) - ("python-nose" ,python-nose))) - (propagated-inputs - `(("python-astor" ,python-astor) - ("python-clint" ,python-clint) - ("python-rply" ,python-rply))) - (home-page "http://hylang.org/") - (synopsis "Lisp frontend to Python") - (description - "Hy is a dialect of Lisp that's embedded in Python. Since Hy transforms -its Lisp code into the Python Abstract Syntax Tree, you have the whole world of -Python at your fingertips, in Lisp form.") - (license license:expat))) - -(define-public python2-hy - (package-with-python2 python-hy)) - -(define-public python2-functools32 - (package - (name "python2-functools32") - (version "3.2.3-2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "functools32" version)) - (sha256 - (base32 - "0v8ya0b58x47wp216n1zamimv4iw57cxz3xxhzix52jkw3xks9gn")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:tests? #f)) ; no test target - (home-page "https://github.com/MiCHiLU/python-functools32") - (synopsis - "Backport of the functools module from Python 3.2.3") - (description - "This package is a backport of the @code{functools} module from Python -3.2.3 for use with older versions of Python and PyPy.") - (license license:expat))) - -(define-public python2-subprocess32 - (package - (name "python2-subprocess32") - (version "3.2.7") - (source (origin - (method url-fetch) - (uri (pypi-uri "subprocess32" version)) - (sha256 - (base32 - "14350dhhlhyz5gqzi3lihn9m6lvskx5mcb20srx1kgsk9i50li8y")) - (patches - (search-patches "python2-subprocess32-disable-input-test.patch")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - ;; The test suite fails with Python > 2.7.13: - ;; import test.support - ;; ImportError: No module named support - #:tests? #f - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-/bin/sh - (lambda _ - (substitute* '("subprocess32.py" - "test_subprocess32.py") - (("/bin/sh") (which "sh"))) - #t))))) - (home-page "https://github.com/google/python-subprocess32") - (synopsis "Backport of the subprocess module from Python 3.2") - (description - "This is a backport of the @code{subprocess} standard library module -from Python 3.2 and 3.3 for use on Python 2. It includes bugfixes and some -new features. On POSIX systems it is guaranteed to be reliable when used -in threaded applications. It includes timeout support from Python 3.3 but -otherwise matches 3.2’s API.") - (license license:psfl))) - -(define-public python2-futures - (package - (name "python2-futures") - (version "3.2.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "futures" version)) - (sha256 - (base32 - "0rdjmmsab550kxsssdq49jcniz77zlkpw4pvi9hvib3lsskjmh4y")))) - (build-system python-build-system) - (arguments `(#:python ,python-2 - ;; FIXME: Python 2.7.14 moved the test.support library, - ;; but our package has not yet been adjusted. Enable - ;; tests when the python2 package has been fixed. - #:tests? #f)) - (home-page "https://github.com/agronholm/pythonfutures") - (synopsis - "Backport of the concurrent.futures package from Python 3.2") - (description - "The concurrent.futures module provides a high-level interface for -asynchronously executing callables. This package backports the -concurrent.futures package from Python 3.2") - (license license:bsd-3))) - -(define-public python-promise - (package - (name "python-promise") - (version "0.4.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "promise" version)) - (sha256 - (base32 - "1k19ms8l3d5jzjh557rgkxb5sg4mqgfc315rn4hx1z3n8qq6lr3h")))) - (build-system python-build-system) - ;; Tests wants python-futures, which is a python2 only program, and - ;; can't be found by python-promise at test time. - (arguments `(#:tests? #f)) - (home-page "https://github.com/syrusakbary/promise") - (synopsis "Promises/A+ implementation for Python") - (description - "Promises/A+ implementation for Python") - (properties `((python2-variant . ,(delay python2-promise)))) - (license license:expat))) - -(define-public python2-promise - (let ((promise (package-with-python2 - (strip-python2-variant python-promise)))) - (package (inherit promise) - (arguments (substitute-keyword-arguments (package-arguments promise) - ((#:tests? _) #t))) - (native-inputs - `(("python2-futures" ,python2-futures) - ("python2-pytest" ,python2-pytest) - ,@(package-native-inputs promise)))))) - -(define-public python-colorama - (package - (name "python-colorama") - (version "0.3.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "colorama" version)) - (sha256 - (base32 - "1wd1szk0z3073ghx26ynw43gnc140ibln1safgsis6s6z3s25ss8")))) - (build-system python-build-system) - (synopsis "Colored terminal text rendering for Python") - (description "Colorama is a Python library for rendering colored terminal -text.") - (home-page "https://pypi.python.org/pypi/colorama") - (license license:bsd-3))) - -(define-public python2-colorama - (package-with-python2 python-colorama)) - -(define-public python-rsa - (package - (name "python-rsa") - (version "3.4.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "rsa" version)) - (sha256 - (base32 - "1dcxvszbikgzh99ybdc7jq0zb9wspy2ds8z9mjsqiyv3q884xpr5")))) - (build-system python-build-system) - (propagated-inputs - `(("python-pyasn1" ,python-pyasn1))) - (synopsis "Pure-Python RSA implementation") - (description "Python-RSA is a pure-Python RSA implementation. It supports -encryption and decryption, signing and verifying signatures, and key -generation according to PKCS#1 version 1.5. It can be used as a Python -library as well as on the command line.") - (home-page "https://stuvel.eu/rsa") - (license license:asl2.0))) - -(define-public python2-rsa - (package-with-python2 python-rsa)) - -(define-public python-pluggy - (package - (name "python-pluggy") - (version "0.7.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pluggy" version)) - (sha256 - (base32 - "1qbn70mksmr03hac6jgp6fiqc4l7859z8dchx2x950vhlij87swm")))) - (build-system python-build-system) - (native-inputs - `(("python-setuptools-scm" ,python-setuptools-scm))) - (synopsis "Plugin and hook calling mechanism for Python") - (description "Pluggy is an extraction of the plugin manager as used by -Pytest but stripped of Pytest specific details.") - (home-page "https://pypi.python.org/pypi/pluggy") - (license license:expat))) - -(define-public python2-pluggy - (package-with-python2 python-pluggy)) - -(define-public python-tox - (package - (name "python-tox") - (version "2.8.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "tox" version)) - (sha256 - (base32 - "1drp6mwm8wdypjym15ia8lwjxbhcksb9vzxg4ay5dh4ji57by2ny")))) - (build-system python-build-system) - (arguments - ;; FIXME: Tests require pytest-timeout, which itself requires - ;; pytest>=2.8.0 for installation. - '(#:tests? #f)) - (propagated-inputs - `(("python-pluggy" ,python-pluggy) ; >=0.3.0,<0.4.0 - ("python-py" ,python-py) - ("python-virtualenv" ,python-virtualenv))) - (native-inputs - `(; FIXME: Missing: ("python-pytest-timeout" ,python-pytest-timeout) - ("python-pytest" ,python-pytest) ; >= 2.3.5 - ("python-setuptools-scm" ,python-setuptools-scm))) - (home-page "http://tox.testrun.org/") - (synopsis "Virtualenv-based automation of test activities") - (description "Tox is a generic virtualenv management and test command line -tool. It can be used to check that a package installs correctly with -different Python versions and interpreters, or run tests in each type of -supported environment, or act as a frontend to continuous integration -servers.") - (license license:expat))) - -(define-public python2-tox - (package-with-python2 python-tox)) - -(define-public python-jmespath - (package - (name "python-jmespath") - (version "0.9.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "jmespath" version)) - (sha256 - (base32 - "0r7wc7fsxmlwzxx9j1j7rms06c6xs6d4sysirdhz1jk2mb4x90ba")))) - (build-system python-build-system) - (native-inputs - `(("python-nose" ,python-nose))) - (synopsis "JSON Matching Expressions") - (description "JMESPath (pronounced “james path”) is a Python library that -allows one to declaratively specify how to extract elements from a JSON -document.") - (home-page "https://github.com/jmespath/jmespath.py") - (license license:expat))) - -(define-public python2-jmespath - (package-with-python2 python-jmespath)) - -(define-public python-botocore - (package - (name "python-botocore") - (version "1.8.43") - (source - (origin - (method url-fetch) - (uri (pypi-uri "botocore" version)) - (sha256 - (base32 - "12cqpbnz3vfv41mp9admvciw7bc7hz57sjpqs2bxaw9wnfmbw5lg")))) - (build-system python-build-system) - (arguments - ;; FIXME: Many tests are failing. - '(#:tests? #f)) - (propagated-inputs - `(("python-dateutil" ,python-dateutil) - ("python-docutils" ,python-docutils) - ("python-jmespath" ,python-jmespath))) - (native-inputs - `(("python-mock" ,python-mock) - ("python-nose" ,python-nose) - ("behave" ,behave) - ("python-tox" ,python-tox) - ("python-wheel" ,python-wheel))) - (home-page "https://github.com/boto/botocore") - (synopsis "Low-level interface to AWS") - (description "Botocore is a Python library that provides a low-level -interface to the Amazon Web Services (AWS) API.") - (license license:asl2.0))) - -(define-public python2-botocore - (package-with-python2 python-botocore)) - -(define-public python-xdo - (package - (name "python-xdo") - (version "0.3") - (source (origin - (method url-fetch) - (uri (string-append - "http://http.debian.net/debian/pool/main/p/python-xdo/" - "python-xdo_" version ".orig.tar.gz")) - (sha256 - (base32 - "1vqh1n5yy5dhnq312kwrl90fnck4v26is3lq3lxdvcn60vv19da0")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-before 'install 'patch-libxdo-path - ;; Hardcode the path of dynamically loaded libxdo library. - (lambda* (#:key inputs #:allow-other-keys) - (let ((libxdo (string-append - (assoc-ref inputs "xdotool") - "/lib/libxdo.so"))) - (substitute* "xdo/_xdo.py" - (("find_library\\(\"xdo\"\\)") - (simple-format #f "\"~a\"" libxdo))) - #t)))) - #:tests? #f)) ; no tests provided - (propagated-inputs - `(("python-six" ,python-six))) - (inputs - `(("xdotool" ,xdotool) - ("libX11" ,libx11))) - (home-page "https://tracker.debian.org/pkg/python-xdo") - (synopsis "Python library for simulating X11 keyboard/mouse input") - (description "Provides bindings to libxdo for manipulating X11 via simulated -input. (Note that this is mostly a legacy library; you may wish to look at -python-xdo for newer bindings.)") - (license license:bsd-3))) - -(define-public python2-xdo - (package-with-python2 python-xdo)) - -(define-public python-mako - (package - (name "python-mako") - (version "1.0.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Mako" version)) - (sha256 - (base32 - "1bi5gnr8r8dva06qpyx4kgjc6spm2k1y908183nbbaylggjzs0jf")))) - (build-system python-build-system) - (propagated-inputs - `(("python-markupsafe" ,python-markupsafe))) - (native-inputs - `(("python-mock" ,python-mock) - ("python-nose" ,python-nose) - ("python-pytest" ,python-pytest))) - (home-page "http://www.makotemplates.org/") - (synopsis "Templating language for Python") - (description "Mako is a templating language for Python that compiles -templates into Python modules.") - (license license:expat))) - -(define-public python2-mako - (package-with-python2 python-mako)) - -(define-public python-waitress - (package - (name "python-waitress") - (version "1.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "waitress" version)) - (patches (search-patches "python-waitress-fix-tests.patch")) - (sha256 - (base32 - "1a85gyji0kajc3p0s1pwwfm06w4wfxjkvvl4rnrz3h164kbd6g6k")))) - (build-system python-build-system) - (home-page "https://github.com/Pylons/waitress") - (synopsis "Waitress WSGI server") - (description "Waitress is meant to be a production-quality pure-Python WSGI -server with very acceptable performance.") - (license license:zpl2.1))) - -(define-public python2-waitress - (package-with-python2 python-waitress)) - -(define-public python-pyquery - (package - (name "python-pyquery") - (version "1.2.17") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyquery" version)) - (sha256 - (base32 - "1xia20wm0vx5dk85kcwgh13bylz8qh47ffjxssd2586r60xi783a")))) - (build-system python-build-system) - (native-inputs - `(("python-webob" ,python-webob) - ("python-webtest" ,python-webtest))) - (propagated-inputs - `(("python-lxml" ,python-lxml) - ("python-cssselect" ,python-cssselect))) - (home-page "https://github.com/gawel/pyquery") - (synopsis "Make jQuery-like queries on xml documents") - (description "pyquery allows you to make jQuery queries on xml documents. -The API is as much as possible the similar to jQuery. pyquery uses lxml for -fast xml and html manipulation.") - (license license:bsd-3))) - -(define-public python2-pyquery - (package-with-python2 python-pyquery)) - -(define-public python-anyjson - (package - (name "python-anyjson") - (version "0.3.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "anyjson" version)) - (sha256 - (base32 - "1fjph4alvcscsl5d4b6qpv1yh31jy05jxi1l0xff7lws7j32v09p")))) - (build-system python-build-system) - (arguments - `(;; We could possibly get tests working, but on Python 3 it's not so easy. - ;; Very strangely, 2to3 is run *during setup.py install* (or bdist, or - ;; whatever) so this transformation needs to be done before the tests - ;; can be run. Maybe we could add a build step to transform beforehand - ;; but it could be annoying/difficult. - ;; We can enable tests for the Python 2 version, though, and do below. - #:tests? #f)) - (home-page "https://bitbucket.org/runeh/anyjson/") - (synopsis - "Wraps best available JSON implementation in a common interface") - (description - "Anyjson loads whichever is the fastest JSON module installed -and provides a uniform API regardless of which JSON implementation is used.") - (license license:bsd-3) - (properties `((python2-variant . ,(delay python2-anyjson)))))) - -(define-public python2-anyjson - (let ((anyjson (package-with-python2 - (strip-python2-variant python-anyjson)))) - (package - (inherit anyjson) - (arguments `(;; Unlike the python 3 variant, we do run tests. See above! - #:tests? #t - ,@(package-arguments anyjson))) - (native-inputs `(("python2-nose" ,python2-nose)))))) - -(define-public python-amqp - (package - (name "python-amqp") - (version "2.3.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "amqp" version)) - (sha256 - (base32 - "1sv600dgqwpimr6i1g59y9hpn50mc236gdqkr7zin13kvlpx0g87")))) - (build-system python-build-system) - (native-inputs - `(("python-case" ,python-case) - ("python-pytest-sugar" ,python-pytest-sugar) - ("python-mock" ,python-mock))) - (propagated-inputs - `(("python-vine" ,python-vine))) - (home-page "https://github.com/celery/py-amqp") - (synopsis - "Low-level AMQP client for Python (fork of amqplib)") - (description - "This is a fork of amqplib which was originally written by Barry Pederson. -It is maintained by the Celery project, and used by kombu as a pure python -alternative when librabbitmq is not available.") - (license license:lgpl2.1+) - (properties `((python2-variant . ,(delay python2-amqp)))))) - -(define-public python2-amqp - (let ((amqp (package-with-python2 - (strip-python2-variant python-amqp)))) - (package - (inherit amqp) - (arguments `(;; Tries to run coverage tests with nose-cover3, which seems - ;; unmaintained. Weirdly, does not do this on the python 3 - ;; version? - #:tests? #f - ,@(package-arguments amqp)))))) - -(define-public python-txamqp - (package - (name "python-txamqp") - (version "0.8.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "txAMQP" version)) - (sha256 - (base32 - "0jd9864k3csc06kipiwzjlk9mq4054s8kzk5q1cfnxj8572s4iv4")))) - (build-system python-build-system) - (propagated-inputs - `(("python-six" ,python-six) - ("python-twisted" ,python-twisted))) - (home-page "https://github.com/txamqp/txamqp") - (synopsis "Communicate with AMQP peers and brokers using Twisted") - (description - "This package provides a Python library for communicating with AMQP peers -and brokers using the asynchronous networking framework Twisted. It contains -all the necessary code to connect, send and receive messages to/from an -AMQP-compliant peer or broker (Qpid, OpenAMQ, RabbitMQ) using Twisted. It -also includes support for using Thrift RPC over AMQP in Twisted -applications.") - (license license:asl2.0))) - -(define-public python2-txamqp - (package-with-python2 python-txamqp)) - -(define-public python-kombu - (package - (name "python-kombu") - (version "4.2.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "kombu" version)) - (sha256 - (base32 - "15k8f7mzqr049sg9vi48m19vjykviafk3f0p5xzgw9by0x0kyxjj")))) - (build-system python-build-system) - (native-inputs - `(("python-mock" ,python-mock) - ("python-case" ,python-case) - ("python-pyro4" ,python-pyro4) - ("python-pytest-sugar" ,python-pytest-sugar) - ("python-pytz" ,python-pytz))) - (propagated-inputs - `(("python-anyjson" ,python-anyjson) - ("python-amqp" ,python-amqp) - ("python-redis" ,python-redis))) - (home-page "https://kombu.readthedocs.io") - (synopsis "Message passing library for Python") - (description "The aim of Kombu is to make messaging in Python as easy as -possible by providing an idiomatic high-level interface for the AMQ protocol, -and also provide proven and tested solutions to common messaging problems. -AMQP is the Advanced Message Queuing Protocol, an open standard protocol for -message orientation, queuing, routing, reliability and security, for which the -RabbitMQ messaging server is the most popular implementation.") - (license license:bsd-3) - (properties `((python2-variant . ,(delay python2-kombu)))))) - -(define-public python2-kombu - (let ((kombu (package-with-python2 - (strip-python2-variant python-kombu)))) - (package - (inherit kombu) - (arguments `(;; FIXME: 'TestTransport.test_del_sync' fails on python2. - ;; It works fine on the python3 variant. - #:tests? #f - ,@(package-arguments kombu))) - (native-inputs `(("python2-unittest2" ,python2-unittest2) - ,@(package-native-inputs kombu)))))) - -(define-public python-billiard - (package - (name "python-billiard") - (version "3.5.0.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "billiard" version)) - (sha256 - (base32 - "03msmapj3s5zgqk87d646mafz7a01h5bm2wijalgpi0s80ks5na2")))) - (build-system python-build-system) - (native-inputs - `(("python-case" ,python-case) - ("python-pytest" ,python-pytest))) - (home-page "https://github.com/celery/billiard") - (synopsis - "Python multiprocessing fork with improvements and bugfixes") - (description - "Billiard is a fork of the Python 2.7 multiprocessing package. The -multiprocessing package itself is a renamed and updated version of R Oudkerk's -pyprocessing package. This standalone variant is intended to be compatible with -Python 2.4 and 2.5, and will draw its fixes/improvements from python-trunk.") - (license license:bsd-3) - (properties `((python2-variant . ,(delay python2-billiard)))))) - -(define-public python2-billiard - (let ((billiard (package-with-python2 - (strip-python2-variant python-billiard)))) - (package - (inherit billiard) - (native-inputs `(("python2-unittest2" ,python2-unittest2) - ("python2-mock" ,python2-mock) - ,@(package-native-inputs billiard)))))) - -(define-public python-celery - (package - (name "python-celery") - (version "4.2.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "celery" version)) - (sha256 - (base32 - "0y66rz7z8dfcgs3s0qxmdddlaq57bzbgxgfz896nbp14grkv9nkp")))) - (build-system python-build-system) - (arguments - '(;; TODO The tests fail with Python 3.7 - ;; https://github.com/celery/celery/issues/4849 - #:tests? #f - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-requirements - (lambda _ - (substitute* "requirements/test.txt" - (("pytest>=3\\.0,<3\\.3") - "pytest>=3.0")) - #t))))) - (native-inputs - `(("python-case" ,python-case) - ("python-pytest" ,python-pytest))) - (propagated-inputs - `(("python-pytz" ,python-pytz) - ("python-billiard" ,python-billiard) - ("python-kombu" ,python-kombu))) - (home-page "https://celeryproject.org") - (synopsis "Distributed Task Queue") - (description "Celery is an asynchronous task queue/job queue based on -distributed message passing. It is focused on real-time operation, but -supports scheduling as well. The execution units, called tasks, are executed -concurrently on a single or more worker servers using multiprocessing, -Eventlet, or gevent. Tasks can execute asynchronously (in the background) or -synchronously (wait until ready).") - (license license:bsd-3) - (properties `((python2-variant . ,(delay python2-celery)))))) - -(define-public python2-celery - (let ((celery (package-with-python2 - (strip-python2-variant python-celery)))) - (package - (inherit celery) - (native-inputs `(("python2-unittest2" ,python2-unittest2) - ("python2-mock" ,python2-mock) - ,@(package-native-inputs celery)))))) - -(define-public python-translitcodec - (package - (name "python-translitcodec") - (version "0.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "translitcodec" version)) - (sha256 - (base32 - "10x6pvblkzky1zhjs8nmx64nb9jdzxad4bxhq4iwv0j4z2aqjnki")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ; no tests provided - (home-page - "https://github.com/claudep/translitcodec") - (synopsis - "Unicode to 8-bit charset transliteration codec") - (description - "This package contains codecs for transliterating ISO 10646 texts into -best-effort representations using smaller coded character sets (ASCII, -ISO 8859, etc.).") - (license license:expat))) - -(define-public python2-translitcodec - (package-with-python2 python-translitcodec)) - -(define-public python-editor - (package - (name "python-editor") - (version "0.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "python-editor" version)) - (sha256 - (base32 - "1ypnpgvzpkbwsg4rdvy4sy51j28b5xq9v8pnkwxncn07vqz06p7n")))) - (build-system python-build-system) - (home-page - "https://github.com/fmoo/python-editor") - (synopsis - "Programmatically open an editor, capture the result") - (description - "python-editor is a library that provides the editor module for -programmatically interfacing with your system's $EDITOR.") - (license license:asl2.0))) - -(define-public python2-editor - (package-with-python2 python-editor)) - -(define-public python-sphinxcontrib-programoutput - (package - (name "python-sphinxcontrib-programoutput") - (version "0.10") - (source (origin - (method url-fetch) - (uri (pypi-uri "sphinxcontrib-programoutput" version)) - (sha256 - (base32 - "153hhnlbx4688zj9wd64819ps5znc2jlyp5crkgzvn5hxgy99vpx")))) - (build-system python-build-system) - (arguments - ;; FIXME: Many tests are failing and the upstream is gone. - '(#:tests? #f)) - (propagated-inputs - `(("python-sphinx" ,python-sphinx))) - (synopsis "Sphinx extension to include program output") - (description "A Sphinx extension to literally insert the output of arbitrary -commands into documents, helping you to keep your command examples up to date.") - (home-page "https://github.com/lunaryorn/sphinxcontrib-programoutput") - (license license:bsd-2))) - -(define-public python2-sphinxcontrib-programoutput - (package-with-python2 python-sphinxcontrib-programoutput)) - -(define-public python-sphinx-repoze-autointerface - (package - (name "python-sphinx-repoze-autointerface") - (version "0.8") - (source (origin - (method url-fetch) - (uri (pypi-uri "repoze.sphinx.autointerface" version)) - (sha256 - (base32 - "08ycivzf7bh4a1zcyp31hbyqs1b2c9r26raa3vxjwwmbfqr3iw4f")))) - (build-system python-build-system) - (arguments '(#:tests? #f)) ; No tests. - (propagated-inputs - `(("python-sphinx" ,python-sphinx) - ("python-zope-interface" ,python-zope-interface))) - (synopsis "Auto-generate Sphinx API docs from Zope interfaces") - (description "This package defines an extension for the Sphinx documentation -system. The extension allows generation of API documentation by -introspection of @code{zope.interface} instances in code.") - (home-page "https://github.com/repoze/repoze.sphinx.autointerface") - (license license:repoze))) - -(define-public python2-sphinx-repoze-autointerface - (package-with-python2 python-sphinx-repoze-autointerface)) - -(define-public python-vobject - (package - (name "python-vobject") - (version "0.9.5") - (source (origin - (method url-fetch) - (uri (pypi-uri "vobject" version)) - (sha256 - (base32 - "0hqjgf3ay1m5w1c0k00g5yfpdz1zni5qnr5rh9b8fg9hjvhwlmhg")))) - (build-system python-build-system) - (arguments - '(;; The test suite relies on some non-portable Windows interfaces. - #:tests? #f)) - (propagated-inputs - `(("python-dateutil" ,python-dateutil) - ("python-pyicu" ,python-pyicu))) - (synopsis "Parse and generate vCard and vCalendar files") - (description "Vobject is intended to be a full featured Python package for -parsing and generating vCard and vCalendar files. Currently, iCalendar files -are supported and well tested. vCard 3.0 files are supported, and all data -should be imported, but only a few components are understood in a sophisticated -way.") - (home-page "http://eventable.github.io/vobject/") - (license license:asl2.0))) - -(define-public python2-vobject - (package-with-python2 python-vobject)) - -(define-public python-munkres - (package - (name "python-munkres") - (version "1.0.8") - (source (origin - (method url-fetch) - (uri (pypi-uri "munkres" version)) - (sha256 - (base32 - "0mbspx4zv8id4x6pim6ybsa1xh96qwpbqj7skbqz4c9c9nf1lpqq")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; no test suite - (home-page "http://software.clapper.org/munkres/") - (synopsis "Implementation of the Munkres algorithm") - (description "The Munkres module provides an implementation of the Munkres -algorithm (also called the Hungarian algorithm or the Kuhn-Munkres algorithm), -useful for solving the Assignment Problem.") - (license license:bsd-3))) - -(define-public python2-munkres - (package-with-python2 python-munkres)) - -(define-public python-whoosh - (package - (name "python-whoosh") - (version "2.7.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Whoosh" version)) - (sha256 - (base32 - "10qsqdjpbc85fykc1vgcs8xwbgn4l2l52c8d83xf1q59pwyn79bw")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://bitbucket.org/mchaput/whoosh") - (synopsis "Full text indexing, search, and spell checking library") - (description - "Whoosh is a fast, pure-Python full text indexing, search, and spell -checking library.") - (license license:bsd-2))) - -(define-public python2-whoosh - (let ((whoosh (package-with-python2 (strip-python2-variant python-whoosh)))) - (package (inherit whoosh) - (propagated-inputs - `(("python2-backport-ssl-match-hostname" - ,python2-backport-ssl-match-hostname) - ,@(package-propagated-inputs whoosh)))))) - -(define-public python-pathlib - (package - (name "python-pathlib") - (version "1.0.1") - (source (origin - (method url-fetch) - (uri (pypi-uri "pathlib" version)) - (sha256 - (base32 - "17zajiw4mjbkkv6ahp3xf025qglkj0805m9s41c45zryzj6p2h39")))) - (build-system python-build-system) - ;; The tests depend on the internal "test" module, which does not provide - ;; a stable interface. - (arguments `(#:tests? #f)) - (home-page "https://pathlib.readthedocs.org/") - (synopsis "Object-oriented file system paths") - (description "Pathlib offers a set of classes to handle file system paths. -It offers the following advantages over using string objects: - -@enumerate -@item No more cumbersome use of os and os.path functions. Everything can -be done easily through operators, attribute accesses, and method calls. -@item Embodies the semantics of different path types. For example, -comparing Windows paths ignores casing. -@item Well-defined semantics, eliminating any inconsistencies or -ambiguities (forward vs. backward slashes, etc.). -@end enumerate - -Note: In Python 3.4, pathlib is now part of the standard library. For other -Python versions please consider python-pathlib2 instead, which tracks the -standard library module. This module (python-pathlib) isn't maintained -anymore.") - (license license:expat))) - -(define-public python2-pathlib - (package-with-python2 python-pathlib)) - -(define-public python2-pathlib2 - (package - (name "python2-pathlib2") - (version "2.3.2") - (source (origin - (method url-fetch) - (uri (pypi-uri "pathlib2" version)) - (sha256 - (base32 - "10yb0iv5x2hs631rcppkhbddx799d3h8pcwmkbh2a66ns3w71ccf")))) - (build-system python-build-system) - ;; We only need the the Python 2 variant, since for Python 3 our minimum - ;; version is 3.4 which already includes this package as part of the - ;; standard library. - (arguments - `(#:python ,python-2)) - (propagated-inputs - `(("python2-scandir" ,python2-scandir) - ("python2-six" ,python2-six))) - (home-page "https://pypi.python.org/pypi/pathlib2/") - (synopsis "Object-oriented file system paths - backport of standard -pathlib module") - (description "The goal of pathlib2 is to provide a backport of standard -pathlib module which tracks the standard library module, so all the newest -features of the standard pathlib can be used also on older Python versions. - -Pathlib offers a set of classes to handle file system paths. It offers the -following advantages over using string objects: - -@enumerate -@item No more cumbersome use of os and os.path functions. Everything can -be done easily through operators, attribute accesses, and method calls. -@item Embodies the semantics of different path types. For example, -comparing Windows paths ignores casing. -@item Well-defined semantics, eliminating any inconsistencies or -ambiguities (forward vs. backward slashes, etc.). -@end enumerate") - (license license:expat))) - -(define-public python2-pathlib2-bootstrap - (hidden-package - (package - (inherit python2-pathlib2) - (name "python2-pathlib2-bootstrap") - (propagated-inputs - `(("python2-scandir" ,python2-scandir) - ("python2-six" ,python2-six-bootstrap)))))) - -(define-public python-jellyfish - (package - (name "python-jellyfish") - (version "0.5.6") - (source (origin - (method url-fetch) - (uri (pypi-uri "jellyfish" version)) - (sha256 - (base32 - "1j9rplb16ba2prjj6mip46z0w9pnhnqpwgiwi0x93vnas14rlyl8")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://github.com/jamesturk/jellyfish") - (synopsis "Approximate and phonetic matching of strings") - (description "Jellyfish uses a variety of string comparison and phonetic -encoding algorithms to do fuzzy string matching.") - (license license:bsd-2) - (properties `((python2-variant . ,(delay python2-jellyfish)))))) - -(define-public python2-jellyfish - (let ((jellyfish (package-with-python2 - (strip-python2-variant python-jellyfish)))) - (package (inherit jellyfish) - (native-inputs `(("python2-unicodecsv" ,python2-unicodecsv) - ,@(package-native-inputs jellyfish)))))) - -(define-public python2-unicodecsv - (package - (name "python2-unicodecsv") - (version "0.14.1") - (source (origin - (method url-fetch) - ;; The test suite is not included in the PyPi release. - ;; https://github.com/jdunck/python-unicodecsv/issues/19 - (uri (string-append "https://github.com/jdunck/python-unicodecsv/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "087nqanfcyp6mlfbbr5lva5f3w6iz1bybls9xlrb8icmc474wh4w")))) - (build-system python-build-system) - (arguments - `(;; It supports Python 3, but Python 3 can already do Unicode CSV. - #:python ,python-2)) - (native-inputs - `(("python2-unittest2" ,python2-unittest2))) - (home-page "https://github.com/jdunck/python-unicodecsv") - (synopsis "Unicode CSV module for Python 2") - (description "Unicodecsv is a drop-in replacement for Python 2.7's CSV -module, adding support for Unicode strings.") - (license license:bsd-2))) - -(define-public python-rarfile - (package - (name "python-rarfile") - (version "2.8") - (source (origin - (method url-fetch) - (uri (pypi-uri "rarfile" version)) - (sha256 - (base32 - "0qfad483kcbga0bn4qmcz953xjk16r52fahiy46zzn56v80y89ra")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - ;; Many tests fail, but the installation proceeds. - (lambda _ (zero? (system* "make" "-C" "test" "test"))))))) - (native-inputs - `(("which" ,which))) ; required for tests - (propagated-inputs - `(("libarchive" ,libarchive))) - (home-page "https://github.com/markokr/rarfile") - (synopsis "RAR archive reader for Python") - (description "This is Python module for RAR archive reading. The interface -is made as zipfile like as possible.") - (license license:isc))) - -(define-public python2-rarfile - (package-with-python2 python-rarfile)) - -(define-public python-magic - (package - (name "python-magic") - (version "0.4.15") - (source - (origin - (method url-fetch) - (uri (pypi-uri "python-magic" version)) - (sha256 - (base32 - "1mgwig9pnzgkf86q9ji9pnc99bngms15lfszq5rgqb9db07mqxpk")) - (file-name (string-append name "-" version "-checkout")))) - (build-system python-build-system) - (arguments - ;; The tests are unreliable, so don't run them. The tests fail - ;; under Python3 because they were written for Python2 and - ;; contain import statements that do not work in Python3. One of - ;; the tests fails under Python2 because its assertions are - ;; overly stringent; it relies on comparing output strings which - ;; are brittle and can change depending on the version of - ;; libmagic being used and the system on which the test is - ;; running. In my case, under GuixSD 0.10.0, only one test - ;; failed, and it seems to have failed only because the version - ;; of libmagic that is packaged in Guix outputs a slightly - ;; different (but not wrong) string than the one that the test - ;; expected. - '(#:tests? #f - #:phases (modify-phases %standard-phases - ;; Replace a specific method call with a hard-coded - ;; path to the necessary libmagic.so file in the - ;; store. If we don't do this, then the method call - ;; will fail to find the libmagic.so file, which in - ;; turn will cause any application using - ;; python-magic to fail. - (add-before 'build 'hard-code-path-to-libmagic - (lambda* (#:key inputs #:allow-other-keys) - (let ((file (assoc-ref inputs "file"))) - (substitute* "magic.py" - (("ctypes.util.find_library\\('magic'\\)") - (string-append "'" file "/lib/libmagic.so'"))) - #t))) - (add-before 'install 'disable-egg-compression - (lambda _ - (let ((port (open-file "setup.cfg" "a"))) - (display "\n[easy_install]\nzip_ok = 0\n" - port) - (close-port port) - #t)))))) - (inputs - ;; python-magic needs to be able to find libmagic.so. - `(("file" ,file))) - (home-page - "https://github.com/ahupp/python-magic") - (synopsis - "File type identification using libmagic") - (description - "This module uses ctypes to access the libmagic file type -identification library. It makes use of the local magic database and -supports both textual and MIME-type output. Note that this module and -the python-file module both provide a \"magic.py\" file; these two -modules, which are different and were developed separately, both serve -the same purpose: to provide Python bindings for libmagic.") - (license license:expat))) - -(define-public python2-magic - (package-with-python2 python-magic)) - -(define-public python2-s3cmd - (package - (name "python2-s3cmd") - (version "1.6.1") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/s3tools/s3cmd/" version "/" - "s3cmd-" version ".tar.gz")) - (sha256 - (base32 - "0ki1rzhm5icvi9ry5jswi4b22yqwyj0d2wsqsgilwx6qhi7pjxa6")))) - (build-system python-build-system) - (arguments - ;; s3cmd is written for python2 only and contains no tests. - `(#:python ,python-2 - #:tests? #f)) - (propagated-inputs - `(("python2-dateutil" ,python2-dateutil) - ;; The python-file package also provides a magic.py module. - ;; This is an unfortunate state of affairs; however, s3cmd - ;; fails to install if it cannot find specifically the - ;; python-magic package. Thus we include it, instead of using - ;; python-file. Ironically, s3cmd sometimes works better - ;; without libmagic bindings at all: - ;; https://github.com/s3tools/s3cmd/issues/198 - ("python2-magic" ,python2-magic))) - (home-page "http://s3tools.org/s3cmd") - (synopsis "Command line tool for S3-compatible storage services") - (description - "S3cmd is a command line tool for uploading, retrieving and managing data -in storage services that are compatible with the Amazon Simple Storage -Service (S3) protocol, including S3 itself. It supports rsync-like backup, -GnuPG encryption, and more. It also supports management of Amazon's -CloudFront content delivery network.") - (license license:gpl2+))) - -(define-public python-pkgconfig - (package - (name "python-pkgconfig") - (version "1.3.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pkgconfig" version)) - (sha256 - (base32 - "107x2wmchlch8saixb488cgjz9n6inl38wi7nxkb942rbaapxiqb")))) - (build-system python-build-system) - (native-inputs - `(("python-nose" ,python-nose))) - (inputs - `(("pkg-config" ,pkg-config))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'build 'patch - ;; Hard-code the path to pkg-config. - (lambda _ - (substitute* "pkgconfig/pkgconfig.py" - (("cmd = 'pkg-config") - (string-append "cmd = '" (which "pkg-config")))) - #t)) - (replace 'check - (lambda _ - (invoke "nosetests" "test.py")))))) - (home-page "https://github.com/matze/pkgconfig") - (synopsis "Python interface for pkg-config") - (description "This module provides a Python interface to pkg-config. It -can be used to find all pkg-config packages, check if a package exists, -check if a package meets certain version requirements, query CFLAGS and -LDFLAGS and parse the output to build extensions with setup.py.") - (license license:expat))) - -(define-public python2-pkgconfig - (package-with-python2 python-pkgconfig)) - -(define-public python-bz2file - (package - (name "python-bz2file") - (version "0.98") - (source - (origin - (method url-fetch) - (uri (pypi-uri "bz2file" version)) - (sha256 - (base32 - "126s53fkpx04f33a829yqqk8fj4png3qwg4m66cvlmhmwc8zihb4")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ; Tests use deprecated python modules. - (home-page "https://github.com/nvawda/bz2file") - (synopsis "Read and write bzip2-compressed files") - (description - "Bz2file is a Python library for reading and writing bzip2-compressed -files. It contains a drop-in replacement for the I/O interface in the -standard library's @code{bz2} module, including features from the latest -development version of CPython that are not available in older releases.") - (license license:asl2.0))) - -(define-public python2-bz2file - (package-with-python2 python-bz2file)) - -(define-public python-future - (package - (name "python-future") - (version "0.16.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "future" version)) - (sha256 - (base32 - "1nzy1k4m9966sikp0qka7lirh8sqrsyainyf8rk97db7nwdfv773")))) - (build-system python-build-system) - ;; Many tests connect to the network or are otherwise flawed. - ;; https://github.com/PythonCharmers/python-future/issues/210 - (arguments - `(#:tests? #f)) - (home-page "http://python-future.org") - (synopsis "Single-source support for Python 3 and 2") - (description - "@code{python-future} is the missing compatibility layer between Python 2 and -Python 3. It allows you to use a single, clean Python 3.x-compatible codebase -to support both Python 2 and Python 3 with minimal overhead.") - (license license:expat))) - -(define-public python2-future - (package-with-python2 python-future)) - -(define-public python-cysignals - (package - (name "python-cysignals") - (version "1.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "cysignals" version ".tar.bz2")) - (sha256 - (base32 - "14cbyd9znlz6cxy1s3g6v6dv5jj45hn27pywkidd9b1zanaysqc6")))) - (build-system python-build-system) - (native-inputs - `(("python-cython" ,python-cython) - ("python-sphinx" ,python-sphinx))) - (inputs - `(("pari-gp" ,pari-gp))) - (arguments - `(#:modules ((guix build python-build-system) - ((guix build gnu-build-system) #:prefix gnu:) - (guix build utils)) - ;; FIXME: Tests are executed after installation and currently fail - ;; when not installing into standard locations; the author is working - ;; on a fix. - #:tests? #f - #:phases - (modify-phases %standard-phases - (add-before - 'build 'configure - (assoc-ref gnu:%standard-phases 'configure))))) - (home-page - "https://github.com/sagemath/cysignals") - (synopsis - "Handling of interrupts and signals for Cython") - (description - "The cysignals package provides mechanisms to handle interrupts (and -other signals and errors) in Cython code, using two related approaches, -for mixed Cython/Python code or external C libraries and pure Cython code, -respectively.") - (license license:lgpl3+))) - -(define-public python2-cysignals - (package-with-python2 python-cysignals)) - -(define-public python2-shedskin - (package - (name "python2-shedskin") - (version "0.9.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/shedskin/shedskin/" - "releases/download/v" version - "/shedskin-" version ".tgz")) - (sha256 - (base32 - "0nzwrzgw1ga8rw6f0ryq7zr9kkiavd1cqz5hzxkcbicl1dk7kz41")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:phases (modify-phases %standard-phases - (add-after 'unpack 'fix-resulting-include-libs - (lambda* (#:key inputs #:allow-other-keys) - (let ((libgc (assoc-ref inputs "libgc")) - (pcre (assoc-ref inputs "pcre"))) - (substitute* "shedskin/makefile.py" - (("variable == 'CCFLAGS':[ ]*") - (string-append "variable == 'CCFLAGS':\n" - " line += ' -I " pcre "/include" - " -I " libgc "/include'")) - (("variable == 'LFLAGS':[ ]*") - (string-append "variable == 'LFLAGS':\n" - " line += ' -L" pcre "/lib" - " -L " libgc "/lib'"))) - #t)))))) - (inputs `(("pcre" ,pcre) - ("libgc" ,libgc))) - (home-page "https://shedskin.github.io/") - (synopsis "Experimental Python-2 to C++ Compiler") - (description (string-append "This is an experimental compiler for a subset of -Python. It generates C++ code and a Makefile.")) - (license (list license:gpl3 license:bsd-3 license:expat)))) - -(define-public python2-rope - (package - (name "python2-rope") - (version "0.10.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "rope" version)) - (sha256 - (base32 - "18k5znhpwvrfck3yp0jmhd5j8r0f0s8bk1zh5yhs2cfgmfhbwigb")))) - (arguments - ;; Rope is currently python-2 only. - ;; https://github.com/python-rope/rope/issues/57 - `(#:python ,python-2)) - (build-system python-build-system) - (native-inputs - `(("python2-unittest2" ,python2-unittest2))) - (home-page "https://github.com/python-rope/rope") - (synopsis "Refactoring library for Python") - (description "Rope is a refactoring library for Python. It facilitates -the renaming, moving and extracting of attributes, functions, modules, fields -and parameters in Python 2 source code. These refactorings can also be applied -to occurrences in strings and comments.") - (license license:gpl2))) - -(define-public python-py3status - (package - (name "python-py3status") - (version "3.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "py3status" version)) - (sha256 - (base32 - "0shxcfz4wcczj0mhwp4w0dvwd2fdd9bgprq8slim1519iiqzgwhq")))) - (build-system python-build-system) - (inputs - `(("file" ,file))) - (arguments - '(#:phases - (modify-phases %standard-phases - ;; 'file' is used for detection of configuration file encoding - ;; let's make link the dependency to particular input - (add-before 'build 'patch-file-path - (lambda* (#:key inputs #:allow-other-keys) - (let ((file-path (assoc-ref inputs "file"))) - (substitute* "py3status/parse_config.py" - (("\\['file', '-b'") - (string-append "['" file-path "/bin/file', '-b'"))) - #t)))) - #:tests? #f)) ; TODO: Requires many libraries not in Guix. - (home-page "https://github.com/ultrabug/py3status") - (synopsis "Extensible i3status wrapper written in Python") - (description "py3status is an i3status wrapper which extends i3status -functionality in a modular way, allowing you to extend your panel with your -own code, responding to click events and updating clock every second.") - (license license:bsd-3))) - -(define-public python-tblib - (package - (name "python-tblib") - (version "1.3.2") - (source (origin - (method url-fetch) - (uri (pypi-uri "tblib" version)) - (sha256 (base32 - "1rsg8h069kqgncyv8fgzyj6qflk6j10cb78pa5jk34ixwq044vj3")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'adjust-tests - (lambda _ - (when (which "python3") - ;; Adjust the example output to match that of Python 3.7: - ;; <https://github.com/ionelmc/python-tblib/issues/36>. - (substitute* "README.rst" - (("Exception\\('fail',") "Exception('fail'")) - #t))) - (replace 'check - (lambda _ - ;; Upstream runs tests after installation and the package itself - ;; resides in a subdirectory. Extend PYTHONPATH so it will be - ;; found. - (setenv "PYTHONPATH" - (string-append (getcwd) "/build/lib:" - (getenv "PYTHONPATH"))) - (invoke "py.test" "-vv" "tests" "README.rst")))))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-six" ,python-six))) - (home-page "https://github.com/ionelmc/python-tblib") - (synopsis "Traceback serialization library") - (description - "Traceback serialization allows you to: - -@enumerate -@item Pickle tracebacks and raise exceptions with pickled tracebacks in -different processes. This allows better error handling when running code over -multiple processes (imagine multiprocessing, billiard, futures, celery etc). - -@item Parse traceback strings and raise with the parsed tracebacks. -@end enumerate\n") - (license license:bsd-3))) - -(define-public python2-tblib - (package-with-python2 python-tblib)) - -(define-public python-greenlet - (package - (name "python-greenlet") - (version "0.4.15") - (source (origin - (method url-fetch) - (uri (pypi-uri "greenlet" version)) - (sha256 - (base32 - "1g4g1wwc472ds89zmqlpyan3fbnzpa8qm48z3z1y6mlk44z485ll")))) - (build-system python-build-system) - (home-page "https://greenlet.readthedocs.io/") - (synopsis "Lightweight in-process concurrent programming") - (description - "Greenlet package is a spin-off of Stackless, a version of CPython -that supports micro-threads called \"tasklets\". Tasklets run -pseudo-concurrently (typically in a single or a few OS-level threads) and -are synchronized with data exchanges on \"channels\".") - (license (list license:psfl license:expat)))) - -(define-public python2-greenlet - (package-with-python2 python-greenlet)) - -(define-public python-objgraph - (package - (name "python-objgraph") - (version "3.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "objgraph" version)) - (sha256 - (base32 - "184m09am5gpbqfaiy7l0hwh476mczbrly1dffs0rw2p1d1i2q32a")))) - (build-system python-build-system) - (propagated-inputs - `(("python-graphviz" ,python-graphviz))) - (native-inputs - `(("python-mock" ,python-mock) - ("graphviz" ,graphviz))) - (home-page "https://mg.pov.lt/objgraph/") - (synopsis "Draw Python object reference graphs with graphviz") - (description - "This package provides tools to draw Python object reference graphs with -graphviz.") - (license license:expat))) - -(define-public python-gevent - (package - (name "python-gevent") - (version "1.3.7") - (source (origin - (method url-fetch) - (uri (pypi-uri "gevent" version)) - (sha256 - (base32 - "0b0fr04qdk1p4sniv87fh8z5psac60x01pv054kpgi94520g81iz")) - (modules '((guix build utils))) - (snippet - '(begin - ;; unbunding libev and c-ares - (delete-file-recursively "deps") - #t)))) - (build-system python-build-system) - (arguments - `(#:modules ((ice-9 ftw) - (ice-9 match) - (srfi srfi-26) - (guix build utils) - (guix build python-build-system)) - #:phases (modify-phases %standard-phases - (add-after 'unpack 'unpack-libev - (lambda* (#:key inputs #:allow-other-keys) - (mkdir-p "deps/libev") - ;; FIXME: gevent requires building libev, even though - ;; it only links against the proper one. - (invoke "tar" "-xf" (assoc-ref inputs "libev-source") - "--strip-components=1" "-C" "deps/libev"))) - (add-before 'patch-source-shebangs 'patch-hard-coded-paths - (lambda _ - (substitute* "src/gevent/subprocess.py" - (("/bin/sh") (which "sh"))) - (for-each (lambda (file) - (substitute* file - (("/bin/sh") (which "sh")) - (("/bin/true") (which "true")))) - (find-files "src/greentest" "\\.py$")) - #t)) - (add-before 'build 'do-not-use-bundled-sources - (lambda* (#:key inputs #:allow-other-keys) - (setenv "CONFIG_SHELL" (which "bash")) - (setenv "LIBEV_EMBED" "false") - (setenv "CARES_EMBED" "false") - (setenv "EMBED" "false") - - (let ((greenlet (string-append - (assoc-ref inputs "python-greenlet") - "/include"))) - (match (scandir greenlet - (lambda (item) - (string-prefix? "python" item))) - ((python) - (setenv "CPATH" - (string-append greenlet "/" python))))) - #t)) - (add-before 'check 'skip-timer-test - (lambda _ - ;; XXX: Skip 'TestTimerResolution', which appears to be - ;; unreliable. - (substitute* "src/greentest/test__core_timer.py" - (("not greentest.RUNNING_ON_CI") "False")) - #t)) - (replace 'check - (lambda _ - ;; Make sure the build directory is on PYTHONPATH. - (setenv "PYTHONPATH" - (string-append - (getenv "PYTHONPATH") ":" - (getcwd) "/build/" - (car (scandir "build" (cut string-prefix? "lib." <>))))) - (with-directory-excursion "src/greentest" - ;; XXX: Many tests require network access. Instead we only - ;; run known-good tests. Unfortunately we cannot use - ;; recursion here since this directory also contains - ;; Python-version-specific subfolders. - (apply invoke "python" "testrunner.py" "--config" - "known_failures.py" - (scandir "." (cut regexp-exec - (make-regexp "test_+(subprocess|core)") - <>))))))))) - (propagated-inputs - `(("python-greenlet" ,python-greenlet) - ("python-objgraph" ,python-objgraph))) - (native-inputs - `(("libev-source" ,(package-source libev)) - ("python-six" ,python-six))) - (inputs - `(("c-ares" ,c-ares) - ("libev" ,libev))) - (home-page "http://www.gevent.org/") - (synopsis "Coroutine-based network library") - (description - "gevent is a coroutine-based Python networking library that uses greenlet -to provide a high-level synchronous API on top of the libev event loop.") - (license license:expat) - (properties `((python2-variant . ,(delay python2-gevent)))))) - -(define-public python2-gevent - (let ((base (package-with-python2 - (strip-python2-variant python-gevent)))) - (package - (inherit base) - (native-inputs `(,@(package-native-inputs python-gevent) - ("python-mock" ,python2-mock)))))) - -(define-public python-fastimport - (package - (name "python-fastimport") - (version "0.9.6") - (source - (origin - (method url-fetch) - (uri (pypi-uri "fastimport" version)) - (sha256 - (base32 "1aqjsin4rmqm7ln4j0p73fzxifws6c6ikgyhav7r137m2ixsxl43")))) - (build-system python-build-system) - (home-page "https://github.com/jelmer/python-fastimport") - (synopsis "VCS fastimport parser and generator in Python") - (description "This package provides a parser for and generator of the Git -@url{https://www.kernel.org/pub/software/scm/git/docs/git-fast-import.html,fastimport} -format.") - (license license:gpl2+))) - -(define-public python2-fastimport - (package-with-python2 python-fastimport)) - -(define-public python-twisted - (package - (name "python-twisted") - (version "17.1.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "Twisted" version ".tar.bz2")) - (sha256 - (base32 - "1p245mg15hkxp7hy5cyq2fgvlgjkb4cg0gwkwd148nzy1bbi3wnv")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; FIXME: Some tests are failing. - ;; #:phases - ;; (modify-phases %standard-phases - ;; (replace 'check - ;; (lambda _ - ;; (zero? (system* "./bin/trial" "twisted"))))) - (propagated-inputs - `(("python-zope-interface" ,python-zope-interface) - ("python-incremental" ,python-incremental) - ("python-constantly" ,python-constantly) - ("python-automat" ,python-automat))) - (home-page "https://twistedmatrix.com/") - (synopsis "Asynchronous networking framework written in Python") - (description - "Twisted is an extensible framework for Python programming, with special -focus on event-based network programming and multiprotocol integration.") - (license license:expat))) - -(define-public python2-twisted - (package-with-python2 python-twisted)) - -(define-public python-pika - (package - (name "python-pika") - (version "0.12.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pika" version)) - (sha256 - (base32 - "0ld7akgm93s8pfa4dsx9qlzlhj76zspbr5m9ms0ns09yd2w4aq9h")))) - (build-system python-build-system) - (native-inputs - `(("python-pyev" ,python-pyev) - ("python-tornado" ,python-tornado) - ("python-twisted" ,python-twisted))) - (home-page "https://pika.readthedocs.org") - (synopsis "Pure Python AMQP Client Library") - (description - "Pika is a pure-Python implementation of the AMQP (Advanced Message Queuing -Protocol) 0-9-1 protocol that tries to stay fairly independent of the underlying -network support library.") - (license license:bsd-3))) - -(define-public python2-pika - (package-with-python2 python-pika)) - -(define-public python-ply - (package - (name "python-ply") - (version "3.10") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ply" version)) - (sha256 - (base32 - "1jxsr1d2f732r6ljhvm827113dckwl6qwakfvpbdhcbhvpvlmscn")))) - (build-system python-build-system) - (home-page "http://www.dabeaz.com/ply/") - (synopsis "Python Lex & Yacc") - (description "PLY is a @code{lex}/@code{yacc} implemented purely in Python. -It uses LR parsing and does extensive error checking.") - (license license:bsd-3))) - -(define-public python2-ply - (package-with-python2 python-ply)) - -(define-public python-tabulate - (package - (name "python-tabulate") - (version "0.7.7") - (source (origin - (method url-fetch) - (uri (pypi-uri "tabulate" version)) - (sha256 - (base32 - "1inqhspd4frxnp08c32yndr0lc4px1xfkqah184i5w09gkhvi843")))) - (build-system python-build-system) - (arguments - ;; FIXME: The pypi release tarball is missing a 'test/common.py' - ;; and the latest release is not tagged in the upstream repository. - '(#:tests? #f)) - (home-page "https://bitbucket.org/astanin/python-tabulate") - (synopsis "Pretty-print tabular data") - (description - "Tabulate is a library and command-line utility to pretty-print tabular -data in Python.") - (license license:expat))) - -(define-public python2-tabulate - (package-with-python2 python-tabulate)) - -(define-public python-kazoo - (package - (name "python-kazoo") - (version "2.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "kazoo" version)) - (sha256 - (base32 - "16y213k7r8shyn2zw1k6lkzjgcrvm441pqv8scvcjixhvpbx3hm7")))) - (build-system python-build-system) - (arguments '(#:tests? #f)) ; XXX: needs zookeeper - (propagated-inputs - `(("python-six" ,python-six))) - (home-page "https://kazoo.readthedocs.org") - (synopsis "High-level Zookeeper client library") - (description - "Kazoo is a Python client library for the Apache Zookeeper distributed -application service. It is designed to be easy to use and to avoid common -programming errors.") - (license license:asl2.0))) - -(define-public python2-kazoo - (package-with-python2 python-kazoo)) - -(define-public python-pykafka - (package - (name "python-pykafka") - (version "2.4.0") - (source (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/8b/3e/" - "384eeff406b06315738b62483fd2126c6e4f544167116b17cc04ea7d2a59/" - "pykafka-" version ".tar.gz")) - (sha256 - (base32 - "1id6sr159p6aa13bxcqyr9gln8sqg1l0ddzns5iws8kk5q1p5cfv")))) - (build-system python-build-system) - (arguments '(#:tests? #f)) ; XXX: needs zookeeper, kafka, etc. - (propagated-inputs - `(("python-gevent" ,python-gevent) - ("python-kazoo" ,python-kazoo) - ("python-tabulate" ,python-tabulate))) - (inputs - `(("librdkafka" ,librdkafka))) - (home-page "https://pykafka.readthedocs.io/") - (synopsis "Apache Kafka client for Python") - (description - "PyKafka is a client for the Apache Kafka distributed messaging system. -It includes Python implementations of Kafka producers and consumers, which -are optionally backed by a C extension built on librdkafka.") - (license license:asl2.0))) - -(define-public python2-pykafka - (package-with-python2 python-pykafka)) - -(define-public python-wcwidth - (package - (name "python-wcwidth") - (version "0.1.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "wcwidth" version)) - (sha256 - (base32 - "0pn6dflzm609m4r3i8ik5ni9ijjbb5fa3vg1n7hn6vkd49r77wrx")))) - (build-system python-build-system) - (home-page "https://github.com/jquast/wcwidth") - (synopsis "Measure number of terminal column cells of wide-character codes") - (description "Wcwidth measures the number of terminal column cells of -wide-character codes. It is useful for those implementing a terminal emulator, -or programs that carefully produce output to be interpreted by one. It is a -Python implementation of the @code{wcwidth} and @code{wcswidth} C functions -specified in POSIX.1-2001 and POSIX.1-2008.") - (license license:expat))) - -(define-public python2-wcwidth - (package-with-python2 python-wcwidth)) - -(define-public python2-jsonrpclib - (package - (name "python2-jsonrpclib") - (version "0.1.7") - (source (origin - (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/j/jsonrpclib/" - "jsonrpclib-" version ".tar.gz")) - (sha256 - (base32 - "02vgirw2bcgvpcxhv5hf3yvvb4h5wzd1lpjx8na5psdmaffj6l3z")))) - (build-system python-build-system) - (arguments - `(#:tests? #f - #:python ,python-2)) - (home-page "https://github.com/joshmarshall/jsonrpclib/") - (synopsis "Implementation of JSON-RPC specification for Python") - (description - "This library is an implementation of the JSON-RPC specification. -It supports both the original 1.0 specification, as well as the -new (proposed) 2.0 spec, which includes batch submission, keyword arguments, -etc.") - (license license:asl2.0))) - -(define-public python-chai - (package - (name "python-chai") - (version "1.1.2") - (source (origin - (method url-fetch) - (uri (pypi-uri "chai" version)) - (sha256 - (base32 - "1k6n6zbgrrs83crp6mr3yqj9zlv40b8rpisyrliwsq7naml2p3gz")))) - (build-system python-build-system) - (home-page "https://github.com/agoragames/chai") - (synopsis "Mocking framework for Python") - (description - "Chai provides an api for mocking, stubbing and spying your python -objects, patterned after the Mocha library for Ruby.") - (license license:bsd-3))) - -(define-public python2-chai - (package-with-python2 python-chai)) - -(define-public python-inflection - (package - (name "python-inflection") - (version "0.3.1") - (source - (origin (method url-fetch) - (uri (pypi-uri "inflection" version)) - (sha256 - (base32 - "1jhnxgnw8y3mbzjssixh6qkc7a3afc4fygajhqrqalnilyvpzshq")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://github.com/jpvanhal/inflection") - (synopsis "Python string transformation library") - (description - "Inflection is a string transformation library. It singularizes -and pluralizes English words, and transforms strings from CamelCase to -underscored string.") - (license license:expat))) - -(define-public python2-inflection - (package-with-python2 python-inflection)) - -(define-public python-pylev - (package - (name "python-pylev") - (version "1.3.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "pylev" version)) - (sha256 - (base32 - "1hz1x9blsbxya1y9nnhnwwdnqmakxi9mc0jkwj0rn6b1h44i0f86")))) - (build-system python-build-system) - (home-page "https://github.com/toastdriven/pylev") - (synopsis "Levenshtein distance implementation in Python") - (description "Pure Python Levenshtein implementation, based off the -Wikipedia code samples at -@url{http://en.wikipedia.org/wiki/Levenshtein_distance}.") - (license license:bsd-3))) - -(define-public python2-pylev - (package-with-python2 python-pylev)) - -(define-public python-cleo - (package - (name "python-cleo") - (version "0.6.1") - (source (origin - (method url-fetch) - (uri (pypi-uri "cleo" version)) - (sha256 - (base32 - "0q1cf0szr0d54am4pypzwdnm74zpladdsinad94c2fz5i06fdpf7")))) - (build-system python-build-system) - (native-inputs - `(;; For testing - ("python-mock" ,python-mock) - ("python-pytest-mock" ,python-pytest-mock) - ("python-pytest" ,python-pytest))) - (propagated-inputs - `(("python-backpack" ,python-backpack) - ("python-pastel" ,python-pastel) - ("python-pylev" ,python-pylev))) - (home-page "https://github.com/sdispater/cleo") - (synopsis "Command-line arguments library for Python") - (description - "Cleo allows you to create command-line commands with signature in -docstring and colored output.") - (license license:expat))) - -(define-public python2-cleo - (package-with-python2 python-cleo)) - -(define-public python-lazy-object-proxy - (package - (name "python-lazy-object-proxy") - (version "1.3.1") - (source (origin - (method url-fetch) - (uri (pypi-uri "lazy-object-proxy" version)) - (sha256 - (base32 - "0yha7q9bhw857fwaby785d63mffhngl9npwzlk9i0pwlkwvbx4gb")))) - (build-system python-build-system) - (home-page "https://github.com/ionelmc/python-lazy-object-proxy") - (synopsis "Lazy object proxy for python") - (description - "Lazy object proxy is an object that wraps a callable but defers the call -until the object is actually required, and caches the result of said call.") - (license license:bsd-2))) - -(define-public python2-lazy-object-proxy - (package-with-python2 python-lazy-object-proxy)) - -(define-public python-dnspython - (package - (name "python-dnspython") - (version "1.15.0") - (source (origin - (method url-fetch) - (uri (string-append "http://www.dnspython.org/kits/" - version "/dnspython-" version ".tar.gz")) - (sha256 - (base32 - "0jr4v2pd90i6l1xxbss2m05psbjaxvyvvvpq44wycijpfgjqln8i")))) - (build-system python-build-system) - (arguments '(#:tests? #f)) ; XXX: requires internet access - (home-page "http://www.dnspython.org") - (synopsis "DNS toolkit for Python") - (description - "dnspython is a DNS toolkit for Python. It supports almost all record -types. It can be used for queries, zone transfers, and dynamic updates. -It supports TSIG authenticated messages and EDNS0.") - (license license:expat))) - -(define-public python2-dnspython - (package-with-python2 python-dnspython)) - -(define-public python-email-validator - (package - (name "python-email-validator") - (version "1.0.2") - (source - (origin (method url-fetch) - (uri (pypi-uri "email_validator" version)) - (sha256 - (base32 - "1ja9149l9ck5n45a72h3is7v476hjny5ybxbcamx1nw6iplsm7k6")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-before 'build 'use-dnspython - (lambda _ - (substitute* "setup.py" - (("dnspython3") "dnspython")) - #t))))) - (propagated-inputs - `(("python-dnspython" ,python-dnspython) - ("python-idna" ,python-idna))) - (home-page "https://github.com/JoshData/python-email-validator") - (synopsis "Email address validation library for Python") - (description - "This library validates email address syntax and deliverability.") - (license license:cc0))) - -(define-public python2-email-validator - (package-with-python2 python-email-validator)) - -(define-public python-ukpostcodeparser - (package - (name "python-ukpostcodeparser") - (version "1.0.3") - (source (origin - (method url-fetch) - (uri (pypi-uri "UkPostcodeParser" version)) - (sha256 - (base32 - "1jwg9z4rz51mcka1821rwgycsd0mcicyp1kiwjfa2kvg8bm9p2qd")))) - (build-system python-build-system) - (home-page "https://github.com/hamstah/ukpostcodeparser") - (synopsis "UK Postcode parser for Python") - (description - "This library provides the @code{parse_uk_postcode} function for -parsing UK postcodes.") - (license license:expat))) - -(define-public python2-ukpostcodeparser - (package-with-python2 python-ukpostcodeparser)) - -(define-public python-faker - (package - (name "python-faker") - (version "0.7.9") - (source (origin - (method url-fetch) - (uri (pypi-uri "Faker" version)) - (sha256 - (base32 - "1fh2p2yz0fsdr4fqwxgddwbvfb6qn6vp8yx0qwqzra27yq5d1wsm")) - (patches - (search-patches "python-faker-fix-build-32bit.patch")) - (modules '((guix build utils))) - (snippet - '(begin - (for-each delete-file (find-files "." "\\.pyc$")) - #t)))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (zero? (system* "python" "-m" "unittest" "-v" "tests"))))))) - (native-inputs - `(;; For testing - ("python-email-validator" ,python-email-validator) - ("python-mock" ,python-mock) - ("python-ukpostcodeparser" ,python-ukpostcodeparser))) - (propagated-inputs - `(("python-dateutil" ,python-dateutil) - ("python-six" ,python-six))) - (home-page "https://github.com/joke2k/faker") - (synopsis "Python package that generates fake data") - (description - "Faker is a Python package that generates fake data such as names, -addresses, and phone numbers.") - (license license:expat) - (properties `((python2-variant . ,(delay python2-faker)))))) - -(define-public python2-faker - (let ((base (package-with-python2 (strip-python2-variant - python-faker)))) - (package - (inherit base) - (propagated-inputs - `(("python2-ipaddress" ,python2-ipaddress) - ,@(package-propagated-inputs base)))))) - -(define-public python-pyaml - (package - (name "python-pyaml") - (version "18.11.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "pyaml" version)) - (sha256 - (base32 - "0fi604ix8lbpj1266q7js6szm771saprdzzcdwmj43wy83694qmr")))) - (build-system python-build-system) - (native-inputs - `(("python-unidecode" ,python-unidecode))) - (propagated-inputs - `(("python-pyyaml" ,python-pyyaml))) - (home-page "https://github.com/mk-fg/pretty-yaml") - (synopsis "YAML pretty-print library for Python") - (description - "pyaml is a PyYAML based python module to produce pretty and readable -YAML-serialized data.") - (license (license:non-copyleft "http://www.wtfpl.net/txt/copying/")))) - -(define-public python2-pyaml - (package-with-python2 python-pyaml)) - -(define-public python-backpack - (package - (name "python-backpack") - (version "0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "backpack" version)) - (sha256 - (base32 - "14rq1mvm0jda90lcx9gyyby9dvq4x3js2cmxvd6vl4686ixwyqh1")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-nose" ,python-nose))) - (propagated-inputs - `(("python-simplejson" ,python-simplejson))) - (home-page "https://github.com/sdispater/backpack") - (synopsis "Utilities for working with Python collections") - (description "Backpack provides some useful utilities for working with -collections of data.") - (license license:expat))) - -(define-public python2-backpack - (package-with-python2 python-backpack)) - -(define-public python-prompt-toolkit - (package - (name "python-prompt-toolkit") - (version "2.0.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "prompt_toolkit" version ".tar.gz")) - (sha256 - (base32 - "0fgacqk73w7s932vy46pan2yp8rvjmlkag20xvaydh9mhf6h85zx")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (delete 'check) - (add-after 'install 'post-install-check - (lambda* (#:key inputs outputs #:allow-other-keys) - ;; HOME is needed for the test - ;; "test_pathcompleter_can_expanduser". - (setenv "HOME" "/tmp") - (add-installed-pythonpath inputs outputs) - (invoke "py.test")))))) - (propagated-inputs - `(("python-wcwidth" ,python-wcwidth) - ("python-six" ,python-six) - ("python-pygments" ,python-pygments))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://github.com/jonathanslenders/python-prompt-toolkit") - (synopsis "Library for building command line interfaces in Python") - (description - "Prompt-Toolkit is a library for building interactive command line -interfaces in Python. It's like GNU Readline but it also features syntax -highlighting while typing, out-of-the-box multi-line input editing, advanced -code completion, incremental search, support for Chinese double-width -characters, mouse support, and auto suggestions.") - (license license:bsd-3))) - -(define-public python2-prompt-toolkit - (package-with-python2 python-prompt-toolkit)) - -(define-public python-prompt-toolkit-1 - (package (inherit python-prompt-toolkit) - (version "1.0.15") - (source - (origin - (method url-fetch) - (uri (pypi-uri "prompt_toolkit" version ".tar.gz")) - (sha256 - (base32 - "05v9h5nydljwpj5nm8n804ms0glajwfy1zagrzqrg91wk3qqi1c5")))))) - -(define-public python2-prompt-toolkit-1 - (package-with-python2 python-prompt-toolkit-1)) - -(define-public python-jedi - (package - (name "python-jedi") - (version "0.13.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "jedi" version)) - (sha256 - (base32 - "0j11q42g5vjkyhhjpyy8nb0gdxs78m3rpjai7p1hvgpyl9rkyjdp")))) - (build-system python-build-system) - (arguments - `( ;; Many tests are failing with Python 3.7.x as of version 0.13.1 (see: - ;; https://github.com/davidhalter/jedi/issues/1263) - #:tests? #f - #:phases - (modify-phases %standard-phases - (replace 'check - (lambda* (#:key tests? #:allow-other-keys) - (when tests? - (invoke "py.test" "-vv"))))))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-docopt" ,python-docopt))) - (propagated-inputs - `(("python-parso" ,python-parso))) - (home-page "https://github.com/davidhalter/jedi") - (synopsis "Autocompletion and static analysis library for Python") - (description - "Jedi is a static analysis tool for Python that can be used in Integrated -Development Environments (@dfn{IDE}s) and text editors. It understands Python -on a deeper level than many other static analysis frameworks for Python. - -Jedi understands docstrings and you can use Jedi autocompletion in your REPL as -well.") - (license license:expat))) - -(define-public python2-jedi - (package-with-python2 python-jedi)) - -(define-public ptpython - (package - (name "ptpython") - (version "0.34") - (source (origin - (method url-fetch) - (uri (pypi-uri "ptpython" version)) - (sha256 - (base32 - "1mmbiyzf0n8hm7z2a562x7w5cbl6jc0zsk6vp40q1z4cyblv1k13")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; FIXME: No tests in pypi tarball. - (propagated-inputs - `(("python-docopt" ,python-docopt) - ("python-jedi" ,python-jedi) - ("python-prompt-toolkit" ,python-prompt-toolkit) - ("python-pygments" ,python-pygments))) - (home-page "https://github.com/jonathanslenders/ptpython") - (synopsis "Python Read-Eval-Print-Loop with nice IDE-like features") - (description - "ptpython is a Python read-eval-print loop with IDE-like features. -It supports syntax highlighting, multiline editing, autocompletion, mouse, -color schemes, bracketed paste, Vi and Emacs keybindings, Chinese characters -etc.") - (license license:bsd-3) - (properties `((python2-variant . ,(delay ptpython-2)))))) - -(define-public ptpython-2 - (let ((base (package-with-python2 (strip-python2-variant ptpython)))) - (package - (inherit base) - (name "ptpython2")))) - -(define-public python-stem - (package - (name "python-stem") - (version "1.7.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "stem" version)) - (sha256 - (base32 - "1awiglfiajnx2hva9aqpj3fmdvdb4qg7cwnlfyih827m68y3cq8v")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (invoke "./run_tests.py" "--unit") - #t))))) - (native-inputs - `(("python-mock" ,python-mock) - ("python-pycodestyle" ,python-pycodestyle) - ("python-pyflakes" ,python-pyflakes))) - (home-page "https://stem.torproject.org/") - (synopsis - "Python controller library that allows applications to interact with Tor") - (description - "Stem is a Python controller library for Tor. With it you can use Tor's -control protocol to script against the Tor process and read descriptor data -relays publish about themselves.") - (license license:lgpl3))) - -(define-public python2-stem - (package-with-python2 python-stem)) - -(define-public python-pyserial - (package - (name "python-pyserial") - (version "3.1.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyserial" version)) - (sha256 - (base32 - "0k1nfdrxxkdlv4zgaqsdv8li0pj3gbh2pyxw8q2bsg6f9490amyn")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; FIXME: 3/49 tests are failing. - ;; #:phases - ;; (modify-phases %standard-phases - ;; (replace 'check - ;; (lambda _ - ;; (zero? (system* "python" "test/run_all_tests.py" "loop://"))))))) - (home-page - "https://github.com/pyserial/pyserial") - (synopsis "Python Serial Port Bindings") - (description "@code{pyserial} provide serial port bindings for Python. It -supports different byte sizes, stop bits, parity and flow control with RTS/CTS -and/or Xon/Xoff. The port is accessed in RAW mode.") - (license license:bsd-3))) - -(define-public python2-pyserial - (package-with-python2 python-pyserial)) - -(define-public python-kivy - (package - (name "python-kivy") - (version "1.10.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Kivy" version)) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1zzxjdp78hfjjiklzr82l4zwibwcq4j6kgicspqs6iyyfn5yisbw")))) - (build-system python-build-system) - (arguments - `(#:tests? #f ; Tests require many optional packages - #:phases - (modify-phases %standard-phases - (add-after 'patch-generated-file-shebangs 'set-sdl-paths - (lambda* (#:key inputs #:allow-other-keys) - (setenv "KIVY_SDL2_PATH" - (string-append (assoc-ref inputs "sdl-union") - "/include/SDL2")) - #t))))) - (native-inputs - `(("git" ,git) - ("pkg-config" ,pkg-config) - ("python-cython" ,python-cython))) - (inputs - `(("gstreamer" ,gstreamer) - ("mesa" ,mesa) - ("sdl-union" - ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf))))) - (home-page "http://kivy.org") - (synopsis - "Multitouch application framework") - (description - "A software library for rapid development of -hardware-accelerated multitouch applications.") - (license license:expat))) - -(define-public python2-kivy - (package-with-python2 python-kivy)) - -(define-public python-kivy-next - (deprecated-package "python-kivy-next" python-kivy)) - -(define-public python2-kivy-next - (deprecated-package "python2-kivy-next" python2-kivy)) - -(define-public python-binaryornot - (package - (name "python-binaryornot") - (version "0.4.4") - (source (origin - (method url-fetch) - (uri (pypi-uri "binaryornot" version)) - (sha256 - (base32 - "0qc006986rb6bcbmiymwgcl1mns2jphr1j7sr7nk41nlr7gh359m")))) - (build-system python-build-system) - (propagated-inputs - `(("python-chardet" ,python-chardet) - ("python-hypothesis" ,python-hypothesis))) - (home-page "https://github.com/audreyr/binaryornot") - (synopsis "Package to check if a file is binary or text") - (description "Ultra-lightweight pure Python package to check if a file is -binary or text.") - (license license:bsd-3) - (properties `((python2-variant . ,(delay python2-binaryornot)))))) - -(define-public python2-binaryornot - (let ((base (package-with-python2 (strip-python2-variant python-binaryornot)))) - (package (inherit base) - (propagated-inputs - `(("python2-enum34" ,python2-enum34) - ,@(package-propagated-inputs base)))))) - -(define-public python-nltk - (package - (name "python-nltk") - (version "3.2.1") - (source (origin - (method url-fetch) - (uri (pypi-uri "nltk" version)) - (sha256 - (base32 - "0skxbhnymwlspjkzga0f7x1hg3y50fwpfghs8g8k7fh6f4nknlym")))) - (build-system python-build-system) - (arguments - '(;; The tests require some extra resources to be downloaded. - ;; TODO Try packaging these resources. - #:tests? #f)) - (home-page "http://nltk.org/") - (synopsis "Natural Language Toolkit") - (description "It provides interfaces to over 50 corpora and lexical -resources such as WordNet, along with a suite of text processing libraries -for classification, tokenization, stemming, tagging, parsing, and semantic -reasoning, wrappers for natural language processing libraries.") - (license license:asl2.0))) - -(define-public python2-nltk - (package-with-python2 python-nltk)) - -(define-public python-pymongo - (package - (name "python-pymongo") - (version "3.7.2") - (source (origin - (method url-fetch) - (uri (pypi-uri "pymongo" version)) - (sha256 - (base32 - "0zis4707r9hdg5qgkhp3wss9camr9h56ixyfc8n9dxwlnnly4x4c")))) - (build-system python-build-system) - (propagated-inputs - `(("python-certifi" ,python-certifi))) - (home-page "https://github.com/mongodb/mongo-python-driver") - (synopsis "Python driver for MongoDB") - (description "Python driver for MongoDB.") - (license license:asl2.0))) - -(define-public python2-pymongo - (package-with-python2 python-pymongo)) - -(define-public python-sh - (package - (name "python-sh") - (version "1.11") - (source (origin - (method url-fetch) - (uri (pypi-uri "sh" version)) - (sha256 - (base32 - "192r0mpv6dmkysjzhc43ddffiwb5g7c76bgr1mb1z2xz9awbj3sr")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ; no tests - (home-page "https://github.com/amoffat/sh") - (synopsis "Python subprocess interface") - (description "Abstracts process invocation by providing a function -interface for programs.") - (license license:expat))) - -(define-public python2-sh - (package-with-python2 python-sh)) - -(define-public python-consul - (package - (name "python-consul") - (version "0.6.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "python-consul" version)) - (sha256 - (base32 - "0rfyxcy4cr3x848vhx876ifalxd5ghq6l5x813m49h4vq2d4jiq8")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; The tests are not distributed - (propagated-inputs - `(("python-requests" ,python-requests) - ("python-six" ,python-six))) - (home-page "https://github.com/cablehead/python-consul") - (synopsis "Python client for Consul") - (description - "Python client for @url{http://www.consul.io/,Consul}, a tool for service -discovery, monitoring and configuration.") - (license license:expat))) - -(define-public python2-consul - (package-with-python2 python-consul)) - -(define-public python-schematics - (package - (name "python-schematics") - (version "1.1.1") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/schematics/schematics/archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "19v1i69bf3bzarfxmbv0v6ivpcn758x3shvbiy9l2hy0lvqwnp6l")))) - (build-system python-build-system) - (propagated-inputs - `(("python-six" ,python-six))) - (arguments - `(#:tests? #f)) ; requires a bunch of not very nice packages with fixed - ; version requirements (eg python-coveralls) - (home-page "https://github.com/schematics/schematics") - (synopsis "Python Data Structures for Humans") - (description "Python Data Structures for Humans.") - (license license:bsd-3))) - -(define-public python2-schematics - (package-with-python2 python-schematics)) - -(define-public python-odfpy - (package - (name "python-odfpy") - (version "1.3.3") - (source (origin - (method url-fetch) - (uri (pypi-uri "odfpy" version)) - (sha256 - (base32 - "1a6ms0w9zfhhkqhvrnynwwbxrivw6hgjc0s5k7j06npc7rq0blxw")))) - (arguments - `(#:modules ((srfi srfi-1) - (guix build python-build-system) - (guix build utils)) - #:phases - (modify-phases %standard-phases - (replace 'check - ;; The test runner invokes python2 and python3 for test*.py. - ;; To avoid having both in inputs, we replicate it here. - (lambda _ - (every (lambda (test-file) - (zero? (system* "python" test-file))) - (find-files "tests" "^test.*\\.py$"))))))) - (build-system python-build-system) - (home-page "https://github.com/eea/odfpy") - (synopsis "Python API and tools to manipulate OpenDocument files") - (description "Collection of libraries and utility programs written in -Python to manipulate OpenDocument 1.2 files.") - (license - ;; The software is mainly dual GPL2+ and ASL2.0, but includes a - ;; number of files with other licenses. - (list license:gpl2+ license:asl2.0 license:lgpl2.1+ license:cc-by-sa3.0)))) - -(define-public python2-odfpy - (package-with-python2 python-odfpy)) - -(define-public python-natsort - (package - (name "python-natsort") - (version "5.4.1") - (source (origin - (method url-fetch) - (uri (pypi-uri "natsort" version)) - (sha256 - (base32 - "0i732amg6yzkx4g4c9j09jmqq39q377x9cl2nbkm5hax2c2v0wxf")))) - (build-system python-build-system) - (arguments - `(#:modules ((guix build utils) - (guix build python-build-system) - (srfi srfi-1) - (srfi srfi-26) - (ice-9 ftw)) - #:phases - (modify-phases %standard-phases - (add-before 'check 'set-cachedir - ;; Tests require write access to $HOME by default - (lambda _ (setenv "PYTHON_EGG_CACHE" "/tmp") #t)) - (replace 'check - (lambda _ - (let ((cwd (getcwd))) - (setenv "PYTHONPATH" - (string-append - cwd "/build/" - (find (cut string-prefix? "lib" <>) - (scandir (string-append cwd "/build"))) - ":" - (getenv "PYTHONPATH"))) - (invoke "pytest" "-v"))))))) - (native-inputs - `(("python-hypothesis" ,python-hypothesis) - ("python-pytest-cov" ,python-pytest-cov) - ("python-pytest-mock" ,python-pytest-mock) - ("python-pytest" ,python-pytest))) - (propagated-inputs ; TODO: Add python-fastnumbers. - `(("python-pyicu" ,python-pyicu))) - (home-page "https://github.com/SethMMorton/natsort") - (synopsis "Natural sorting for python and shell") - (description - "Natsort lets you apply natural sorting on lists instead of -lexicographical. If you use the built-in @code{sorted} method in python -on a list such as @code{['a20', 'a9', 'a1', 'a4', 'a10']}, it would be -returned as @code{['a1', 'a10', 'a20', 'a4', 'a9']}. Natsort provides a -function @code{natsorted} that identifies numbers and sorts them separately -from strings. It can also sort version numbers, real numbers, mixed types -and more, and comes with a shell command @command{natsort} that exposes this -functionality in the command line.") - (license license:expat) - (properties `((python2-variant . ,(delay python2-natsort)))))) - -(define-public python2-natsort - (let ((base (package-with-python2 (strip-python2-variant python-natsort)))) - (package (inherit base) - (native-inputs - `(("python2-pathlib" ,python2-pathlib) - ,@(package-native-inputs base)))))) - -(define-public python-glances - (package - (name "python-glances") - (version "3.0.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Glances" version)) - (sha256 - (base32 - "09fxysfp1n16csqvzvawy74qm6a94nvwjf3vcf5gkqp4i6k4vjjy")))) - (build-system python-build-system) - (propagated-inputs - `(("python-psutil" ,python-psutil))) - (home-page - "https://github.com/nicolargo/glances") - (synopsis - "A cross-platform curses-based monitoring tool") - (description - "Glances is a curses-based monitoring tool for a wide variety of platforms. -Glances uses the PsUtil library to get information from your system. It monitors -CPU, load, memory, network bandwidth, disk I/O, disk use, and more.") - (license license:lgpl3+))) - -(define-public python2-glances - (package-with-python2 python-glances)) - -(define-public python-graphql-core - (package - (name "python-graphql-core") - (version "0.5.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "graphql-core" version)) - (sha256 - (base32 - "0rsaarx2sj4xnw9966rhh4haiqaapm4lm2mfqm48ywd51j5vh1a0")))) - (build-system python-build-system) - (arguments - `(#:tests? #f ; Tests require the unpackaged pytest-benchmark. - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-hardcoded-version - (lambda _ (substitute* - "setup.py" - (("'gevent==1.1rc1'") "'gevent'")) - #t))))) - (native-inputs - `(("python-gevent" ,python-gevent) - ("python-mock" ,python-mock) - ("python-pytest-mock" ,python-pytest-mock))) - (propagated-inputs - `(("python-promise" ,python-promise) - ("python-six" ,python-six))) - (home-page "https://github.com/graphql-python/graphql-core") - (synopsis "GraphQL implementation for Python") - (description - "GraphQL implementation for Python. GraphQL is a data query language and -runtime designed and used to request and deliver data to mobile and web apps. -This library is a port of @url{https://github.com/graphql/graphql-js,graphql-js} -to Python.") - (license license:expat))) - -(define-public python2-graphql-core - (package-with-python2 python-graphql-core)) - -(define-public python-graphql-relay - (package - (name "python-graphql-relay") - (version "0.4.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "graphql-relay" version)) - (sha256 - (base32 - "1nv5dxcj59zv31qvl8bd142njmxcmymny2dz3br1l2cpbljbf5i7")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; The tests are not distributed - (propagated-inputs - `(("python-graphql-core" ,python-graphql-core) - ("python-promise" ,python-promise) - ("python-six" ,python-six))) - (home-page "https://github.com/graphql-python/graphql-relay-py") - (synopsis "Relay implementation for Python") - (description - "This is a library to allow the easy creation of Relay-compliant servers -using the GraphQL Python reference implementation of a GraphQL server. It -should be noted that the code is a exact port of the original -@url{https://github.com/graphql/graphql-relay-js,graphql-relay js implementation} -from Facebook.") - (license license:expat))) - -(define-public python2-graphql-relay - (package-with-python2 python-graphql-relay)) - -(define-public python-graphene - (package - (name "python-graphene") - (version "0.10.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "graphene" version)) - (sha256 - (base32 - "09zhac7igh9ixdz0ay6csy35b40l1jwbf2wrbxmgxwfhy51iy06q")))) - (build-system python-build-system) - (propagated-inputs - `(("python-graphql-core" ,python-graphql-core) - ("python-graphql-relay" ,python-graphql-relay) - ("python-iso8601" ,python-iso8601) - ("python-promise" ,python-promise) - ("python-six" ,python-six))) - (arguments - `(#:tests? #f)) ; no tests/ in the PyPI tarball - (home-page "http://graphene-python.org/") - (synopsis "GraphQL Framework for Python") - (description - "Graphene is a Python library for building GraphQL schemas/types. -A GraphQL schema describes your data model, and provides a GraphQL server -with an associated set of resolve methods that know how to fetch data.") - (properties `((python2-variant . ,(delay python2-graphene)))) - (license license:expat))) - -(define-public python2-graphene - (let ((base (package-with-python2 - (strip-python2-variant python-graphene)))) - (package (inherit base) - (native-inputs - `(("python2-sqlalchemy" ,python2-sqlalchemy) - ,@(package-native-inputs base)))))) - -(define-public python-nautilus - (package - (name "python-nautilus") - (version "0.4.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "nautilus" version)) - (sha256 - (base32 - "01hwzjc1zshk4vvxrcghm398fpy4jls66dyz06g07mrwqif8878p")))) - (build-system python-build-system) - (arguments `(#:tests? #f)) ; fails to import test modules - (propagated-inputs - `(("python-bcrypt" ,python-bcrypt) - ("python-click" ,python-click) - ("python-consul" ,python-consul) - ("python-graphene" ,python-graphene) - ("python-jinja2" ,python-jinja2) - ("python-peewee" ,python-peewee) - ("python-pika" ,python-pika) - ("python-tornado" ,python-tornado) - ("python-wtforms" ,python-wtforms))) - (native-inputs - `(("python-nose2" ,python-nose2))) - (home-page "https://github.com/AlecAivazis/nautilus") - (synopsis "Library for creating microservice applications") - (description - "Nautilus is a framework for flux based microservices that looks to -provide extendible implementations of common aspects of a cloud so that you can -focus on building massively scalable web applications.") - (license license:expat))) - -(define-public python-snowballstemmer - (package - (name "python-snowballstemmer") - (version "1.2.1") - (source (origin - (method url-fetch) - (uri (pypi-uri "snowballstemmer" version)) - (sha256 - (base32 - "0a0idq4y5frv7qsg2x62jd7rd272749xk4x99misf5rcifk2d7wi")))) - (build-system python-build-system) - (arguments - `(;; No tests exist - #:tests? #f)) - (home-page "https://github.com/shibukawa/snowball_py") - (synopsis "Snowball stemming library collection for Python") - (description "This package provides 16 word stemmer algorithms generated -from Snowball algorithms. It includes the 15 original ones plus the Poerter -English stemmer.") - (license license:bsd-3))) - -(define-public python2-snowballstemmer - (package-with-python2 python-snowballstemmer)) - -(define-public python-sphinx-cloud-sptheme - (package - (name "python-sphinx-cloud-sptheme") - (version "1.8.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "cloud_sptheme" version)) - (sha256 - (base32 - "1dniqb6a39yh786f86c4jn666rwnyi1jvzn4616zhcchb7sfdshd")))) - (build-system python-build-system) - ;; FIXME: The 'pypi' release archive does not contain tests. - (arguments '(#:tests? #f)) - (native-inputs - `(("python-sphinx" ,python-sphinx))) - (home-page "https://bitbucket.org/ecollins/cloud_sptheme") - (synopsis "'Cloud' theme for Sphinx documenter") - (description "This package contains the \"Cloud\" theme for Sphinx and some -related extensions.") - (license license:bsd-3))) - -(define-public python2-sphinx-cloud-sptheme - (package-with-python2 python-sphinx-cloud-sptheme)) - -(define-public python-sphinx-alabaster-theme - (package - (name "python-sphinx-alabaster-theme") - (version "0.7.12") - (source (origin - (method url-fetch) - (uri (pypi-uri "alabaster" version)) - (sha256 - (base32 - "00nwwjj2d2ym4s2kk217x7jkx1hnczc3fvm8yxbqmsp6b0nxfqd6")))) - (build-system python-build-system) - (propagated-inputs - `(("python-pygments" ,python-pygments))) - (home-page "https://alabaster.readthedocs.io/") - (synopsis "Configurable sidebar-enabled Sphinx theme") - (description "Alabaster is a visually (c)lean, responsive, configurable -theme for the Sphinx documentation system. It's the default theme of Sphinx.") - (license license:bsd-3))) - -(define-public python2-sphinx-alabaster-theme - (package-with-python2 python-sphinx-alabaster-theme)) - -(define-public python-setproctitle -(package - (name "python-setproctitle") - (version "1.1.10") - (source - (origin - (method url-fetch) - (uri (pypi-uri "setproctitle" version)) - (sha256 - (base32 - "163kplw9dcrw0lffq1bvli5yws3rngpnvrxrzdw89pbphjjvg0v2")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-before 'check 'patch-Makefile - ;; Stricly this is only required for the python2 variant. - ;; But adding a phase in an inherited package seems to be - ;; cumbersum. So we patch even for python3. - (lambda _ - (let ((nose (assoc-ref %build-inputs "python2-nose"))) - (when nose - (substitute* "Makefile" - (("\\$\\(PYTHON\\) [^ ]which nosetests[^ ] ") - (string-append nose "/bin/nosetests ")))) - #t))) - (replace 'check - (lambda _ - (setenv "PYTHON" (or (which "python3") (which "python"))) - (setenv "PYCONFIG" (or (which "python3-config") - (which "python-config"))) - (setenv "CC" "gcc") - ;; No need to extend PYTHONPATH to find the built package, since - ;; the Makefile will build anyway - (invoke "make" "check")))))) - (native-inputs - `(("procps" ,procps))) ; required for tests - (home-page - "https://github.com/dvarrazzo/py-setproctitle") - (synopsis - "Setproctitle implementation for Python to customize the process title") - (description "The library allows a process to change its title (as displayed -by system tools such as ps and top). - -Changing the title is mostly useful in multi-process systems, for -example when a master process is forked: changing the children's title -allows to identify the task each process is busy with. The technique -is used by PostgreSQL and the OpenSSH Server for example.") - (license license:bsd-3) - (properties `((python2-variant . ,(delay python2-setproctitle)))))) - -(define-public python2-setproctitle - (let ((base (package-with-python2 - (strip-python2-variant python-setproctitle)))) - (package - (inherit base) - (native-inputs `(("python2-nose" ,python2-nose) - ,@(package-native-inputs base)))))) - -(define-public python-validictory - (package - (name "python-validictory") - (version "1.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "validictory" version)) - (sha256 - (base32 - "1zf1g9sw47xzp5f80bd94pb42j9yqv82lcrgcvdwr6nkaphfi37q")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'bootstrap - ;; Move the tests out of the package directory to avoid - ;; packaging them. - (lambda* _ - (rename-file "validictory/tests" "tests") - (delete-file "tests/__init__.py"))) - (replace 'check - (lambda _ - ;; Extend PYTHONPATH so the built package will be found. - (setenv "PYTHONPATH" - (string-append (getcwd) "/build/lib:" - (getenv "PYTHONPATH"))) - (zero? (system* "py.test" "-vv" ))))))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page - "https://github.com/jamesturk/validictory") - (synopsis "General purpose Python data validator") - (description "It allows validation of arbitrary Python data structures. - -The schema format is based on the JSON Schema -proposal (http://json-schema.org), so combined with json the library is also -useful as a validator for JSON data.") - (license license:expat))) - -(define-public python2-validictory - (package-with-python2 python-validictory)) - -(define-public python-pyelftools - (package - (name "python-pyelftools") - (version "0.25") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyelftools" version)) - (sha256 - (base32 - "090vdksbz341f7ljvr0zswblw4lspa8qaiikzyjkf318arpxmil9")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'set-pythonpath - (lambda _ - (setenv "PYTHONPATH" - (string-append - (getcwd) "/test/" - ":" (getenv "PYTHONPATH"))) - #t))))) - (home-page - "https://github.com/eliben/pyelftools") - (synopsis - "Analyze binary and library file information") - (description "This Python library provides interfaces for parsing and -analyzing two binary and library file formats; the Executable and Linking -Format (ELF), and debugging information in the Debugging With Attributed -Record Format (DWARF).") - (license license:public-domain))) - -(define-public python-pyev - (package - (name "python-pyev") - (version "0.9.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyev" version)) - (sha256 - (base32 - "0rf603lc0s6zpa1nb25vhd8g4y337wg2wyz56i0agsdh7jchl0sx")))) - (build-system python-build-system) - (arguments - `(#:tests? #f ; no test suite - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch - (lambda* (#:key inputs #:allow-other-keys) - (let ((libev (string-append (assoc-ref inputs "libev") - "/lib/libev.so.4"))) - (substitute* "setup.py" - (("libev_dll_name = find_library\\(\\\"ev\\\"\\)") - (string-append "libev_dll_name = \"" libev "\""))))))))) - (inputs - `(("libev" ,libev))) - (home-page "http://pythonhosted.org/pyev/") - (synopsis "Python libev interface") - (description "Pyev provides a Python interface to libev.") - (license license:gpl3))) - -(define-public python2-pyev - (package-with-python2 python-pyev)) - -(define-public python-imagesize - (package - (name "python-imagesize") - (version "1.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "imagesize" version)) - (sha256 - (base32 - "1dg3wn7qpwmhgqc0r9na2ding1wif9q5spz3j9zn2riwphc2k0zk")))) - (build-system python-build-system) - (home-page "https://github.com/shibukawa/imagesize_py") - (synopsis "Gets image size of files in various formats in Python") - (description - "This package allows determination of image size from -PNG, JPEG, JPEG2000 and GIF files in pure Python.") - (license license:expat))) - -(define-public python2-imagesize - (package-with-python2 python-imagesize)) - -(define-public python-termstyle - (package - (name "python-termstyle") - (version "0.1.11") - (source - (origin - (method url-fetch) - (uri (pypi-uri "termstyle" version)) - (sha256 - (base32 - "17wzkkcqy5zc0g68xlad3kcv66iw14d2pwqc0h9420gak0vbhx7g")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (zero? (system* "python" "test3.py"))))))) - (home-page "https://github.com/gfxmonk/termstyle") - (synopsis "Console text coloring for Python") - (description "This package provides console text coloring for Python.") - (license license:bsd-3))) - -(define-public python-argcomplete - (package - (name "python-argcomplete") - (version "1.7.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "argcomplete" version)) - (sha256 - (base32 - "11bwiw6j0nilgz81xnw6f1npyga3prp8asjqrm87cdr3ria5l03x")))) - (build-system python-build-system) - (native-inputs - `(("python-pexpect" ,python-pexpect) - ("tcsh" ,tcsh) - ("bash-full" ,bash))) ;full Bash for 'test_file_completion' - (home-page "https://github.com/kislyuk/argcomplete") - (synopsis "Shell tab completion for Python argparse") - (description "argcomplete provides extensible command line tab completion -of arguments and options for Python scripts using @code{argparse}. It's -particularly useful for programs with many options or sub-parsers that can -dynamically suggest completions; for example, when browsing resources over the -network.") - (license license:asl2.0))) - -(define-public python2-argcomplete - (package-with-python2 python-argcomplete)) - -(define-public python-xopen - (package - (name "python-xopen") - (version "0.3.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "xopen" version)) - (sha256 - (base32 - "1a0wbil552wsmklwd89ssmgz3pjd86qa9i7jh8wqb9wslc8a2qjr")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system python-build-system) - (home-page "https://github.com/marcelm/xopen/") - (synopsis "Open compressed files transparently") - (description "This module provides an @code{xopen} function that works like -Python's built-in @code{open} function, but can also deal with compressed files. -Supported compression formats are gzip, bzip2 and, xz, and are automatically -recognized by their file extensions. The focus is on being as efficient as -possible on all supported Python versions.") - (license license:expat))) - -(define-public python2-xopen - (let ((base (package-with-python2 - (strip-python2-variant python-xopen)))) - (package - (inherit base) - (propagated-inputs `(("python2-bz2file" ,python2-bz2file) - ,@(package-propagated-inputs base)))))) - -(define-public python-cheetah - (package - (name "python-cheetah") - (version "3.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Cheetah3" version)) - (sha256 - (base32 - "1ihag9cxll6b86fc8v5lkhmr3brdbi4yiz16zpgw79yylmv8fgr9")))) - (build-system python-build-system) - (arguments - `(#:modules ((guix build utils) - (guix build python-build-system) - (ice-9 ftw) - (srfi srfi-1) - (srfi srfi-26)) - #:phases (modify-phases %standard-phases - (add-after 'unpack 'use-absolute-python - (lambda _ - (substitute* "Cheetah/CheetahWrapper.py" - (("#!/usr/bin/env python") - (string-append "#!" (which "python")))) - #t)) - (replace 'check - (lambda _ - (let ((cwd (getcwd))) - (setenv "PYTHONPATH" - (string-append - cwd "/build/" - (find (cut string-prefix? "lib" <>) - (scandir (string-append cwd "/build"))) - ":" (getenv "PYTHONPATH"))) - (setenv "PATH" - (string-append (getenv "PATH") - ":" cwd "/bin")) - (setenv "TMPDIR" "/tmp") - - (substitute* "Cheetah/Tests/Test.py" - (("unittest.TextTestRunner\\(\\)") - "unittest.TextTestRunner(verbosity=2)")) - - (invoke "python" "Cheetah/Tests/Test.py"))))))) - (propagated-inputs - `(("python-markdown" ,python-markdown))) ;optional - (home-page "http://cheetahtemplate.org/") - (synopsis "Template engine") - (description "Cheetah is a text-based template engine and Python code -generator. - -Cheetah can be used as a standalone templating utility or referenced as -a library from other Python applications. It has many potential uses, -but web developers looking for a viable alternative to ASP, JSP, PHP and -PSP are expected to be its principle user group. - -Features: -@enumerate -@item Generates HTML, SGML, XML, SQL, Postscript, form email, LaTeX, or any other - text-based format. -@item Cleanly separates content, graphic design, and program code. -@item Blends the power and flexibility of Python with a simple template language - that non-programmers can understand. -@item Gives template writers full access to any Python data structure, module, - function, object, or method in their templates. -@item Makes code reuse easy by providing an object-orientated interface to - templates that is accessible from Python code or other Cheetah templates. - One template can subclass another and selectively reimplement sections of it. -@item Provides a simple, yet powerful, caching mechanism that can dramatically - improve the performance of a dynamic website. -@item Compiles templates into optimized, yet readable, Python code. -@end enumerate") - (license (license:x11-style "file://LICENSE")))) - -(define-public python2-cheetah - (package-with-python2 python-cheetah)) - -(define-public python-dulwich - (package - (name "python-dulwich") - (version "0.18.6") - (source - (origin - (method url-fetch) - (uri (list (string-append "https://www.dulwich.io/releases/" - "dulwich-" version ".tar.gz") - (pypi-uri "dulwich" version))) - (sha256 - (base32 - "1aa1xfrxkc3j9s4xi0llhf5gndyi9ryprcxsqfa5fcb8ph34981q")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'fix-tests - (lambda* (#:key inputs #:allow-other-keys) - ;; The tests use Popen with a custom environment which doesn't - ;; include PATH. - (substitute* "dulwich/tests/compat/utils.py" - (("'git'") (string-append "'" - (which "git") - "'"))) - (substitute* '("dulwich/tests/test_repository.py" - "dulwich/tests/test_hooks.py") - (("#!/bin/sh") (string-append "#!" (which "sh")))) - (setenv "TEST_RUNNER" "unittest") - (setenv "PYTHONHASHSEED" "random") - #t))))) - (propagated-inputs - `(("python-fastimport" ,python-fastimport))) - (native-inputs - `(("python-mock" ,python-mock) - ("python-geventhttpclient" ,python-geventhttpclient) - ("git" ,git))) - (home-page "https://www.dulwich.io/") - (synopsis "Git implementation in Python") - (description "Dulwich is an implementation of the Git file formats and -protocols written in pure Python.") - ;; Can be used with either license. - (license (list license:asl2.0 license:gpl2+)))) - -(define-public python2-dulwich - (package-with-python2 python-dulwich)) - -(define-public python-pbkdf2 - (package - (name "python-pbkdf2") - (version "1.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pbkdf2" version)) - (sha256 - (base32 - "0yb99rl2mbsaamj571s1mf6vgniqh23v98k4632150hjkwv9fqxc")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (setenv "PYTHONPATH" - (string-append (getcwd) "/build/lib:" - (getenv "PYTHONPATH"))) - (zero? (system* "python" "test/test_pbkdf2.py"))))))) - (propagated-inputs - `(("python-pycrypto" ,python-pycrypto))) ; optional - (home-page "https://www.dlitz.net/software/python-pbkdf2/") - (synopsis "Password-based key derivation") - (description "This module implements the password-based key derivation -function, PBKDF2, specified in RSA PKCS#5 v2.0. - -PKCS#5 v2.0 Password-Based Key Derivation is a key derivation function which -is part of the RSA Public Key Cryptography Standards series. The provided -implementation takes a password or a passphrase and a salt value (and -optionally a iteration count, a digest module, and a MAC module) and provides -a file-like object from which an arbitrarly-sized key can be read.") - (license license:expat))) - -(define-public python2-pbkdf2 - (package-with-python2 python-pbkdf2)) - -(define-public python-qrcode - (package - (name "python-qrcode") - (version "6.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "qrcode" version)) - (sha256 - (base32 - "1gz1g2n9kqwqkak78aavr354z1v3yyiksk7q6xp5hi1zr6s0syq3")))) - (build-system python-build-system) - (arguments - ;; FIXME: Tests require packaging 'pymaging'. - '(#:tests? #f)) - (propagated-inputs - `(("python-lxml" ,python-lxml) ; for SVG output - ("python-pillow" ,python-pillow) ; for PNG output - ("python-six" ,python-six))) - (inputs - `(;; The setup.cfg file needs to be used, and support for this requires - ;; at least version 30.3.0 of setuptools - ("python-setuptools" ,python-setuptools))) - (home-page "https://github.com/lincolnloop/python-qrcode") - (synopsis "QR Code image generator") - (description "This package provides a pure Python QR Code generator -module. It uses the Python Imaging Library (PIL) to allow for the generation -of QR Codes. - -In addition this package provides a command line tool to generate QR codes and -either write these QR codes to a file or do the output as ascii art at the -console.") - (license license:bsd-3))) - -(define-public python2-qrcode - (package-with-python2 python-qrcode)) - -(define-public python-rst2ansi - (package - (name "python-rst2ansi") - (version "0.1.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "rst2ansi" version)) - (sha256 - (base32 - "0vzy6gd60l79ff750scl0sz48r1laalkl6md6dwzah4dcadgn5qv")))) - (build-system python-build-system) - (propagated-inputs - `(("python-docutils" ,python-docutils))) - (home-page "https://github.com/Snaipe/python-rst-to-ansi") - (synopsis "Convert RST to ANSI-decorated console output") - (description - "Python module dedicated to rendering RST (reStructuredText) documents -to ansi-escaped strings suitable for display in a terminal.") - (license license:expat))) - -(define-public python-ansi2html - (package - (name "python-ansi2html") - (version "1.2.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ansi2html" version)) - (sha256 - (base32 - "1wa00zffprb78w1mqq90dk47czz1knanys2a40zbw2vyapd5lp9y")))) - (build-system python-build-system) - (native-inputs - `(("python-mock" ,python-mock) - ("python-nose" ,python-nose))) - (propagated-inputs - `(("python-six" ,python-six))) - (home-page "https://github.com/ralphbean/ansi2html") - (synopsis "Convert ANSI-decorated console output to HTML") - (description - "@command{ansi2html} is a Python library and command line utility for -convering text with ANSI color codes to HTML or LaTeX.") - (license license:gpl3+))) - -(define-public python2-ansi2html - (package-with-python2 python-ansi2html)) - -(define-public python-ddt - (package - (name "python-ddt") - (version "1.1.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ddt" version)) - (sha256 - (base32 - "1lw17420iimhghkgzgax85nn8d1an2d6k2cfvb7j5kwn2dqlr1vk")))) - (build-system python-build-system) - (native-inputs - `(("python-mock" ,python-mock) - ("python-nose" ,python-nose))) - (propagated-inputs - `(("python-six" ,python-six) - ("python-pyyaml" ,python-pyyaml))) - (home-page "https://github.com/txels/ddt") - (synopsis "Data-Driven Tests") - (description - "Data-Driven Tests (@dfn{DDT}) allow you to multiply one test case by -running it with different test data, and make it appear as multiple test -cases.") - (license license:expat))) - -(define-public python2-ddt - (package-with-python2 python-ddt)) - -(define-public python-pycountry - (package - (name "python-pycountry") - (version "18.5.26") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pycountry" version)) - (sha256 - (base32 - "15q9j047s3yc9cfcxq1ch8b71f81na44cr6dydd5gxk0ki9a4akz")))) - (build-system python-build-system) - (home-page "https://bitbucket.org/flyingcircus/pycountry") - (synopsis "ISO databases for languages, countries, currencies, etc.") - (description - "@code{pycountry} provides the ISO databases for the standards: -@enumerate -@item 639-3 (Languages) -@item 3166 (Countries) -@item 3166-3 (Deleted Countries) -@item 3166-2 (Subdivisions of countries) -@item 4217 (Currencies) -@item 15924 (Scripts) -@end enumerate -It includes a copy from Debian’s pkg-isocodes and makes the data accessible -through a Python API.") - (license license:lgpl2.1+))) - -(define-public python2-pycountry - (package-with-python2 python-pycountry)) - -(define-public python-pycosat - (package - (name "python-pycosat") - (version "0.6.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pycosat" version)) - (sha256 - (base32 - "1kl3wh1f47rc712n4bmwplbx3fqz3x9i1b587jrbpmvdva4c8f6l")))) - ;; TODO: Unundle picosat. http://fmv.jku.at/picosat/ - (build-system python-build-system) - (home-page "https://github.com/ContinuumIO/pycosat") - (synopsis "Bindings to picosat (a SAT solver)") - (description - "This package provides efficient Python bindings to @code{picosat} on -the C level. When importing pycosat, the @code{picosat} solver becomes part -of the Python process itself. @code{picosat} is a @dfn{Boolean Satisfiability -Problem} (SAT) solver.") - (license license:expat))) - -(define-public python2-pycosat - (package-with-python2 python-pycosat)) - -(define-public python2-ruamel.ordereddict - (package - (name "python2-ruamel.ordereddict") - (version "0.4.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ruamel.ordereddict" version)) - (sha256 - (base32 - "1xmkl8v9l9inm2pyxgc1fm5005yxm7fkd5gv74q7lj1iy5qc8n3h")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - (delete 'check) - (add-after 'install 'check - (lambda* (#:key inputs outputs #:allow-other-keys) - (add-installed-pythonpath inputs outputs) - (zero? (system* "python" "test/testordereddict.py"))))))) - (home-page "https://bitbucket.org/ruamel/ordereddict") - (synopsis "Version of dict that keeps keys in insertion order") - (description - "This is an implementation of an ordered dictionary with @dfn{Key -Insertion Order} (KIO: updates of values do not affect the position of the -key), @dfn{Key Value Insertion Order} (KVIO, an existing key's position is -removed and put at the back). The standard library module @code{OrderedDict}, -implemented later, implements a subset of @code{ordereddict} functionality. -Sorted dictionaries are also provided. Currently only with @dfn{Key Sorted -Order} (KSO, no sorting function can be specified, but a transform can be -specified to apply on the key before comparison (e.g. @code{string.lower})).") - (license license:expat))) - -(define-public python-pypeg2 - (package - (name "python-pypeg2") - (version "2.15.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyPEG2" version)) - (sha256 - (base32 - "0v8ziaam2r637v94ra4dbjw6jzxz99gs5x4i585kgag1v204yb9b")))) - (build-system python-build-system) - (propagated-inputs `(("python-lxml" ,python-lxml))) - (arguments - ;;https://bitbucket.org/fdik/pypeg/issues/36/test-failures-on-py35 - '(#:tests? #f)) - (home-page "https://fdik.org/pyPEG/") - (synopsis "Parsering Expression Grammars in Python") - (description "PyPEG is an intrinsic parser interpreter framework for -Python. It is based on Parsing Expression Grammars, PEG. With pyPEG you can -parse many formal languages.") - (license license:gpl2))) - -(define-public python-incremental - (package - (name "python-incremental") - (version "17.5.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "incremental" version)) - (sha256 - (base32 - "1cylxdz1cnkm5g3pklna3h2n0i0rks95ir1pnpxfnvpkmab1cxbv")))) - (build-system python-build-system) - (home-page "https://github.com/hawkowl/incremental") - (synopsis "Library for versioning Python projects") - (description "Incremental is a small library that versions your Python -projects.") - (license license:expat))) - -(define-public python2-incremental - (package-with-python2 python-incremental)) - -(define-public python-invoke - (package - (name "python-invoke") - (home-page "http://www.pyinvoke.org/") - (version "1.1.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "invoke" version)) - (sha256 - (base32 - "0aiy1xvk1f91246zxd1zqrm679vdvd10h843a2na41cqr3cflpi6")))) - (build-system python-build-system) - (arguments - ;; XXX: Requires many dependencies that are not yet in Guix. - `(#:tests? #f)) - (synopsis "Pythonic task execution") - (description - "Invoke is a Python task execution tool and library, drawing inspiration -from various sources to arrive at a powerful and clean feature set. It is -evolved from the Fabric project, but focuses on local and abstract concerns -instead of servers and network commands.") - (license license:bsd-3))) - -(define-public python2-invoke - (package-with-python2 python-invoke)) - -(define-public python-automat - (package - (name "python-automat") - (version "0.6.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "Automat" version)) - (sha256 - (base32 - "1a7nsrljysfmdqmpn2apfa1gg6rfah4y9sizvns8gb08rx7d07rw")))) - (build-system python-build-system) - ;; We disable the tests because they require python-twisted, while - ;; python-twisted depends on python-automat. Twisted is optional, but the - ;; tests fail if it is not available. Also see - ;; <https://github.com/glyph/automat/issues/71>. - (arguments '(#:tests? #f)) - (native-inputs - `(("python-m2r" ,python-m2r) - ("python-setuptools-scm" ,python-setuptools-scm) - ("python-graphviz" ,python-graphviz))) - (propagated-inputs - `(("python-six" ,python-six) - ("python-attrs" ,python-attrs))) - (home-page "https://github.com/glyph/Automat") - (synopsis "Self-service finite-state machines") - (description "Automat is a library for concise, idiomatic Python -expression of finite-state automata (particularly deterministic finite-state -transducers).") - (license license:expat))) - -(define-public python2-automat - (package-with-python2 python-automat)) - -(define-public python-m2r - (package - (name "python-m2r") - (version "0.1.12") - (source (origin - (method url-fetch) - (uri (pypi-uri "m2r" version)) - (sha256 - (base32 - "1axrwnf425sz4qz3c0qc7yhhki4myzb8rki7pczcsgzznzmqdyxd")))) - (build-system python-build-system) - (propagated-inputs - `(("python-docutils" ,python-docutils) - ("python-mistune" ,python-mistune))) - (native-inputs - `(("python-pygments" ,python-pygments) - ("python-mock" ,python-mock))) - (home-page "https://github.com/miyakogi/m2r") - (synopsis "Markdown to reStructuredText converter") - (description "M2R converts a markdown file including reST markups to valid -reST format.") - (license license:expat))) - -(define-public python2-m2r - (package-with-python2 python-m2r)) - -(define-public python-constantly - (package - (name "python-constantly") - (version "15.1.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "constantly" version)) - (sha256 - (base32 - "0dgwdla5kfpqz83hfril716inm41hgn9skxskvi77605jbmp4qsq")))) - (build-system python-build-system) - (home-page "https://github.com/twisted/constantly") - (synopsis "Symbolic constants in Python") - (description "Constantly is a Python library that provides symbolic -constant support. It includes collections and constants with text, numeric, -and bit flag values.") - (license license:expat))) - -(define-public python2-constantly - (package-with-python2 python-constantly)) - -(define-public python-attrs - (package - (name "python-attrs") - (version "18.2.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "attrs" version)) - (sha256 - (base32 - "0s9ydh058wmmf5v391pym877x4ahxg45dw6a0w4c7s5wgpigdjqh")))) - (build-system python-build-system) - (arguments - `(#:modules ((guix build utils) - (guix build python-build-system) - (ice-9 ftw) - (srfi srfi-1) - (srfi srfi-26)) - #:phases (modify-phases %standard-phases - (replace 'check - (lambda _ - (let ((cwd (getcwd))) - (setenv "PYTHONPATH" - (string-append - cwd "/build/" - (find (cut string-prefix? "lib" <>) - (scandir (string-append cwd "/build"))) - ":" - (getenv "PYTHONPATH"))) - (invoke "python" "-m" "pytest"))))))) - (native-inputs - `(("python-coverage" ,python-coverage) - ("python-hypothesis" ,python-hypothesis) - ("python-pympler" ,python-pympler) - ("python-pytest" ,python-pytest) - ("python-six" ,python-six) - ("python-sphinx" ,python-sphinx) - ("python-zope-interface" ,python-zope-interface))) - (home-page "https://github.com/python-attrs/attrs/") - (synopsis "Attributes without boilerplate") - (description "@code{attrs} is a Python package with class decorators that -ease the chores of implementing the most common attribute-related object -protocols.") - (license license:expat))) - -(define-public python2-attrs - (package-with-python2 python-attrs)) - -(define-public python-attrs-bootstrap - (package - (inherit python-attrs) - (name "python-attrs-bootstrap") - ;; Keep this on a fixed version so python-attrs can be updated without - ;; triggering a mass-rebuild. FIXME: Update this in the next rebuild cycle. - (version "17.4.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "attrs" version)) - (sha256 - (base32 - "1jafnn1kzd6qhxgprhx6y6ik1r5m2rilx25syzcmq03azp660y8w")))) - (native-inputs `()) - (arguments `(#:tests? #f)))) - -(define-public python2-attrs-bootstrap - (package-with-python2 python-attrs-bootstrap)) - -(define-public python2-cliapp - (package - (name "python2-cliapp") - (version "1.20170823") - (source - (origin - (method url-fetch) - (uri (string-append - "http://git.liw.fi/cgi-bin/cgit/cgit.cgi/cliapp/snapshot/cliapp-" - version ".tar.gz")) - (sha256 - (base32 - "1i9gik0xrj6jmi95s5w988jl1y265baz5xm5pbqdyvsh8h9ln6yq")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - ;; check phase needs to be run before the build phase. If not, - ;; coverage-test-runner looks for tests for the built source files, - ;; and fails. - (delete 'check) - (add-before 'build 'check - (lambda _ - ;; Disable python3 tests - (substitute* "check" - (("python3") "# python3")) - (zero? (system* "./check"))))))) - (native-inputs - `(("python2-coverage-test-runner" ,python2-coverage-test-runner) - ("python2-pep8" ,python2-pep8))) - (propagated-inputs - `(("python2-pyaml" ,python2-pyaml))) - (home-page "https://liw.fi/cliapp/") - (synopsis "Python framework for command line programs") - (description "@code{python2-cliapp} is a python framework for -command line programs. It contains the typical stuff such programs -need to do, such as parsing the command line for options, and -iterating over input files.") - (license license:gpl2+))) - -(define-public python2-ttystatus - (package - (name "python2-ttystatus") - (version "0.35") - (source - (origin - (method url-fetch) - (uri (string-append - "http://git.liw.fi/cgi-bin/cgit/cgit.cgi/ttystatus/snapshot/ttystatus-" - version ".tar.gz")) - (sha256 - (base32 - "0vivqbw7ddhsq1zj3g9cvvv4f0phl0pis2smsnwcr2szz2fk3hl6")))) - (build-system python-build-system) - (native-inputs - `(("python2-coverage-test-runner" ,python2-coverage-test-runner) - ("python2-pep8" ,python2-pep8))) - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - ;; check phase needs to be run before the build phase. If not, - ;; coverage-test-runner looks for tests for the built source files, - ;; and fails. - (delete 'check) - (add-before 'build 'check - (lambda _ - (zero? (system* "make" "check"))))))) - (home-page "https://liw.fi/ttystatus/") - (synopsis "Python library for showing progress reporting and -status updates on terminals") - (description "@code{python2-ttystatus} is a python library for -showing progress reporting and status updates on terminals, for -command line programs. Output is automatically adapted to the width -of the terminal: truncated if it does not fit, and resized if the -terminal size changes.") - (license license:gpl3+))) - -(define-public python2-tracing - (package - (name "python2-tracing") - (version "0.10") - (source - (origin - (method url-fetch) - (uri (string-append - "http://git.liw.fi/cgi-bin/cgit/cgit.cgi/python-tracing/snapshot/tracing-" - version ".tar.gz")) - (sha256 - (base32 - "06cw4zg42fsvqy372vi2whj26w56vzg5axhzwdjc2bgwf03garbw")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2)) - (home-page "https://liw.fi/tracing/") - (synopsis "Python debug logging helper") - (description "@code{python2-tracing} is a python library for -logging debug messages. It provides a way to turn debugging messages -on and off, based on the filename they occur in. It is much faster -than using @code{logging.Filter} to accomplish the same thing, which -matters when code is run in production mode. The actual logging still -happens using the @code{logging} library.") - (license license:gpl3+))) - -(define-public python2-larch - (package - (name "python2-larch") - (version "1.20151025") - (source - (origin - (method url-fetch) - (uri (string-append - "http://git.liw.fi/cgi-bin/cgit/cgit.cgi/larch/snapshot/larch-" - version ".tar.gz")) - (patches (search-patches - "python2-larch-coverage-4.0a6-compatibility.patch")) - (sha256 - (base32 - "1p4knkkavlqymgciz2wbcnfrdgdbafhg14maplnk4vbw0q8xs663")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - ;; check phase needs to be run before the build phase. If not, - ;; coverage-test-runner looks for tests for the built source files, - ;; and fails. - (delete 'check) - (add-before 'build 'check - (lambda _ - (zero? (system* "make" "check"))))))) - (native-inputs - `(("cmdtest" ,cmdtest) - ("python2-coverage-test-runner" ,python2-coverage-test-runner))) - (propagated-inputs - `(("python2-tracing" ,python2-tracing))) - (home-page "https://liw.fi/larch/") - (synopsis "Python copy-on-write B-tree library") - (description "@code{python2-larch} is an implementation of -particular kind of B-tree, based on research by Ohad Rodeh. See -@url{http://liw.fi/larch/ohad-btrees-shadowing-clones.pdf} for details -on the data structure. - -The distinctive feature of this B-tree is that a node is never -(conceptually) modified. Instead, all updates are done by -copy-on-write. This makes it easy to clone a tree, and modify only the -clone, while other processes access the original tree.") - (license license:gpl3+))) - -(define-public python-astroid - (package - (name "python-astroid") - (version "2.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "astroid" version)) - (sha256 - (base32 - "08hz675knh4294bancdapql392fmbjyimhbyrmfkz1ka7l035c1m")))) - (build-system python-build-system) - (propagated-inputs - `(("python-lazy-object-proxy" ,python-lazy-object-proxy) - ("python-six" ,python-six) - ("python-wrapt" ,python-wrapt))) - (native-inputs - `(("python-dateutil" ,python-dateutil) - ("python-nose" ,python-nose) - ("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'remove-spurious-test - (lambda _ - ;; This can be removed after upgrading from python-3.7 - ;; https://github.com/PyCQA/astroid/issues/593 - ;; https://bugs.python.org/issue34056 - (delete-file "astroid/tests/unittest_modutils.py") - #t)) - (replace 'check - (lambda _ - (invoke "pytest" "astroid")))))) - (home-page "https://github.com/PyCQA/astroid") - (synopsis "Common base representation of python source code for pylint and -other projects") - (description "@code{python-astroid} provides a common base representation -of python source code for projects such as pychecker, pyreverse, pylint, etc. - -It provides a compatible representation which comes from the _ast module. It -rebuilds the tree generated by the builtin _ast module by recursively walking -down the AST and building an extended ast. The new node classes have -additional methods and attributes for different usages. They include some -support for static inference and local name scopes. Furthermore, astroid -builds partial trees by inspecting living objects.") - (license license:lgpl2.1+) - (properties `((python2-variant . ,(delay python2-astroid)))))) - -(define-public python2-astroid - (let ((base (package-with-python2 - (strip-python2-variant python-astroid)))) - (package (inherit base) - ;; Version 2.x removes python2 support. - (version "1.6.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "astroid" version)) - (sha256 - (base32 - "0fir4b67sm7shcacah9n61pvq313m523jb4q80sycrh3p8nmi6zw")))) - (arguments - (substitute-keyword-arguments (package-arguments base) - ((#:phases phases) - `(modify-phases ,phases - (add-after 'unpack 'remove-spurious-test - (lambda _ - ;; https://github.com/PyCQA/astroid/issues/276 - (delete-file "astroid/tests/unittest_brain.py") - #t)) - (replace 'check - (lambda _ - (invoke"python" "-m" "unittest" "discover" - "-p" "unittest*.py"))))))) - (native-inputs `()) - (propagated-inputs - `(("python2-backports-functools-lru-cache" - ,python2-backports-functools-lru-cache) - ("python2-enum34" ,python2-enum34) - ("python2-singledispatch" ,python2-singledispatch) - ,@(package-propagated-inputs base)))))) - -(define-public python-isort - (package - (name "python-isort") - (version "4.2.5") - (source - (origin - (method url-fetch) - (uri (string-append - "https://github.com/timothycrosley/isort/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0zsrgkb0krn5476yncy5dd56k7dk34zqb4bnlvwy44ixgilyjmfh")))) - (build-system python-build-system) - (native-inputs - `(("python-mock" ,python-mock) - ("python-pytest" ,python-pytest))) - (home-page "https://github.com/timothycrosley/isort") - (synopsis "Python utility/library to sort python imports") - (description "@code{python-isort} is a python utility/library to sort -imports alphabetically, and automatically separated into sections. It -provides a command line utility, a python library and plugins for various -editors.") - (license license:expat))) - -(define-public python2-isort - (package-with-python2 python-isort)) - -(define-public python2-backports-functools-lru-cache - (package - (name "python2-backports-functools-lru-cache") - (version "1.5") - (source - (origin - (method url-fetch) - ;; only the pypi tarballs contain the necessary metadata - (uri (pypi-uri "backports.functools_lru_cache" version)) - (sha256 - (base32 - "06jgv8gib4fhky0p5cmxdghvsgjyzcdgk48k8pxb1ccf11znk64x")))) - (build-system python-build-system) - (native-inputs - `(("python2-setuptools-scm" ,python2-setuptools-scm))) - (arguments - `(#:python ,python-2)) - (home-page "https://github.com/jaraco/backports.functools_lru_cache") - (synopsis "Backport of functools.lru_cache from Python 3.3") - (description "@code{python2-backports-functools-lru-cache} is a backport -of @code{functools.lru_cache} from python 3.3.") - (license license:expat))) - -(define-public python-configparser - (package - (name "python-configparser") - (version "3.5.0") - (source - (origin - (method url-fetch) - (uri (string-append - "https://bitbucket.org/ambv/configparser/get/" - version ".tar.bz2")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0waq40as14abwzbb321hfz4vr1fi363nscy32ga14qvfygrg96wa")))) - (build-system python-build-system) - (home-page "http://docs.python.org/py3k/library/configparser.html") - (synopsis "Backport of configparser from python 3.5") - (description "@code{python-configparser} is a backport of -@code{configparser} from Python 3.5 so that it can be used directly -in other versions.") - (license license:expat))) - -(define-public python2-configparser - (package-with-python2 python-configparser)) - -(define-public python-mando - (package - (name "python-mando") - (version "0.6.4") - (source (origin - (method url-fetch) - (uri (pypi-uri "mando" version)) - (sha256 - (base32 - "0q6rl085q1hw1wic52pqfndr0x3nirbxnhqj9akdm5zhq2fv3zkr")))) - (build-system python-build-system) - (propagated-inputs - `(("python-rst2ansi" ,python-rst2ansi) - ("python-six" ,python-six))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://mando.readthedocs.org/") - (synopsis - "Wrapper around argparse, allowing creation of complete CLI applications") - (description - "This package is a wrapper around argparse, allowing you to write complete CLI -applications in seconds while maintaining all the flexibility.") - (license license:expat))) - -(define-public python2-mando - (package-with-python2 python-mando)) - -(define-public python-fudge - (package - (name "python-fudge") - ;; 0.9.6 is the latest version suitable for testing the "fabric" Python 2 - ;; package, which is currently the only use of this package. - (version "0.9.6") - (source - (origin - (method url-fetch) - (uri (pypi-uri "fudge" version)) - (sha256 - (base32 - "185ia3vr3qk4f2s1a9hdxb8ci4qc0x0xidrad96pywg8j930qs9l")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ;XXX: Tests require the NoseJS Python package. - (home-page "https://github.com/fudge-py/fudge") - (synopsis "Replace real objects with fakes/mocks/stubs while testing") - (description - "Fudge is a Python module for using fake objects (mocks and stubs) to -test real ones. - -In readable Python code, you declare the methods available on your fake object -and how they should be called. Then you inject that into your application and -start testing. This declarative approach means you don’t have to record and -playback actions and you don’t have to inspect your fakes after running code. -If the fake object was used incorrectly then you’ll see an informative -exception message with a traceback that points to the culprit.") - (license license:expat))) - -(define-public python2-fudge - (package-with-python2 python-fudge)) - -(define-public python-mwclient - (package - (name "python-mwclient") - (version "0.8.4") - (source - (origin - (method url-fetch) - ;; The PyPI version wouldn't contain tests. - (uri (string-append "https://github.com/mwclient/mwclient/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1jj0yhilkjir00719fc7w133x7hdyhkxhk6xblla4asig45klsfv")))) - (build-system python-build-system) - (propagated-inputs - `(("python-requests" ,python-requests) - ("python-requests-oauthlib" - ,python-requests-oauthlib) - ("python-six" ,python-six))) - (native-inputs - `(("python-mock" ,python-mock) - ("python-pytest" ,python-pytest) - ("python-pytest-pep8" ,python-pytest-pep8) - ("python-pytest-cache" ,python-pytest-cache) - ("python-pytest-cov" ,python-pytest-cov) - ("python-responses" ,python-responses))) - (home-page "https://github.com/btongminh/mwclient") - (synopsis "MediaWiki API client") - (description "This package provides a MediaWiki API client.") - (license license:expat))) - -(define-public python2-mwclient - (package-with-python2 python-mwclient)) - -(define-public python-utils - (package - (name "python-utils") - (version "2.1.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "python-utils" version)) - (sha256 - (base32 - "1mcsy6q5am4ya72rgkpb6kax6vv7c93cfkkas89xnpa4sj9zf28p")))) - (build-system python-build-system) - (native-inputs - `(("pytest-runner" ,python-pytest-runner) - ("pytest" ,python-pytest) - ("six" ,python-six))) - (home-page "https://github.com/WoLpH/python-utils") - (synopsis "Convenient utilities not included with the standard Python install") - (description - "Python Utils is a collection of small Python functions and classes which -make common patterns shorter and easier.") - (license license:bsd-2))) - -(define-public python2-utils - (package-with-python2 python-utils)) - -(define-public python-sphinx-me - (package - (name "python-sphinx-me") - (version "0.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "sphinx-me" version)) - (sha256 - (base32 - "06jzgp213zihnvpcy2y5jy3ykid3apc2ncp2pg6a2g05lhiziglq")))) - (build-system python-build-system) - (home-page "https://github.com/stephenmcd/sphinx-me") - (synopsis "Create a Sphinx documentation shell") - (description - "Create a Sphinx documentation shell for your project and include the -README file as the documentation index. It handles extracting the required -meta data such as the project name, author and version from your project for -use in your Sphinx docs.") - (license license:bsd-2))) - -(define-public python2-sphinx-me - (package-with-python2 python-sphinx-me)) - -(define-public python-diff-match-patch - (package - (name "python-diff-match-patch") - (version "20121119") - (source - (origin - (method url-fetch) - (uri (pypi-uri "diff-match-patch" version)) - (sha256 - (base32 - "0k1f3v8nbidcmmrk65m7h8v41jqi37653za9fcs96y7jzc8mdflx")))) - (build-system python-build-system) - (home-page "https://code.google.com/p/google-diff-match-patch") - (synopsis "Synchronize plain text") - (description "Diff Match and Patch libraries offer robust algorithms to -perform the operations required for synchronizing plain text.") - (license license:asl2.0))) - -(define-public python2-diff-match-patch - (package-with-python2 python-diff-match-patch)) - -(define-public python-dirsync - (package - (name "python-dirsync") - (version "2.2.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "dirsync" version)) - (sha256 - (base32 - "1r40fkanksagcszf1ag85mdr8w7rgc7196n6s1qlsk2abw6i7v0z")))) - (build-system python-build-system) - (propagated-inputs - `(("six" ,python-six))) - (home-page "https://bitbucket.org/tkhyn/dirsync") - (synopsis "Advanced directory tree synchronisation tool") - (description "Advanced directory tree synchronisation tool.") - (license license:expat))) - -(define-public python2-dirsync - (package-with-python2 python-dirsync)) - -(define-public python-levenshtein - (package - (name "python-levenshtein") - (version "0.12.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "python-Levenshtein" version)) - (sha256 - (base32 - "1c9ybqcja31nghfcc8xxbbz9h60s9qi12b9hr4jyl69xbvg12fh3")))) - (build-system python-build-system) - (home-page "https://github.com/ztane/python-Levenshtein") - (synopsis "Fast computation of Levenshtein distance and string similarity") - (description - "The Levenshtein Python C extension module contains functions for fast computation of -@enumerate -@item Levenshtein (edit) distance, and edit operations -@item string similarity -@item approximate median strings, and generally string averaging -@item string sequence and set similarity -@end enumerate -It supports both normal and Unicode strings.") - (license license:gpl2+))) - -(define-public python2-levenshtein - (package-with-python2 python-levenshtein)) - -(define-public python-scandir - (package - (name "python-scandir") - (version "1.9.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "scandir" version)) - (sha256 - (base32 "0r3hvf1a9jm1rkqgx40gxkmccknkaiqjavs8lccgq9s8khh5x5s4")))) - (build-system python-build-system) - (arguments - `(#:phases (modify-phases %standard-phases - (replace 'check - (lambda _ - (invoke "python" "test/run_tests.py")))))) - (home-page "https://github.com/benhoyt/scandir") - (synopsis "Directory iteration function") - (description - "Directory iteration function like os.listdir(), except that instead of -returning a list of bare filenames, it yields DirEntry objects that include -file type and stat information along with the name. Using scandir() increases -the speed of os.walk() by 2-20 times (depending on the platform and file -system) by avoiding unnecessary calls to os.stat() in most cases. - -This package is part of the Python standard library since version 3.5.") - (license license:bsd-3))) - -(define-public python2-scandir - (package-with-python2 python-scandir)) - -(define-public python2-stemming - (package - (name "python2-stemming") - (version "1.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "stemming" version)) - (sha256 - (base32 "0ldwa24gnnxhniv0fhygkpc2mwgd93q10ag8rvzayv6hw418frsr")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2)) - (home-page "https://bitbucket.org/mchaput/stemming/overview") - (synopsis "Python implementations of various stemming algorithms") - (description - "Python implementations of the Porter, Porter2, Paice-Husk, and Lovins -stemming algorithms for English. These implementations are straightforward and -efficient, unlike some Python versions of the same algorithms available on the -Web. This package is an extraction of the stemming code included in the Whoosh -search engine.") - (license license:public-domain))) - -(define-public python-factory-boy - (package - (name "python-factory-boy") - (version "2.8.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "factory_boy" version)) - (sha256 - (base32 "1fvin6san5xsjh2c4y18caj2lnmwxlylyqm8mh1yc6rp38wlwr56")))) - (build-system python-build-system) - (arguments - ;; Tests are not included in the tarball. - `(#:tests? #f)) - (propagated-inputs - `(("faker" ,python-faker))) - (home-page "https://github.com/benhoyt/scandir") - (synopsis "Versatile test fixtures replacement") - (description - "Factory_boy is a fixtures replacement based on thoughtbot’s factory_girl. - -As a fixtures replacement tool, it aims to replace static, hard to maintain -fixtures with easy-to-use factories for complex object. - -Instead of building an exhaustive test setup with every possible combination -of corner cases, factory_boy allows you to use objects customized for the -current test, while only declaring the test-specific fields") - (license license:expat))) - -(define-public python2-factory-boy - (package-with-python2 python-factory-boy)) - -(define-public python-translate-toolkit - (package - (name "python-translate-toolkit") - (version "2.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "translate-toolkit" version ".tar.bz2")) - (sha256 - (base32 "1vlkwrg83vb17jc36pmwh2b7jphwf390lz0jw8hakcg16qhwypvq")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-sphinx" ,python-sphinx))) - (propagated-inputs - `(("python-babel" ,python-babel) - ("python-beautifulsoup4" ,python-beautifulsoup4) - ("python-chardet" ,python-chardet) - ("python-diff-match-patch" ,python-diff-match-patch) - ("python-levenshtein" ,python-levenshtein) - ("python-lxml" ,python-lxml) - ("python-six" ,python-six) - ("python-vobject" ,python-vobject) - ("python-pyyaml" ,python-pyyaml))) - (arguments - ;; TODO: tests are not run, because they end with - ;; TypeError: parse() missing 2 required positional arguments: 'tree' and - ;; 'parse_funcs' - ;; during test setup. - `(#:tests? #f)) - (home-page "http://toolkit.translatehouse.org") - (synopsis "Tools and API for translation and localization engineering") - (description - "Tools and API for translation and localization engineering. It contains -several utilities, as well as an API for building localization tools.") - (license license:gpl2+))) - -(define-public python2-translate-toolkit - (package-with-python2 python-translate-toolkit)) - -(define-public python-packaging - (package - (name "python-packaging") - (version "18.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "packaging" version)) - (sha256 - (base32 - "01wq9c53ix5rz6qg2c98gy8n4ff768rmanifm8m5jpjiaizj51h8")))) - (build-system python-build-system) - (arguments - `(#:phases (modify-phases %standard-phases - (replace 'check - (lambda _ (invoke "py.test" "-vv")))))) - (native-inputs - `(("python-pretend" ,python-pretend) - ("python-pytest" ,python-pytest))) - (propagated-inputs - `(("python-pyparsing" ,python-pyparsing) - ("python-six" ,python-six))) - (home-page "https://github.com/pypa/packaging") - (synopsis "Core utilities for Python packages") - (description "Packaging is a Python module for dealing with Python packages. -It offers an interface for working with package versions, names, and dependency -information.") - ;; From 'LICENSE': This software is made available under the terms of - ;; *either* of the licenses found in LICENSE.APACHE or LICENSE.BSD. - ;; Contributions to this software is made under the terms of *both* these - ;; licenses. - (license (list license:asl2.0 license:bsd-2)))) - -(define-public python2-packaging - (package-with-python2 python-packaging)) - -(define-public python-relatorio - (package - (name "python-relatorio") - (version "0.8.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "relatorio" version)) - (sha256 - (base32 - "1na6hlhz1awi1hbjg1gyclq0khz42iz90wvdjw7mmj655788bpxx")))) - (build-system python-build-system) - (propagated-inputs - `(("python-lxml" ,python-lxml) - ("python-genshi" ,python-genshi))) - (native-inputs - `(("python-magic" ,python-magic))) - (home-page "https://relatorio.tryton.org/") - (synopsis "Templating library able to output ODT and PDF files") - (description "Relatorio is a templating library which provides a way to -easily output ODT, ODS, PNG, SVG and several other kinds of files. Support -for more filetypes can be easily added by creating plugins for them.") - (license license:gpl3+))) - -(define-public python2-relatorio - (package-with-python2 python-relatorio)) - -(define-public python-radon - (package - (name "python-radon") - (version "2.2.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "radon" version)) - (sha256 - (base32 - "07gq5hq4nrffxnlnksws9hrx7fd001gam63j62i82gyfr23gvdym")))) - (build-system python-build-system) - (arguments - `(#:phases (modify-phases %standard-phases - (replace 'check - (lambda _ - (invoke "python" "radon/tests/run.py")))))) - (propagated-inputs - `(("python-colorama" ,python-colorama) - ("python-flake8-polyfill" ,python-flake8-polyfill) - ("python-mando" ,python-mando))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-pytest-mock" ,python-pytest-mock))) - (home-page "https://radon.readthedocs.org/") - (synopsis "Code Metrics in Python") - (description "Radon is a Python tool which computes various code metrics. -Supported metrics are: -@itemize @bullet -@item raw metrics: SLOC, comment lines, blank lines, &c. -@item Cyclomatic Complexity (i.e. McCabe’s Complexity) -@item Halstead metrics (all of them) -@item the Maintainability Index (a Visual Studio metric) -@end itemize") - (license license:expat))) - -(define-public python2-radon - (package-with-python2 python-radon)) - -(define-public python-sure - (package - (name "python-sure") - (version "1.4.11") - (source - (origin - (method url-fetch) - (uri (pypi-uri "sure" version)) - (sha256 - (base32 - "1and0drq8w9iplsic22n2h7hkpyq03a1mbqk4sgcdqhqzdqm539w")))) - (build-system python-build-system) - (propagated-inputs - `(("python-mock" ,python-mock) - ("python-six" ,python-six))) - (native-inputs - `(("python-nose" ,python-nose))) - (home-page "https://github.com/gabrielfalcao/sure") - (synopsis "Automated testing library in python for python") - (description - "Sure is a python library that leverages a DSL for writing assertions. -Sure is heavily inspired by @code{RSpec Expectations} and @code{should.js}.") - (license license:gpl3+))) - -(define-public python2-sure - (package-with-python2 python-sure)) - -(define-public python2-couleur - ;; This package does not seem to support python3 at all, hence, - ;; only the python2 variant definition is provided. - (package - (name "python2-couleur") - (version "0.6.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "couleur" version)) - (sha256 - (base32 - "1qqaxyqz74wvid0cr119dhcwz0h0if5b5by44zl49pd5z65v58k1")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2)) - (home-page "https://github.com/gabrielfalcao/couleur") - (synopsis - "ANSI terminal tool for python, colored shell and other handy fancy features") - (description - "@code{Couleur} provides python programs a way to use the ANSI features in a unix -terminal such as coloured output in the shell, overwriting output, indentation, etc.") - ;; README.md says ASL2.0, but all source code headers are LGPL3+. - ;; https://github.com/gabrielfalcao/couleur/issues/11 - (license license:lgpl3+))) - -(define-public python-misaka - (package - (name "python-misaka") - (version "2.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "misaka" version)) - (sha256 - (base32 - "1yqrq3a5rracirmvk52n28nn6ckdaz897gnigv89a9gmyn87sqw7")))) - (build-system python-build-system) - (arguments - `(;; Line 37 of setup.py calls self.run_command('develop') - ;; in the 'check' phase. This command seems to be trying - ;; to write to - ;; /gnu/store/...-python-<version>/lib/python<version>/site-packages/ - ;; for which it does not have the permission to write. - #:tests? #f)) - (propagated-inputs - `(("python-cffi" ,python-cffi))) - (home-page "https://github.com/FSX/misaka") - (synopsis "Python binding for Hoedown") - (description - "@code{Misaka} is a CFFI-based binding for @code{Hoedown}, a fast markdown processing -library written in C. It features a fast HTML renderer and functionality to make custom -renderers (e.g. man pages or LaTeX).") - (license license:expat))) - -(define-public python2-misaka - (package-with-python2 python-misaka)) - -(define-public python2-steadymark - ;; This is forced into being a python2 only variant - ;; due to its dependence on couleur that has no support - ;; for python3 - (package - (name "python2-steadymark") - (version "0.7.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "steadymark" version)) - (sha256 - (base32 - "1640i9g8dycql3cc8j0bky0jkzj0q39blfbp4lsgpkprkfgcdk8v")))) - (build-system python-build-system) - (native-inputs - `(("python-couleur" ,python2-couleur) - ("python-sure" ,python2-sure) - ("python-misaka" ,python2-misaka))) - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - (add-before 'build 'patch-setup-py - (lambda _ - ;; Update requirements from dependency==version - ;; to dependency>=version - (substitute* "setup.py" - (("==") ">=")) - #t))))) - (home-page "https://github.com/gabrielfalcao/steadymark") - (synopsis "Markdown-based test runner for python") - (description - "@code{Steadymark} allows documentation to be written in github-flavoured -markdown. The documentation may contain snippets of code surrounded by python -code blocks and @code{Steadymark} will find these snippets and run them, making -sure that there are no old malfunctional examples in the documentation examples.") - (license license:expat))) - -(define-public python-jsonpointer - (package - (name "python-jsonpointer") - (version "1.10") - (source - (origin - (method url-fetch) - (uri (pypi-uri "jsonpointer" version)) - (sha256 - (base32 - "1cg0gvgqjysydv6p45v4jywg1jb3v48c7m3cbpi57zgf6nndr9cz")))) - (build-system python-build-system) - (home-page "https://github.com/stefankoegl/python-json-pointer") - (synopsis "Identify specific nodes in a JSON document") - (description "@code{jsonpointer} allows you to access specific nodes -by path in a JSON document (see RFC 6901).") - (license license:bsd-3))) - -(define-public python2-jsonpointer - (package-with-python2 python-jsonpointer)) - -(define-public python-jsonpatch - (package - (name "python-jsonpatch") - (version "1.16") - (source - (origin - (method url-fetch) - ;; pypi version lacks tests.js - (uri (string-append "https://github.com/stefankoegl/python-json-patch/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "085ykisl8v7mv9h7hvhdy3l2fjzs4214gx32r5k6nx4f76hbv6y5")))) - (build-system python-build-system) - (native-inputs - `(("python-jsonpointer" ,python-jsonpointer))) - (home-page "https://github.com/stefankoegl/python-json-patch") - (synopsis "Applying JSON Patches in Python 2.6+ and 3.x") - (description "@code{jsonpatch} is a library and program that allows -applying JSON Patches according to RFC 6902.") - (license license:bsd-3))) - -(define-public python2-jsonpatch - (package-with-python2 python-jsonpatch)) - -(define-public python-jsonpatch-0.4 - (package (inherit python-jsonpatch) - (name "python-jsonpatch") - (version "0.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/stefankoegl/python-json-patch/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0j0cd9z9zyp8kppp464jxrfgrnbgkzl1yi10i5gsv8yz6d95929d")))))) - -(define-public python2-jsonpatch-0.4 - (package-with-python2 python-jsonpatch-0.4)) - -(define-public python-rfc3986 - (package - (name "python-rfc3986") - (version "1.1.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "rfc3986" version)) - (sha256 - (base32 - "06wlmysw83f75ff84zr1yr6n0shvc2xn1n1sb4iwzqap9hf5fn44")))) - (build-system python-build-system) - (arguments - `(#:modules ((guix build utils) - (guix build python-build-system) - (ice-9 ftw) - (srfi srfi-1) - (srfi srfi-26)) - #:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (let ((cwd (getcwd))) - (setenv "PYTHONPATH" - (string-append cwd "/build/" - (find (cut string-prefix? "lib" <>) - (scandir (string-append cwd "/build"))) - ":" - (getenv "PYTHONPATH"))) - (invoke "pytest" "-v"))))))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://rfc3986.readthedocs.io/") - (synopsis "Parse and validate URI references") - (description - "@code{rfc3986} is a Python implementation of RFC@tie{}3986 including -validation and authority parsing. This module also supports RFC@tie{}6874 -which adds support for zone identifiers to IPv6 addresses.") - (license license:asl2.0))) - -(define-public python2-rfc3986 - (package-with-python2 python-rfc3986)) - -(define-public python-rfc3987 - (package - (name "python-rfc3987") - (version "1.3.7") - (source - (origin - (method url-fetch) - (uri (pypi-uri "rfc3987" version)) - (sha256 - (base32 - "192pclzs2y0yaywqkrlvd0x73740q310kvqvm6jldhi619mq59wi")))) - (build-system python-build-system) - (home-page "https://pypi.python.org/pypi/rfc3987") - (synopsis "Parsing and validation of URIs (RFC 3986) and IRIs (RFC 3987)") - (description "@code{rfc3987} provides routines for parsing and -validation of URIs (see RFC 3986) and IRIs (see RFC 3987).") - (license license:gpl3+))) - -(define-public python2-rfc3987 - (package-with-python2 python-rfc3987)) - -(define-public python-validate-email - (package - (name "python-validate-email") - (version "1.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "validate_email" version)) - (sha256 - (base32 - "1bxffaf5yz2cph8ki55vdvdypbwkvn2xr1firlcy62vqbzf1jivq")))) - (build-system python-build-system) - (home-page "https://github.com/syrusakbary/validate_email") - (synopsis "Verifies if an email address is valid and really exists") - (description "@code{validate_email} can be used to verify if an email -address is valid and really exists.") - (license license:lgpl3+))) - -(define-public python2-validate-email - (package-with-python2 python-validate-email)) - -(define-public python-flex - (package - (name "python-flex") - (version "6.10.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "flex" version)) - (sha256 - (base32 - "00pamnwla3khk8nyla7y28dq9jnh69swd7f4jfsl7sn1izs8n8zk")))) - (build-system python-build-system) - (propagated-inputs - `(("python-click" ,python-click) - ("python-iso8601" ,python-iso8601) - ("python-jsonpointer" ,python-jsonpointer) - ("python-pyyaml" ,python-pyyaml) - ("python-requests" ,python-requests) - ("python-rfc3987" ,python-rfc3987) - ("python-six" ,python-six) - ("python-validate-email" ,python-validate-email))) - (home-page "https://github.com/pipermerriam/flex") - (synopsis "Validates Swagger schemata") - (description "@code{flex} can be used to validate Swagger schemata.") - (license license:bsd-3))) - -(define-public python2-flex - (package-with-python2 python-flex)) - -(define-public python-marshmallow - (package - (name "python-marshmallow") - (version "3.0.0b14") - (source - (origin - (method url-fetch) - (uri (pypi-uri "marshmallow" version)) - (sha256 - (base32 - "1digk3f5cfk7wmlka65mc7bzsd96pbsgcsvp6pimd5b4ff9zb5p3")))) - (build-system python-build-system) - (propagated-inputs - `(("python-dateutil" ,python-dateutil) - ("python-simplejson" ,python-simplejson))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-pytz" ,python-pytz))) - (home-page "https://github.com/marshmallow-code/marshmallow") - (synopsis "Convert complex datatypes to and from native -Python datatypes.") - (description "@code{marshmallow} provides a library for converting -complex datatypes to and from native Python datatypes.") - (license license:expat))) - -(define-public python2-marshmallow - (package-with-python2 python-marshmallow)) - -(define-public python-apispec - (package - (name "python-apispec") - (version "0.25.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "apispec" version)) - (sha256 - (base32 - "0kxa8723zbisx10363yh4mmmn4higxrspymbjfz5zq8f644zagm9")))) - (build-system python-build-system) - (propagated-inputs - `(("python-pyyaml" ,python-pyyaml))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-flask" ,python-flask) - ("python-marshmallow" ,python-marshmallow) - ("python-tornado" ,python-tornado) - ("python-bottle" ,python-bottle) - ("python-mock" ,python-mock))) - (home-page "https://github.com/marshmallow-code/apispec") - (synopsis "Swagger 2.0 API specification generator") - (description "@code{python-apispec} is a pluggable API specification -generator. Currently supports the OpenAPI specification (f.k.a. -Swagger 2.0).") - (license license:expat))) - -(define-public python2-apispec - (package-with-python2 python-apispec)) - -(define-public python-flasgger - (package - (name "python-flasgger") - (version "0.6.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/rochacbruno/flasgger/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "1gqzlm0rb55fdpsy5ipkganlx9cnpi454fqyycr03jm22zql14ay")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda* (#:key inputs outputs #:allow-other-keys) - (substitute* "Makefile" - (("flake8 flasgger --ignore=F403") - "flake8 flasgger --ignore=E731,F403")) - (setenv "PYTHONPATH" (string-append (getcwd) - ":" - (getenv "PYTHONPATH"))) - (zero? (system* "py.test"))))))) - (propagated-inputs - `(("python-flask" ,python-flask) - ("python-pyyaml" ,python-pyyaml) - ("python-jsonschema" ,python-jsonschema) - ("python-mistune" ,python-mistune) - ("python-six" ,python-six))) - (native-inputs - `(("python-decorator" ,python-decorator) - ("python-flake8" ,python-flake8) - ("python-flask-restful" ,python-flask-restful) - ("python-flex" ,python-flex) - ("python-pytest" ,python-pytest) - ("python-pytest-cov" ,python-pytest-cov) - ("python-marshmallow" ,python-marshmallow) - ("python-apispec" ,python-apispec))) - (home-page "https://github.com/rochacbruno/flasgger/") - (synopsis "Extract Swagger specs from your Flask project") - (description "@code{python-flasgger} allows extracting Swagger specs -from your Flask project. It is a fork of Flask-Swagger.") - (license license:expat))) - -(define-public python2-flasgger - (package-with-python2 python-flasgger)) - -(define-public python-swagger-spec-validator - (package - (name "python-swagger-spec-validator") - (version "2.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "swagger-spec-validator" version)) - (sha256 - (base32 - "13hkpn2lycwr0468yqhjb3kwszqf7hjwlq61w7vdxq1caz31k4nw")))) - (build-system python-build-system) - (propagated-inputs - `(("python-jsonschema" ,python-jsonschema) - ("python-six" ,python-six))) - (home-page - "https://github.com/Yelp/swagger_spec_validator") - (synopsis "Validation of Swagger specifications") - (description "@code{swagger_spec_validator} provides a library for -validating Swagger API specifications.") - (license license:asl2.0))) - -(define-public python2-swagger-spec-validator - (package-with-python2 python-swagger-spec-validator)) - -(define-public python-apache-libcloud - (package - (name "python-apache-libcloud") - (version "2.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "apache-libcloud" version)) - (sha256 - (base32 - "0daj3mkzw79v5zin2r1s2wkrz1hplfc16bwj4ss68i5qjq4l2p0j")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-ssh - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "libcloud/compute/ssh.py" - (("'ssh'") (string-append "'" (assoc-ref inputs "openssh") - "/bin/ssh" "'"))) - #t)) - (add-after 'unpack 'patch-tests - (lambda _ - (substitute* "./libcloud/test/test_file_fixtures.py" - ;; See <https://issues.apache.org/jira/browse/LIBCLOUD-923>. - (("def _ascii") "def _raw_data(self, method, url, body, headers): - return (httplib.OK, - \"1234abcd\", - {\"test\": \"value\"}, - httplib.responses[httplib.OK]) - def _ascii")) - (substitute* "libcloud/test/compute/test_ssh_client.py" - (("class ShellOutSSHClientTests") - "@unittest.skip(\"Guix container doesn't have ssh service\") -class ShellOutSSHClientTests") - ;; See <https://issues.apache.org/jira/browse/LIBCLOUD-924>. - (("'.xf0.x90.x8d.x88'") "b'\\xF0\\x90\\x8D\\x88'") - (("'.xF0', '.x90', '.x8D', '.x88'") - "b'\\xF0', b'\\x90', b'\\x8D', b'\\x88'")) - #t)) - (add-before 'check 'copy-secret - (lambda _ - (copy-file "libcloud/test/secrets.py-dist" - "libcloud/test/secrets.py") - #t))))) - (inputs - `(("openssh" ,openssh))) - (propagated-inputs - `(("python-paramiko" ,python-paramiko) - ("python-requests" ,python-requests))) - (native-inputs - `(("python-lockfile" ,python-lockfile) - ("python-mock" ,python-mock) - ("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner) - ("python-requests-mock" ,python-requests-mock))) - (home-page "https://libcloud.apache.org/") - (synopsis "Unified Cloud API") - (description "@code{libcloud} is a Python library for interacting with -many of the popular cloud service providers using a unified API.") - (license license:asl2.0))) - -(define-public python2-apache-libcloud - (package-with-python2 python-apache-libcloud)) - -(define-public python-smmap2 - (package - (name "python-smmap2") - (version "2.0.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "smmap2" version)) - (sha256 - (base32 - "1hvn28p3zvxa98sbi9lrqvv2ps4q284j4jq9a619zw0m7yv0sly7")))) - (build-system python-build-system) - (native-inputs - `(("python-nosexcover" ,python-nosexcover))) - (home-page "https://github.com/Byron/smmap") - (synopsis "Python sliding window memory map manager") - (description "@code{smmap2} is a pure Python implementation of a sliding -window memory map manager.") - (license license:bsd-3))) - -(define-public python2-smmap2 - (package-with-python2 python-smmap2)) - -(define-public python-regex - (package - (name "python-regex") - (version "2017.06.07") - (source (origin - (method url-fetch) - (uri (pypi-uri "regex" version)) - (sha256 - (base32 - "06r6b7yigikbj3a72whl85r2b64pj1r0ypmw9yalmkm0wnxq8mz4")))) - (build-system python-build-system) - (home-page "https://bitbucket.org/mrabarnett/mrab-regex") - (synopsis "Alternative regular expression module") - (description "This regular expression implementation is backwards- -compatible with the standard @code{re} module, but offers additional -functionality like full case-folding for case-insensitive matches in Unicode.") - (license license:psfl))) - -(define-public python2-regex - (package-with-python2 python-regex)) - -(define-public python2-pyopengl - (package - (name "python2-pyopengl") - (version "3.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "PyOpenGL" version)) - (sha256 - (base32 - "1byxjj6a8rwzhxhjqlc588zdad2qwxdd7vlam2653ylll31waiwv")))) - (arguments - `(#:python ,python-2)) - (build-system python-build-system) - (home-page "http://pyopengl.sourceforge.net") - (synopsis "Standard OpenGL bindings for Python") - (description - "PyOpenGL is the most common cross platform Python binding to OpenGL and -related APIs. The binding is created using the standard @code{ctypes} -library.") - (license license:bsd-3))) - -(define-public python2-pyopengl-accelerate - (package - (inherit python2-pyopengl) - (name "python2-pyopengl-accelerate") - (version "3.1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "PyOpenGL-accelerate" version)) - (sha256 - (base32 - "0464c1ifzk0k92lyndikmvzjgnx1y25r7bkkc8pnxm4kp1q4czwj")))) - (synopsis "Acceleration code for PyOpenGL") - (description - "This is the Cython-coded accelerator module for PyOpenGL."))) - -(define-public python-rencode - (package - (name "python-rencode") - (version "1.0.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "rencode" version)) - (sha256 - (base32 - "0mzwdq1is7kyyr32i5k4iz6g5xxdvmiyc132jnc60p9m6lnwjrpv")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'delete-bogus-test - ;; This test requires /home/aresch/Downloads, which is not provided by - ;; the build environment. - (lambda _ - (delete-file "rencode/t.py") - #t))))) - (native-inputs `(("pkg-config" ,pkg-config) - ("python-cython" ,python-cython))) - (home-page "https://github.com/aresch/rencode") - (synopsis "Serialization of heterogeneous data structures") - (description - "The @code{rencode} module is a data structure serialization library, -similar to @code{bencode} from the BitTorrent project. For complex, -heterogeneous data structures with many small elements, r-encoding stake up -significantly less space than b-encodings. This version of rencode is a -complete rewrite in Cython to attempt to increase the performance over the -pure Python module.") - (license license:bsd-3))) - -(define-public python2-rencode - (package-with-python2 python-rencode)) - -(define-public python-xenon - (package - (name "python-xenon") - (version "0.5.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "xenon" version)) - (sha256 - (base32 - "029cbhysg2vr5n4jz8gpg2793f8wkwnqpr1qgv6c1dn685vy31mc")))) - (build-system python-build-system) - (native-inputs - `(("python-pyyaml" ,python-pyyaml) - ("python-radon" ,python-radon) - ("python-requests" ,python-requests) - ("python-flake8" ,python-flake8) - ("python-tox" ,python-tox))) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'build 'patch-test-requirements - (lambda _ - ;; Remove httpretty dependency for tests. - (substitute* "setup.py" - (("httpretty") "")) - #t))))) - (home-page "https://xenon.readthedocs.org/") - (synopsis "Monitor code metrics for Python on your CI server") - (description - "Xenon is a monitoring tool based on Radon. It monitors code complexity. -Ideally, @code{xenon} is run every time code is committed. Through command -line options, various thresholds can be set for the complexity of code. It -will fail (i.e. it will exit with a non-zero exit code) when any of these -requirements is not met.") - (license license:expat))) - -(define-public python2-xenon - (package-with-python2 python-xenon)) - -(define-public python-pysocks - (package - (name "python-pysocks") - (version "1.6.8") - (source - (origin - (method url-fetch) - (uri (pypi-uri "PySocks" version)) - (sha256 - (base32 - "0wn6xafwy9c1gamwljw3fyvih5w19qy9xp39zmv8c90ai5ajrr9z")))) - (build-system python-build-system) - (arguments `(#:tests? #f)) - (home-page "https://github.com/Anorov/PySocks") - (synopsis "SOCKS client module") - (description "@code{pysocks} is an updated and semi-actively maintained -version of @code{SocksiPy} with bug fixes and extra features.") - (license license:bsd-3))) - -(define-public python2-pysocks - (package-with-python2 python-pysocks)) - -(define-public python-pydiff - (package - (name "python-pydiff") - (version "0.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pydiff" version)) - (sha256 - (base32 - "1als83h9w0gab24ipyna6khm390qmpnpkc5jksmdbs2xc8hp2z44")))) - (build-system python-build-system) - (home-page "https://github.com/myint/pydiff") - (synopsis "Library to diff two Python files at the bytecode level") - (description - "@code{pydiff} makes it easy to look for actual code changes while -ignoring formatting changes.") - (license license:expat))) - -(define-public python2-pydiff - (package-with-python2 python-pydiff)) - -(define-public python-tqdm - (package - (name "python-tqdm") - (version "4.19.6") - (source - (origin - (method url-fetch) - (uri (pypi-uri "tqdm" version)) - (sha256 - (base32 - "1pw0ngm0zn9papdmkwipi3yih5c3di6d0w849bdmrraq4d2d9h2y")))) - (build-system python-build-system) - (native-inputs - `(("python-flake8" ,python-flake8) - ("python-nose" ,python-nose) - ("python-coverage" ,python-coverage))) - (home-page "https://github.com/tqdm/tqdm") - (synopsis "Fast, extensible progress meter") - (description - "Make loops show a progress bar on the console by just wrapping any -iterable with @code{|tqdm(iterable)|}. Offers many options to define -design and layout.") - (license (list license:mpl2.0 license:expat)))) - -(define-public python2-tqdm - (package-with-python2 python-tqdm)) - -(define-public python-pkginfo - (package - (name "python-pkginfo") - (version "1.4.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pkginfo" version)) - (sha256 - (base32 - "0x6lm17p1ks031mj6pajyp4rkq74vpqq8qwjb7ikgwmkli1day2q")))) - (build-system python-build-system) - (arguments - ;; The tests are broken upstream. - '(#:tests? #f)) - (home-page - "https://code.launchpad.net/~tseaver/pkginfo/trunk") - (synopsis - "Query metadatdata from sdists, bdists, and installed packages") - (description - "API to query the distutils metadata written in @file{PKG-INFO} inside a -source distriubtion (an sdist) or a binary distribution (e.g., created by -running bdist_egg). It can also query the EGG-INFO directory of an installed -distribution, and the *.egg-info stored in a \"development checkout\" (e.g, -created by running @code{python setup.py develop}).") - (license license:expat))) - -(define-public python2-pkginfo - (package-with-python2 python-pkginfo)) - -(define-public python-twine - (package - (name "python-twine") - (version "1.9.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "twine" version)) - (sha256 - (base32 - "1ay1b6kdq6k4bfbjsvf6ymj41wrgpvinhxndb09355pwhxwmp96a")))) - (build-system python-build-system) - (propagated-inputs - `(("python-tqdm" ,python-tqdm) - ("python-pkginfo" ,python-pkginfo) - ("python-requests" ,python-requests) - ("python-requests-toolbelt" ,python-requests-toolbelt))) - (home-page "https://github.com/pypa/twine") - (synopsis "Collection of utilities for interacting with PyPI") - (description - "@code{twine} currently supports registering projects and uploading -distributions. It authenticates the user over HTTPS, allows them to pre-sign -their files and supports any packaging format (including wheels).") - (license license:asl2.0))) - -(define-public python2-twine - (package-with-python2 python-twine)) - -(define-public python-linecache2 - (package - (name "python-linecache2") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "linecache2" version)) - (sha256 - (base32 - "0z79g3ds5wk2lvnqw0y2jpakjf32h95bd9zmnvp7dnqhf57gy9jb")))) - (build-system python-build-system) - (arguments - `(;; The tests depend on unittest2, and our version is a bit too old. - #:tests? #f)) - (native-inputs - `(("python-pbr" ,python-pbr-minimal))) - (home-page - "https://github.com/testing-cabal/linecache2") - (synopsis "Backports of the linecache module") - (description - "The linecache module allows one to get any line from any file, while -attempting to optimize internally, using a cache, the common case where many -lines are read from a single file.") - (license license:psfl))) - -(define-public python2-linecache2 - (package-with-python2 python-linecache2)) - -(define-public python-traceback2 - (package - (name "python-traceback2") - (version "1.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "traceback2" version)) - (sha256 - (base32 - "0c1h3jas1jp1fdbn9z2mrgn3jj0hw1x3yhnkxp7jw34q15xcdb05")))) - (build-system python-build-system) - (arguments - `(;; python-traceback2 and python-unittest2 depend on one another. - #:tests? #f)) - (native-inputs - `(("python-pbr" ,python-pbr-minimal))) - (propagated-inputs - `(("python-linecache2" ,python-linecache2))) - (home-page - "https://github.com/testing-cabal/traceback2") - (synopsis "Backports of the traceback module") - (description - "This module provides a standard interface to extract, format and print -stack traces of Python programs. It exactly mimics the behavior of the Python -interpreter when it prints a stack trace.") - (license license:psfl))) - -(define-public python2-traceback2 - (package-with-python2 python-traceback2)) - -(define-public python-ratelimiter - (package - (name "python-ratelimiter") - (version "1.2.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ratelimiter" version)) - (sha256 - (base32 - "1dhz85mj5bqd2mij84ncs6pz32hgidr79hay4aqfmzaa4rbb497p")))) - (build-system python-build-system) - (arguments - '(#:tests? #f)) ; There are no tests in the pypi archive. - (home-page "https://github.com/RazerM/ratelimiter") - (synopsis "Simple rate limiting object") - (description - "The @code{ratelimiter} module ensures that an operation will not be -executed more than a given number of times during a given period.") - (license license:asl2.0))) - -(define-public python2-ratelimiter - (package-with-python2 python-ratelimiter)) - -(define-public python-dukpy - (package - (name "python-dukpy") - (version "0.3") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/kovidgoyal/dukpy/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0pj39rfwlzivqm5hkrsza7gssg6ggpxlq5ivc8f3h7x5pfgc6y6c")))) - (build-system python-build-system) - (home-page "https://github.com/kovidgoyal/dukpy") - (synopsis "Run JavaScript in python") - (description - "dukpy is a JavaScript runtime environment for Python using the duktape -embeddable JavaScript engine.") - ;; Dukpy is licensed under MIT like the embedded duktape library, - ;; with 'errors.c' as GPL3. - (license (list license:expat license:gpl3)))) - -(define-public python2-dukpy - (package-with-python2 python-dukpy)) - -(define-public python-jsonrpclib-pelix - (package - (name "python-jsonrpclib-pelix") - (version "0.3.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "jsonrpclib-pelix" version)) - (sha256 - (base32 - "0f83z5zi7w32vprhk1dyc94ir1bh4hdd57bjdbwkq9ykng8qilhl")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ; no tests in PyPI tarball - (home-page "https://github.com/tcalmant/jsonrpclib/") - (synopsis "JSON-RPC 2.0 client library for Python") - (description - "This library implements the JSON-RPC v2.0 -specification (backwards-compatible) as a client library for Python. This -version is a fork of jsonrpclib by Josh Marshall, usable with Pelix remote -services.") - (license license:asl2.0))) - -(define-public python2-jsonrpclib-pelix - (package-with-python2 python-jsonrpclib-pelix)) - -(define-public python-setuptools-scm-git-archive - (package - (name "python-setuptools-scm-git-archive") - (version "1.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "setuptools_scm_git_archive" version)) - (sha256 - (base32 - "1nii1sz5jq75ilf18bjnr11l9rz1lvdmyk66bxl7q90qan85yhjj")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest))) - (propagated-inputs - `(("python-setuptools-scm" ,python-setuptools-scm))) - (home-page "https://github.com/Changaco/setuptools_scm_git_archive/") - (synopsis "Setuptools_scm plugin for git archives") - (description - "The setuptools_scm_git_archive package is a plugin to -setuptools_scm, which supports obtaining versions from git archives that -belong to tagged versions.") - (license license:expat))) - -(define-public python2-setuptools-scm-git-archive - (package-with-python2 python-setuptools-scm-git-archive)) - -(define-public python-pyclipper - (package - (name "python-pyclipper") - (version "1.1.0.post1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pyclipper" version ".zip")) - (sha256 - (base32 - "0ldbkbnx94an4zzrwb1sxmg6k0jgk4cwmvcdyy8y5k1zslc612wa")) - (modules '((guix build utils))) - (snippet - '(begin - ;; This file is generated by Cython. - (delete-file "pyclipper/pyclipper.cpp") #t)))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'build 'cythonize-sources - (lambda _ - (with-directory-excursion "pyclipper" - (invoke "cython" "--cplus" "pyclipper.pyx"))))))) - (propagated-inputs - `(("python-setuptools-scm-git-archive" ,python-setuptools-scm-git-archive))) - (native-inputs - `(("python-cython" ,python-cython) - ("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner) - ("python-unittest2" ,python-unittest2) - ("unzip" ,unzip))) - (home-page "https://github.com/greginvm/pyclipper") - (synopsis "Wrapper for Angus Johnson's Clipper library") - (description - "Pyclipper is a Cython wrapper for the C++ translation of the -Angus Johnson's polygon clipping Clipper library (ver. 6.4.2).") - (license license:expat))) - -(define-public python2-pyclipper - (package-with-python2 python-pyclipper)) - -(define-public python2-booleanoperations - (package - (name "python2-booleanoperations") - (version "0.7.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "booleanOperations" version ".zip")) - (sha256 - (base32 - "1hw42fazdpvsn77glx96hwsj9l17mvx37sc5707s08y5w6fx16mn")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2)) - (native-inputs - `(("unzip" ,unzip) - ("python2-pytest" ,python2-pytest) - ("python2-pytest-runner" ,python2-pytest-runner))) - (propagated-inputs - `(("python-fonttools" ,python2-fonttools) - ("python-pyclipper" ,python2-pyclipper) - ("python-ufolib" ,python2-ufolib))) - (home-page "https://github.com/typemytype/booleanOperations") - (synopsis "Boolean operations on paths") - (description - "BooleanOperations provides a Python library that enables -boolean operations on paths.") - (license license:expat))) - -(define-public python-tempdir - (package - (name "python-tempdir") - (version "0.7.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "tempdir" version)) - (sha256 - (base32 - "13msyyxqbicr111a294x7fsqbkl6a31fyrqflx3q7k547gnq15k8")))) - (build-system python-build-system) - (home-page "https://pypi.org/project/tempdir/") - (arguments - ;; the package has no tests - '(#:tests? #f)) - (synopsis "Python library for managing temporary directories") - (description - "This library manages temporary directories that are automatically -deleted with all their contents when they are no longer needed. It is -particularly convenient for use in tests.") - (license license:expat))) - -(define-public python2-tempdir - (package-with-python2 python-tempdir)) - -(define-public python-activepapers - (package - (name "python-activepapers") - (version "0.2.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ActivePapers.Py" version)) - (sha256 - (base32 - "12wkhjh90ffipjzv10swndp2xv9hd7xrxvg6v0n4n3i411pj4xb8")))) - (build-system python-build-system) - (arguments - `(#:modules ((ice-9 ftw) - (srfi srfi-1) - (guix build utils) - (guix build python-build-system)) - - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'delete-python2-code - (lambda _ - (for-each delete-file - '("lib/activepapers/builtins2.py" - "lib/activepapers/standardlib2.py" - "lib/activepapers/utility2.py")))) - (replace 'check - (lambda _ - ;; Deactivate the test cases that download files - (setenv "NO_NETWORK_ACCESS" "1") - ;; For some strange reason, some tests fail if nosetests runs all - ;; test modules in a single execution. They pass if each test - ;; module is run individually. - (for-each (lambda (filename) - (invoke "nosetests" - (string-append "tests/" filename))) - (scandir "tests" - (lambda (filename) - (string-suffix? ".py" filename))))))))) - (native-inputs - `(("python-tempdir" ,python-tempdir) - ("python-nose" ,python-nose))) - (propagated-inputs - `(("python-h5py" ,python-h5py))) - (home-page "http://www.activepapers.org/") - (synopsis "Executable papers for scientific computing") - (description - "ActivePapers is a tool for working with executable papers, which -combine data, code, and documentation in single-file packages, -suitable for publication as supplementary material or on repositories -such as figshare or Zenodo.") - (properties `((python2-variant . ,(delay python2-activepapers)))) - (license license:bsd-3))) - -(define-public python2-activepapers - (let ((base (package-with-python2 - (strip-python2-variant python-activepapers)))) - (package - (inherit base) - (arguments - (substitute-keyword-arguments (package-arguments base) - ((#:phases phases) - `(modify-phases ,phases - (delete 'delete-python2-code) - (add-after 'unpack 'delete-python3-code - (lambda _ - (for-each delete-file - '("lib/activepapers/builtins3.py" - "lib/activepapers/standardlib3.py" - "lib/activepapers/utility3.py"))))))))))) - -(define-public python-semver - (package - (name "python-semver") - (version "2.7.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "semver" version)) - (sha256 - (base32 - "0hhgqppchv59rqj0yzi1prdg2nfsywqmjsqy2rycyxm0hvxmbyqz")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-test-requirements - (lambda _ - (substitute* "setup.py" - ;; Our Python is new enough. - (("'virtualenv<14\\.0\\.0'") "'virtualenv'")) - #t))))) - (native-inputs - `(("python-tox" ,python-tox) - ("python-virtualenv" ,python-virtualenv))) - (home-page "https://github.com/k-bx/python-semver") - (synopsis "Python helper for Semantic Versioning") - (description "This package provides a Python library for -@url{Semantic Versioning, http://semver.org/}.") - (license license:bsd-3))) - -(define-public python2-semver - (package-with-python2 python-semver)) - -(define-public python-pyro4 - (package - (name "python-pyro4") - (version "4.74") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Pyro4" version)) - (sha256 - (base32 - "0pzp7c6q3vvkxq0wy9lr6wd5wky40sajz69g697i5rb2q497pvc9")))) - (build-system python-build-system) - (propagated-inputs - `(("python-serpent" ,python-serpent))) - (home-page "https://pyro4.readthedocs.io") - (synopsis "Distributed object middleware for Python") - (description - "Pyro enables you to build applications in which objects can talk to each -other over the network. You can just use normal Python method calls to call -objects on other machines, also known as remote procedure calls (RPC).") - (license license:expat))) - -(define-public python2-pyro - (package - (name "python2-pyro") - (version "3.16") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Pyro" version)) - (file-name (string-append "Pyro-" version ".tar.gz")) - (sha256 - (base32 - "0y75wzdqbjy565rpxaxscav4j8xg060sa90lnmb7aypgaf251v8v")))) - (build-system python-build-system) - (arguments - ;; Pyro is not compatible with Python 3 - `(#:python ,python-2 - ;; Pyro has no test cases for automatic execution - #:tests? #f)) - (home-page "http://pythonhosted.org/Pyro/") - (synopsis "Distributed object manager for Python") - (description "Pyro is a Distributed Object Technology system -written in Python that is designed to be easy to use. It resembles -Java's Remote Method Invocation (RMI). It has less similarity to CORBA, -which is a system and language independent Distributed Object Technology -and has much more to offer than Pyro or RMI. Pyro 3.x is no -longer maintained. New projects should use Pyro4 instead, which -is the new Pyro version that is actively developed.") - (license license:expat))) - -(define-public python2-scientific - (package - (name "python2-scientific") - (version "2.9.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://bitbucket.org/khinsen/" - "scientificpython/downloads/ScientificPython-" - version ".tar.gz")) - (file-name (string-append "ScientificPython-" version ".tar.gz")) - (sha256 - (base32 - "0fc69zhlsn9d2jvbzyjl9ah53vj598h84nkq230c83ahfvgzx5y3")))) - (build-system python-build-system) - (inputs - `(("netcdf" ,netcdf))) - (propagated-inputs - `(("python-numpy" ,python2-numpy-1.8) - ("python-pyro" ,python2-pyro))) - (arguments - ;; ScientificPython is not compatible with Python 3 - `(#:python ,python-2 - #:tests? #f ; No test suite - #:phases - (modify-phases %standard-phases - (replace 'build - (lambda* (#:key inputs #:allow-other-keys) - (zero? (system* "python" "setup.py" "build" - (string-append "--netcdf_prefix=" - (assoc-ref inputs "netcdf"))))))))) - (home-page "https://bitbucket.org/khinsen/scientificpython") - (synopsis "Python modules for scientific computing") - (description "ScientificPython is a collection of Python modules that are -useful for scientific computing. Most modules are rather general (Geometry, -physical units, automatic derivatives, ...) whereas others are more -domain-specific (e.g. netCDF and PDB support). The library is currently -not actively maintained and works only with Python 2 and NumPy < 1.9.") - (license license:cecill-c))) - -(define-public python2-mmtk - (package - (name "python2-mmtk") - (version "2.7.11") - (source - (origin - (method url-fetch) - (uri (string-append "https://bitbucket.org/khinsen/" - "mmtk/downloads/MMTK-" version ".tar.gz")) - (file-name (string-append "MMTK-" version ".tar.gz")) - (sha256 - (base32 - "1d0nnjx4lwsvh8f99vv1r6gi50d93yba0adkz8b4zgv4za4c5862")))) - (build-system python-build-system) - (native-inputs - `(("netcdf" ,netcdf))) - (propagated-inputs - `(("python-scientific" ,python2-scientific) - ("python-tkinter" ,python-2 "tk"))) - (arguments - `(#:python ,python-2 - #:tests? #f - #:phases - (modify-phases %standard-phases - (add-before 'build 'includes-from-scientific - (lambda* (#:key inputs #:allow-other-keys) - (mkdir-p "Include/Scientific") - (copy-recursively - (string-append - (assoc-ref inputs "python-scientific") - "/include/python2.7/Scientific") - "Include/Scientific")))))) - (home-page "http://dirac.cnrs-orleans.fr/MMTK") - (synopsis "Python library for molecular simulation") - (description "MMTK is a library for molecular simulations with an emphasis -on biomolecules. It provides widely used methods such as Molecular Dynamics -and normal mode analysis, but also basic routines for implementing new methods -for simulation and analysis. The library is currently not actively maintained -and works only with Python 2 and NumPy < 1.9.") - (license license:cecill-c))) - -(define-public python-phonenumbers - (package - (name "python-phonenumbers") - (version "8.9.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "phonenumbers" version)) - (sha256 - (base32 - "03fmrgb4r8x3ykmddjs9i3zhs703in8smikj3a6447blqpimwyh1")))) - (build-system python-build-system) - (home-page - "https://github.com/daviddrysdale/python-phonenumbers") - (synopsis - "Python library for dealing with international phone numbers") - (description - "This package provides a Python port of Google's libphonenumber library.") - (license license:asl2.0))) - -(define-public python2-phonenumbers - (package-with-python2 python-phonenumbers)) - -(define-public python-send2trash - (package - (name "python-send2trash") - (version "1.4.2") - (source - (origin (method url-fetch) - ;; Source tarball on PyPI doesn't include tests. - (uri (string-append "https://github.com/hsoft/send2trash/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) - (sha256 - (base32 - "0ffyhwjyx61slkdy38iwjc4gmj7fj9gs2q58f075gwvq630pzm9z")))) - (build-system python-build-system) - (arguments - '(#:phases - (modify-phases %standard-phases - (add-before 'check 'pre-check - (lambda _ - (mkdir-p "/tmp/foo") - (setenv "HOME" "/tmp/foo") - #t))))) - (home-page "https://github.com/hsoft/send2trash") - (synopsis "Send files to the user's @file{~/Trash} directory") - (description "This package provides a Python library to send files to the -user's @file{~/Trash} directory.") - (license license:bsd-3))) - -(define-public python2-send2trash - (package - (inherit (package-with-python2 python-send2trash)) - (arguments - (substitute-keyword-arguments (package-arguments python-send2trash) - ((#:phases phases) - `(modify-phases ,phases - (add-before 'check 'setenv - (lambda _ - (setenv "PYTHONPATH" - (string-append (getcwd) ":" (getenv "PYTHONPATH"))) - #t)))))) - (properties `((python2-variant . ,(delay python-send2trash)))))) - -(define-public python-yapf - (package - (name "python-yapf") - (version "0.24.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "yapf" version)) - (sha256 - (base32 - "0anwby0ydmyzcsgjc5dn1ryddwvii4dq61vck447q0n96npnzfyf")))) - (build-system python-build-system) - (home-page "https://github.com/google/yapf") - (synopsis "Formatter for Python code") - (description "YAPF is a formatter for Python code. It's based off of -@dfn{clang-format}, developed by Daniel Jasper. In essence, the algorithm -takes the code and reformats it to the best formatting that conforms to the -style guide, even if the original code didn't violate the style guide.") - (license license:asl2.0))) - -(define-public python2-yapf - (package-with-python2 python-yapf)) - -(define-public python-gyp - (let ((commit "5e2b3ddde7cda5eb6bc09a5546a76b00e49d888f") - (revision "0")) - (package - (name "python-gyp") - ;; Google does not release versions, - ;; based on second most recent commit date. - (version (git-version "0.0.0" revision commit)) - (source - (origin - ;; Google does not release tarballs, - ;; git checkout is needed. - (method git-fetch) - (uri (git-reference - (url "https://chromium.googlesource.com/external/gyp") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0fr7nxcrk292djmxzpcjaphnsd123k31gp8jnd91vwknhq6snmv9")))) - (build-system python-build-system) - (home-page "https://gyp.gsrc.io/") - (synopsis "GYP is a Meta-Build system") - (description - "GYP builds build systems for large, cross platform applications. -It can be used to generate XCode projects, Visual Studio projects, Ninja build -files, and Makefiles.") - (license license:bsd-3)))) - -(define-public python2-gyp - (package-with-python2 python-gyp)) - -(define-public python-whatever - (package - (name "python-whatever") - (version "0.5") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Suor/whatever/archive/" version - ".tar.gz")) - (sha256 - (base32 - "1iqvnaf0zpc6b4rvbqq4xy45mszcscyzpzknv8wg6j84pbp22sap")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (invoke "py.test")))))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "http://github.com/Suor/whatever") - (synopsis "Make anonymous functions by partial application of operators") - (description "@code{whatever} provides an easy way to make anonymous -functions by partial application of operators.") - (license license:bsd-3))) - -(define-public python2-whatever - (package-with-python2 python-whatever)) - -(define-public python-funcy - (package - (name "python-funcy") - (version "1.10") - (source - (origin - (method url-fetch) - (uri (string-append "https://github.com/Suor/funcy/archive/" version - ".tar.gz")) - (sha256 - (base32 - "1fanxivsip29vgarw6dn39xym3q4pbxcpa11plpp548lvxajpahz")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (invoke "py.test")))))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-whatever" ,python-whatever))) - (home-page "http://github.com/Suor/funcy") - (synopsis "Functional tools") - (description "@code{funcy} is a library that provides functional tools. -Examples are: -@enumerate -@item merge - Merges collections of the same type -@item walk - Type-preserving map -@item select - Selects a part of a collection -@item take - Takes the first n items of a collection -@item first - Takes the first item of a collection -@item remove - Predicated-removes items of a collection -@item concat - Concatenates two collections -@item flatten - Flattens a collection with subcollections -@item distinct - Returns only distinct items -@item split - Predicated-splits a collection -@item split_at - Splits a collection at a given item -@item group_by - Groups items by group -@item pairwise - Pairs off adjacent items -@item partial - Partially-applies a function -@item curry - Curries a function -@item compose - Composes functions -@item complement - Complements a predicate -@item all_fn - \"all\" with predicate -@end enumerate") - (license license:bsd-3))) - -(define-public python2-funcy - (package-with-python2 python-funcy)) - -(define-public python-isoweek - (package - (name "python-isoweek") - (version "1.3.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "isoweek" version)) - (sha256 - (base32 - "1s7zsf0pab0l9gn6456qadnz5i5h90hafcjwnhx5mq23qjxggwvk")))) - (build-system python-build-system) - (home-page "https://github.com/gisle/isoweek") - (synopsis "Objects representing a week") - (description "The @code{isoweek} module provide the class Week that -implements the week definition of ISO 8601. This standard also defines -a notation for identifying weeks; yyyyWww (where the W is a literal). -Week instances stringify to this form.") - (license license:bsd-3))) - -(define-public python2-isoweek - (package-with-python2 python-isoweek)) - -(define-public python-tokenize-rt - (package - (name "python-tokenize-rt") - (version "2.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "tokenize-rt" version)) - (sha256 - (base32 - "1yjvbz7rvrz31zjyax1cgy3xhf4wb3j18jwnj4bnl77ca4gliyiw")))) - (build-system python-build-system) - (home-page "https://github.com/asottile/tokenize-rt") - (synopsis "Wrapper around the stdlib tokenize which roundtrips.") - (description - "This Python library is a wrapper around @code{tokenize} from the Python -standard library. It provides two additional tokens @code{ESCAPED_NL} and -@code{UNIMPORTANT_WS}, and a @code{Token} data type. Use @code{src_to_tokens} -and @code{tokens_to_src} to roundtrip.") - (license license:expat))) - -(define-public python-future-fstrings - (package - (name "python-future-fstrings") - (version "0.4.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "future_fstrings" version)) - (sha256 - (base32 - "0ydxqz2dvns44g55p8ix2x18qkfk3aaz0m0dc70f3g6n8js35h47")))) - (build-system python-build-system) - (propagated-inputs - `(("python-tokenize-rt" ,python-tokenize-rt))) - (home-page "https://github.com/asottile/future-fstrings") - (synopsis "Backport of fstrings to Python < 3.6") - (description - "This package provides a UTF-8 compatible encoding -@code{future_fstrings}, which performs source manipulation. It decodes the -source bytes using the UTF-8 encoding and then rewrites Python 3.6 style -@code{f} strings.") - (license license:expat))) - -(define-public python-typing - (package - (name "python-typing") - (version "3.6.6") - (source - (origin - (method url-fetch) - (uri (pypi-uri "typing" version)) - (sha256 - (base32 - "0ba9acs4awx15bf9v3nrs781msbd2nx826906nj6fqks2bvca9s0")))) - (build-system python-build-system) - (home-page "https://docs.python.org/3/library/typing.html") - (synopsis "Type hints for Python") - (description "This is a backport of the standard library @code{typing} -module to Python versions older than 3.5. Typing defines a standard notation -for Python function and variable type annotations. The notation can be used -for documenting code in a concise, standard format, and it has been designed -to also be used by static and runtime type checkers, static analyzers, IDEs -and other tools.") - (license license:psfl))) - -(define-public python2-typing - (package-with-python2 python-typing)) - -(define-public bpython - (package - (name "bpython") - (version "0.17.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "bpython" version)) - (sha256 - (base32 - "0bxhxi5zxdkrf8b4gwn0d363kdz3qnypjwhm1aydki53ph8ca1w9")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'remove-failing-test - (lambda _ - ;; Remove failing test. FIXME: make it pass - (delete-file "bpython/test/test_args.py") - #t)) - (add-after 'wrap 'add-aliases - ;; for symmetry to bpython2, add symlinks bypthon3, bpdb3, etc. - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (for-each - (lambda (old new) - (symlink old (string-append out "/bin/" new))) - '("bpython" "bpython-curses" "bpython-urwid" "bpdb") - '("bpython3" "bpython3-curses" "bpython3-urwid" "bpdb3"))) - #t))))) - (propagated-inputs - `(("python-pygments" ,python-pygments) - ("python-requests" ,python-requests) - ("python-babel" ,python-babel) ; optional, for internationalization - ("python-curtsies" ,python-curtsies) ; >= 0.1.18 - ("python-greenlet" ,python-greenlet) - ("python-urwid" ,python-urwid) ; for bpython-urwid only - ("python-six" ,python-six))) - (native-inputs - `(("python-sphinx" ,python-sphinx) - ("python-mock" ,python-mock))) - (home-page "https://bpython-interpreter.org/") - (synopsis "Fancy interface to the Python interpreter") - (description "Bpython is a fancy interface to the Python -interpreter. bpython's main features are - -@enumerate -@item in-line syntax highlighting, -@item readline-like autocomplete with suggestions displayed as you type, -@item expected parameter list for any Python function, -@item \"rewind\" function to pop the last line of code from memory and - re-evaluate, -@item send the code you've entered off to a pastebin, -@item save the code you've entered to a file, and -@item auto-indentation. -@end enumerate") - (license license:expat))) - -(define-public bpython2 - (let ((base (package-with-python2 - (strip-python2-variant bpython)))) - (package (inherit base) - (name "bpython2") - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'remove-failing-test - (lambda _ - ;; Remove failing test. FIXME: make it pass - (delete-file "bpython/test/test_args.py") - ;; Disable failing test-cases (renaming inhibits they are - ;; discovered) - (substitute* "bpython/test/test_curtsies_repl.py" - (("^(\\s*def )(test_get_last_word_with_prev_line\\W)" _ a b) - (string-append a "xxx_off_" b)) - (("^(\\s*def )(test_complex\\W)" _ a b) - (string-append a "xxx_off_" b))) - #t)) - (add-before 'build 'rename-scripts - ;; rename the scripts to bypthon2, bpdb2, etc. - (lambda _ - (substitute* "setup.py" - (("^(\\s+'bpdb)(\\s+=.*',?)\\s*?$" _ name rest) - (string-append name "2" rest "\n")) - (("^(\\s+'bpython)(-\\S+)?(\\s+=.*',?)\\s*?$" _ name sub rest) - (string-append name "2" (or sub "") rest "\n"))) - #t)))))))) - -(define-public python-pyinotify - (package - (name "python-pyinotify") - (version "0.9.6") - (source (origin - (method url-fetch) - (uri (pypi-uri "pyinotify" version)) - (sha256 - (base32 - "1x3i9wmzw33fpkis203alygfnrkcmq9w1aydcm887jh6frfqm6cw")))) - (build-system python-build-system) - (arguments `(#:tests? #f)) ;no tests - (home-page "https://github.com/seb-m/pyinotify") - (synopsis "Python library for monitoring inotify events") - (description - "@code{pyinotify} provides a Python interface for monitoring -file system events on Linux.") - (license license:expat))) - -(define-public python2-pyinotify - (package-with-python2 python-pyinotify)) - -;; Ada parser uses this version. -(define-public python2-quex-0.67.3 - (package - (name "python2-quex") - (version "0.67.3") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/quex/HISTORY/" - (version-major+minor version) - "/quex-" version ".zip")) - (sha256 - (base32 - "14gv8ll3ipqv4kyc2xiy891nrmjl4ic823zfyx8hassagyclyppw")))) - (build-system python-build-system) - (native-inputs - `(("unzip" ,unzip))) - (arguments - `(#:python ,python-2 - #:tests? #f - #:phases - (modify-phases %standard-phases - (delete 'configure) - (delete 'build) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (share/quex (string-append out "/share/quex")) - (bin (string-append out "/bin"))) - (copy-recursively "." share/quex) - (mkdir-p bin) - (symlink (string-append share/quex "/quex-exe.py") - (string-append bin "/quex")) - #t)))))) - (native-search-paths - (list (search-path-specification - (variable "QUEX_PATH") - (files '("share/quex"))))) - (home-page "http://quex.sourceforge.net/") - (synopsis "Lexical analyzer generator in Python") - (description "@code{quex} is a lexical analyzer generator in Python.") - (license license:lgpl2.1+))) ; Non-military - -(define-public python2-quex - (package (inherit python2-quex-0.67.3) - (name "python2-quex") - (version "0.68.1") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/quex/DOWNLOAD/quex-" version ".tar.gz")) - (sha256 - (base32 - "0svc9nla3b9145d6b7fb9dizx412l3difzqw0ilh9lz52nsixw8j")) - (file-name (string-append name "-" version ".tar.gz")))))) - -(define-public python-more-itertools - (package - (name "python-more-itertools") - (version "4.3.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "more-itertools" version)) - (sha256 - (base32 - "17h3na0rdh8xq30w4b9pizgkdxmm51896bxw600x84jflg9vaxn4")))) - (build-system python-build-system) - (arguments - `(,@(if (any (cute string-prefix? <> (or (%current-system) - (%current-target-system))) - '("armhf" "i686")) - '(#:phases - (modify-phases %standard-phases - ;; This is required for 32-bit hardware. - ;; TODO: Try to remove this when upgrading. - (add-after 'unpack 'patch-test - (lambda _ - (substitute* "more_itertools/tests/test_more.py" - (("10 \\*\\* 10") "9 ** 9")) - #t)))) - '()))) - (propagated-inputs - `(("python-six" ,python-six-bootstrap))) - (home-page "https://github.com/erikrose/more-itertools") - (synopsis "More routines for operating on iterables, beyond itertools") - (description "Python's built-in @code{itertools} module implements a -number of iterator building blocks inspired by constructs from APL, Haskell, -and SML. @code{more-itertools} includes additional building blocks for -working with iterables.") - (license license:expat))) - -(define-public python2-more-itertools - (package-with-python2 python-more-itertools)) - -(define-public python-latexcodec - (package - (name "python-latexcodec") - (version "1.0.5") - (source - (origin - (method url-fetch) - (uri (pypi-uri "latexcodec" version)) - (sha256 - (base32 - "0zdd1gf24i83ykadx0y30n3001j43scqr2saql3vckk5c39dj1wn")))) - (build-system python-build-system) - (inputs - `(("python-six" ,python-six))) - (home-page "https://readthedocs.org/projects/latexcodec/") - (synopsis "Work with LaTeX code in Python") - (description "Lexer and codec to work with LaTeX code in Python.") - (license license:expat))) - -(define-public python-pybtex - (package - (name "python-pybtex") - (version "0.21") - (source - (origin - (method url-fetch) - (uri (pypi-uri "pybtex" version)) - (sha256 - (base32 - "00300j8dn5pxq4ndxmfmbmycg2znawkqs49val2x6jlmfiy6r2mg")))) - (build-system python-build-system) - (native-inputs - `(("python-nose" ,python-nose))) - (inputs - `(("python-latexcodec" ,python-latexcodec) - ("python-pyyaml" ,python-pyyaml) - ("python-six" ,python-six))) - (arguments - `(#:test-target "nosetests")) - (home-page "https://pybtex.org/") - (synopsis "BibTeX-compatible bibliography processor") - (description "Pybtex is a BibTeX-compatible bibliography processor written -in Python. You can simply type pybtex instead of bibtex.") - (license license:expat))) - -(define-public python-onetimepass - (package - (name "python-onetimepass") - (version "1.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "onetimepass" version)) - (sha256 - (base32 "09vagxgbq78wvq4xbikmn2hpqqsa2i96kqsmphf7dqynfv0dlsd5")))) - (build-system python-build-system) - (propagated-inputs `(("python-six" ,python-six))) - (home-page "https://github.com/tadeck/onetimepass/") - (synopsis "One-time password library") - (description "Python one-time password library for HMAC-based (HOTP) and -time-based (TOTP) passwords.") - (license license:expat))) - -(define-public python-parso - (package - (name "python-parso") - (version "0.3.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "parso" version)) - (sha256 - (base32 - "18p89iwcm8mnf380f92g9w0bhx5km8wxp392vvjcq4y1ld1llw1m")))) - (native-inputs - `(("python-pytest" ,python-pytest))) - (build-system python-build-system) - (home-page "https://github.com/davidhalter/parso") - (synopsis "Python Parser") - (description "Parso is a Python parser that supports error recovery and -round-trip parsing for different Python versions (in multiple Python versions). -Parso is also able to list multiple syntax errors in your Python file.") - (license license:expat))) - -(define-public python2-parso - (package-with-python2 python-parso)) - -(define-public python-async-generator - (package - (name "python-async-generator") - (version "1.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "async_generator" version)) - (sha256 - (base32 - "0wc3hidz1q85cja93k5pzybn0fprfnqyrv4qlkdqdzklc5f4dmdp")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest))) - (home-page "https://github.com/python-trio/async_generator") - (synopsis "Async generators and context managers for Python 3.5+") - (description "@code{async_generator} back-ports Python 3.6's native async -generators and Python 3.7's context managers into Python 3.5.") - ;; Dual licensed. - (license (list license:expat license:asl2.0)))) - -(define-public python-async-timeout - (package - (name "python-async-timeout") - (version "3.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "async-timeout" version)) - (sha256 - (base32 - "0pscbyr840m7fyfc3r8zv9kgkwdcn9f78p7zsrczciwd09m82g0c")))) - (build-system python-build-system) - (home-page "https://github.com/aio-libs/async_timeout/") - (synopsis "Timeout context manager for asyncio programs") - (description "@code{async-timeout} provides a timeout timeout context -manager compatible with @code{asyncio}.") - (license license:asl2.0))) - -(define-public python-glob2 - (package - (name "python-glob2") - (version "0.6") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/miracle2k/python-glob2/archive/" - version - ".tar.gz")) - (sha256 - (base32 - "0ja168f0dz4kbz4m06dm0rd3acaypk6hjx2km541pw22y9s40mag")) - (file-name (string-append name "-" version ".tar.gz")))) - (build-system python-build-system) - (home-page "https://github.com/miracle2k/python-glob2/") - (synopsis "Extended Version of the python buildin glob module") - (description "This is an extended version of the Python -@url{http://docs.python.org/library/glob.html, built-in glob module} which -adds: - -@itemize -@item The ability to capture the text matched by glob patterns, and return -those matches alongside the file names. -@item A recursive @code{**} globbing syntax, akin for example to the -@code{globstar} option of Bash. -@item The ability to replace the file system functions used, in order to glob -on virtual file systems. -@item Compatible with Python 2 and Python 3 (tested with 3.3). -@end itemize - -Glob2 currently based on the glob code from Python 3.3.1.") - (license license:bsd-2))) - -(define-public python2-glob2 - (package-with-python2 python-glob2)) - -(define-public python-gipc - (package - (name "python-gipc") - (version "0.6.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "gipc" version ".zip")) - (sha256 - (base32 - "0pd9by719qh882hqs6xpby61sn1x5h98hms5p2p8yqnycrf1s0h2")))) - (build-system python-build-system) - (native-inputs - `(("unzip" ,unzip))) - (propagated-inputs - `(("python-gevent" ,python-gevent))) - (home-page "http://gehrcke.de/gipc") - (synopsis "Child process management in the context of gevent") - (description "Usage of Python's multiprocessing package in a -gevent-powered application may raise problems. With @code{gipc}, -process-based child processes can safely be created anywhere within a -gevent-powered application.") - (license license:expat))) - -(define-public python2-gipc - (package-with-python2 python-gipc)) - -(define-public python-fusepy - (package - (name "python-fusepy") - (version "2.0.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "fusepy" version)) - (sha256 - (base32 - "0v5grm4zyf58hsplwsxfbihddw95lz9w8cy3rpzbyha287swgx8h")))) - (build-system python-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'build 'set-library-file-name - (lambda* (#:key inputs #:allow-other-keys) - (let ((fuse (assoc-ref inputs "fuse"))) - (substitute* "fuse.py" - (("find_library\\('fuse'\\)") - (string-append "'" fuse "/lib/libfuse.so'"))) - #t)))))) - (propagated-inputs - `(("fuse" ,fuse))) - (home-page "https://github.com/fusepy/fusepy") - (synopsis "Simple ctypes bindings for FUSE") - (description "Python module that provides a simple interface to FUSE and -MacFUSE. The binding is created using the standard @code{ctypes} library.") - (license license:isc))) - -(define-public python2-fusepy - (package-with-python2 python-fusepy)) - -(define-public python2-gdrivefs - (package - (name "python2-gdrivefs") - (version "0.14.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "gdrivefs" version)) - (sha256 - (base32 - "0v9sp2cfg4ki3wagkwf3rnfpjhvgf845anz3757il9z95yvvcvb7")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:phases - (modify-phases %standard-phases - (add-before 'build 'patch-setup-py - (lambda _ - ;; Update requirements from dependency==version - ;; to dependency>=version - (substitute* "gdrivefs/resources/requirements.txt" - (("==") ">=")) - #t))))) - (native-inputs - `(("python2-gipc" ,python2-gipc) - ("python2-gevent" ,python2-gevent) - ("python2-greenlet" ,python2-greenlet) - ("python2-httplib2" ,python2-httplib2) - ("python2-uritemplate" ,python2-uritemplate) - ("python2-oauth2client" ,python2-oauth2client) - ("python2-six" ,python2-six))) - (propagated-inputs - `(("python2-dateutil" ,python2-dateutil) - ("python2-fusepy" ,python2-fusepy) - ("python2-google-api-client" ,python2-google-api-client))) - (home-page "https://github.com/dsoprea/GDriveFS") - (synopsis "Mount Google Drive as a local file system") - (description "@code{gdrivefs} provides a FUSE wrapper for Google Drive -under Python 2.7.") - (license license:gpl2))) - -(define-public pybind11 - (package - (name "pybind11") - (version "2.2.4") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/pybind/pybind11.git") - (commit (string-append "v" version)))) - (sha256 - (base32 - "0pa79ymcasv8br5ifbx7878id5py2jpjac3i20cqxr6gs9l6ivlv")) - (file-name (git-file-name name version)))) - (build-system cmake-build-system) - (native-inputs - `(("python" ,python) - ("python-pytest" ,python-pytest))) - (arguments - `(#:test-target "check")) - (home-page "https://github.com/pybind/pybind11/") - (synopsis "Seamless operability between C++11 and Python") - (description "pybind11 is a lightweight header-only library that exposes -C++ types in Python and vice versa, mainly to create Python bindings of -existing C++ code. Its goals and syntax are similar to the excellent -Boost.Python library by David Abrahams: to minimize boilerplate code in -traditional extension modules by inferring type information using compile-time -introspection.") - (license license:expat))) - -(define-public python-fasteners - (package - (name "python-fasteners") - (version "0.14.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "fasteners" version)) - (sha256 - (base32 - "063y20kx01ihbz2mziapmjxi2cd0dq48jzg587xdsdp07xvpcz22")))) - (build-system python-build-system) - (propagated-inputs - `(("python-monotonic" ,python-monotonic) - ("python-six" ,python-six) - ("python-testtools" ,python-testtools))) - (home-page "https://github.com/harlowja/fasteners") - (synopsis "Python package that provides useful locks") - (description - "This package provides a Python program that provides following locks: - -@itemize -@item Locking decorator -@item Reader-writer locks -@item Inter-process locks -@item Generic helpers -@end itemize\n") - (properties `((python2-variant . ,(delay python2-fasteners)))) - (license license:asl2.0))) - -(define-public python2-fasteners - (let ((base (package-with-python2 (strip-python2-variant python-fasteners)))) - (package - (inherit base) - (propagated-inputs - `(("python2-futures" ,python2-futures) - ,@(package-propagated-inputs base)))))) - -(define-public python-requests-file - (package - (name "python-requests-file") - (version "1.4.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "requests-file" version)) - (sha256 - (base32 - "1yp2jaxg3v86pia0q512dg3hz6s9y5vzdivsgrba1kds05ial14g")))) - (build-system python-build-system) - (propagated-inputs - `(("python-requests" ,python-requests) - ("python-six" ,python-six))) - (home-page - "https://github.com/dashea/requests-file") - (synopsis "File transport adapter for Requests") - (description - "Requests-File is a transport adapter for use with the Requests Python -library to allow local filesystem access via file:// URLs.") - (license license:asl2.0))) - -(define-public python2-requests-file - (package-with-python2 python-requests-file)) - -(define-public python-tldextract - (package - (name "python-tldextract") - (version "2.2.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "tldextract" version)) - (sha256 - (base32 - "1d5s8v6kpsgazyahflhji1cfdcf89rv7l7z55v774bhzvcjp2y99")))) - (build-system python-build-system) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-responses" ,python-responses))) - (propagated-inputs - `(("python-idna" ,python-idna) - ("python-requests" ,python-requests) - ("python-requests-file" ,python-requests-file))) - (home-page - "https://github.com/john-kurkowski/tldextract") - (synopsis - "Separate the TLD from the registered domain and subdomains of a URL") - (description - "TLDExtract accurately separates the TLD from the registered domain and -subdomains of a URL, using the Public Suffix List. By default, this includes -the public ICANN TLDs and their exceptions. It can optionally support the -Public Suffix List's private domains as well.") - (license license:bsd-3))) - -(define-public python2-tldextract - (package-with-python2 python-tldextract)) - -(define-public python-pynamecheap - (package - (name "python-pynamecheap") - (version "0.0.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "PyNamecheap" version)) - (sha256 - (base32 - "0wkbwz208j8nfrsmzmclvxg22ymknn0mlz76wbdza9k2bx2zja6l")))) - (build-system python-build-system) - (propagated-inputs - `(("python-requests" ,python-requests))) - (home-page - "https://github.com/Bemmu/PyNamecheap") - (synopsis - "Namecheap API client in Python") - (description - "PyNamecheap is a Namecheap API client in Python.") - (license license:expat))) - -(define-public python2-pynamecheap - (package-with-python2 python-pynamecheap)) - -(define-public python-dns-lexicon - (package - (name "python-dns-lexicon") - (version "2.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "dns-lexicon" version)) - (sha256 - (base32 - "0jdn3ns71bsybr7njgsqr9xlxsqh7zh6phn4ld0liazqdn2l5f6m")))) - (build-system python-build-system) - (arguments - `(#:tests? #f)) ;requires internet access - (propagated-inputs - `(("python-future" ,python-future) - ("python-pynamecheap" ,python-pynamecheap) - ("python-requests" ,python-requests) - ("python-tldextract" ,python-tldextract) - ("python-urllib3" ,python-urllib3))) - (home-page "https://github.com/AnalogJ/lexicon") - (synopsis - "Manipulate DNS records on various DNS providers") - (description - "Lexicon provides a way to manipulate DNS records on multiple DNS -providers in a standardized way. It has a CLI but it can also be used as a -Python library. It was designed to be used in automation, specifically with -Let's Encrypt.") - (license license:expat))) - -(define-public python2-dns-lexicon - (package-with-python2 python-dns-lexicon)) - -(define-public python-commandlines - (package - (name "python-commandlines") - (version "0.4.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "commandlines" version)) - (sha256 - (base32 - "0r7xcr0knv02p4mswa2bng61nn8nbhhrs6kvdnb9bb3hhjvm1dl6")))) - (build-system python-build-system) - (home-page "https://github.com/chrissimpkins/commandlines") - (synopsis "Command line argument to object parsing library") - (description - "@code{Commandlines} is a Python library for command line application -development that supports command line argument parsing, command string -validation testing and application logic.") - (license license:expat))) - -;; Make sure to upgrade python-llvmlite in (gnu packages llvm) together with -;; python-numba. They have a very unflexible relationship. -(define-public python-numba - (package - (name "python-numba") - (version "0.39.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "numba" version)) - (sha256 - (base32 - "1bibvkwga1v8293i9ivl469d8bzgabn3vgr2ig7c1i68v8frsx07")))) - (build-system python-build-system) - (arguments - `(#:modules ((guix build utils) - (guix build python-build-system) - (ice-9 ftw) - (srfi srfi-1) - (srfi srfi-26)) - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'disable-proprietary-features - (lambda _ - (setenv "NUMBA_DISABLE_HSA" "1") - (setenv "NUMBA_DISABLE_CUDA" "1") - #t)) - (add-after 'unpack 'remove-failing-tests - (lambda _ - ;; FIXME: these tests fail for unknown reasons: - ;; test_non_writable_pycache, test_non_creatable_pycache, and - ;; test_frozen (all in numba.tests.test_dispatcher.TestCache). - (substitute* "numba/tests/test_dispatcher.py" - (("def test(_non_writable_pycache)" _ m) - (string-append "def guix_skip" m)) - (("def test(_non_creatable_pycache)" _ m) - (string-append "def guix_skip" m)) - (("def test(_frozen)" _ m) - (string-append "def guix_skip" m))) - - ;; These tests fail because we don't run the tests from the build - ;; directory: test_setup_py_distutils, test_setup_py_setuptools - ;; They ar in numba.tests.test_pycc.TestDistutilsSupport. - (substitute* "numba/tests/test_pycc.py" - (("def test(_setup_py_distutils|_setup_py_setuptools)" _ m) - (string-append "def guix_skip" m))) - #t)) - (replace 'check - (lambda _ - (let ((cwd (getcwd))) - (setenv "PYTHONPATH" - (string-append cwd "/build/" - (find (cut string-prefix? "lib" <>) - (scandir (string-append cwd "/build"))) - ":" - (getenv "PYTHONPATH"))) - ;; Something is wrong with the PYTHONPATH when running the - ;; tests from the build directory, as it complains about not being - ;; able to import certain modules. - (with-directory-excursion "/tmp" - (invoke "python3" "-m" "numba.runtests" "-v" "-m"))) - #t))))) - (propagated-inputs - `(("python-llvmlite" ,python-llvmlite) - ("python-numpy" ,python-numpy) - ("python-singledispatch" ,python-singledispatch))) - ;; Needed for tests. - (inputs - `(("python-jinja2" ,python-jinja2) - ("python-pygments" ,python-pygments))) - (home-page "https://numba.pydata.org") - (synopsis "Compile Python code using LLVM") - (description "Numba gives you the power to speed up your applications with -high performance functions written directly in Python. With a few -annotations, array-oriented and math-heavy Python code can be just-in-time -compiled to native machine instructions, similar in performance to C, C++ and -Fortran, without having to switch languages or Python interpreters. - -Numba works by generating optimized machine code using the LLVM compiler -infrastructure at import time, runtime, or statically (using the included pycc -tool).") - (license license:bsd-3))) - -(define-public python-anndata - (package - (name "python-anndata") - (version "0.6.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "anndata" version)) - (sha256 - (base32 - "1fh461xyyc7pcrjfgd013bdc2alf53r46ss3gfw3431mbb1gappi")))) - (build-system python-build-system) - (propagated-inputs - `(("python-h5py" ,python-h5py) - ("python-natsort" ,python-natsort) - ("python-pandas" ,python-pandas) - ("python-scipy" ,python-scipy))) - (home-page "https://github.com/theislab/anndata") - (synopsis "Annotated data for data analysis pipelines") - (description "Anndata is a package for simple (functional) high-level APIs -for data analysis pipelines. In this context, it provides an efficient, -scalable way of keeping track of data together with learned annotations and -reduces the code overhead typically encountered when using a mostly -object-oriented library such as @code{scikit-learn}.") - (license license:bsd-3))) - -(define-public python-dill - (package - (name "python-dill") - (version "0.2.8.2") - (source - (origin - (method url-fetch) - (uri (pypi-uri "dill" version)) - (sha256 - (base32 - "1cymzn9fxwdy33h21zkk4gqgzvd25110hh3zdqnvnwa3p52c4kb2")))) - (build-system python-build-system) - ;; FIXME: The check phase fails with "don't know how to make test". - (arguments '(#:tests? #f)) - (home-page "https://pypi.org/project/dill") - (synopsis "Serialize all of Python") - (description "Dill extends Python's @code{pickle} module for serializing -and de-serializing Python objects to the majority of the built-in Python -types. Dill provides the user the same interface as the @code{pickle} module, -and also includes some additional features. In addition to pickling Python -objects, @code{dill} provides the ability to save the state of an interpreter -session in a single command. Hence, it would be feasable to save a -interpreter session, close the interpreter, ship the pickled file to another -computer, open a new interpreter, unpickle the session and thus continue from -the saved state of the original interpreter session.") - (license license:bsd-3))) - -(define-public python-multiprocess - (package - (name "python-multiprocess") - (version "0.70.6.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "multiprocess" version)) - (sha256 - (base32 - "1ip5caz67b3q0553mr8gm8xwsb8x500jn8ml0gihgyfy52m2ypcq")))) - (build-system python-build-system) - (propagated-inputs - `(("python-dill" ,python-dill))) - (home-page "https://pypi.org/project/multiprocess") - (synopsis "Multiprocessing and multithreading in Python") - (description - "This package is a fork of the multiprocessing Python package, a package -which supports the spawning of processes using the API of the standard -library's @code{threading} module.") - (license license:bsd-3))) - -(define-public python-toolz - (package - (name "python-toolz") - (version "0.9.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "toolz" version)) - (sha256 - (base32 - "1j9i7fdjnx9dz35fdj5gvgxx6585ja9sxgaiv65if77nlxz0m7wj")))) - (build-system python-build-system) - ;; FIXME: tests cannot be computed: "Can't perform this operation for - ;; unregistered loader type" - (arguments '(#:tests? #f)) - (home-page "https://github.com/pytoolz/toolz/") - (synopsis "List processing tools and functional utilities") - (description - "This package provides a set of utility functions for iterators, -functions, and dictionaries.") - (license license:bsd-3))) - -(define-public python2-toolz - (package-with-python2 python-toolz)) - -(define-public python-cytoolz - (package - (name "python-cytoolz") - (version "0.9.0.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "cytoolz" version)) - (sha256 - (base32 - "1r80p88hm3f3r4zpixzr047y5hw4bzy41m4xywnhycda83x0dk44")))) - (build-system python-build-system) - ;; FIXME: tests fail with "module 'cytoolz.curried' has no attribute - ;; 'exceptions'" - (arguments '(#:tests? #f)) - (propagated-inputs - `(("python-toolz" ,python-toolz))) - (native-inputs - `(("python-cython" ,python-cython))) - (home-page "https://github.com/pytoolz/cytoolz") - (synopsis "High performance functional utilities") - (description - "The cytoolz package implements the same API as provided by toolz. The -main differences are that @code{cytoolz} is faster and cytoolz offers a C API -that is accessible to other projects developed in Cython.") - (license license:bsd-3))) - -(define-public python-sortedcontainers - (package - (name "python-sortedcontainers") - (version "2.0.4") - (source - (origin - (method url-fetch) - (uri (pypi-uri "sortedcontainers" version)) - (sha256 - (base32 - "10hrk2k0hbf9x78vd3f0lj277m1yzfhzzxr0hja718liwb398wk0")))) - (build-system python-build-system) - (native-inputs - `(("python-tox" ,python-tox))) - (home-page "http://www.grantjenks.com/docs/sortedcontainers/") - (synopsis "Sorted List, Sorted Dict, Sorted Set") - (description - "This package provides a sorted collections library, written in -pure-Python.") - (license license:asl2.0))) - -(define-public python-cloudpickle - (package - (name "python-cloudpickle") - (version "0.6.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "cloudpickle" version)) - (sha256 - (base32 - "1wdw89mlm7fqa3fm3ymskx05jrys66n8m1z1a8s0mss0799ahsgi")))) - (build-system python-build-system) - ;; FIXME: there are 5 errors in 122 tests: - ;; ERROR: test_function_pickle_compat_0_4_0 (tests.cloudpickle_test.CloudPickleTest) - ;; ERROR: test_function_pickle_compat_0_4_1 (tests.cloudpickle_test.CloudPickleTest) - ;; ERROR: test_function_pickle_compat_0_4_0 (tests.cloudpickle_test.Protocol2CloudPickleTest) - ;; ERROR: test_function_pickle_compat_0_4_1 (tests.cloudpickle_test.Protocol2CloudPickleTest) - ;; ERROR: test_temp_file (tests.cloudpickle_file_test.CloudPickleFileTests) - ;; TypeError: cannot serialize '_io.BufferedRandom' object - (arguments '(#:tests? #f)) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-mock" ,python-mock) - ("python-tornado" ,python-tornado))) - (home-page "https://github.com/cloudpipe/cloudpickle") - (synopsis "Extended pickling support for Python objects") - (description - "Cloudpickle makes it possible to serialize Python constructs not -supported by the default pickle module from the Python standard library. It -is especially useful for cluster computing where Python expressions are -shipped over the network to execute on remote hosts, possibly close to the -data.") - (license license:bsd-3))) - -(define-public python2-cloudpickle - (package-with-python2 python-cloudpickle)) - -(define-public python-locket - (package - (name "python-locket") - (version "0.2.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "locket" version)) - (sha256 - (base32 - "1d4z2zngrpqkrfhnd4yhysh66kjn4mblys2l06sh5dix2p0n7vhz")))) - (build-system python-build-system) - (home-page "https://github.com/mwilliamson/locket.py") - (synopsis "File-based locks for Python") - (description - "Locket implements a lock that can be used by multiple processes provided -they use the same path.") - (license license:bsd-2))) - -(define-public python2-locket - (package-with-python2 python-locket)) - -(define-public python-blosc - (package - (name "python-blosc") - (version "1.5.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "blosc" version)) - (sha256 - (base32 - "1cm91c6r431yla2mbs4895bgiianjf30dfz14vvv99dslygd65jw")))) - (build-system python-build-system) - ;; FIXME: all tests pass, but then this error is printed: - ;; TypeError: calling <function run at 0x7ffff2568d90> returned None, not a test - (arguments '(#:tests? #f)) - (propagated-inputs - `(("python-numpy" ,python-numpy))) - (home-page "https://github.com/blosc/python-blosc") - (synopsis "Python wrapper for the Blosc data compressor library") - (description "Blosc is a high performance compressor optimized for binary -data. It has been designed to transmit data to the processor cache faster -than the traditional, non-compressed, direct memory fetch approach via a -@code{memcpy()} system call. - -Blosc works well for compressing numerical arrays that contains data with -relatively low entropy, like sparse data, time series, grids with -regular-spaced values, etc. - -This Python package wraps the Blosc library.") - (license license:bsd-3))) - -(define-public python2-blosc - (package-with-python2 python-blosc)) - -(define-public python-partd - (package - (name "python-partd") - (version "0.3.9") - (source - (origin - (method url-fetch) - (uri (pypi-uri "partd" version)) - (sha256 - (base32 - "0sz6rwlnl4fqq220pyz863cnv0gjdxl4m7lscl71ishl5z0xkmhz")))) - (build-system python-build-system) - (propagated-inputs - `(("python-blosc" ,python-blosc) - ("python-locket" ,python-locket) - ("python-numpy" ,python-numpy) - ("python-pandas" ,python-pandas) - ("python-pyzmq" ,python-pyzmq) - ("python-toolz" ,python-toolz))) - (home-page "https://github.com/dask/partd/") - (synopsis "Appendable key-value storage") - (description "Partd stores key-value pairs. Values are raw bytes. We -append on old values. Partd excels at shuffling operations.") - (license license:bsd-3))) - -(define-public python2-partd - (package-with-python2 python-partd)) - -(define-public python-dask - (package - (name "python-dask") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "dask" version)) - (sha256 - (base32 - "1xwz8h020ipwav2p5gcq9pskya1cvzd6hjyvd06dvr3w5lxlmym1")))) - (build-system python-build-system) - ;; A single test out of 5000+ fails. This test is marked as xfail when - ;; pytest-xdist is used. - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'disable-broken-test - (lambda _ - (substitute* "dask/tests/test_threaded.py" - (("def test_interrupt\\(\\)" m) - (string-append "@pytest.mark.skip(reason=\"Disabled by Guix\")\n" - m))) - (when (which "python2") - ;; This test fails with recent Pandas: - ;; <https://github.com/dask/dask/issues/3794>. - (substitute* "dask/dataframe/tests/test_dataframe.py" - (("def test_info\\(\\)" m) - (string-append "@pytest.mark.skip(reason=\"Disabled by Guix\")\n" - m)))) - #t)) - (replace 'check - (lambda _ (invoke "pytest" "-vv")))))) - (propagated-inputs - `(("python-cloudpickle" ,python-cloudpickle) - ("python-numpy" ,python-numpy) - ("python-pandas" ,python-pandas) - ("python-partd" ,python-partd) - ("python-toolz" ,python-toolz) - ("python-pyyaml" ,python-pyyaml))) - (native-inputs - `(("python-pytest" ,python-pytest) - ("python-pytest-runner" ,python-pytest-runner))) - (home-page "https://github.com/dask/dask/") - (synopsis "Parallel computing with task scheduling") - (description - "Dask is a flexible parallel computing library for analytics. It -consists of two components: dynamic task scheduling optimized for computation, -and large data collections like parallel arrays, dataframes, and lists that -extend common interfaces like NumPy, Pandas, or Python iterators to -larger-than-memory or distributed environments. These parallel collections -run on top of the dynamic task schedulers. ") - (license license:bsd-3))) - -(define-public python2-dask - (package-with-python2 python-dask)) - -(define-public python-ilinkedlist - (package - (name "python-ilinkedlist") - (version "0.4.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ilinkedlist" version)) - (sha256 - (base32 - "0nrw4sr3afldrp7073hvc0rgdz282s0l819jdmj1i6nn05v33h0l")))) - (build-system python-build-system) - (native-inputs `(("python-pytest" ,python-pytest))) - (inputs `(("python" ,python))) - (home-page "https://github.com/luther9/ilinkedlist-py") - (synopsis "Immutable linked list library") - (description - "This is a implementation of immutable linked lists for Python. It -contains @code{nil} (the empty linked list) and a @code{Pair} class for nodes. -Since a linked list is treated as immutable, it is hashable, and its length -can be retrieved in constant time. Some of the terminology is inspired by -LISP. It is possible to create an improper list by creating a @code{Pair} -with a non-list @code{cdr}.") - (license license:gpl3+))) - -(define-public python-readlike - (package - (name "python-readlike") - (version "0.1.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "readlike" version)) - (sha256 - (base32 "027w8fvi50ksl57q0a7kb5zvmq8jxaawnviib1jdqw0p3igvm1j4")))) - (build-system python-build-system) - (home-page "https://github.com/jangler/readlike") - (synopsis "GNU Readline-like line editing module") - (description - "This Python module provides line editing functions similar to the default -Emacs-style ones of GNU Readline. Unlike the Python standard library's -@code{readline} package, this one allows access to those capabilties in settings -outside of a standard command-line interface. It is especially well-suited to -interfacing with Urwid, due to a shared syntax for describing key inputs. - -Currently, all stateless Readline commands are implemented. Yanking and history -are not supported.") - (license license:expat))) - -(define-public python2-readlike - (package-with-python2 python-readlike)) - -(define-public python-reparser - (package - (name "python-reparser") - (version "1.4.3") - (source - (origin - (method url-fetch) - (uri (pypi-uri "ReParser" version)) - (sha256 - (base32 "0nniqb69xr0fv7ydlmrr877wyyjb61nlayka7xr08vlxl9caz776")))) - (build-system python-build-system) - (home-page "https://github.com/xmikos/reparser") - (synopsis "Simple lexer/parser for inline markup based on regular expressions") - (description - "This Python library provides a simple lexer/parser for inline markup based -on regular expressions.") - (license license:expat))) - -(define-public python2-reparser - (let ((reparser (package-with-python2 - (strip-python2-variant python-reparser)))) - (package (inherit reparser) - (propagated-inputs - `(("python2-enum34" ,python2-enum34) - ,@(package-propagated-inputs reparser)))))) - -(define-public python-precis-i18n - (package - (name "python-precis-i18n") - (version "1.0.0") - (source - (origin - (method url-fetch) - (uri (pypi-uri "precis_i18n" version)) - (sha256 - (base32 - "0gjhvwd8aifx94rl1ag08vlmndyx2q3fkyqb0c4i46x3p2bc2yi2")))) - (build-system python-build-system) - (home-page "https://github.com/byllyfish/precis_i18n") - (synopsis "Implementation of the PRECIS framework") - (description - "This module implements the PRECIS Framework as described in RFC 8264, -RFC 8265 and RFC 8266.") - (license license:expat))) - -(define-public python-wikidata - (package - (name "python-wikidata") - (version "0.6.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "Wikidata" version)) - (sha256 - (base32 - "08nlnydddfp1jj0cdmshvld1irzngbp3dij928wqsg9ziklm6mw9")))) - (build-system python-build-system) - (propagated-inputs - `(("python-babel" ,python-babel))) - (home-page "https://github.com/dahlia/wikidata") - (synopsis "Wikidata client library") - (description - "This package provides a Python interface to -@url{https://www.wikidata.org/, Wikidata}.") - (properties '((upstream-name . "Wikidata"))) - (license license:gpl3+))) - -(define-public python-attr - (package - (name "python-attr") - (version "0.3.1") - (source - (origin - (method url-fetch) - (uri (pypi-uri "attr" version)) - (sha256 - (base32 - "0pbpskvxp5hzdvcaf766ljwpckshir8sf7z6jqji6zyib20594ch")))) - (build-system python-build-system) - (home-page "https://github.com/denis-ryzhkov/attr") - (synopsis "Decorator for attributes of target function or class") - (description "Simple decorator to set attributes of target function or -class in a @acronym{DRY, Don't Repeat Yourself} way.") - (license license:expat))) diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm index 55f72373f3..de5d31e4d7 100644 --- a/gnu/packages/qt.scm +++ b/gnu/packages/qt.scm @@ -62,8 +62,10 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages ruby) #:use-module (gnu packages sdl) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages vulkan) #:use-module (gnu packages xdisorg) diff --git a/gnu/packages/rdf.scm b/gnu/packages/rdf.scm index 1c045b6ecc..7fd893c374 100644 --- a/gnu/packages/rdf.scm +++ b/gnu/packages/rdf.scm @@ -30,13 +30,13 @@ #:use-module (guix build-system waf) #:use-module (gnu packages) #:use-module (gnu packages autotools) - #:use-module (gnu packages databases) #:use-module (gnu packages boost) #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages curl) #:use-module (gnu packages cyrus-sasl) #:use-module (gnu packages documentation) + #:use-module (gnu packages dbm) #:use-module (gnu packages gnupg) #:use-module (gnu packages linux) #:use-module (gnu packages multiprecision) @@ -45,6 +45,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages time) #:use-module (gnu packages tls) diff --git a/gnu/packages/ruby.scm b/gnu/packages/ruby.scm index 8504fd9a27..18c6335911 100644 --- a/gnu/packages/ruby.scm +++ b/gnu/packages/ruby.scm @@ -34,6 +34,7 @@ #:use-module (gnu packages base) #:use-module (gnu packages compression) #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages readline) #:use-module (gnu packages autotools) #:use-module (gnu packages java) @@ -42,7 +43,9 @@ #:use-module (gnu packages ncurses) #:use-module (gnu packages networking) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages ragel) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages version-control) #:use-module (guix packages) diff --git a/gnu/packages/sawfish.scm b/gnu/packages/sawfish.scm index 8795d8d9fb..1ac72f2baa 100644 --- a/gnu/packages/sawfish.scm +++ b/gnu/packages/sawfish.scm @@ -24,7 +24,7 @@ #:use-module (guix build-system gnu) #:use-module (gnu packages) #:use-module (gnu packages autotools) - #:use-module (gnu packages databases) + #:use-module (gnu packages dbm) #:use-module (gnu packages gettext) #:use-module (gnu packages gtk) #:use-module (gnu packages libffi) diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index 862eedfd18..b836447668 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -10,6 +10,7 @@ ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com> +;;; Copyright © 2018 Gabriel Hondet <gabrielhondet@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -40,13 +41,13 @@ #:use-module (gnu packages autotools) #:use-module (gnu packages bdw-gc) #:use-module (gnu packages compression) + #:use-module (gnu packages databases) #:use-module (gnu packages libevent) #:use-module (gnu packages libunistring) #:use-module (gnu packages m4) #:use-module (gnu packages multiprecision) #:use-module (gnu packages ncurses) #:use-module (gnu packages pcre) - #:use-module (gnu packages databases) #:use-module (gnu packages emacs) #:use-module (gnu packages ghostscript) #:use-module (gnu packages netpbm) @@ -64,6 +65,7 @@ #:use-module (gnu packages fontutils) #:use-module (gnu packages image) #:use-module (gnu packages xorg) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages gl) #:use-module (gnu packages libedit) @@ -1168,3 +1170,77 @@ simple, elegant Scheme dialect. It is a lisp-1 with lexical scope. The core is 12 builtin special forms and 33 builtin functions.") (home-page "https://github.com/JeffBezanson/femtolisp") (license bsd-3)))) + +(define-public gauche + (package + (name "gauche") + (version "0.9.7") + (home-page "http://practical-scheme.net/gauche/index.html") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://sourceforge/gauche/Gauche/Gauche-" + version ".tgz")) + (sha256 + (base32 + "181nycikma0rwrb1h6mi3kys11f8628pq8g5r3fg5hiz5sabscrd")) + (modules '((guix build utils))) + (snippet '(begin + ;; Remove libatomic-ops + (delete-file-recursively "gc/libatomic_ops") + #t)))) + (build-system gnu-build-system) + (inputs + `(("libatomic-ops" ,libatomic-ops) + ("zlib" ,zlib))) + (native-inputs + `(("texinfo" ,texinfo) + ("openssl" ,openssl) ; needed for tests + ("pkg-config" ,pkg-config))) ; needed to find external libatomic-ops + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-/bin/sh + ;; needed only for tests + (lambda _ + (substitute* '("configure" + "test/www.scm" + "ext/tls/test.scm" + "gc/configure" + "lib/gauche/configure.scm" + "lib/gauche/package/util.scm" + "lib/gauche/process.scm") + (("/bin/sh") (which "sh"))) + #t)) + (add-after 'build 'build-doc + (lambda _ + (with-directory-excursion "doc" + (invoke "make" "info")) + #t)) + (add-before 'check 'patch-normalize-test + ;; neutralize sys-normalize-pathname test as it relies on + ;; the home directory; (setenv "HOME" xx) isn't enough) + (lambda _ + (substitute* "test/system.scm" + (("~/abc") "//abc")) + #t)) + (add-before 'check 'patch-network-tests + ;; remove net checks + (lambda _ + (substitute* "ext/Makefile" + (("binary net termios") "binary termios")) + #t)) + (add-after 'install 'install-docs + (lambda _ + (with-directory-excursion "doc" + (invoke "make" "install")) + #t))))) + (synopsis "Scheme scripting engine") + (description "Gauche is a R7RS Scheme scripting engine aiming at being a +handy tool that helps programmers and system administrators to write small to +large scripts quickly. Quick startup, built-in system interface, native +multilingual support are some of the goals. Gauche comes with a package +manager/installer @code{gauche-package} which can download, compile, install +and list gauche extension packages.") + (license bsd-3))) diff --git a/gnu/packages/search.scm b/gnu/packages/search.scm index 8237d51771..ed616e739f 100644 --- a/gnu/packages/search.scm +++ b/gnu/packages/search.scm @@ -39,6 +39,7 @@ #:use-module (gnu packages pdf) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages web) #:use-module (gnu packages xdisorg) #:use-module (gnu packages xml)) diff --git a/gnu/packages/selinux.scm b/gnu/packages/selinux.scm index c56a991d99..e540a140a1 100644 --- a/gnu/packages/selinux.scm +++ b/gnu/packages/selinux.scm @@ -37,6 +37,7 @@ #:use-module (gnu packages pcre) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages swig) #:use-module (gnu packages textutils) #:use-module (gnu packages xml)) diff --git a/gnu/packages/serialization.scm b/gnu/packages/serialization.scm index 489c53f41d..876318869c 100644 --- a/gnu/packages/serialization.scm +++ b/gnu/packages/serialization.scm @@ -44,6 +44,7 @@ #:use-module (gnu packages lua) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages perl)) (define-public cereal diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm index 38eeaa7831..edf747de40 100644 --- a/gnu/packages/shells.scm +++ b/gnu/packages/shells.scm @@ -40,6 +40,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages scheme) #:use-module (guix build-system gnu) diff --git a/gnu/packages/simulation.scm b/gnu/packages/simulation.scm index 576b9bb89d..20b62f33d1 100644 --- a/gnu/packages/simulation.scm +++ b/gnu/packages/simulation.scm @@ -40,6 +40,7 @@ #:use-module (gnu packages ncurses) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages tls) #:use-module (gnu packages version-control) diff --git a/gnu/packages/sqlite.scm b/gnu/packages/sqlite.scm new file mode 100644 index 0000000000..5e5bbd8fb6 --- /dev/null +++ b/gnu/packages/sqlite.scm @@ -0,0 +1,125 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2013, 2015, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2014, 2015, 2016, 2018 Mark H Weaver <mhw@netris.org> +;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in> +;;; Copyright © 2015, 2016 Sou Bunnbu <iyzsong@gmail.com> +;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> +;;; Copyright © 2016 David Craven <david@craven.ch> +;;; Copyright © 2016, 2017, 2018 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org> +;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages sqlite) + #:use-module (gnu packages) + #:use-module (gnu packages readline) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (guix utils) + #:use-module (ice-9 match) + #:use-module (srfi srfi-26)) + +;;; Commentary: +;;; +;;; This module has been separated from (gnu packages databases) to reduce the +;;; number of module references for core packages. + +(define-public sqlite + (package + (name "sqlite") + (replacement sqlite-3.26.0) + (version "3.24.0") + (source (origin + (method url-fetch) + (uri (let ((numeric-version + (match (string-split version #\.) + ((first-digit other-digits ...) + (string-append first-digit + (string-pad-right + (string-concatenate + (map (cut string-pad <> 2 #\0) + other-digits)) + 6 #\0)))))) + (string-append "https://sqlite.org/2018/sqlite-autoconf-" + numeric-version ".tar.gz"))) + (sha256 + (base32 + "0jmprv2vpggzhy7ma4ynmv1jzn3pfiwzkld0kkg6hvgvqs44xlfr")))) + (build-system gnu-build-system) + (inputs `(("readline" ,readline))) + (arguments + `(#:configure-flags + ;; Add -DSQLITE_SECURE_DELETE, -DSQLITE_ENABLE_UNLOCK_NOTIFY and + ;; -DSQLITE_ENABLE_DBSTAT_VTAB to CFLAGS. GNU Icecat will refuse + ;; to use the system SQLite unless these options are enabled. + (list (string-append "CFLAGS=-O2 -DSQLITE_SECURE_DELETE " + "-DSQLITE_ENABLE_UNLOCK_NOTIFY " + "-DSQLITE_ENABLE_DBSTAT_VTAB")))) + (home-page "https://www.sqlite.org/") + (synopsis "The SQLite database management system") + (description + "SQLite is a software library that implements a self-contained, serverless, +zero-configuration, transactional SQL database engine. SQLite is the most +widely deployed SQL database engine in the world. The source code for SQLite +is in the public domain.") + (license license:public-domain))) + +(define-public sqlite-3.26.0 + (package (inherit sqlite) + (version "3.26.0") + (source (origin + (method url-fetch) + (uri (let ((numeric-version + (match (string-split version #\.) + ((first-digit other-digits ...) + (string-append first-digit + (string-pad-right + (string-concatenate + (map (cut string-pad <> 2 #\0) + other-digits)) + 6 #\0)))))) + (string-append "https://sqlite.org/2018/sqlite-autoconf-" + numeric-version ".tar.gz"))) + (sha256 + (base32 + "0pdzszb4sp73hl36siiv3p300jvfvbcdxi2rrmkwgs6inwznmajx")))))) + +;; This is used by Tracker. +(define-public sqlite-with-fts5 + (package/inherit sqlite + (name "sqlite-with-fts5") + (arguments + (substitute-keyword-arguments (package-arguments sqlite) + ((#:configure-flags flags) + `(cons "--enable-fts5" ,flags)))))) + +;; This is used by Qt. +(define-public sqlite-with-column-metadata + (package/inherit sqlite + (name "sqlite-with-column-metadata") + (arguments + (substitute-keyword-arguments (package-arguments sqlite) + ((#:configure-flags flags) + `(list (string-append "CFLAGS=-O2 -DSQLITE_SECURE_DELETE " + "-DSQLITE_ENABLE_UNLOCK_NOTIFY " + "-DSQLITE_ENABLE_DBSTAT_VTAB " + "-DSQLITE_ENABLE_COLUMN_METADATA"))))))) diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm index 5c954eae35..78659fbbf4 100644 --- a/gnu/packages/ssh.scm +++ b/gnu/packages/ssh.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015, 2016, 2018 Efraim Flashner <efraim@flashner.co.il> @@ -51,6 +51,7 @@ #:use-module (gnu packages popt) #:autoload (gnu packages protobuf) (protobuf) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages texinfo) #:use-module (gnu packages tls) @@ -67,22 +68,31 @@ (define-public libssh (package (name "libssh") - (version "0.7.7") + (version "0.8.6") (source (origin (method git-fetch) (uri (git-reference (url "https://git.libssh.org/projects/libssh.git") (commit (string-append "libssh-" version)))) - (patches (search-patches "libssh-hostname-parser-bug.patch")) (sha256 (base32 - "07adxvhmnaq2l7sq7sn4sjlikbm1zdicq8lavq5yfila6jbx9z1y")) + "0rq57gpmdawljx7hqya4ipzsfpcbr31yy60kl5qv66krc9wimqda")) (file-name (git-file-name name version)))) (build-system cmake-build-system) (outputs '("out" "debug")) (arguments '(#:configure-flags '("-DWITH_GCRYPT=ON") + #:phases (modify-phases %standard-phases + (add-before 'configure 'avoid-werror + (lambda _ + ;; Avoid '-Werror'. Presumably this works fine with + ;; gcc@8 on x86_64 but leads to errors with our older + ;; compiler. + (substitute* "CompilerChecks.cmake" + (("-Werror=") "-W")) + #t))) + ;; TODO: Add 'CMockery' and '-DWITH_TESTING=ON' for the test suite. #:tests? #f)) (inputs `(("zlib" ,zlib) @@ -139,6 +149,7 @@ a server that supports the SSH-2 protocol.") (method url-fetch) (uri (string-append "mirror://openbsd/OpenSSH/portable/" name "-" version ".tar.gz")) + (patches (search-patches "openssh-CVE-2018-20685.patch")) (sha256 (base32 "1b8sy6v0b8v4ggmknwcqx3y1rjcpsll0f1f8f4vyv11x4ni3njvb")))) @@ -226,16 +237,29 @@ Additionally, various channel-specific options can be negotiated.") (version "0.11.3") (home-page "https://github.com/artyom-poptsov/guile-ssh") (source (origin - ;; ftp://memory-heap.org/software/guile-ssh/guile-ssh-VERSION.tar.gz - ;; exists, but the server appears to be too slow and unreliable. - ;; Also, using this URL allows the GitHub updater to work. - (method url-fetch) - (uri (string-append home-page "/archive/v" - version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url home-page) + (commit (string-append "v" version)))) (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1g2jzcg1p25zrkx06j160qb8bgcwa3001ys4q02496xs61pvywqk")))) + "03bv3hwp2s8f0bqgfjaan9jx4dyab0abv27n2zn2g0izlidv0vl6")) + (modules '((guix build utils))) + (snippet + '(begin + ;; libssh >= 0.8.0 no longer provides libssh_threads: see + ;; <https://github.com/artyom-poptsov/guile-ssh/issues/9>. + (substitute* "libguile-ssh/Makefile.am" + (("-lssh_threads") "")) + + ;; This test would wrongfully pick DSS keys when running on + ;; libssh >= 0.8.0, which fails: + ;; <https://github.com/artyom-poptsov/guile-ssh/issues/10>. + (substitute* "tests/server.scm" + (("= %libssh-minor-version 7") + ">= %libssh-minor-version 7")) + #t)))) (build-system gnu-build-system) (outputs '("out" "debug")) (arguments diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index 23ac6832fe..ecfecdad40 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -48,6 +48,7 @@ #:use-module (gnu packages cran) #:use-module (gnu packages curl) #:use-module (gnu packages emacs) + #:use-module (gnu packages emacs-xyz) #:use-module (gnu packages gcc) #:use-module (gnu packages gtk) #:use-module (gnu packages gettext) @@ -63,6 +64,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages ssh) #:use-module (gnu packages tcl) @@ -1630,14 +1632,14 @@ like tidy evaluation.") (define-public r-tibble (package (name "r-tibble") - (version "2.0.0") + (version "2.0.1") (source (origin (method url-fetch) (uri (cran-uri "tibble" version)) (sha256 (base32 - "1flrvmgc77c8s0brgyha6cdz2883h6bcb2mvqi49b429x5i2vb85")))) + "04rxf5x9awwa9c00v9p7d3a2lqnn7j2rjg4r219hmw7cbqlwrcks")))) (build-system r-build-system) (propagated-inputs `(("r-cli" ,r-cli) diff --git a/gnu/packages/storage.scm b/gnu/packages/storage.scm index 5051ccd986..063825f429 100644 --- a/gnu/packages/storage.scm +++ b/gnu/packages/storage.scm @@ -46,6 +46,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages tls) #:use-module (gnu packages web) #:use-module (gnu packages xml)) diff --git a/gnu/packages/sync.scm b/gnu/packages/sync.scm index a1d4230d98..421e362cde 100644 --- a/gnu/packages/sync.scm +++ b/gnu/packages/sync.scm @@ -33,16 +33,16 @@ #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages golang) #:use-module (gnu packages linux) #:use-module (gnu packages lua) #:use-module (gnu packages perl) - #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages pkg-config) #:use-module (gnu packages qt) #:use-module (gnu packages rsync) #:use-module (gnu packages selinux) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls)) (define-public owncloud-client diff --git a/gnu/packages/syndication.scm b/gnu/packages/syndication.scm index a7c685fdc1..a9ccfcd274 100644 --- a/gnu/packages/syndication.scm +++ b/gnu/packages/syndication.scm @@ -24,11 +24,11 @@ #:use-module (guix build-system gnu) #:use-module (gnu packages) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages documentation) #:use-module (gnu packages gettext) #:use-module (gnu packages ncurses) #:use-module (gnu packages pkg-config) + #:use-module (gnu packages sqlite) #:use-module (gnu packages web) #:use-module (gnu packages xml)) diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm index 45506d4f52..236923a2d6 100644 --- a/gnu/packages/terminals.scm +++ b/gnu/packages/terminals.scm @@ -59,6 +59,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages serialization) #:use-module (gnu packages ssh) @@ -241,6 +242,8 @@ compatibility to existing emulators like xterm, gnome-terminal, konsole, etc.") (sha256 (base32 "0q62kjsvy2iwy8adfiygx2bfwlh83rphgxbis95ycspqidg9py87")) + (patches + (search-patches "kmscon-runtime-keymap-switch.patch")) (modules '((guix build utils))))) (build-system gnu-build-system) (arguments diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index 40d80b4727..d4e2075975 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -6,7 +6,7 @@ ;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be> -;;; Copyright © 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> @@ -49,6 +49,7 @@ #:use-module (gnu packages fontutils) #:use-module (gnu packages gd) #:use-module (gnu packages ghostscript) + #:use-module (gnu packages graphviz) #:use-module (gnu packages gtk) #:use-module (gnu packages icu4c) #:use-module (gnu packages image) @@ -60,6 +61,7 @@ #:use-module (gnu packages perl-check) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages ruby) #:use-module (gnu packages shells) @@ -214,6 +216,11 @@ (unpack (assoc-ref %standard-phases 'unpack)) (patch-source-shebangs (assoc-ref %standard-phases 'patch-source-shebangs))) + (substitute* (string-append share "/texmf-dist/web2c/texmf.cnf") + ;; Don't truncate lines. + (("^error_line = .*$") "error_line = 254\n") + (("^half_error_line = .*$") "half_error_line = 238\n") + (("^max_print_line = .*$") "max_print_line = 1000\n")) ;; Create symbolic links for the latex variants and their ;; man pages. (with-directory-excursion (string-append out "/bin/") @@ -234,6 +241,15 @@ (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin")) (with-directory-excursion out (patch-source-shebangs)))))))) + (native-search-paths + (list (search-path-specification + (variable "TEXMF") + (files '("share/texmf-dist")) + (separator #f)) + (search-path-specification + (variable "TEXMFCNF") + (files '("share/texmf-dist/web2c")) + (separator #f)))) (synopsis "TeX Live, a package of the TeX typesetting system") (description "TeX Live provides a comprehensive TeX document production system. @@ -651,6 +667,154 @@ display, and mathematical fonts in a range of styles, based on Monotype Modern 8A.") (license license:knuth))) +(define-public texlive-fonts-cm-super + (package + (name "texlive-fonts-cm-super") + (version (number->string %texlive-revision)) + (source (origin + (method svn-fetch) + (uri (svn-reference + (url (string-append "svn://www.tug.org/texlive/tags/" + %texlive-tag "/Master/texmf-dist/" + "/tex/latex/cm-super")) + (revision %texlive-revision))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0ybb4gi2rblzpb6wfzm2wk7dj3y2jnmkzsla7mz7g3zc12y4r2b9")))) + (build-system trivial-build-system) + (arguments + `(#:modules ((guix build utils) + (ice-9 match)) + #:builder + (begin + (use-modules (guix build utils) + (ice-9 match)) + (let ((root (string-append (assoc-ref %outputs "out") + "/share/texmf-dist/")) + (pkgs '(("source" . "tex/latex/cm-super") + ("cm-super-afm" . "fonts/afm/public/cm-super") + ("cm-super-type1" . "fonts/type1/public/cm-super") + ("cm-super-enc" . "fonts/enc/dvips/cm-super") + ("cm-super-map" . "fonts/map/dvips/cm-super") + ("cm-super-vtex" . "fonts/map/vtex/cm-super")))) + (for-each (match-lambda + ((pkg . dir) + (let ((target (string-append root dir))) + (mkdir-p target) + (copy-recursively (assoc-ref %build-inputs pkg) + target)))) + pkgs) + #t)))) + (native-inputs + `(("cm-super-vtex" + ,(origin + (method svn-fetch) + (uri (svn-reference + (url (string-append "svn://www.tug.org/texlive/tags/" + %texlive-tag "/Master/texmf-dist/" + "/fonts/map/vtex/cm-super")) + (revision %texlive-revision))) + (file-name (string-append name "-map-vtex-" version "-checkout")) + (sha256 + (base32 + "14c9allsgfv6za9wznz4cxqxwz5nsmj8rnwvxams8fhs5rvglxqi")))) + ("cm-super-afm" + ,(origin + (method svn-fetch) + (uri (svn-reference + (url (string-append "svn://www.tug.org/texlive/tags/" + %texlive-tag "/Master/texmf-dist/" + "/fonts/afm/public/cm-super")) + (revision %texlive-revision))) + (file-name (string-append name "-afm-" version "-checkout")) + (sha256 + (base32 + "048ih65f2nghdabdar2p957c4s2spgllmy2gxdscddwqpnmd26yn")))) + ("cm-super-type1" + ,(origin + (method svn-fetch) + (uri (svn-reference + (url (string-append "svn://www.tug.org/texlive/tags/" + %texlive-tag "/Master/texmf-dist/" + "/fonts/type1/public/cm-super")) + (revision %texlive-revision))) + (file-name (string-append name "-type1-" version "-checkout")) + (sha256 + (base32 + "1140swk3w2ka0y4zdsq6pdifrdanb281q71p5gngbbjxdxjxf4qx")))) + ("cm-super-map" + ,(origin + (method svn-fetch) + (uri (svn-reference + (url (string-append "svn://www.tug.org/texlive/tags/" + %texlive-tag "/Master/texmf-dist/" + "/fonts/map/dvips/cm-super")) + (revision %texlive-revision))) + (file-name (string-append name "-map-" version "-checkout")) + (sha256 + (base32 + "10r6xqbwf9wk3ylg7givwyrw1952zydc6p7fw29zjf8ijl0lndim")))) + ("cm-super-enc" + ,(origin + (method svn-fetch) + (uri (svn-reference + (url (string-append "svn://www.tug.org/texlive/tags/" + %texlive-tag "/Master/texmf-dist/" + "/fonts/enc/dvips/cm-super")) + (revision %texlive-revision))) + (file-name (string-append name "-enc-" version "-checkout")) + (sha256 + (base32 + "1pgksy96gfgyjxfhs2k04bgg7nr7i128y01kjcahr7n38080h4ij")))))) + (home-page "https://www.ctan.org/pkg/cm-super") + (synopsis "Computer Modern Super family of fonts") + (description "The CM-Super family provides Adobe Type 1 fonts that replace +the T1/TS1-encoded Computer Modern (EC/TC), T1/TS1-encoded Concrete, +T1/TS1-encoded CM bright and LH Cyrillic fonts (thus supporting all European +languages except Greek), and bringing many ameliorations in typesetting +quality. The fonts exhibit the same metrics as the METAFONT-encoded +originals.") + ;; With font exception + (license license:gpl2+))) + +(define-public texlive-fonts-lm + (package + (name "texlive-fonts-lm") + (version "2.004") + (source (origin + (method url-fetch) + (uri (string-append "http://www.gust.org.pl/projects/e-foundry/" + "latin-modern/download/lm" version "bas.zip")) + (sha256 + (base32 + "0z2s253y751m2ci5aw8nq0sf2kyg9hpimv2gyixkch9d07m2b9wp")))) + (build-system trivial-build-system) + (arguments + `(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (let ((root (string-append (assoc-ref %outputs "out") + "/share/texmf-dist/"))) + (mkdir-p root) + (with-directory-excursion root + (invoke (string-append (assoc-ref %build-inputs "unzip") + "/bin/unzip") + (assoc-ref %build-inputs "source"))) + #t)))) + (native-inputs + `(("unzip" ,unzip))) + (home-page "http://www.gust.org.pl/projects/e-foundry/latin-modern/") + (synopsis "Latin Modern family of fonts") + (description "The Latin Modern fonts are derived from the famous Computer +Modern fonts designed by Donald E. Knuth and described in Volume E of his +Computers & Typesetting series.") + ;; The GUST font license (GFL) is legally identical to the LaTeX Project + ;; Public License (LPPL), version 1.3c or later, but comes with an + ;; additional but not legally binding clause. + (license license:lppl1.3c+))) + (define-public texlive-fonts-knuth-lib (package (name "texlive-fonts-knuth-lib") @@ -850,21 +1014,34 @@ symbol fonts.") (find-files "." "[0-9]+\\.mf$")) #t)) (replace 'install - (lambda* (#:key outputs #:allow-other-keys) + (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) - (tfm (string-append - out "/share/texmf-dist/fonts/tfm/public/amsfonts")) - (mf (string-append - out "/share/texmf-dist/fonts/source/public/amsfonts"))) + (fonts (string-append out "/share/texmf-dist/fonts")) + (tfm (string-append fonts "/tfm/public/amsfonts")) + (mf (string-append fonts "/source/public/amsfonts")) + (type1 (string-append fonts "/type1/public/amsfonts"))) (for-each (cut install-file <> tfm) (find-files "build" "\\.*")) (for-each (cut install-file <> mf) (find-files "." "\\.mf")) + (copy-recursively (assoc-ref inputs "amsfonts-type1") type1) #t)))))) (native-inputs `(("texlive-fonts-cm" ,texlive-fonts-cm) ("texlive-metafont-base" ,texlive-metafont-base) - ("texlive-bin" ,texlive-bin))) + ("texlive-bin" ,texlive-bin) + ("amsfonts-type1" + ,(origin + (method svn-fetch) + (uri (svn-reference + (url (string-append "svn://www.tug.org/texlive/tags/" + %texlive-tag "/Master/texmf-dist/" + "/fonts/type1/public/amsfonts")) + (revision %texlive-revision))) + (file-name (string-append name "-type1-" version "-checkout")) + (sha256 + (base32 + "1zfz33vn6gm19njy74n8wmn7sljrimfhwns5z8qqhxqfh1g4qip2")))))) (home-page "https://www.ctan.org/pkg/amsfonts") (synopsis "TeX fonts from the American Mathematical Society") (description @@ -1065,6 +1242,22 @@ book).") target)) '("ltxguide.cls" "ltnews.cls" "minimal.cls" "idx.tex" "lablst.tex" "testpage.tex" "ltxcheck.tex")) + ;; Install configurations + (copy-recursively + (assoc-ref inputs "texlive-latex-latexconfig") + (string-append out "/share/texmf-dist/tex/latex/latexconfig")) + (copy-recursively + (assoc-ref inputs "texlive-generic-config") + (string-append out "/share/texmf-dist/tex/generic/config")) + (copy-recursively + (assoc-ref inputs "texlive-generic-hyphen") + (string-append out "/share/texmf-dist/tex/generic/hyphen")) + (copy-recursively + (assoc-ref inputs "texlive-generic-ruhyphen") + (string-append out "/share/texmf-dist/tex/generic/ruhyphen")) + (copy-recursively + (assoc-ref inputs "texlive-generic-ukrhyph") + (string-append out "/share/texmf-dist/tex/generic/ukrhyph")) #t)))))) (native-inputs `(("texlive-bin" ,texlive-bin) @@ -1074,7 +1267,6 @@ book).") ("texlive-latex-latexconfig" ,(texlive-dir "tex/latex/latexconfig/" "1zb3j49cj8p75yph6c8iysjp7qbdvghwf0mn9j0l7qq3qkbz2xaf")) - ("texlive-generic-hyph-utf8" ,texlive-generic-hyph-utf8) ("texlive-generic-hyphen" ,(texlive-dir "tex/generic/hyphen/" "0xim36wybw2625yd0zwlp9m2c2xrcybw58gl4rih9nkph0wqwwhd")) @@ -1103,6 +1295,8 @@ book).") ("texlive-fonts-cm" ,texlive-fonts-cm) ("texlive-fonts-latex" ,texlive-fonts-latex) ("texlive-fonts-knuth-lib" ,texlive-fonts-knuth-lib))) + (propagated-inputs + `(("texlive-generic-hyph-utf8" ,texlive-generic-hyph-utf8))) (home-page "https://www.ctan.org/pkg/latex-base") (synopsis "Base sources of LaTeX") (description @@ -1508,7 +1702,7 @@ that the LaTeX3 conventions can be used with regular LaTeX 2e packages.") ":"))) #t))) )) - (inputs + (propagated-inputs `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel))) (home-page "https://www.ctan.org/pkg/l3packages") (synopsis "High-level LaTeX3 concepts") @@ -1541,9 +1735,37 @@ programming tools and kernel support. Packages provided in this release are: "1p0mkn6iywl0k4m9cx3hnhylpi499inisff3f72pcf349baqsnvq")))) (build-system texlive-build-system) (arguments - '(#:tex-directory "latex/fontspec")) - (inputs - `(("texlive-latex-l3kernel" ,texlive-latex-l3kernel))) + '(#:tex-directory "latex/fontspec" + #:phases + (modify-phases %standard-phases + (add-after 'install 'install-default-fontspec.cfg + (lambda* (#:key outputs #:allow-other-keys) + (with-output-to-file + (string-append (assoc-ref outputs "out") + "/share/texmf-dist/tex/latex/fontspec/fontspec.cfg") + (lambda _ + (display "\ +%%% FONTSPEC.CFG %%% +% +% This configuration file sets up TeX Ligatures by default for all fonts loaded +% with `\\setmainfont` and `\\setsansfont`. +% +% In addition, `\\setmonofont` has default features to enforce \"monospace\" +% settings with regard to space stretchability and shrinkability. + +\\defaultfontfeatures + [\\rmfamily,\\sffamily] + {Ligatures=TeX} + +\\defaultfontfeatures + [\\ttfamily] + {WordSpace={1,0,0}, + HyphenChar=None, + PunctuationSpace=WordSpace} +"))) + #t))))) + (propagated-inputs + `(("texlive-latex-l3packages" ,texlive-latex-l3packages))) (home-page "https://www.ctan.org/pkg/fontspec") (synopsis "Advanced font selection in XeLaTeX and LuaLaTeX") (description @@ -1591,6 +1813,98 @@ this bundle for use independent of ConTeXt.") ;; GPL version 2 only (license license:gpl2))) +(define-public texlive-luatex-luaotfload + (package + (name "texlive-luatex-luaotfload") + (version "2.8-fix-2") + ;; The release tarball does not contain all source files. + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/lualatex/luaotfload.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0l5l7iq3dxcxl65qaghcpjg27yd9iw1sxa8pnd7xlvlm09dhfdnf")))) + (build-system gnu-build-system) + (arguments + `(#:make-flags + (list (string-append "DESTDIR=" + (assoc-ref %outputs "out") + "/share/texmf-dist") + "all") + #:parallel-build? #f ; not supported + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "doc/Makefile" + (("rst2man") "rst2man.py") + ;; Don't build the PDF. This requires more of LaTeX. + (("\\$\\(DOCPDF\\)") "")) + + (substitute* "Makefile" + ;; We don't build the PDF, so don't attempt to install it. + (("cp \\$\\(RESOURCES\\) \\$\\(DOCPDF\\)") + "cp $(RESOURCES)") + (("= \\$\\(DOCPDF\\)") "= ") + ;; Fix name of fontloader file + (("^LOADER.*= \\$\\(BUILDDIR\\)/fontloader-\\$\\(shell date \\+%F\\).lua") + "LOADER = $(BUILDDIR)/fontloader.lua")) + + (mkdir "build") + + ;; Don't download this file. + (copy-file (assoc-ref inputs "glyphlist") + "build/glyphlist.txt") + + ;; Don't use git + (let ((notes + `((committer . "Philipp Gesang <phg@phi-gamma.net>") + (description . ,version) + (loader . "fontloader.lua") + (revision . "ad480924393fffa2896156e1a32c22f5c61120dd") + (timestamp . "2019-01-01 00:00:00 +0000")))) + (substitute* "scripts/mkstatus" + (("local notes.*=.*") + (string-append "local notes = {" + (string-join + (map (lambda (entry) + (format "[\"~a\"]=\"~a\"," + (symbol->string (car entry)) + (cdr entry))) + notes)) + "}")))) + #t))))) + (native-inputs + `(("zip" ,zip) + ("unzip" ,unzip) + ("graphviz" ,graphviz) + ("lualatex" ,(texlive-union (list texlive-luatex-lualibs + texlive-context-base))) + ("python-docutils" ,python-docutils) + ("glyphlist" + ,(origin + (method url-fetch) + (uri (string-append "https://raw.githubusercontent.com/adobe-type-tools/" + "agl-aglfn/b2a04cb906f9257cc06a2fe0ad4b3d663bc02136/" + "glyphlist.txt")) + (sha256 + (base32 "1s6svfw23rqzdvflv8frgd4xrwvrmsj8szwzqgcd39dp9rpjafjp")))))) + (propagated-inputs + `(("texlive-luatex-lualibs" ,texlive-luatex-lualibs))) + (home-page "https://github.com/lualatex/luaotfload") + (synopsis "OpenType font loader for LuaTeX") + (description + "Luaotfload is an adaptation of the ConTeXt font loading system for the +Plain and LaTeX formats. It allows OpenType fonts to be loaded with font +features accessible using an extended font request syntax while providing +compatibilitywith XeTeX. By indexing metadata in a database it facilitates +loading fonts by their proper names instead of file names.") + ;; GPL version 2 only + (license license:gpl2))) + (define-public texlive-latex-amsmath (package (name "texlive-latex-amsmath") @@ -1701,6 +2015,29 @@ for British English and Australian text, and default (\"american\") patterns for Canadian and USA text.") (license license:lppl1.3+))) +(define-public texlive-generic-babel-german + (package + (name "texlive-generic-babel-german") + (version (number->string %texlive-revision)) + (source (origin + (method svn-fetch) + (uri (texlive-ref "generic" "babel-german")) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0h47s67gnhdaxfgbf8pirp5vw4z6rrhxl8zav803yjxka0096i3y")))) + (build-system texlive-build-system) + (arguments '(#:tex-directory "generic/babel-german")) + (home-page "https://www.ctan.org/pkg/babel-german") + (synopsis "Babel support for German") + (description + "This package provides the language definition file for support of German +in @code{babel}. It provides all the necessary macros, definitions and +settings to typeset German documents. The bundle includes support for the +traditional and reformed German orthography as well as for the Austrian and +Swiss varieties of German.") + (license license:lppl1.3+))) + (define-public texlive-latex-cyrillic (package (name "texlive-latex-cyrillic") @@ -1749,31 +2086,59 @@ font metrics. The bundle as a whole is part of the LaTeX required set of packages.") (license license:lppl1.2+))) +;; For user profiles +(define-public texlive-base + (let ((default-packages + (list texlive-bin + texlive-dvips + texlive-fontname + texlive-fonts-cm + texlive-fonts-latex + texlive-metafont-base + texlive-latex-base + ;; LaTeX packages from the "required" set. + texlive-latex-amsmath + texlive-latex-amscls + texlive-latex-babel + texlive-generic-babel-english + texlive-latex-cyrillic + texlive-latex-graphics + texlive-latex-psnfss + texlive-latex-tools))) + (package + (name "texlive-base") + (version (number->string %texlive-revision)) + (source #f) + (build-system trivial-build-system) + (arguments + '(#:builder + (begin (mkdir (assoc-ref %outputs "out"))))) + (propagated-inputs + (map (lambda (package) + (list (package-name package) package)) + default-packages)) + (home-page (package-home-page texlive-bin)) + (synopsis "TeX Live base packages") + (description "This is a very limited subset of the TeX Live distribution. +It includes little more than the required set of LaTeX packages.") + (license (fold (lambda (package result) + (match (package-license package) + ((lst ...) + (append lst result)) + ((? license:license? license) + (cons license result)))) + '() + default-packages))))) + +;; For use in package definitions only (define-public texlive-union (lambda* (#:optional (packages '())) "Return 'texlive-union' package which is a union of PACKAGES and the standard LaTeX packages." - (let ((default-packages - (list texlive-bin - texlive-dvips - texlive-fontname - texlive-fonts-cm - texlive-fonts-latex - texlive-metafont-base - texlive-latex-base - ;; LaTeX packages from the "required" set. - texlive-latex-amsmath - texlive-latex-amscls - texlive-latex-babel - texlive-generic-babel-english - texlive-latex-cyrillic - texlive-latex-graphics - texlive-latex-psnfss - texlive-latex-tools))) - (package + (let ((default-packages (match (package-propagated-inputs texlive-base) + (((labels packages) ...) packages)))) + (package (inherit texlive-base) (name "texlive-union") - (version (number->string %texlive-revision)) - (source #f) (build-system trivial-build-system) (arguments '(#:modules ((guix build union) @@ -1815,8 +2180,8 @@ standard LaTeX packages." "/bin")) (for-each (cut wrap-program <> - `("TEXMFCNF" ":" = (,(dirname texmf.cnf))) - `("TEXMF" ":" = (,(string-append out "/share/texmf-dist")))) + `("TEXMFCNF" ":" suffix (,(dirname texmf.cnf))) + `("TEXMF" ":" suffix (,(string-append out "/share/texmf-dist")))) (find-files (string-append out "/bin") ".*")) #t)))) (inputs @@ -1837,6 +2202,7 @@ distribution.") '() (append default-packages packages))))))) +;; For use in package definitions only (define-public texlive-tiny (package (inherit (texlive-union)) @@ -4110,6 +4476,11 @@ directly generate PDF documents instead of DVI.") #:phases (modify-phases (map (cut assq <> %standard-phases) '(set-paths unpack patch-source-shebangs)) + (add-after 'unpack 'unset-environment-variables + (lambda _ + (unsetenv "TEXMF") + (unsetenv "TEXMFCNF") + #t)) (add-after 'patch-source-shebangs 'install (lambda* (#:key outputs #:allow-other-keys) (let ((share (string-append (assoc-ref outputs "out") "/share"))) @@ -4683,6 +5054,32 @@ space. If there is not enough space between the command and the bottom of the page, a new page will be started.") (license license:lppl))) +(define-public texlive-latex-changepage + (package + (name "texlive-latex-changepage") + (version (number->string %texlive-revision)) + (source + (origin + (method svn-fetch) + (uri (texlive-ref "latex" "changepage")) + (sha256 + (base32 + "1rpw8xg5p4jsyh236jma9dz3l29wjx4062f154b3wak5yjcxyxyb")))) + (build-system texlive-build-system) + (arguments + '(#:tex-directory "latex/changepage" + #:tex-format "latex")) + (inputs + `(("texlive-latex-filecontents" ,texlive-latex-filecontents))) + (home-page "https://www.ctan.org/pkg/changepage") + (synopsis "Margin adjustment and detection of odd/even pages") + (description + "The package provides commands to change the page layout in the middle of +a document, and to robustly check for typesetting on odd or even pages. +Instructions for use are at the end of the file. The package is an extraction +of code from the @code{memoir} class, whose user interface it shares.") + (license license:lppl1.3+))) + (define-public texlive-latex-eukdate (package (name "texlive-latex-eukdate") diff --git a/gnu/packages/textutils.scm b/gnu/packages/textutils.scm index 91bc64bc1f..9cd5a203c4 100644 --- a/gnu/packages/textutils.scm +++ b/gnu/packages/textutils.scm @@ -51,6 +51,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages slang) #:use-module (gnu packages web)) diff --git a/gnu/packages/time.scm b/gnu/packages/time.scm index f5c4515481..e491970300 100644 --- a/gnu/packages/time.scm +++ b/gnu/packages/time.scm @@ -38,7 +38,8 @@ #:use-module (guix build-system python) #:use-module (gnu packages check) #:use-module (gnu packages compression) - #:use-module (gnu packages python)) + #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz)) (define-public time (package diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm index 8702d2b33b..607610f91c 100644 --- a/gnu/packages/tls.scm +++ b/gnu/packages/tls.scm @@ -62,6 +62,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages texinfo) #:use-module (gnu packages time) #:use-module (gnu packages base) diff --git a/gnu/packages/tor.scm b/gnu/packages/tor.scm index 52ab3f8cf9..5278bbb43b 100644 --- a/gnu/packages/tor.scm +++ b/gnu/packages/tor.scm @@ -40,6 +40,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages autotools) #:use-module (gnu packages tls) diff --git a/gnu/packages/tryton.scm b/gnu/packages/tryton.scm index 30f38e62e7..31a2d481e5 100644 --- a/gnu/packages/tryton.scm +++ b/gnu/packages/tryton.scm @@ -25,6 +25,7 @@ #:use-module (gnu packages gtk) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages time) #:use-module (guix packages) #:use-module (guix download) diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index b62562902d..dc2abb0c71 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com> -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org> @@ -86,9 +86,10 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages rsync) - #:use-module (gnu packages databases) + #:use-module (gnu packages sqlite) #:use-module (gnu packages admin) #:use-module (gnu packages xml) #:use-module (gnu packages emacs) @@ -1363,7 +1364,7 @@ following features: (home-page "https://subversion.apache.org/") (synopsis "Revision control system") (description - "Subversion exists to be universally recognized and adopted as a + "Subversion (aka. ``svn'') exists to be recognized and adopted as a centralized version control system characterized by its reliability as a safe haven for valuable data; the simplicity of its model and usage; and its ability to support the needs of a wide variety of users and diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index 3f3d232df2..34f10fdeb4 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -82,7 +82,6 @@ #:use-module (gnu packages compression) #:use-module (gnu packages cpp) #:use-module (gnu packages curl) - #:use-module (gnu packages databases) #:use-module (gnu packages dejagnu) #:use-module (gnu packages dns) #:use-module (gnu packages docbook) @@ -124,6 +123,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages rdesktop) #:use-module (gnu packages ruby) @@ -131,6 +131,7 @@ #:use-module (gnu packages sdl) #:use-module (gnu packages serialization) #:use-module (gnu packages shells) + #:use-module (gnu packages sqlite) #:use-module (gnu packages ssh) #:use-module (gnu packages swig) #:use-module (gnu packages texinfo) @@ -1313,15 +1314,15 @@ access to mpv's powerful playback capabilities.") (define-public youtube-dl (package (name "youtube-dl") - (version "2018.12.17") + (version "2019.01.17") (source (origin (method url-fetch) - (uri (string-append "https://yt-dl.org/downloads/" - version "/youtube-dl-" + (uri (string-append "https://github.com/rg3/youtube-dl/releases/" + "download/" version "/youtube-dl-" version ".tar.gz")) (sha256 (base32 - "1nd4zr3wd35vldm775m9wcgbzma2013yyj134lcz19ipjs38isrk")))) + "0fxajwv81b0bjw9qlwmxd4r93yp5nnqll79vhic0vy72ii0093r7")))) (build-system python-build-system) (arguments ;; The problem here is that the directory for the man page and completion @@ -2093,16 +2094,16 @@ be used for realtime video capture via Linux-specific APIs.") (define-public obs (package (name "obs") - (version "20.1.3") + (version "22.0.3") (source (origin (method git-fetch) (uri (git-reference - (url "https://github.com/jp9000/obs-studio.git") + (url "https://github.com/obsproject/obs-studio.git") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 - "0qdpa2xxiiw53ksvlrf80jm8gz6kxsn56sffv2v2ijxvy7kw5zcg")))) + "0ri9qkqk3h71b1a5bwpjzqdr21bbmfqbykg48l779d20zln23n1i")))) (build-system cmake-build-system) (arguments `(#:tests? #f)) ; no tests diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index 9b82535aa7..82bde36222 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -63,6 +63,7 @@ #:use-module (gnu packages protobuf) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages selinux) #:use-module (gnu packages sdl) diff --git a/gnu/packages/vpn.scm b/gnu/packages/vpn.scm index dabf84a947..e07787c735 100644 --- a/gnu/packages/vpn.scm +++ b/gnu/packages/vpn.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2015 Jeff Mickey <j@codemac.net> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2018 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2018 Meiyo Peng <meiyo.peng@gmail.com> @@ -45,6 +45,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages tls) #:use-module (gnu packages xml)) @@ -240,13 +241,13 @@ the user specifically asks to proxy, so the @dfn{VPN} interface no longer (define-public openconnect (package (name "openconnect") - (version "7.08") + (version "8.02") (source (origin (method url-fetch) (uri (string-append "ftp://ftp.infradead.org/pub/openconnect/" "openconnect-" version ".tar.gz")) (sha256 (base32 - "00wacb79l2c45f94gxs63b9z25wlciarasvjrb8jb8566wgyqi0w")))) + "04p0vzc1791h68hd9803wsyb64zrwm8qpdqx0szhj9pig71g5a0w")))) (build-system gnu-build-system) (inputs `(("libxml2" ,libxml2) @@ -268,7 +269,7 @@ supported by the ASA5500 Series, by IOS 12.4(9)T or later on Cisco SR500, 870, 880, 1800, 2800, 3800, 7200 Series and Cisco 7301 Routers, and probably others.") (license license:lgpl2.1) - (home-page "http://www.infradead.org/openconnect/"))) + (home-page "https://www.infradead.org/openconnect/"))) (define-public openvpn (package diff --git a/gnu/packages/web-browsers.scm b/gnu/packages/web-browsers.scm index e1ad01aa25..c9038ed8c7 100644 --- a/gnu/packages/web-browsers.scm +++ b/gnu/packages/web-browsers.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org> -;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2018 Timo Eisenmann <eisenmann@fn.de> ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> @@ -29,7 +29,6 @@ #:use-module (guix packages) #:use-module (gnu packages) #:use-module (gnu packages compression) - #:use-module (gnu packages databases) #:use-module (gnu packages documentation) #:use-module (gnu packages fltk) #:use-module (gnu packages fontutils) @@ -45,8 +44,10 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages image) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages webkit) #:use-module (gnu packages xorg) @@ -92,14 +93,14 @@ older or slower computers and embedded systems.") (define-public links (package (name "links") - (version "2.17") + (version "2.18") (source (origin (method url-fetch) (uri (string-append "http://links.twibright.com/download/" name "-" version ".tar.bz2")) (sha256 (base32 - "0dh2gbzcw8kxy81z4ggsynibnqs56b83vy8qgz7illsag1irff6q")))) + "0mwhh61klicn2vwk39nc7y4cw4mygzdi2nljn4r0gjbw6jmw3337")))) (build-system gnu-build-system) (arguments `(#:phases diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index c94fd4f0c0..8d51af40e5 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -107,6 +107,7 @@ #:use-module (gnu packages perl-check) #:use-module (gnu packages python) #:use-module (gnu packages python-web) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages pcre) #:use-module (gnu packages pkg-config) #:use-module (gnu packages qt) diff --git a/gnu/packages/webkit.scm b/gnu/packages/webkit.scm index f135666a7e..73cd510981 100644 --- a/gnu/packages/webkit.scm +++ b/gnu/packages/webkit.scm @@ -31,7 +31,6 @@ #:use-module (gnu packages) #:use-module (gnu packages base) #:use-module (gnu packages bison) - #:use-module (gnu packages databases) #:use-module (gnu packages docbook) #:use-module (gnu packages enchant) #:use-module (gnu packages flex) @@ -51,6 +50,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages ruby) + #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages video) #:use-module (gnu packages xml) diff --git a/gnu/packages/wicd.scm b/gnu/packages/wicd.scm index 4b03c07bc4..01113bcb94 100644 --- a/gnu/packages/wicd.scm +++ b/gnu/packages/wicd.scm @@ -32,7 +32,8 @@ #:use-module (gnu packages gettext) #:use-module (gnu packages linux) #:use-module (gnu packages admin) - #:use-module (gnu packages python)) + #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz)) (define-public wicd (package diff --git a/gnu/packages/wine.scm b/gnu/packages/wine.scm index b0cba94c00..3d16fac95f 100644 --- a/gnu/packages/wine.scm +++ b/gnu/packages/wine.scm @@ -225,7 +225,7 @@ integrate Windows applications into your desktop.") (define-public wine-staging-patchset-data (package (name "wine-staging-patchset-data") - (version "4.0-rc5") + (version "4.0-rc7") (source (origin (method git-fetch) @@ -235,7 +235,7 @@ integrate Windows applications into your desktop.") (file-name (git-file-name name version)) (sha256 (base32 - "0smp6ngs77vk1yg0saavhhn7kmi9ri8y8gc3vcgg837ycwg5i5qb")))) + "16mfsa0hq7nw5ad1bsr4cn03avjdzgl8j07n5f26idk3zhlzym9d")))) (build-system trivial-build-system) (native-inputs `(("bash" ,bash) @@ -281,7 +281,7 @@ integrate Windows applications into your desktop.") (file-name (string-append name "-" version ".tar.xz")) (sha256 (base32 - "0nx5ahahfnmimd2b7zh2wx36b877vad10i2kr2zib9m9b2w8wyfd")))) + "1myq6707ba5p3bh7qr6k86rpkrpdi31py3v3n96bg184xs7h99yj")))) (inputs `(("autoconf" ,autoconf) ; for autoreconf ("ffmpeg" ,ffmpeg) ("gtk+" ,gtk+) diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index 4b758838e8..4d61dd8dbc 100644 --- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -74,6 +74,7 @@ #:use-module (gnu packages ncurses) #:use-module (gnu packages perl) #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages linux) #:use-module (gnu packages gl) #:use-module (gnu packages guile) diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm index 9aa65291b9..364a37e34d 100644 --- a/gnu/packages/xorg.scm +++ b/gnu/packages/xorg.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2014, 2015, 2017, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org> -;;; Copyright © 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2015 Cyrill Schenkel <cyrill.schenkel@gmail.com> @@ -12,12 +12,13 @@ ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016, 2017 John Darrington <jmd@gnu.org> ;;; Copyright © 2017, 2018 Marius Bakke <mbakke@fastmail.com> -;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com> +;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net> +;;; Copyright © 2019 nee <nee@cock.li> ;;; ;;; This file is part of GNU Guix. ;;; @@ -71,7 +72,9 @@ #:use-module (gnu packages perl-check) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages python-compression) #:use-module (gnu packages python-crypto) + #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages spice) #:use-module (gnu packages video) @@ -5962,7 +5965,7 @@ basic eye-candy effects.") (define-public xpra (package (name "xpra") - (version "2.4.2") + (version "2.4.3") (source (origin (method url-fetch) @@ -5970,7 +5973,7 @@ basic eye-candy effects.") version ".tar.xz")) (sha256 (base32 - "01x4ri0arfq9cn01bh80h232lsj95jp6j1zw0z0q7a6mwrw4gr6i")))) + "0pq2pzmv5fsafp50rzl9nb6ns08rl88fhgdqc2hh27dx7b8ka8n6")))) (build-system python-build-system) (inputs `(("ffmpeg" ,ffmpeg) ("flac" ,flac) @@ -6258,3 +6261,115 @@ selecting windows by pointing select actual focused X11 window, selecting by window name or id, forcing toggle, increase or decrease opacity.") (home-page "http://forchheimer.se/transset-df/") (license license:x11))) + +(define-public bdfresize + (package + (name "bdfresize") + (version "1.5-11") + (source (origin + ;; Former upstream at + ;; <http://openlab.ring.gr.jp/efont/dist/tools/bdfresize/> + ;; vanished so use Debian, which in practice is the new + ;; upstream. + (method git-fetch) + (uri (git-reference + (url "https://salsa.debian.org/debian/bdfresize.git") + (commit (string-append "debian/" version)))) + (sha256 + (base32 + "0n3i29wicak8n10vkkippym8yw4ir8f7a263a8rwb8q16wqrxx85")) + (modules '((guix build utils))) + (snippet + '(begin + (for-each make-file-writable (find-files ".")) + + ;; Remove broken declaration. + (substitute* "charresize.c" + (("char\t\\*malloc\\(\\);") + "")) + + ;; Remove old configury that doesn't support modern + ;; command-line options, new architectures, etc. + (for-each delete-file + '("configure" "install-sh" + "missing" "mkinstalldirs")) + #t)) + (file-name (git-file-name name version)))) + (build-system gnu-build-system) + (native-inputs + `(("pkg-config" ,pkg-config) + ("autoconf" ,autoconf) + ("automake" ,automake))) + (synopsis "Resize fonts in the BDF format") + (description + "This packages provides @command{bdfresize}, a command to magnify or +reduce fonts in the Glyph Bitmap Distribution Format (BDF). It produces BDF +output.") + (home-page "https://tracker.debian.org/pkg/bdfresize") + (license license:gpl2+)) ) + +(define-public console-setup + (package + (name "console-setup") + (version "1.188") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://salsa.debian.org/installer-team/console-setup.git") + (commit version))) + (sha256 + (base32 + "1741mg2wc5wa63clkijmv04zd6jxhc7c6aq7mkhqw1r4dhfhih19")) + (file-name (git-file-name name version)))) + (build-system gnu-build-system) + (arguments + '(#:make-flags + (let ((bash (assoc-ref %build-inputs "bash")) + (out (assoc-ref %outputs "out"))) + (list (string-append "SHELL=" bash "/bin/bash"))) + #:tests? #f ;no tests + #:phases + (modify-phases %standard-phases + (delete 'configure) + (add-before 'build 'make-doubled-bdfs + (lambda* (#:key inputs #:allow-other-keys) + (invoke "make" "-C" "Fonts" + "doubled_bdfs" + (string-append "SHELL=" + (assoc-ref inputs "bash") + "/bin/bash")))) + (replace 'install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref %outputs "out"))) + (invoke "make" "install-linux" + (string-append "prefix=" out) + (string-append "SHELL=" + (assoc-ref inputs "bash") + "/bin/bash")))))))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("bdftopcf" ,bdftopcf) + ("bdfresize" ,bdfresize) + ("sharutils" ,sharutils))) ;for 'uuencode' + (inputs + `(("perl" ,perl))) ;used by 'ckbcomp' + (synopsis "Set up the Linux console font and keyboard") + (description + "console-setup provides the console with the same keyboard +configuration scheme that X Window System has. In particular, the +@command{ckbcomp} program compiles an XKB keyboard description to a keymap +suitable for @command{loadkeys} or @command{kbdcontrol}. As a result, there +is no need to duplicate or change the console keyboard files just to make +simple customizations. + +Besides the keyboard, the package also configures the font on the console. It +includes a rich collection of fonts and supports several languages that would +otherwise be unsupported on the console (such as Armenian, Georgian, Lao, and +Thai).") + (home-page "https://salsa.debian.org/installer-team/console-setup/") + + ;; Most of the code is GPLv2+; the Expat license applies to 'setupcon' and + ;; 'ckbcomp-mini'. The installed precompiled keyboard files are covered + ;; by simple permissive licenses. See the 'COPYRIGHT' file. + (license (list license:gpl2+ + license:expat)))) diff --git a/gnu/services/avahi.scm b/gnu/services/avahi.scm index 5de30ffb97..547d826551 100644 --- a/gnu/services/avahi.scm +++ b/gnu/services/avahi.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -24,9 +24,22 @@ #:use-module (gnu system shadow) #:use-module (gnu packages avahi) #:use-module (gnu packages admin) + #:use-module (guix deprecation) #:use-module (guix records) #:use-module (guix gexp) #:export (avahi-configuration + avahi-configuration? + + avahi-configuration-avahi + avahi-configuration-debug? + avahi-configuration-host-name + avahi-configuration-publish? + avahi-configuration-publish-workstation? + avahi-configuration-ipv4? + avahi-configuration-ipv6? + avahi-configuration-wide-area? + avahi-configuration-domains-to-browse + avahi-service avahi-service-type)) @@ -37,7 +50,6 @@ ;;; ;;; Code: - ;; TODO: Export. (define-record-type* <avahi-configuration> avahi-configuration make-avahi-configuration avahi-configuration? @@ -45,18 +57,24 @@ (default avahi)) (debug? avahi-configuration-debug? ;Boolean (default #f)) - (host-name avahi-configuration-host-name) ;string - (publish? avahi-configuration-publish?) ;Boolean + (host-name avahi-configuration-host-name ;string | #f + (default #f)) + (publish? avahi-configuration-publish? ;boolean + (default #t)) ;; The default for this was #t in Avahi 0.6.31 and became #f in 0.7. For ;; now we stick to the old default. (publish-workstation? avahi-configuration-publish-workstation? ;Boolean (default #t)) - (ipv4? avahi-configuration-ipv4?) ;Boolean - (ipv6? avahi-configuration-ipv6?) ;Boolean - (wide-area? avahi-configuration-wide-area?) ;Boolean - (domains-to-browse avahi-configuration-domains-to-browse)) ;list of strings + (ipv4? avahi-configuration-ipv4? ;Boolean + (default #t)) + (ipv6? avahi-configuration-ipv6? ;Boolean + (default #t)) + (wide-area? avahi-configuration-wide-area? ;Boolean + (default #f)) + (domains-to-browse avahi-configuration-domains-to-browse ;list of strings + (default '()))) (define* (configuration-file config) "Return an avahi-daemon configuration file based on CONFIG, an @@ -145,14 +163,16 @@ service switch (NSS) with support for @code{.local} host name resolution.") ;; Provide 'avahi-browse', 'avahi-resolve', etc. in ;; the system profile. (service-extension profile-service-type - avahi-package)))))) - -(define* (avahi-service #:key (avahi avahi) debug? - host-name - (publish? #t) - (ipv4? #t) (ipv6? #t) - wide-area? - (domains-to-browse '())) + avahi-package))) + (default-value (avahi-configuration))))) + +(define-deprecated (avahi-service #:key (avahi avahi) debug? + host-name + (publish? #t) + (ipv4? #t) (ipv6? #t) + wide-area? + (domains-to-browse '())) + avahi-service-type "Return a service that runs @command{avahi-daemon}, a system-wide mDNS/DNS-SD responder that allows for service discovery and \"zero-configuration\" host name lookups (see @uref{http://avahi.org/}), and diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 8395a856fc..d2baea0dd0 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -7,6 +7,7 @@ ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; ;;; This file is part of GNU Guix. ;;; @@ -818,6 +819,7 @@ Return a service that sets up Unicode support in @var{tty} and loads (service-type (name 'login) (extensions (list (service-extension pam-root-service-type login-pam-service))) + (default-value (login-configuration)) (description "Provide a console log-in service as specified by its configuration value, a @code{login-configuration} object."))) @@ -1358,6 +1360,7 @@ the tty to run, among other things." (name-services (append (nscd-configuration-name-services config) name-services))))) + (default-value %nscd-default-configuration) (description "Runs libc's @dfn{name service cache daemon} (nscd) with the given configuration---an @code{<nscd-configuration>} object. @xref{Name @@ -1813,7 +1816,7 @@ archive}). If that is not the case, the service will fail to start." udev-configuration make-udev-configuration udev-configuration? (udev udev-configuration-udev ;<package> - (default udev)) + (default eudev)) (rules udev-configuration-rules ;list of <package> (default '()))) @@ -1996,6 +1999,7 @@ the udev rules in use.") (udev-configuration (udev udev) (rules (append initial-rules rules))))))) + (default-value (udev-configuration)) (description "Run @command{udev}, which populates the @file{/dev} directory dynamically. Get extra rules from the packages listed in the @@ -2138,7 +2142,7 @@ This service is not part of @var{%base-services}." (shepherd-service (documentation "kmscon virtual terminal") - (requirement '(user-processes udev dbus-system virtual-terminal)) + (requirement '(user-processes udev dbus-system)) (provision (list (symbol-append 'term- (string->symbol virtual-terminal)))) (start #~(make-forkexec-constructor #$kmscon-command)) (stop #~(make-kill-destructor))))))) @@ -2293,7 +2297,7 @@ to handle." (define %base-services ;; Convenience variable holding the basic services. - (list (login-service) + (list (service login-service-type) (service virtual-terminal-service-type) (service console-font-service-type @@ -2301,23 +2305,23 @@ to handle." (cons tty %default-console-font)) '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6"))) - (agetty-service (agetty-configuration - (extra-options '("-L")) ; no carrier detect - (term "vt100") - (tty #f))) ; automatic - - (mingetty-service (mingetty-configuration - (tty "tty1"))) - (mingetty-service (mingetty-configuration - (tty "tty2"))) - (mingetty-service (mingetty-configuration - (tty "tty3"))) - (mingetty-service (mingetty-configuration - (tty "tty4"))) - (mingetty-service (mingetty-configuration - (tty "tty5"))) - (mingetty-service (mingetty-configuration - (tty "tty6"))) + (service agetty-service-type (agetty-configuration + (extra-options '("-L")) ; no carrier detect + (term "vt100") + (tty #f))) ; automatic + + (service mingetty-service-type (mingetty-configuration + (tty "tty1"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty2"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty3"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty4"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty5"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty6"))) (service static-networking-service-type (list (static-networking (interface "lo") @@ -2326,13 +2330,15 @@ to handle." (provision '(loopback))))) (syslog-service) (service urandom-seed-service-type) - (guix-service) - (nscd-service) + (service guix-service-type) + (service nscd-service-type) ;; The LVM2 rules are needed as soon as LVM2 or the device-mapper is ;; used, so enable them by default. The FUSE and ALSA rules are ;; less critical, but handy. - (udev-service #:rules (list lvm2 fuse alsa-utils crda)) + (service udev-service-type + (udev-configuration + (rules (list lvm2 fuse alsa-utils crda)))) (service special-files-service-type `(("/bin/sh" ,(file-append (canonical-package bash) diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 47d1096c6d..fbeabf1162 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com> @@ -986,13 +986,13 @@ as expected."))) ;; The D-Bus clique. (service network-manager-service-type) (service wpa-supplicant-service-type) ;needed by NetworkManager - (avahi-service) + (service avahi-service-type) (udisks-service) (upower-service) (accountsservice-service) (colord-service) (geoclue-service) - (polkit-service) + (service polkit-service-type) (elogind-service) (dbus-service) diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm index 8ff817759d..9fe757fb73 100644 --- a/gnu/services/herd.scm +++ b/gnu/services/herd.scm @@ -252,9 +252,10 @@ when passed a service with an already-registered name." services (remove registered? services)))))) -(define (start-service name) - (with-shepherd-action name ('start) result - result)) +(define* (start-service name #:optional (arguments '())) + (invoke-action name 'start arguments + (lambda (result) + result))) (define (stop-service name) (with-shepherd-action name ('stop) result diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm index bb94c5f41a..97b7f3c07b 100644 --- a/gnu/services/ssh.scm +++ b/gnu/services/ssh.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -323,6 +324,12 @@ The other options should be self-descriptive." (log-level openssh-configuration-log-level (default 'info)) + ;; String + ;; This is an "escape hatch" to provide configuration that isn't yet + ;; supported by this configuration record. + (extra-content openssh-configuration-extra-content + (default "")) + ;; list of user-name/file-like tuples (authorized-keys openssh-authorized-keys (default '())) @@ -471,6 +478,9 @@ of user-name/file-like tuples." (match-lambda ((name command) (format port "Subsystem\t~a\t~a\n" name command))) '#$(openssh-configuration-subsystems config)) + + (format port "~a\n" + #$(openssh-configuration-extra-content config)) #t))))) (define (openssh-shepherd-service config) diff --git a/gnu/system.scm b/gnu/system.scm index ee48f48266..e6c86cb9ba 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2019 Meiyo Peng <meiyo.peng@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -118,6 +119,7 @@ boot-parameters->menu-entry local-host-aliases + %root-account %setuid-programs %base-packages %base-firmware)) @@ -792,6 +794,7 @@ use 'plain-file' instead~%") (file-append inetutils "/bin/ping") (file-append inetutils "/bin/ping6") (file-append sudo "/bin/sudo") + (file-append sudo "/bin/sudoedit") (file-append fuse "/bin/fusermount")))) (define %sudoers-specification diff --git a/gnu/system/examples/docker-image.tmpl b/gnu/system/examples/docker-image.tmpl index d73187398f..9690d651c1 100644 --- a/gnu/system/examples/docker-image.tmpl +++ b/gnu/system/examples/docker-image.tmpl @@ -44,4 +44,4 @@ (type "does-not-matter")))) ;; Guix is all you need! - (services (list (guix-service)))) + (services (list (service guix-service-type)))) diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 19a6f6a038..880a8be32d 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> @@ -22,16 +22,22 @@ (define-module (gnu system install) #:use-module (gnu) + #:use-module (gnu system) #:use-module (gnu bootloader u-boot) #:use-module (guix gexp) #:use-module (guix store) #:use-module (guix monads) #:use-module ((guix store) #:select (%store-prefix)) + #:use-module (gnu installer) + #:use-module (gnu services dbus) + #:use-module (gnu services networking) #:use-module (gnu services shepherd) #:use-module (gnu services ssh) #:use-module (gnu packages admin) #:use-module (gnu packages bash) #:use-module (gnu packages bootloaders) + #:use-module (gnu packages fonts) + #:use-module (gnu packages fontutils) #:use-module (gnu packages guile) #:use-module (gnu packages linux) #:use-module (gnu packages ssh) @@ -223,9 +229,10 @@ You have been warned. Thanks for being so brave.\x1b[0m (list (service virtual-terminal-service-type) - (mingetty-service (mingetty-configuration - (tty "tty1") - (auto-login "root"))) + (service kmscon-service-type + (kmscon-configuration + (virtual-terminal "tty1") + (login-program (installer-program)))) (login-service (login-configuration (motd motd))) @@ -250,7 +257,7 @@ You have been warned. Thanks for being so brave.\x1b[0m ;; The usual services. (syslog-service) - ;; The build daemon. Register the official server keys as trusted. + ;; The build daemon. Register the hydra.gnu.org key as trusted. ;; This allows the installation process to use substitutes by ;; default. (service guix-service-type @@ -274,7 +281,7 @@ You have been warned. Thanks for being so brave.\x1b[0m '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6"))) ;; To facilitate copy/paste. - (gpm-service) + (service gpm-service-type) ;; Add an SSH server to facilitate remote installs. (service openssh-service-type @@ -307,6 +314,12 @@ You have been warned. Thanks for being so brave.\x1b[0m (requirement '()) (provision '(loopback))))) + (service wpa-supplicant-service-type) + (dbus-service) + (service connman-service-type + (connman-configuration + (disable-vpn? #t))) + ;; Keep a reference to BARE-BONES-OS to make sure it can be ;; installed without downloading/building anything. Also keep the ;; things needed by 'profile-derivation' to minimize the amount of @@ -381,6 +394,8 @@ You have been warned. Thanks for being so brave.\x1b[0m (packages (cons* (canonical-package glibc) ;for 'tzselect' & co. parted gptfdisk ddrescue + fontconfig + font-dejavu font-gnu-unifont grub ;mostly so xrefs to its manual work cryptsetup mdadm diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index 2b20aac1dc..0f8fb7f456 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm @@ -706,7 +706,8 @@ non-ASCII names from /tmp.") (operating-system (inherit %simple-os) (name-service-switch %mdns-host-lookup-nss) - (services (cons* (avahi-service #:debug? #t) + (services (cons* (service avahi-service-type + (avahi-configuration (debug? #t))) (dbus-service) (service dhcp-client-service-type) ;needed for multicast diff --git a/gnu/tests/docker.scm b/gnu/tests/docker.scm index 453ed4893d..25e172efae 100644 --- a/gnu/tests/docker.scm +++ b/gnu/tests/docker.scm @@ -26,9 +26,18 @@ #:use-module (gnu services networking) #:use-module (gnu services docker) #:use-module (gnu services desktop) + #:use-module (gnu packages bootstrap) ; %bootstrap-guile #:use-module (gnu packages docker) #:use-module (guix gexp) + #:use-module (guix grafts) + #:use-module (guix monads) + #:use-module (guix packages) + #:use-module (guix profiles) + #:use-module (guix scripts pack) #:use-module (guix store) + #:use-module (guix tests) + #:use-module (guix build-system trivial) + #:use-module ((guix licenses) #:prefix license:) #:export (%test-docker)) (define %docker-os @@ -39,8 +48,9 @@ (service elogind-service-type) (service docker-service-type))) -(define (run-docker-test) - "Run tests in %DOCKER-OS." +(define (run-docker-test docker-tarball) + "Load DOCKER-TARBALL as Docker image and run it in a Docker container, +inside %DOCKER-OS." (define os (marionette-operating-system %docker-os @@ -50,8 +60,8 @@ (define vm (virtual-machine (operating-system os) - (memory-size 500) - (disk-image-size (* 250 (expt 2 20))) + (memory-size 700) + (disk-image-size (* 1500 (expt 2 20))) (port-forwardings '()))) (define test @@ -87,13 +97,72 @@ "version")) marionette)) + (test-equal "Load docker image and run it" + "hello world" + (marionette-eval + `(begin + (define slurp + (lambda args + (let* ((port (apply open-pipe* OPEN_READ args)) + (output (read-line port)) + (status (close-pipe port))) + output))) + (let* ((raw-line (slurp ,(string-append #$docker-cli + "/bin/docker") + "load" "-i" + ,#$docker-tarball)) + (repository&tag (string-drop raw-line + (string-length + "Loaded image: "))) + (response (slurp + ,(string-append #$docker-cli "/bin/docker") + "run" "--entrypoint" "bin/Guile" + repository&tag + "/aa.scm"))) + response)) + marionette)) + (test-end) (exit (= (test-runner-fail-count (test-runner-current)) 0))))) (gexp->derivation "docker-test" test)) +(define (build-tarball&run-docker-test) + (mlet* %store-monad + ((_ (set-grafting #f)) + (guile (set-guile-for-build (default-guile))) + (guest-script-package -> + (package + (name "guest-script") + (version "0") + (source #f) + (build-system trivial-build-system) + (arguments `(#:guile ,%bootstrap-guile + #:builder + (let ((out (assoc-ref %outputs "out"))) + (mkdir out) + (call-with-output-file (string-append out "/a.scm") + (lambda (port) + (display "(display \"hello world\n\")" port))) + #t))) + (synopsis "Display hello world using Guile") + (description "This package displays the text \"hello world\" on the +standard output device and then enters a new line.") + (home-page #f) + (license license:public-domain))) + (profile (profile-derivation (packages->manifest + (list %bootstrap-guile + guest-script-package)) + #:hooks '() + #:locales? #f)) + (tarball (docker-image "docker-pack" profile + #:symlinks '(("/bin/Guile" -> "bin/guile") + ("aa.scm" -> "a.scm")) + #:localstatedir? #t))) + (run-docker-test tarball))) + (define %test-docker (system-test (name "docker") - (description "Connect to the running Docker service.") - (value (run-docker-test)))) + (description "Test Docker container of Guix.") + (value (build-tarball&run-docker-test)))) diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm index 72e5523942..7114e5cc79 100644 --- a/gnu/tests/install.scm +++ b/gnu/tests/install.scm @@ -42,7 +42,7 @@ %test-separate-store-os %test-separate-home-os %test-raid-root-os - %test-encrypted-os + %test-encrypted-root-os %test-btrfs-root-os)) ;;; Commentary: @@ -735,7 +735,7 @@ to enter the LUKS passphrase." "/post-initrd-passphrase.ppm") #$marionette)))))) -(define %test-encrypted-os +(define %test-encrypted-root-os (system-test (name "encrypted-root-os") (description diff --git a/guix/build-system/scons.scm b/guix/build-system/scons.scm index da09cc7ded..5e76d64180 100644 --- a/guix/build-system/scons.scm +++ b/guix/build-system/scons.scm @@ -43,7 +43,7 @@ (define (default-scons) "Return the default SCons package." ;; Lazily resolve the binding to avoid a circular dependency. - (let ((python (resolve-interface '(gnu packages python)))) + (let ((python (resolve-interface '(gnu packages python-xyz)))) (module-ref python 'scons))) (define* (lower name diff --git a/guix/build/profiles.scm b/guix/build/profiles.scm index 0c23cd300e..1dc7976879 100644 --- a/guix/build/profiles.scm +++ b/guix/build/profiles.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -67,8 +67,14 @@ user-friendly name of the profile is, for instance ~/.guix-profile rather than (define (build-etc/profile output search-paths) "Build the 'OUTPUT/etc/profile' shell file containing environment variable definitions for all the SEARCH-PATHS." - (mkdir-p (string-append output "/etc")) - (call-with-output-file (string-append output "/etc/profile") + (define file + (string-append output "/etc/profile")) + + (mkdir-p (dirname file)) + (when (file-exists? file) + (delete-file file)) + + (call-with-output-file file (lambda (port) ;; The use of $GUIX_PROFILE described below is not great. Another ;; option would have been to use "$1" and have users run: @@ -144,13 +150,22 @@ instead make DIRECTORY a \"real\" directory containing symlinks." create symlinks. Write MANIFEST, an sexp, to OUTPUT/manifest. Create OUTPUT/etc/profile with Bash definitions for -all the variables listed in SEARCH-PATHS." + (define manifest-file + (string-append output "/manifest")) + ;; Make the symlinks. (union-build output inputs #:symlink symlink #:log-port (%make-void-port "w")) + ;; If one of the INPUTS provides a '/manifest' file, delete it. That can + ;; happen if MANIFEST contains something such as a Guix instance, which is + ;; ultimately built as a profile. + (when (file-exists? manifest-file) + (delete-file manifest-file)) + ;; Store meta-data. - (call-with-output-file (string-append output "/manifest") + (call-with-output-file manifest-file (lambda (p) (pretty-print manifest p))) diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index d75c11ada7..66d63a2931 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -73,6 +73,7 @@ file-system-mount-flags statfs free-disk-space + device-in-use? processes mkdtemp! @@ -684,6 +685,32 @@ mounted at FILE." (define AT_NO_AUTOMOUNT #x800) (define AT_EMPTY_PATH #x1000) +(define-syntax BLKRRPART ;<sys/mount.h> + (identifier-syntax #x125F)) + +(define* (device-in-use? device) + "Return #t if the block DEVICE is in use, #f otherwise. This is inspired +from fdisk_device_is_used function of util-linux. This is particulary useful +for devices that do not appear in /proc/self/mounts like overlayfs lowerdir +backend device." + (let*-values (((fd) (open-fdes device O_RDONLY)) + ((ret err) (%ioctl fd BLKRRPART %null-pointer))) + (close-fdes fd) + (cond + ((= ret 0) + #f) + ((= err EBUSY) + #t) + ((= err EINVAL) + ;; We get EINVAL for devices that have the GENHD_FL_NO_PART_SCAN flag + ;; set in the kernel, in particular loopback devices, though we do seem + ;; to get it for SCSI storage (/dev/sr0) on QEMU. + #f) + (else + (throw 'system-error "ioctl" "~A" + (list (strerror err)) + (list err)))))) + ;;; ;;; Containers. diff --git a/guix/channels.scm b/guix/channels.scm index 6b860f3bd8..10345c1ce5 100644 --- a/guix/channels.scm +++ b/guix/channels.scm @@ -21,18 +21,27 @@ #:use-module (guix git) #:use-module (guix records) #:use-module (guix gexp) + #:use-module (guix modules) #:use-module (guix discovery) #:use-module (guix monads) #:use-module (guix profiles) #:use-module (guix derivations) + #:use-module (guix combinators) #:use-module (guix store) #:use-module (guix i18n) + #:use-module ((guix utils) + #:select (source-properties->location + &error-location)) #:use-module (srfi srfi-1) #:use-module (srfi srfi-2) #:use-module (srfi srfi-9) #:use-module (srfi srfi-11) - #:autoload (guix self) (whole-package) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:autoload (guix self) (whole-package make-config.scm) + #:autoload (guix inferior) (gexp->derivation-in-inferior) ;FIXME: circular dep #:use-module (ice-9 match) + #:use-module (ice-9 vlist) #:export (channel channel? channel-name @@ -52,6 +61,7 @@ checkout->channel-instance latest-channel-derivation channel-instances->manifest + %channel-profile-hooks channel-instances->derivation)) ;;; Commentary: @@ -153,44 +163,43 @@ of previously processed channels." (or (channel-commit b) (not (or (channel-commit a) (channel-commit b)))))))) + ;; Accumulate a list of instances. A list of processed channels is also ;; accumulated to decide on duplicate channel specifications. - (match (fold (lambda (channel acc) - (match acc - ((#:channels previous-channels #:instances instances) - (if (ignore? channel previous-channels) - acc - (begin - (format (current-error-port) - (G_ "Updating channel '~a' from Git repository at '~a'...~%") - (channel-name channel) - (channel-url channel)) - (let-values (((checkout commit) - (latest-repository-commit store (channel-url channel) - #:ref (channel-reference - channel)))) - (let ((instance (channel-instance channel commit checkout))) - (let-values (((new-instances new-channels) - (latest-channel-instances - store - (channel-instance-dependencies instance) - previous-channels))) - `(#:channels - ,(append (cons channel new-channels) - previous-channels) - #:instances - ,(append (cons instance new-instances) - instances)))))))))) - `(#:channels ,previous-channels #:instances ()) - channels) - ((#:channels channels #:instances instances) - (let ((instance-name (compose channel-name channel-instance-channel))) - ;; Remove all earlier channel specifications if they are followed by a - ;; more specific one. - (values (delete-duplicates instances - (lambda (a b) - (eq? (instance-name a) (instance-name b)))) - channels))))) + (define-values (resulting-channels instances) + (fold2 (lambda (channel previous-channels instances) + (if (ignore? channel previous-channels) + (values previous-channels instances) + (begin + (format (current-error-port) + (G_ "Updating channel '~a' from Git repository at '~a'...~%") + (channel-name channel) + (channel-url channel)) + (let-values (((checkout commit) + (latest-repository-commit store (channel-url channel) + #:ref (channel-reference + channel)))) + (let ((instance (channel-instance channel commit checkout))) + (let-values (((new-instances new-channels) + (latest-channel-instances + store + (channel-instance-dependencies instance) + previous-channels))) + (values (append (cons channel new-channels) + previous-channels) + (append (cons instance new-instances) + instances)))))))) + previous-channels + '() ;instances + channels)) + + (let ((instance-name (compose channel-name channel-instance-channel))) + ;; Remove all earlier channel specifications if they are followed by a + ;; more specific one. + (values (delete-duplicates instances + (lambda (a b) + (eq? (instance-name a) (instance-name b)))) + resulting-channels))) (define* (checkout->channel-instance checkout #:key commit @@ -214,45 +223,48 @@ of COMMIT at URL. Use NAME as the channel name." ;; place a set of compiled Guile modules in ~/.config/guix/latest. 1) -(define (standard-module-derivation name source dependencies) - "Return a derivation that builds the Scheme modules in SOURCE and that -depend on DEPENDENCIES, a list of lowerable objects. The assumption is that -SOURCE contains package modules to be added to '%package-module-path'." - (define modules - (scheme-modules* source)) - +(define (standard-module-derivation name source core dependencies) + "Return a derivation that builds with CORE, a Guix instance, the Scheme +modules in SOURCE and that depend on DEPENDENCIES, a list of lowerable +objects. The assumption is that SOURCE contains package modules to be added +to '%package-module-path'." ;; FIXME: We should load, say SOURCE/.guix-channel.scm, which would allow ;; channel publishers to specify things such as the sub-directory where .scm ;; files live, files to exclude from the channel, preferred substitute URLs, ;; etc. - (mlet* %store-monad ((compiled - (compiled-modules modules - #:name name - #:module-path (list source) - #:extensions dependencies))) - - (gexp->derivation name - (with-extensions dependencies - (with-imported-modules '((guix build utils)) - #~(begin - (use-modules (guix build utils)) - - (let ((go (string-append #$output "/lib/guile/" - (effective-version) - "/site-ccache")) - (scm (string-append #$output - "/share/guile/site/" - (effective-version)))) - (mkdir-p (dirname go)) - (symlink #$compiled go) - (mkdir-p (dirname scm)) - (symlink #$source scm)))))))) + + (define build + ;; This is code that we'll run in CORE, a Guix instance, with its own + ;; modules and so on. That way, we make sure these modules are built for + ;; the right Guile version, with the right dependencies, and that they get + ;; to see the right (gnu packages …) modules. + (with-extensions dependencies + #~(begin + (use-modules (guix build compile) + (guix build utils) + (srfi srfi-26)) + + (define go + (string-append #$output "/lib/guile/" (effective-version) + "/site-ccache")) + (define scm + (string-append #$output "/share/guile/site/" + (effective-version))) + + (compile-files #$source go + (find-files #$source "\\.scm$")) + (mkdir-p (dirname scm)) + (symlink #$source scm) + scm))) + + (gexp->derivation-in-inferior name build core)) (define* (build-from-source name source - #:key verbose? commit + #:key core verbose? commit (dependencies '())) "Return a derivation to build Guix from SOURCE, using the self-build script -contained therein. Use COMMIT as the version string." +contained therein; use COMMIT as the version string. When CORE is true, build +package modules under SOURCE using CORE, an instance of Guix." ;; Running the self-build script makes it easier to update the build ;; procedure: the self-build script of the Guix-to-be-installed contains the ;; right dependencies, build procedure, etc., which the Guix-in-use may not @@ -274,9 +286,10 @@ contained therein. Use COMMIT as the version string." #:pull-version %pull-version)) ;; Build a set of modules that extend Guix using the standard method. - (standard-module-derivation name source dependencies))) + (standard-module-derivation name source core dependencies))) -(define* (build-channel-instance instance #:optional (dependencies '())) +(define* (build-channel-instance instance + #:optional core (dependencies '())) "Return, as a monadic value, the derivation for INSTANCE, a channel instance. DEPENDENCIES is a list of extensions providing Guile modules that INSTANCE depends on." @@ -284,8 +297,37 @@ INSTANCE depends on." (channel-name (channel-instance-channel instance))) (channel-instance-checkout instance) #:commit (channel-instance-commit instance) + #:core core #:dependencies dependencies)) +(define (resolve-dependencies instances) + "Return a procedure that, given one of the elements of INSTANCES, returns +list of instances it depends on." + (define channel-instance-name + (compose channel-name channel-instance-channel)) + + (define table ;map a name to an instance + (fold (lambda (instance table) + (vhash-consq (channel-instance-name instance) + instance table)) + vlist-null + instances)) + + (define edges + (fold (lambda (instance edges) + (fold (lambda (channel edges) + (let ((name (channel-name channel))) + (match (vhash-assq name table) + ((_ . target) + (vhash-consq instance target edges))))) + edges + (channel-instance-dependencies instance))) + vlist-null + instances)) + + (lambda (instance) + (vhash-foldq* cons '() instance edges))) + (define (channel-instance-derivations instances) "Return the list of derivations to build INSTANCES, in the same order as INSTANCES." @@ -296,38 +338,30 @@ INSTANCES." (guix-channel? (channel-instance-channel instance))) instances)) - (define dependencies - ;; Dependencies of CORE-INSTANCE. - ;; FIXME: It would be best not to hard-wire this information here and - ;; instead query it to CORE-INSTANCE. - (list (module-ref (resolve-interface '(gnu packages gnupg)) - 'guile-gcrypt) - (module-ref (resolve-interface '(gnu packages guile)) - 'guile-git) - (module-ref (resolve-interface '(gnu packages guile)) - 'guile-bytestructures))) - - (mlet %store-monad ((core (build-channel-instance core-instance))) - (mapm %store-monad - (lambda (instance) - (if (eq? instance core-instance) - (return core) - (match (channel-instance-dependencies instance) - (() - (build-channel-instance instance - (cons core dependencies))) - (channels - (mlet %store-monad ((dependencies-derivation - (latest-channel-derivation - ;; %default-channels is used here to - ;; ensure that the core channel is - ;; available for channels declared as - ;; dependencies. - (append channels %default-channels)))) - (build-channel-instance instance - (cons dependencies-derivation - (cons core dependencies)))))))) - instances))) + (define edges + (resolve-dependencies instances)) + + (define (instance->derivation instance) + (mcached (if (eq? instance core-instance) + (build-channel-instance instance) + (mlet %store-monad ((core (instance->derivation core-instance)) + (deps (mapm %store-monad instance->derivation + (edges instance)))) + (build-channel-instance instance core deps))) + instance)) + + (unless core-instance + (let ((loc (and=> (any (compose channel-location channel-instance-channel) + instances) + source-properties->location))) + (raise (apply make-compound-condition + (condition + (&message (message "'guix' channel is lacking"))) + (if loc + (list (condition (&error-location (location loc)))) + '()))))) + + (mapm %store-monad instance->derivation instances)) (define (whole-package-for-legacy name modules) "Return a full-blown Guix package for MODULES, a derivation that builds Guix @@ -416,11 +450,40 @@ channel instances." (zip instances derivations)))) (return (manifest entries)))) +(define (package-cache-file manifest) + "Build a package cache file for the instance in MANIFEST. This is meant to +be used as a profile hook." + (mlet %store-monad ((profile (profile-derivation manifest + #:hooks '()))) + + (define build + #~(begin + (use-modules (gnu packages)) + + (if (defined? 'generate-package-cache) + (begin + ;; Delegate package cache generation to the inferior. + (format (current-error-port) + "Generating package cache for '~a'...~%" + #$profile) + (generate-package-cache #$output)) + (mkdir #$output)))) + + (gexp->derivation-in-inferior "guix-package-cache" build + profile + #:properties '((type . profile-hook) + (hook . package-cache))))) + +(define %channel-profile-hooks + ;; The default channel profile hooks. + (cons package-cache-file %default-profile-hooks)) + (define (channel-instances->derivation instances) "Return the derivation of the profile containing INSTANCES, a list of channel instances." (mlet %store-monad ((manifest (channel-instances->manifest instances))) - (profile-derivation manifest))) + (profile-derivation manifest + #:hooks %channel-profile-hooks))) (define latest-channel-instances* (store-lift latest-channel-instances)) diff --git a/guix/discovery.scm b/guix/discovery.scm index 3fc6e2c9e7..ef5ae73973 100644 --- a/guix/discovery.scm +++ b/guix/discovery.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -30,7 +30,8 @@ scheme-modules* fold-modules all-modules - fold-module-public-variables)) + fold-module-public-variables + fold-module-public-variables*)) ;;; Commentary: ;;; @@ -147,10 +148,33 @@ search. Entries in PATH can be directory names (strings) or (DIRECTORY SUB-DIRECTORY." (fold-modules cons '() path #:warn warn)) +(define (fold-module-public-variables* proc init modules) + "Call (PROC MODULE SYMBOL VARIABLE) for each variable exported by one of MODULES, +using INIT as the initial value of RESULT. It is guaranteed to never traverse +the same object twice." + ;; Here SEEN is populated by variables; if two different variables refer to + ;; the same object, we still let them through. + (identity ;discard second return value + (fold2 (lambda (module result seen) + (fold2 (lambda (sym+var result seen) + (match sym+var + ((sym . var) + (if (not (vhash-assq var seen)) + (values (proc module sym var result) + (vhash-consq var #t seen)) + (values result seen))))) + result + seen + (module-map cons module))) + init + vlist-null + modules))) + (define (fold-module-public-variables proc init modules) "Call (PROC OBJECT RESULT) for each variable exported by one of MODULES, using INIT as the initial value of RESULT. It is guaranteed to never traverse the same object twice." + ;; Note: here SEEN is populated by objects, not by variables. (identity ; discard second return value (fold2 (lambda (module result seen) (fold2 (lambda (var result seen) diff --git a/guix/import/github.scm b/guix/import/github.scm index ad662e7b02..b287313d98 100644 --- a/guix/import/github.scm +++ b/guix/import/github.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org> +;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -54,7 +55,6 @@ false if none is recognized" (github-user-slash-repository url))) (repo (github-repository url))) (cond - ((string-suffix? ".git" url) url) ((string-suffix? (string-append "/tarball/v" version) url) (string-append prefix "/tarball/v" new-version)) ((string-suffix? (string-append "/tarball/" version) url) @@ -99,7 +99,7 @@ false if none is recognized" ((source-uri ...) (find updated-url source-uri)))) ((eq? fetch-method download:git-fetch) - (updated-url (download:git-reference-url source-uri))) + (download:git-reference-url source-uri)) (else #f)))) (define (github-package? package) diff --git a/guix/inferior.scm b/guix/inferior.scm index ba8d00866b..9f19e7d316 100644 --- a/guix/inferior.scm +++ b/guix/inferior.scm @@ -81,6 +81,8 @@ inferior-package->manifest-entry + gexp->derivation-in-inferior + %inferior-cache-directory inferior-for-channels)) @@ -484,6 +486,37 @@ PACKAGE must be live." ;; Compile PACKAGE for SYSTEM, optionally cross-building for TARGET. (inferior-package->derivation package system #:target target)) +(define* (gexp->derivation-in-inferior name exp guix + #:rest rest) + "Return a derivation that evaluates EXP with GUIX, an instance of Guix as +returned for example by 'channel-instances->derivation'. Other arguments are +passed as-is to 'gexp->derivation'." + (define script + ;; EXP wrapped with a proper (set! %load-path …) prologue. + (scheme-file "inferior-script.scm" exp)) + + (define trampoline + ;; This is a crude way to run EXP on GUIX. TODO: use 'raw-derivation' and + ;; make 'guix repl' the "builder"; this will require "opening up" the + ;; mechanisms behind 'gexp->derivation', and adding '-l' to 'guix repl'. + #~(begin + (use-modules (ice-9 popen)) + + (let ((pipe (open-pipe* OPEN_WRITE + #+(file-append guix "/bin/guix") + "repl" "-t" "machine"))) + + ;; XXX: EXP presumably refers to #$output but that reference is lost + ;; so explicitly reference it here. + #$output + + (write `(primitive-load #$script) pipe) + + (unless (zero? (close-pipe pipe)) + (error "inferior failed" #+guix))))) + + (apply gexp->derivation name trampoline rest)) + ;;; ;;; Manifest entries. diff --git a/guix/profiles.scm b/guix/profiles.scm index 8142e5e8e2..598e0acf62 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2014, 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com> -;;; Copyright © 2016, 2018 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2017 Huang Ying <huang.ying.caritas@gmail.com> ;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com> @@ -1338,6 +1338,53 @@ the entries in MANIFEST." `((type . profile-hook) (hook . manual-database)))) +(define (texlive-configuration manifest) + "Return a derivation that builds a TeXlive configuration for the entries in +MANIFEST." + (define entry->texlive-input + (match-lambda + (($ <manifest-entry> name version output thing deps) + (if (string-prefix? "texlive-" name) + (cons (gexp-input thing output) + (append-map entry->texlive-input deps)) + '())))) + (define build + (with-imported-modules '((guix build utils) + (guix build union)) + #~(begin + (use-modules (guix build utils) + (guix build union)) + + ;; Build a modifiable union of all texlive inputs. We do this so + ;; that TeX live can resolve the parent and grandparent directories + ;; correctly. There might be a more elegant way to accomplish this. + (union-build #$output + '#$(append-map entry->texlive-input + (manifest-entries manifest)) + #:create-all-directories? #t + #:log-port (%make-void-port "w")) + (let ((texmf.cnf (string-append + #$output + "/share/texmf-dist/web2c/texmf.cnf"))) + (when (file-exists? texmf.cnf) + (substitute* texmf.cnf + (("^TEXMFROOT = .*") + (string-append "TEXMFROOT = " #$output "/share\n")) + (("^TEXMF = .*") + "TEXMF = $TEXMFROOT/share/texmf-dist\n")))) + #t))) + + (with-monad %store-monad + (if (any (cut string-prefix? "texlive-" <>) + (map manifest-entry-name (manifest-entries manifest))) + (gexp->derivation "texlive-configuration" build + #:substitutable? #f + #:local-build? #t + #:properties + `((type . profile-hook) + (hook . texlive-configuration))) + (return #f)))) + (define %default-profile-hooks ;; This is the list of derivation-returning procedures that are called by ;; default when making a non-empty profile. @@ -1349,6 +1396,7 @@ the entries in MANIFEST." glib-schemas gtk-icon-themes gtk-im-modules + texlive-configuration xdg-desktop-database xdg-mime-database)) diff --git a/guix/profiling.scm b/guix/profiling.scm index 753fc6c22e..e1c205a543 100644 --- a/guix/profiling.scm +++ b/guix/profiling.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2017, 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -18,6 +18,7 @@ (define-module (guix profiling) #:use-module (ice-9 match) + #:autoload (ice-9 format) (format) #:export (profiled? register-profiling-hook!)) @@ -50,3 +51,25 @@ (for-each (lambda (hook) (add-hook! hook thunk)) %profiling-hooks))) + +(define (show-gc-stats) + "Display garbage collection statistics." + (define MiB (* 1024 1024.)) + (define stats (gc-stats)) + + (format (current-error-port) "Garbage collection statistics: + heap size: ~,2f MiB + allocated: ~,2f MiB + GC times: ~a + time spent in GC: ~,2f seconds (~d% of user time)~%" + (/ (assq-ref stats 'heap-size) MiB) + (/ (assq-ref stats 'heap-total-allocated) MiB) + (assq-ref stats 'gc-times) + (/ (assq-ref stats 'gc-time-taken) + internal-time-units-per-second 1.) + (inexact->exact + (round (* (/ (assq-ref stats 'gc-time-taken) + (tms:utime (times)) 1.) + 100))))) + +(register-profiling-hook! "gc" show-gc-stats) diff --git a/guix/scripts/copy.scm b/guix/scripts/copy.scm index 4c85929858..be4ce4364b 100644 --- a/guix/scripts/copy.scm +++ b/guix/scripts/copy.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -21,6 +21,7 @@ #:use-module (guix scripts) #:use-module (guix ssh) #:use-module (guix store) + #:use-module (guix status) #:use-module (guix utils) #:use-module (guix derivations) #:use-module (guix scripts build) @@ -116,6 +117,8 @@ Copy ITEMS to or from the specified host over SSH.\n")) --to=HOST send ITEMS to HOST")) (display (G_ " --from=HOST receive ITEMS from HOST")) + (display (G_ " + -v, --verbosity=LEVEL use the given verbosity LEVEL")) (newline) (show-build-options-help) (newline) @@ -134,6 +137,11 @@ Copy ITEMS to or from the specified host over SSH.\n")) (option '("from") #t #f (lambda (opt name arg result) (alist-cons 'source arg result))) + (option '(#\v "verbosity") #t #f + (lambda (opt name arg result) + (let ((level (string->number* arg))) + (alist-cons 'verbosity level + (alist-delete 'verbosity result))))) (option '(#\h "help") #f #f (lambda args (show-help) @@ -152,7 +160,11 @@ Copy ITEMS to or from the specified host over SSH.\n")) (substitutes? . #t) (build-hook? . #t) (graft? . #t) - (verbosity . 0))) + (print-build-trace? . #t) + (print-extended-build-trace? . #t) + (multiplexed-build-output? . #t) + (debug . 0) + (verbosity . 2))) ;;; @@ -164,6 +176,7 @@ Copy ITEMS to or from the specified host over SSH.\n")) (let* ((opts (parse-command-line args %options (list %default-options))) (source (assoc-ref opts 'source)) (target (assoc-ref opts 'destination))) - (cond (target (send-to-remote-host target opts)) - (source (retrieve-from-remote-host source opts)) - (else (leave (G_ "use '--to' or '--from'~%"))))))) + (with-status-verbosity (assoc-ref opts 'verbosity) + (cond (target (send-to-remote-host target opts)) + (source (retrieve-from-remote-host source opts)) + (else (leave (G_ "use '--to' or '--from'~%")))))))) diff --git a/guix/scripts/download.scm b/guix/scripts/download.scm index b9162d3449..d8fe71ce12 100644 --- a/guix/scripts/download.scm +++ b/guix/scripts/download.scm @@ -77,7 +77,7 @@ Supported formats: 'nix-base32' (default), 'base32', and 'base16' (format #t (G_ " --no-check-certificate do not validate the certificate of HTTPS servers ")) - (format #f (G_ " + (format #t (G_ " -o, --output=FILE download to FILE")) (newline) (display (G_ " diff --git a/guix/scripts/edit.scm b/guix/scripts/edit.scm index 8b2b61d76a..da3d2775e8 100644 --- a/guix/scripts/edit.scm +++ b/guix/scripts/edit.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2016, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Mathieu Lirzin <mthl@gnu.org> ;;; ;;; This file is part of GNU Guix. @@ -21,7 +21,6 @@ #:use-module (guix ui) #:use-module (guix scripts) #:use-module (guix utils) - #:use-module (guix packages) #:use-module (gnu packages) #:use-module (srfi srfi-1) #:use-module (srfi srfi-37) @@ -63,14 +62,13 @@ Start $VISUAL or $EDITOR to edit the definitions of PACKAGE...\n")) file path)) absolute-file-name)) -(define (package->location-specification package) - "Return the location specification for PACKAGE for a typical editor command +(define (location->location-specification location) + "Return the location specification for LOCATION for a typical editor command line." - (let ((loc (package-location package))) - (list (string-append "+" - (number->string - (location-line loc))) - (search-path* %load-path (location-file loc))))) + (list (string-append "+" + (number->string + (location-line location))) + (search-path* %load-path (location-file location)))) (define (guix-edit . args) @@ -83,18 +81,13 @@ line." '())) (with-error-handling - (let* ((specs (reverse (parse-arguments))) - (packages (map specification->package specs))) - (for-each (lambda (package) - (unless (package-location package) - (leave (G_ "source location of package '~a' is unknown~%") - (package-full-name package)))) - packages) + (let* ((specs (reverse (parse-arguments))) + (locations (map specification->location specs))) (catch 'system-error (lambda () - (let ((file-names (append-map package->location-specification - packages))) + (let ((file-names (append-map location->location-specification + locations))) ;; Use `system' instead of `exec' in order to sanely handle ;; possible command line arguments in %EDITOR. (exit (system (string-join (cons (%editor) file-names)))))) diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 0f315a9352..665adcfb8d 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -758,9 +758,10 @@ descriptions maintained upstream." "Emit a warning if PACKAGE's source is an autogenerated tarball." (define (check-source-uri uri) (when (and (string=? (uri-host (string->uri uri)) "github.com") - (string=? (third (split-and-decode-uri-path - (uri-path (string->uri uri)))) - "archive")) + (match (split-and-decode-uri-path + (uri-path (string->uri uri))) + ((_ _ "archive" _ ...) #t) + (_ #f))) (emit-warning package (G_ "the source URI should not be an autogenerated tarball") 'source))) diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 7ff6bfd6d8..a633d2ee6d 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -120,21 +120,21 @@ denote ranges as interpreted by 'matching-generations'." (define* (build-and-use-profile store profile manifest #:key + (hooks %default-profile-hooks) allow-collisions? bootstrap? use-substitutes? dry-run?) "Build a new generation of PROFILE, a file name, using the packages specified in MANIFEST, a manifest object. When ALLOW-COLLISIONS? is true, -do not treat collisions in MANIFEST as an error." +do not treat collisions in MANIFEST as an error. HOOKS is a list of \"profile +hooks\" run when building the profile." (when (equal? profile %current-profile) (ensure-default-profile)) (let* ((prof-drv (run-with-store store (profile-derivation manifest #:allow-collisions? allow-collisions? - #:hooks (if bootstrap? - '() - %default-profile-hooks) + #:hooks (if bootstrap? '() hooks) #:locales? (not bootstrap?)))) (prof (derivation->output-path prof-drv))) (show-what-to-build store (list prof-drv) @@ -220,31 +220,32 @@ of relevance scores." ('dismiss transaction) (($ <manifest-entry> name version output (? string? path)) - (match (vhash-assoc name (find-newest-available-packages)) - ((_ candidate-version pkg . rest) - (match (package-superseded pkg) - ((? package? new) - (supersede entry new)) - (#f - (case (version-compare candidate-version version) - ((>) - (manifest-transaction-install-entry - (package->manifest-entry* pkg output) - transaction)) - ((<) - transaction) - ((=) - (let ((candidate-path (derivation->output-path - (package-derivation (%store) pkg)))) - ;; XXX: When there are propagated inputs, assume we need to - ;; upgrade the whole entry. - (if (and (string=? path candidate-path) - (null? (package-propagated-inputs pkg))) - transaction - (manifest-transaction-install-entry - (package->manifest-entry* pkg output) - transaction)))))))) - (#f + (match (find-best-packages-by-name name #f) + ((pkg . rest) + (let ((candidate-version (package-version pkg))) + (match (package-superseded pkg) + ((? package? new) + (supersede entry new)) + (#f + (case (version-compare candidate-version version) + ((>) + (manifest-transaction-install-entry + (package->manifest-entry* pkg output) + transaction)) + ((<) + transaction) + ((=) + (let ((candidate-path (derivation->output-path + (package-derivation (%store) pkg)))) + ;; XXX: When there are propagated inputs, assume we need to + ;; upgrade the whole entry. + (if (and (string=? path candidate-path) + (null? (package-propagated-inputs pkg))) + transaction + (manifest-transaction-install-entry + (package->manifest-entry* pkg output) + transaction))))))))) + (() (warning (G_ "package '~a' no longer exists~%") name) transaction))))) @@ -604,12 +605,12 @@ and upgrades." (options->upgrade-predicate opts)) (define upgraded - (fold-right (lambda (entry transaction) - (if (upgrade? (manifest-entry-name entry)) - (transaction-upgrade-entry entry transaction) - transaction)) - transaction - (manifest-entries manifest))) + (fold (lambda (entry transaction) + (if (upgrade? (manifest-entry-name entry)) + (transaction-upgrade-entry entry transaction) + transaction)) + transaction + (manifest-entries manifest))) (define to-install (filter-map (match-lambda @@ -735,29 +736,34 @@ processed, #f otherwise." (('list-available regexp) (let* ((regexp (and regexp (make-regexp* regexp))) - (available (fold-packages - (lambda (p r) - (let ((n (package-name p))) - (if (and (supported-package? p) - (not (package-superseded p))) - (if regexp - (if (regexp-exec regexp n) - (cons p r) - r) - (cons p r)) - r))) + (available (fold-available-packages + (lambda* (name version result + #:key outputs location + supported? superseded? + #:allow-other-keys) + (if (and supported? (not superseded?)) + (if regexp + (if (regexp-exec regexp name) + (cons `(,name ,version + ,outputs ,location) + result) + result) + (cons `(,name ,version + ,outputs ,location) + result)) + result)) '()))) (leave-on-EPIPE - (for-each (lambda (p) - (format #t "~a\t~a\t~a\t~a~%" - (package-name p) - (package-version p) - (string-join (package-outputs p) ",") - (location->string (package-location p)))) + (for-each (match-lambda + ((name version outputs location) + (format #t "~a\t~a\t~a\t~a~%" + name version + (string-join outputs ",") + (location->string location)))) (sort available - (lambda (p1 p2) - (string<? (package-name p1) - (package-name p2)))))) + (match-lambda* + (((name1 . _) (name2 . _)) + (string<? name1 name2)))))) #t)) (('search _) diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index 6d1914f7c2..d3a4401a01 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -34,11 +34,12 @@ #:use-module (guix channels) #:autoload (guix inferior) (open-inferior) #:use-module (guix scripts build) + #:autoload (guix build utils) (which) #:use-module (guix git) #:use-module (git) #:use-module (gnu packages) #:use-module ((guix scripts package) #:select (build-and-use-profile)) - #:use-module (gnu packages base) + #:use-module ((gnu packages base) #:select (canonical-package)) #:use-module (gnu packages guile) #:use-module ((gnu packages bootstrap) #:select (%bootstrap-guile)) @@ -125,8 +126,7 @@ Download and deploy the latest version of Guix.\n")) (alist-cons 'ref `(commit . ,arg) result))) (option '("branch") #t #f (lambda (opt name arg result) - (alist-cons 'ref `(branch . ,(string-append "origin/" arg)) - result))) + (alist-cons 'ref `(branch . ,arg) result))) (option '(#\p "profile") #t #f (lambda (opt name arg result) (alist-cons 'profile (canonicalize-profile arg) @@ -189,9 +189,19 @@ true, display what would be built without actually building it." (mlet %store-monad ((manifest (channel-instances->manifest instances))) (mbegin %store-monad (update-profile profile manifest + #:hooks %channel-profile-hooks #:dry-run? dry-run?) (munless dry-run? - (return (display-profile-news profile)))))) + (return (display-profile-news profile)) + (match (which "guix") + (#f (return #f)) + (str + (let ((command (string-append profile "/bin/guix"))) + (unless (string=? command str) + (display-hint (format #f (G_ "After setting @code{PATH}, run +@command{hash guix} to make sure your shell refers to @file{~a}.") + command))) + (return #f)))))))) (define (honor-lets-encrypt-certificates! store) "Tell Guile-Git to use the Let's Encrypt certificates." diff --git a/guix/self.scm b/guix/self.scm index cf6110613c..fa78015a41 100644 --- a/guix/self.scm +++ b/guix/self.scm @@ -613,6 +613,13 @@ Info manual." (append (file-imports source "gnu/system/examples" (const #t)) + ;; Need so we get access system tests from an + ;; inferior. + (file-imports source "gnu/tests" (const #t)) + + ;; All the installer code is on the build-side. + (file-imports source "gnu/installer/" + (const #t)) ;; Build-side code that we don't build. Some of ;; these depend on guile-rsvg, the Shepherd, etc. (file-imports source "gnu/build" (const #t))) @@ -806,7 +813,6 @@ Info manual." ;; made relative to a nonexistent anonymous module. #:splice? #t)) - ;;; ;;; Building. diff --git a/guix/serialization.scm b/guix/serialization.scm index 87ad7eeec0..7c0fea552d 100644 --- a/guix/serialization.scm +++ b/guix/serialization.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -380,10 +380,19 @@ which case you can use 'identity'." (&nar-error (file f) (port port)))))) (write-string ")" p))) +(define port-conversion-strategy + (fluid->parameter %default-port-conversion-strategy)) + (define (restore-file port file) "Read a file (possibly a directory structure) in Nar format from PORT. Restore it as FILE." - (parameterize ((currently-restored-file file)) + (parameterize ((currently-restored-file file) + + ;; Error out if we can convert file names to the current + ;; locale. (XXX: We'd prefer UTF-8 encoding for file names + ;; regardless of the locale, but that's what Guile gives us + ;; so far.) + (port-conversion-strategy 'error)) (let ((signature (read-string port))) (unless (equal? signature %archive-version-1) (raise diff --git a/guix/status.scm b/guix/status.scm index 2928733257..93e119bed1 100644 --- a/guix/status.scm +++ b/guix/status.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> -;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -27,6 +27,7 @@ #:select (nar-uri-abbreviation)) #:use-module (guix store) #:use-module (guix derivations) + #:use-module (guix memoization) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) #:use-module (srfi srfi-19) @@ -229,22 +230,27 @@ build-log\" traces." (and (current-store-protocol-version) (>= (current-store-protocol-version) #x163))) +(define isatty?* + (mlambdaq (port) + (isatty? port))) + (define spin! (let ((steps (circular-list "\\" "|" "/" "-"))) (lambda (port) "Display a spinner on PORT." - (match steps - ((first . rest) - (set! steps rest) - (display "\r\x1b[K" port) - (display first port) - (force-output port)))))) + (when (isatty?* port) + (match steps + ((first . rest) + (set! steps rest) + (display "\r\x1b[K" port) + (display first port) + (force-output port))))))) (define (color-output? port) "Return true if we should write colored output to PORT." (and (not (getenv "INSIDE_EMACS")) (not (getenv "NO_COLOR")) - (isatty? port))) + (isatty?* port))) (define-syntax color-rules (syntax-rules () @@ -312,8 +318,12 @@ on." (G_ "building XDG MIME database...")) ('fonts-dir (G_ "building fonts directory...")) + ('texlive-configuration + (G_ "building TeX Live configuration...")) ('manual-database (G_ "building database for manual pages...")) + ('package-cache ;package cache generated by 'guix pull' + (G_ "building package cache...")) (_ #f))) (define* (print-build-event event old-status status diff --git a/po/guix/POTFILES.in b/po/guix/POTFILES.in index f7360489c6..07b73a770a 100644 --- a/po/guix/POTFILES.in +++ b/po/guix/POTFILES.in @@ -8,6 +8,32 @@ gnu/services/shepherd.scm gnu/system/mapped-devices.scm gnu/system/shadow.scm guix/import/opam.scm +gnu/installer.scm +gnu/installer/connman.scm +gnu/installer/hostname.scm +gnu/installer/keymap.scm +gnu/installer/locale.scm +gnu/installer/newt.scm +gnu/installer/newt/ethernet.scm +gnu/installer/newt/hostname.scm +gnu/installer/newt/keymap.scm +gnu/installer/newt/locale.scm +gnu/installer/newt/menu.scm +gnu/installer/newt/network.scm +gnu/installer/newt/page.scm +gnu/installer/newt/services.scm +gnu/installer/newt/timezone.scm +gnu/installer/newt/user.scm +gnu/installer/newt/utils.scm +gnu/installer/newt/welcome.scm +gnu/installer/newt/wifi.scm +gnu/installer/parted.scm +gnu/installer/record.scm +gnu/installer/services.scm +gnu/installer/steps.scm +gnu/installer/timezone.scm +gnu/installer/user.scm +gnu/installer/utils.scm guix/scripts.scm guix/scripts/build.scm guix/discovery.scm diff --git a/tests/channels.scm b/tests/channels.scm index f3fc383ac3..8540aef435 100644 --- a/tests/channels.scm +++ b/tests/channels.scm @@ -18,9 +18,16 @@ (define-module (test-channels) #:use-module (guix channels) + #:use-module (guix profiles) #:use-module ((guix build syscalls) #:select (mkdtemp!)) #:use-module (guix tests) + #:use-module (guix store) + #:use-module ((guix grafts) #:select (%graft?)) + #:use-module (guix derivations) + #:use-module (guix sets) + #:use-module (guix gexp) #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) #:use-module (srfi srfi-64) #:use-module (ice-9 match)) @@ -34,8 +41,9 @@ (and spec (with-output-to-file (string-append instance-dir "/.guix-channel") (lambda _ (format #t "~a" spec)))) - ((@@ (guix channels) channel-instance) - name commit instance-dir)) + (checkout->channel-instance instance-dir + #:commit commit + #:name name)) (define instance--boring (make-instance)) (define instance--no-deps @@ -136,4 +144,80 @@ 'abc1234))) instances)))))) +(test-assert "channel-instances->manifest" + ;; Compute the manifest for a graph of instances and make sure we get a + ;; derivation graph that mirrors the instance graph. This test also ensures + ;; we don't try to access Git repositores at all at this stage. + (let* ((spec (lambda deps + `(channel (version 0) + (dependencies + ,@(map (lambda (dep) + `(channel + (name ,dep) + (url "http://example.org"))) + deps))))) + (guix (make-instance #:name 'guix)) + (instance0 (make-instance #:name 'a)) + (instance1 (make-instance #:name 'b #:spec (spec 'a))) + (instance2 (make-instance #:name 'c #:spec (spec 'b))) + (instance3 (make-instance #:name 'd #:spec (spec 'c 'a)))) + (%graft? #f) ;don't try to build stuff + + ;; Create 'build-self.scm' so that GUIX is recognized as the 'guix' channel. + (let ((source (channel-instance-checkout guix))) + (mkdir (string-append source "/build-aux")) + (call-with-output-file (string-append source + "/build-aux/build-self.scm") + (lambda (port) + (write '(begin + (use-modules (guix) (gnu packages bootstrap)) + + (lambda _ + (package->derivation %bootstrap-guile))) + port)))) + + (with-store store + (let () + (define manifest + (run-with-store store + (channel-instances->manifest (list guix + instance0 instance1 + instance2 instance3)))) + + (define entries + (manifest-entries manifest)) + + (define (depends? drv in out) + ;; Return true if DRV depends (directly or indirectly) on all of IN + ;; and none of OUT. + (let ((set (list->set + (requisites store + (list (derivation-file-name drv))))) + (in (map derivation-file-name in)) + (out (map derivation-file-name out))) + (and (every (cut set-contains? set <>) in) + (not (any (cut set-contains? set <>) out))))) + + (define (lookup name) + (run-with-store store + (lower-object + (manifest-entry-item + (manifest-lookup manifest + (manifest-pattern (name name))))))) + + (let ((drv-guix (lookup "guix")) + (drv0 (lookup "a")) + (drv1 (lookup "b")) + (drv2 (lookup "c")) + (drv3 (lookup "d"))) + (and (depends? drv-guix '() (list drv0 drv1 drv2 drv3)) + (depends? drv0 + (list) (list drv1 drv2 drv3)) + (depends? drv1 + (list drv0) (list drv2 drv3)) + (depends? drv2 + (list drv1) (list drv3)) + (depends? drv3 + (list drv2 drv0) (list)))))))) + (test-end "channels") diff --git a/tests/guix-package-net.sh b/tests/guix-package-net.sh index 927c856b23..82c346dd4c 100644 --- a/tests/guix-package-net.sh +++ b/tests/guix-package-net.sh @@ -1,5 +1,5 @@ # GNU Guix --- Functional package management for GNU -# Copyright © 2012, 2013, 2014, 2015, 2017 Ludovic Courtès <ludo@gnu.org> +# Copyright © 2012, 2013, 2014, 2015, 2017, 2019 Ludovic Courtès <ludo@gnu.org> # Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> # # This file is part of GNU Guix. @@ -167,6 +167,37 @@ then false; fi guix package -p "$profile" -p "$profile_alt" --search-paths \ | grep "LIBRARY_PATH.*$profile/lib.$profile_alt/lib" +# Simulate an upgrade and make sure the package order is preserved. +module_dir="t-guix-package-net-$$" +trap 'rm -rf "$module_dir"' EXIT + +mkdir "$module_dir" +cat > "$module_dir/new.scm" <<EOF +(define-module (new) + #:use-module (guix) + #:use-module (gnu packages bootstrap)) + +(define-public new-guile + (package (inherit %bootstrap-guile) + (version (string-append "42." (getenv "V_MINOR"))))) +(define-public new-gcc + (package (inherit %bootstrap-gcc) + (version (string-append "77." (getenv "V_MINOR"))))) +EOF + +guix package --bootstrap -p "$profile" -i gcc-bootstrap +installed="`guix package -p "$profile" -I | cut -f1`" + +for i in 1 2 +do + V_MINOR="$i" + export V_MINOR + + guix package -p "$profile" --bootstrap -L "$module_dir" -u . + post_upgrade="`guix package -p "$profile" -I | cut -f1`" + test "$post_upgrade" = "$installed" +done + # # Try with the default profile. # diff --git a/tests/lint.scm b/tests/lint.scm index 912a78d111..dc2b17aeec 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -38,7 +38,7 @@ #:use-module (gnu packages) #:use-module (gnu packages glib) #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) #:use-module (web uri) #:use-module (web server) #:use-module (web server http) diff --git a/tests/nar.scm b/tests/nar.scm index 5ffe68c9e2..bfc71c69a8 100644 --- a/tests/nar.scm +++ b/tests/nar.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -334,6 +334,40 @@ (lambda () (rmdir input))))) +(test-eq "restore-file with non-UTF8 locale" ;<https://bugs.gnu.org/33603> + 'encoding-error + (let* ((file (search-path %load-path "guix.scm")) + (output (string-append %test-dir "/output")) + (locale (setlocale LC_ALL "C"))) + (dynamic-wind + (lambda () #t) + (lambda () + (define-values (port get-bytevector) + (open-bytevector-output-port)) + + (write-file-tree "root" port + #:file-type+size + (match-lambda + ("root" (values 'directory 0)) + ("root/λ" (values 'regular 0))) + #:file-port (const (%make-void-port "r")) + #:symlink-target (const #f) + #:directory-entries (const '("λ"))) + (close-port port) + + (mkdir %test-dir) + (catch 'encoding-error + (lambda () + ;; This show throw to 'encoding-error. + (restore-file (open-bytevector-input-port (get-bytevector)) + output) + (scandir output)) + (lambda args + 'encoding-error))) + (lambda () + (false-if-exception (rm-rf %test-dir)) + (setlocale LC_ALL locale))))) + (test-assert "restore-file-set (signed, valid)" (with-store store (let* ((texts (unfold (cut >= <> 10) diff --git a/tests/packages.scm b/tests/packages.scm index 237feb7aba..ed635d9011 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -96,8 +96,8 @@ (test-assert "transaction-upgrade-entry, zero upgrades" (let* ((old (dummy-package "foo" (version "1"))) - (tx (mock ((gnu packages) find-newest-available-packages - (const vlist-null)) + (tx (mock ((gnu packages) find-best-packages-by-name + (const '())) ((@@ (guix scripts package) transaction-upgrade-entry) (manifest-entry (inherit (package->manifest-entry old)) @@ -109,8 +109,8 @@ (test-assert "transaction-upgrade-entry, one upgrade" (let* ((old (dummy-package "foo" (version "1"))) (new (dummy-package "foo" (version "2"))) - (tx (mock ((gnu packages) find-newest-available-packages - (const (vhash-cons "foo" (list "2" new) vlist-null))) + (tx (mock ((gnu packages) find-best-packages-by-name + (const (list new))) ((@@ (guix scripts package) transaction-upgrade-entry) (manifest-entry (inherit (package->manifest-entry old)) @@ -126,8 +126,8 @@ (let* ((old (dummy-package "foo" (version "1"))) (new (dummy-package "bar" (version "2"))) (dep (deprecated-package "foo" new)) - (tx (mock ((gnu packages) find-newest-available-packages - (const (vhash-cons "foo" (list "2" dep) vlist-null))) + (tx (mock ((gnu packages) find-best-packages-by-name + (const (list dep))) ((@@ (guix scripts package) transaction-upgrade-entry) (manifest-entry (inherit (package->manifest-entry old)) @@ -995,6 +995,28 @@ ((one) (eq? one guile-2.0)))) +(test-assert "fold-available-packages with/without cache" + (let () + (define no-cache + (fold-available-packages (lambda* (name version result #:rest rest) + (cons (cons* name version rest) + result)) + '())) + + (define from-cache + (call-with-temporary-directory + (lambda (cache) + (generate-package-cache cache) + (mock ((guix describe) current-profile (const cache)) + (mock ((gnu packages) cache-is-authoritative? (const #t)) + (fold-available-packages (lambda* (name version result + #:rest rest) + (cons (cons* name version rest) + result)) + '())))))) + + (lset= equal? no-cache from-cache))) + (test-assert "find-packages-by-name" (match (find-packages-by-name "hello") (((? (cut eq? hello <>))) #t) @@ -1005,6 +1027,24 @@ (((? (cut eq? hello <>))) #t) (wrong (pk 'find-packages-by-name wrong #f)))) +(test-equal "find-packages-by-name with cache" + (find-packages-by-name "guile") + (call-with-temporary-directory + (lambda (cache) + (generate-package-cache cache) + (mock ((guix describe) current-profile (const cache)) + (mock ((gnu packages) cache-is-authoritative? (const #t)) + (find-packages-by-name "guile")))))) + +(test-equal "find-packages-by-name + version, with cache" + (find-packages-by-name "guile" "2") + (call-with-temporary-directory + (lambda (cache) + (generate-package-cache cache) + (mock ((guix describe) current-profile (const cache)) + (mock ((gnu packages) cache-is-authoritative? (const #t)) + (find-packages-by-name "guile" "2")))))) + (test-assert "--search-paths with pattern" ;; Make sure 'guix package --search-paths' correctly reports environment ;; variables when file patterns are used (in particular, it must follow @@ -1113,6 +1153,29 @@ (lambda (key . args) key))) +(test-equal "find-package-locations" + (map (lambda (package) + (cons (package-version package) + (package-location package))) + (find-packages-by-name "guile")) + (find-package-locations "guile")) + +(test-equal "find-package-locations with cache" + (map (lambda (package) + (cons (package-version package) + (package-location package))) + (find-packages-by-name "guile")) + (call-with-temporary-directory + (lambda (cache) + (generate-package-cache cache) + (mock ((guix describe) current-profile (const cache)) + (mock ((gnu packages) cache-is-authoritative? (const #t)) + (find-package-locations "guile")))))) + +(test-equal "specification->location" + (package-location (specification->package "guile@2")) + (specification->location "guile@2")) + (test-end "packages") ;;; Local Variables: diff --git a/tests/profiles.scm b/tests/profiles.scm index 1f9bbd099d..9a05030aff 100644 --- a/tests/profiles.scm +++ b/tests/profiles.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014 Alex Kost <alezost@gmail.com> ;;; ;;; This file is part of GNU Guix. @@ -330,7 +330,7 @@ (test-assert "package->manifest-entry, search paths" ;; See <http://bugs.gnu.org/22073>. - (let ((mpl (@ (gnu packages python) python2-matplotlib))) + (let ((mpl (@ (gnu packages python-xyz) python2-matplotlib))) (lset= eq? (package-transitive-native-search-paths mpl) (manifest-entry-search-paths @@ -591,6 +591,36 @@ (built-derivations (list drv)) (return (readlink (readlink (string-append profile "/dangling"))))))) +(test-equalm "profile in profile" + '("foo" "0") + + ;; Make sure we can build a profile that has another profile has one of its + ;; entries. The new profile's /manifest and /etc/profile must override the + ;; other's. + (mlet* %store-monad + ((prof0 (profile-derivation + (manifest + (list (package->manifest-entry %bootstrap-guile))) + #:hooks '() + #:locales? #f)) + (prof1 (profile-derivation + (manifest (list (manifest-entry + (name "foo") + (version "0") + (item prof0)))) + #:hooks '() + #:locales? #f))) + (mbegin %store-monad + (built-derivations (list prof1)) + (let ((out (derivation->output-path prof1))) + (return (and (file-exists? + (string-append out "/bin/guile")) + (let ((manifest (profile-manifest out))) + (match (manifest-entries manifest) + ((entry) + (list (manifest-entry-name entry) + (manifest-entry-version entry))))))))))) + (test-end "profiles") ;;; Local Variables: |