[PATCH] mix-build-system: draft 1

+++ b/gnu/packages/elixir-xyz.scm

+;;; GNU Guix --- Functional package management for GNU

+;;; Copyright © 2023 Pierre-Henry Fröhring <phfrohring@deeplinks.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 elixir-xyz)

+ #:use-module ((guix licenses)

+ #:prefix license:)

+ #:use-module (gnu packages)

+ #:use-module (gnu packages erlang-xyz)

+ #:use-module (gnu packages linux)

+ #:use-module (guix gexp)

+ #:use-module (guix packages)

+ #:use-module (guix build-system mix)

+ #:use-module (guix download))

+

+(define-public elixir-nimble-parsec

+ (package

+ (name "elixir-nimble-parsec")

+ (version "1.3.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0rxiw6jzz77v0j460wmzcprhdgn71g1hrz3mcc6djn7bnb0f70i6"))))

+ (build-system mix-build-system)

+ (arguments

+ (list

+ #:tests? #f))

+ (synopsis "Text-based parser combinators")

+ (description

+ "This library provides primitives for efficient parser combinators, allowing

+for higher-level combinators through composition.")

+ (home-page "https://hexdocs.pm/nimble_parsec/")

+ (license license:asl2.0)))

+

+(define-public elixir-makeup

+ (package

+ (name "elixir-makeup")

+ (version "1.1.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "19jpprryixi452jwhws3bbks6ki3wni9kgzah3srg22a3x8fsi8a"))))

+ (build-system mix-build-system)

+ (propagated-inputs (list elixir-nimble-parsec))

+ (arguments

+ (list

+ #:tests? #f))

+ (synopsis "Syntax highlighter for source code")

+ (description

+ "Makeup is a generic syntax highlighter in the style of Pygments suitable for use in code hosting,

+forums, wikis or other applications that need to prettify source code.")

+ (home-page "https://hexdocs.pm/makeup/")

+ (license license:bsd-2)))

+

+(define-public elixir-telemetry-metrics

+ (package

+ (name "elixir-telemetry-metrics")

+ (version "0.6.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1iilk2n75kn9i95fdp8mpxvn3rcn3ghln7p77cijqws13j3y1sbv"))))

+ (build-system mix-build-system)

+ ;; There is no test/ in the source.

+ (arguments

+ (list

+ #:tests? #f))

+ (propagated-inputs (list erlang-telemetry))

+ (synopsis

+ "Provides a common interface for defining metrics based on Telemetry events")

+ (description

+ "Common interface for defining metrics based on :telemetry events. Metrics are

+aggregations of Telemetry events with specific name, providing a

+view of the system's behaviour over time.")

+ (home-page "https://hexdocs.pm/telemetry_metrics/")

+ (license license:asl2.0)))

+

+(define-public elixir-jason

+ (package

+ (name "elixir-jason")

+ (version "1.4.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "18d70i31bz11nr6vgsjn5prvhkvwqbyf3xq22ck5cnsnzp6ixc7v"))))

+ (build-system mix-build-system)

+ ;; There is no test/ in the source.

+ (arguments

+ (list

+ #:tests? #f))

+ (synopsis "JSON parser and generator")

+ (description

+ "Parser and generator are written in pure Elixir and optimized for speed. They

+are at least twice as fast as other Elixir/Erlang libraries (e.g.

+Poison). The performance is comparable to jiffy, which is implemented in C as

+a NIF.")

+ (home-page "https://hexdocs.pm/jason/")

+ (license license:asl2.0)))

+

+(define-public elixir-file-system

+ (package

+ (name "elixir-file-system")

+ (version "0.2.10")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1p0myxmnjjds8bbg69dd6fvhk8q3n7lb78zd4qvmjajnzgdmw6a1"))))

+ (build-system mix-build-system)

+ (inputs (list inotify-tools))

+ (arguments

+ (list

+ #:tests? #f ;There is no test/ in the source.

+ #:phases #~(modify-phases %standard-phases

+ (add-after 'unpack 'rm-priv

+ (lambda _

+ ;; This directory represents source code not needed on UNIX systems.

+ ;; Since we aim at UNIX systems, it is deleted.

+ (delete-file-recursively "priv"))))))

+ (synopsis "File system change watcher")

+ (description "Provides a file system change watcher wrapper based on

+[fs](https://github.com/synrc/fs).")

+ (home-page "https://hexdocs.pm/file_system/")

+ (license license:wtfpl2)))

+

+(define-public elixir-bunt

+ (package

+ (name "elixir-bunt")

+ (version "0.2.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "19bp6xh052ql3ha0v3r8999cvja5d2p6cph02mxphfaj4jsbyc53"))))

+ (build-system mix-build-system)

+ (arguments

+ (list

+ #:tests? #f))

+ (synopsis "256 color ANSI coloring in the terminal")

+ (description "256 color ANSI coloring in the terminal.")

+ (home-page "https://hexdocs.pm/bunt/")

+ (license license:expat)))

+

+(define-public elixir-inch-ex

+ (package

+ (name "elixir-inch-ex")

+ (version "2.0.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1a4rjcy3hn5pc40si1d1y7qg0b0mnxx6pw825la67ky8r9gfrl4n"))))

+ (build-system mix-build-system)

+ (arguments

+ (list

+ #:tests? #f))

+ (propagated-inputs (list elixir-bunt elixir-jason))

+ (synopsis

+ "Offers a Mix task for suggestions on enhancing your inline documentation")

+ (description

+ "This package provides a Mix task that gives you hints where to improve your

+inline docs.")

+ (home-page "https://hex.pm/packages/inch_ex")

+ (license license:expat)))

+

+(define-public elixir-castore

+ (package

+ (name "elixir-castore")

+ (version "1.0.4")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1y44amb8falsmrfzpkmf7qp6215g9kdl76g91dpna4af2jwc264l"))))

+ (build-system mix-build-system)

+ ;; There is no test/ in the source.

+ (arguments

+ (list

+ #:tests? #f))

+ (synopsis "Up-to-date CA certificate store")

+ (description "Up-to-date CA certificate store.")

+ (home-page "https://hexdocs.pm/castore/")

+ (license license:asl2.0)))

+

+(define-public elixir-excoveralls

+ (package

+ (name "elixir-excoveralls")

+ (version "0.18.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "02x69ll5scvraky0k5gacvnnmldv5k04kgk02x087d9w3y8vn28i"))))

+ (build-system mix-build-system)

+ (propagated-inputs (list elixir-castore elixir-jason))

+ ;; No test/ folder.

+ (arguments

+ (list

+ #:tests? #f))

+ (synopsis "Coverage report tool with coveralls.io integration")

+ (description

+ "Library that reports test coverage statistics, with the option to

+post to coveralls.io service. It uses Erlang's cover to generate coverage

+information, and posts the test coverage results to coveralls.io through the

+JSON API.")

+ (home-page "https://hexdocs.pm/excoveralls/")

+ (license license:expat)))

+

+(define-public elixir-credo

+ (package

+ (name "elixir-credo")

+ (version "1.7.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "18jqi9s9r1587njzdxycvmmbma30cay9iamni4f3ih54jmh1r1z9"))))

+ (build-system mix-build-system)

+ (propagated-inputs (list elixir-bunt elixir-file-system elixir-jason))

+ (native-inputs (list elixir-excoveralls elixir-inch-ex))

+ (synopsis "Static code analysis tool")

+ (description

+ "Credo is a static code analysis tool for the Elixir language with a focus on

+teaching and code consistency. Credo can show you refactoring opportunities in

+your code, complex code fragments, warn you about common mistakes, show

+inconsistencies in your naming scheme and - if needed - help you enforce a

+desired coding style.")

+ (home-page "https://hexdocs.pm/credo/")

+ (license license:expat)))

+

+(define-public elixir-erlex

+ (package

+ (name "elixir-erlex")

+ (version "0.2.6")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0x8c1j62y748ldvlh46sxzv5514rpzm809vxn594vd7y25by5lif"))))

+ (build-system mix-build-system)

+ (arguments

+ (list

+ #:tests? #f))

+ (synopsis

+ "Convert Erlang style structs and error messages to equivalent Elixir")

+ (description

+ "Converted structs and error messages are useful for pretty printing things

+like Dialyzer errors and Observer .state. NOTE: Because this code calls the

+Elixir formatter, it requires Elixir 1.6+.")

+ (home-page "https://hexdocs.pm/erlex/")

+ (license license:asl2.0)))

+

+(define-public elixir-dialyxir

+ (package

+ (name "elixir-dialyxir")

+ (version "1.4.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "00cqwhd1wabwds44jz94rvvr8z8cp12884d3lp69fqkrszb9bdw4"))))

+ (build-system mix-build-system)

+ (arguments

+ (list

+ #:tests? #f))

+ (propagated-inputs (list elixir-erlex))

+ (synopsis "Mix tasks to simplify use of Dialyzer")

+ (description

+ "Mix Tasks are usable from the directory of the mix project you want to analyze.")

+ (home-page "https://hexdocs.pm/dialyxir/")

+ (license license:asl2.0)))

+

+(define-public elixir-machete

+ (package

+ (name "elixir-machete")

+ (version "0.2.8")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0952603bmqsf6v3ja99zpbnbx5d52i4xksjkfj3irl45ccq5pgq9"))))

+ (build-system mix-build-system)

+ (native-inputs (list elixir-credo elixir-dialyxir))

+ (synopsis "Literate test matchers for ExUnit")

+ (description

+ "Machete provides ergonomic match operators that act as building blocks to let

+you define test expectations that can match data against any combination of

+literals, variables, or parametrically defined matchers.")

+ (home-page "https://hexdocs.pm/machete/")

+ (license license:expat)))

+

+;;;

+;;; Avoid adding new packages to the end of this file. To reduce the chances

+;;; of a merge conflict, place them above by existing packages with similar

+;;; functionality or similar names.

+;;;

+++ b/gnu/packages/elixir.scm

+;;; Copyright © 2023 Pierre-Henry Fröhring <phfrohring@deeplinks.com>

+ #:use-module ((guix licenses)

+ #:prefix license:)

+ #:use-module (gnu packages compression)

+ #:use-module (gnu packages erlang)

+ #:use-module (gnu packages version-control)

+ #:use-module (gnu packages)

+ #:use-module (guix build utils)

+ #:use-module (guix build-system copy)

+ #:use-module (guix download)

+ #:use-module (guix search-paths)

+ #:use-module (guix utils))

+ #:make-flags #~(list (string-append "PREFIX="

+ #$output))

+ #:phases #~(modify-phases %standard-phases

+ (add-after 'unpack 'make-git-checkout-writable

+ (lambda _

+ (for-each make-file-writable

+ (find-files "."))))

+ (add-after 'make-git-checkout-writable 'replace-paths

+ (lambda* (#:key inputs #:allow-other-keys)

+ ;; Note: references end up obfuscated in binary BEAM files where

+ ;; they may be invisible to the GC and graft code:

+ ;; <https://issues.guix.gnu.org/54304#11>.

+ (substitute* '("lib/mix/lib/mix/release.ex"

+ "lib/mix/lib/mix/tasks/release.init.ex")

+ (("#!/bin/sh")

+ (string-append "#!"

+ (search-input-file inputs "/bin/sh"))))

+ (substitute* "bin/elixir"

+ (("ERTS_BIN=\n")

+ (string-append "ERTS_BIN="

+ ;; Elixir Releases will prepend to ERTS_BIN the path of

+ ;; a copy of erl. We detect if a release is being generated

+ ;; by checking the initial ERTS_BIN value: if it's empty, we

+ ;; are not in release mode and can point to the actual erl

+ ;; binary in Guix store.

+ "\nif [ -z \"$ERTS_BIN\" ]; then ERTS_BIN="

+ (string-drop-right (search-input-file inputs

+ "/bin/erl") 3)

+ "; fi\n")))

+ (substitute* "bin/mix"

+ (("#!/usr/bin/env elixir")

+ (string-append "#!"

+ #$output "/bin/elixir")))))

+ (add-before 'build 'make-current

+ ;; The Elixir compiler checks whether or not to compile files by

+ ;; inspecting their timestamps. When the timestamp is equal to the

+ ;; epoch no compilation will be performed. Some tests fail when

+ ;; files are older than Jan 1, 2000.

+ (lambda _

+ (for-each (lambda (file)

+ (let ((recent 1400000000))

+ (utime file recent recent 0 0)))

+ (find-files "." ".*"))))

+ (add-before 'check 'set-home

+ (lambda* (#:key inputs #:allow-other-keys)

+ ;; Some tests require access to a home directory.

+ (setenv "HOME" "/tmp")))

+ (delete 'configure)

+ (add-aft

+++ b/guix/build-system/rebar.scm

+;;; Copyright © 2023 Pierre-Henry Fröhring <phfrohring@deeplinks.com>

+ #:use-module (guix build-system gnu)

+ #:use-module (guix build-system)

+ #:use-module (guix packages)

+ #:use-module (guix store)

+ #:use-module (guix utils)

+ #:use-module (ice-9 match)

+ #:use-module (ice-9 regex)

+ #:use-module (srfi srfi-1)

+ #:export (hexpm-uri hexpm-package-url %rebar-build-system-modules

+ rebar-build rebar-build-system))

+;; Source

+;; A « Source » reprensents the source code to a library directory. It is

+;; defined as (list <name> <origin>) where: <name> is a string representing

+;; the name of a library directory and <origin> is an origin as defined

+;; (guix packages).

+

+

+;; Pattern that an Erlang Guix package name is expected to match.

+(define pkg-name-re "^erlang-(.*)")

+

+(define (pkg-name->match name)

+ "Return the match object from NAME if NAME starts with pkg-name-prefix."

+ (string-match pkg-name-re name))

+

+(define (pkg-name? name)

+ "Test if NAME is the name of an Erlang Guix package."

+ (or (pkg-name->match name) #f))

+(define (pkg-name->suffix name)

+ "Return the suffix of the name of an Erlang Guix package."

+ (regexp-substitute #f (pkg-name->match name) 1))

+(define* (pkg-name->library-directory-name name #:key (version ""))

+ "Return the name of the library directory associated with the Erlang Guix package name NAME."

+ (string-append (string-replace-substring (pkg-name->suffix name) "-" "_")

+ (if (string= version "") "" (string-append "-" version))))

+

+;; See: https://github.com/hexpm/specifications/blob/master/endpoints.md

+(define hexpm (make-parameter "https://repo.hex.pm"))

+

+(define hexpm-tarballs (string-append (hexpm) "/tarballs/"))

+and VERSION.

+XXX: should a warning be emitted?

+If NAME is not an Erlang Guix package name, then emit a warning. The download

+will fail if it is not correct anyway."

+ (define (warn-about name)

+ (format #t "AssertionWarning 4dcbff27

+ Assertion: re matches name.

+ re = ~a

+ name = ~a

+" pkg-name-re name)

+

+ name)

+ (define (name->archive-name name)

+ (if (pkg-name? name)

+ (string-append (pkg-name->library-directory-name name #:version version) ".tar")

+ (string-append (warn-about name) "-" version ".tar")))

+

+ (string-append hexpm-tarballs (name->archive-name name)))

+

+(define (rebar-default)

+(define (erlang-default)

+(define imported-modules

+ `((guix build rebar-build-system)

+ ,@%gnu-build-system-modules))

+

+(define (input->source input)

+ "Return a Source associated to the Input INPUT."

+ (match input

+ ((name package)

+ (list (pkg-name->library-directory-name name)

+ (package-source package)))))

+

+(define* (rebar-build name

+ inputs

+ #:key

+ guile

+ source

+ (rebar-flags ''())

+ (tests? #t)

+ (test-target "eunit")

+ ;; TODO: install-name ; default: based on guix package name

+ (install-profile "default")

+ (phases '(@ (guix build rebar-build-system)

+ %standard-phases))

+ (outputs '("out"))

+ (search-paths '())

+ (native-search-paths '())

+ (system (%current-system))

+ (imported-modules imported-modules)

+ (modules '((guix build rebar-build-system)

+ (guix build utils)))

+ (sources-erlang '()))

+

+ #:sources-erlang '#$sources-erlang

+ #:system #$system

+ #:name #$name

+ #:rebar-flags #$rebar-flags

+ #:tests? #$tests?

+ #:test-target #$test-target

+ ;; TODO: #:install-name #$install-name

+ #:install-profile #$install-profile

+ #:phases #$(if (pair?

+ phases)

+ (sexp->gexp

+ phases)

+ phases)

+ #:outputs %outputs

+ #:search-paths '#$(sexp->gexp

+ (map

+ search-path-specification->sexp

+ search-paths))

+ #:inputs

+ %build-inputs)))))

+

+ (mlet %store-monad

+ ((guile (package->derivation (or guile

+ (default-guile)) system

+ #:graft? #f)))

+

+ (gexp->derivation name

+ builder

+(define* (lower name

+ #:key

+ (erlang (erlang-default))

+ inputs

+ native-inputs

+ outputs

+ (rebar (rebar-default))

+ source

+ system

+ target

+ #:allow-other-keys #:rest arguments)

+ "Return a bag for NAME from the given arguments."

+

+ (let* ((erlang-packages

+ (filter (lambda (input)

+ (match input

+ ((name _) (pkg-name? name))))

+ (append inputs native-inputs)))

+

+ (erlang-sources (map input->source erlang-packages)))

+

+ (define private-keywords

+ '(#:target #:rebar #:erlang #:inputs #:native-inputs #:sources-erlang))

+

+ (and (not target) ;XXX: no cross-compilation

+ (bag (name name)

+ (system system)

+ (host-inputs inputs)

+ (build-inputs `(,@(standard-packages)

+ ("erlang" ,erlang)

+ ("rebar" ,rebar)

+ ,@inputs

+ ,@native-inputs))

+ (outputs outputs)

+ (build rebar-build)

+ (arguments (append (list #:sources-erlang erlang-sources)

+ (strip-keyword-arguments private-keywords

+ arguments)))))))

+

+ (build-system (name 'rebar)

+ (description "The standard Rebar build system")

+ (lower lower)))

+

+

+;;;

+;;; Exports

+;;;

+

+(define hexpm-package-url hexpm-tarballs)

+

+(define %rebar-build-system-modules imported-modules)

+

+

+;;; rebar.scm ends here

+++ b/guix/build/rebar-build-system.scm

+;;; Copyright © 2023 Pierre-Henry Fröhring <phfrohring@deeplinks.com>

+ #:use-module (ice-9 string-fun)

+ #:use-module (ice-9 receive)

+ #:use-module (ice-9 regex)

+ #:export (rebar-build %standard-phases))

+;; Library directory

+;; A « library directory » is a directory where Erlang searches for compiled

+;; code. Its name should look like: `a_name-1.2.3' where the suffix `-1.2.3'

+;; is optional. See: https://www.erlang.org/doc/man/code#code-path.

+;;

+;; Package name

+;; A « package name » is the value of the name field of a package

+;; definition. It looks like: `prefix-a-name-1.2.3'. See:

+;; https://guix.gnu.org/manual/en/html_node/Package-Naming.html

+;;

+;; Profile

+;; For Rebar3, a « profile » is a name associated to a set of configuration

+;; settings overriding or complementing the regular configuration. See:

+;; https://rebar3.org/docs/configuration/profiles

+;;

+;; Source

+;; A « source » represents the source code associated to a Guix package as

+;; defined by its `source' field. Here, the data sctructure used to

+;; represent a source has the form `(list name path)' where `name' is a

+;; library directory name and `path' is the store path where to find the

+;; source code.

+;;

+;; Checkout

+;; A « checkout » is a locally defined dependency related to a directory

+;; managed by rebar. See:

+;; https://rebar3.org/docs/configuration/dependencies/#checkout-dependencies

+(define sep "/")

+;; Where Erlang libraries are installed relative to a package path in the store.

+(define lib-erlang-lib "lib/erlang/lib")

+

+(define (list-directories directory)

+ "Return file names of the sub-directory of DIRECTORY."

+ (scandir directory

+ (lambda (file)

+ (and (not (member file '("." "..")))

+ (file-is-directory? (string-append directory sep file))))))

+

+(define* (pkg-name->libdir-name name)

+ "Return the library name deduced from the Erlang package name NAME."

+ (let* ((suffix (regexp-substitute #f (string-match "^erlang-(.*)" name) 1))

+ (elements (string-split suffix #\-)))

+ (string-append (string-join (drop-right elements 1) "_") "-" (last elements))))

+

+(define (libdir-name->prefix name)

+ "Return the prefix of a library directory name NAME."

+ (car (string-split name #\-)))

+

+(define (rebar-build-dir profile)

+ "Return the path where rebar builds libraries given the profile PROFILE."

+ (format #f "_build/~a/lib" profile))

+

+(define* (pkg-name->build-dir name #:key (profile "default"))

+ "Return the path of library directory where rebar3 builds code of an Erlang package named NAME given the profile PROFILE."

+ (string-append (rebar-build-dir profile) sep (libdir-name->prefix (pkg-name->libdir-name name))))

+ (if (file-is-directory? source)

+ ;; If source is a checkout:

+ (begin

+ ;; Preserve timestamps (set to the Epoch) on the copied tree so that

+ ;; things work deterministically.

+ (copy-recursively source "." #:keep-mtime? #t)

+ ;; Make the source checkout files writable, for convenience.

+ (for-each (lambda (f)

+ (false-if-exception (make-file-writable f)))

+ (find-files ".")))

+

+ ;; If source is an hex.pm archive:

+ (begin

+ (invoke "tar" "xvf" source)

+ (invoke "tar" "xvf" "contents.tar.gz")

+

+ ;; Prevent an error message during the install phase.

+ ;; `rebar3 compile' produces symlinks like so in _build/:

+ ;; priv -> ../../../../priv

+ ;; include -> ../../../../include

+ ;;

+ ;; The install phase copies whatever has been built to the output directory.

+ ;; If the priv/ directory is absent, then an error `i/o error:

+ ;; _build/…/priv: No such file or directory' occurs. So, we make sure that a

+ ;; directory exists.

+ (for-each (lambda (dir) (mkdir-p dir)) (list "priv" "include")))))

+

+(define (configure-HOME . ignored_args)

+ "In some cases, it is needed for the environment

+++ b/gnu/packages/erlang.scm

+ #:use-module (gnu packages elixir)

+ #:use-module (gnu packages version-control)

+ #:use-module (gnu packages wxwidgets)

+ #:use-module (gnu packages)

+ #:use-module (guix build-system emacs)

+ #:use-module (guix build-system gnu)

+ #:use-module (guix build-system rebar)

+ #:use-module (guix download)

+ #:use-module (guix gexp)

+ #:use-module (guix git-download)

+ #:use-module (guix packages)

+ #:use-module (guix utils))

+ (add-after 'patch-erl 'wrap-programs

+ (lambda* (#:key inputs outputs #:allow-other-keys)

+ (let* ((out (assoc-ref outputs "out"))

+ (programs '("erl" "erlc" "escript")))

+ (for-each

+ (lambda (program)

+ (wrap-program (string-append out "/bin/" program)

+ '("ERL_LIBS" ":" prefix ("${GUIX_ERL_LIBS}"))))

+ programs))))

+ (add-after 'wrap-programs 'install-doc

+ (native-search-paths

+ (list (search-path-specification

+ (variable "GUIX_ERL_LIBS")

+ (files

+ (list

+ "lib/erlang/lib"

+ (string-append

+ "lib/elixir/"

+ (version-major+minor (package-version elixir))))))))

+ (uri (hexpm-uri name version))

+ (list erlang-getopt erlang-rebar3-git-vsn

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (list erlang-proper erlang-rebar3-proper))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+ (uri (hexpm-uri name version))

+(define-public erlang-rebar3-raw-deps

+ (name "erlang-rebar3-raw-deps")

+ (uri (hexpm-uri name version))

+(define-public erlang-rebar3-git-vsn

+ (name "erlang-rebar3-git-vsn")

+ (uri (hexpm-uri name version))

+(define-public erlang-rebar3-proper

+ (name "erlang-rebar3-proper")

+ (uri (hexpm-uri name version))

+ (native-inputs (list rebar3 erlang-rebar3-proper erlang-proper))

+++ b/gnu/packages/erlang-xyz.scm

+;;; GNU Guix --- Functional package management for GNU

+;;; Copyright © 2023 Pierre-Henry Fröhring <phfrohring@deeplinks.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 erlang-xyz)

+ #:use-module ((guix licenses) #:prefix license:)

+ #:use-module (gnu packages base)

+ #:use-module (gnu packages version-control)

+ #:use-module (gnu packages)

+ #:use-module (guix build-system rebar)

+ #:use-module (guix download)

+ #:use-module (guix gexp)

+ #:use-module (guix git-download)

+ #:use-module (guix git-download)

+ #:use-module (guix hg-download)

+ #:use-module (guix packages)

+ #:use-module (guix utils)

+ #:use-module (srfi srfi-1)

+ #:use-module (srfi srfi-26))

+

+(define-public erlang-certifi

+ (package

+ (name "erlang-certifi")

+ (version "2.9.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0ha6vmf5p3xlbf5w1msa89frhvfk535rnyfybz9wdmh6vdms8v96"))))

+ (build-system rebar-build-system)

+ (arguments `(#:tests? #f)) ;; have not been updated for latest cert bundle

+ (home-page "https://github.com/certifi/erlang-certifi/")

+ (synopsis "Erlang CA certificate bundle")

+ (description "This Erlang library contains a CA bundle that you can

+reference in your Erlang application. This is useful for systems that do not

+have CA bundles that Erlang can find itself, or where a uniform set of CAs is

+valuable.

+

+This an Erlang specific port of certifi. The CA bundle is derived from

+Mozilla's canonical set.")

+ (license license:bsd-3)))

+

+;;;

+;;; Avoid adding new packages to the end of this file. To reduce the chances

+;;; of a merge conflict, place them above by existing packages with similar

+;;; functionality or similar names.

+;;;

+++ b/gnu/packages/erlang.scm

+ #:use-module (gnu packages erlang-xyz)

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-getopt

+ (package

+ (name "erlang-getopt")

+ (version "1.0.2")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "09pasi7ki1rivw9sl7xndj5qgjbdqvcscxk83yk85yr28gm9l0m0"))))

+ (build-system rebar-build-system)

+ (home-page "https://github.com/jcomellas/getopt")

+ (synopsis "Command-line options parser for Erlang")

+ (description "This package provides an Erlang module to parse command line

+arguments using the GNU getopt syntax.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-edown

+ (package

+ (name "erlang-edown")

+ (version "0.8.4")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0ij47gvgs6yfqphj0f54qjzj18crj8y1dsjjlzpp3dp8pscqzbqw"))))

+ (build-system rebar-build-system)

+ (home-page "https://github.com/uwiger/edown")

+ (synopsis "Markdown extension for EDoc")

+ (description "This package provides an extension for EDoc for generating

+Markdown.")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-rebar3-git-vsn

+ (package

+ (name "erlang-rebar3-git-vsn")

+ (version "1.1.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1dfz56034pa25axly9vqdzv3phkn8ll0qwrkws96pbgcprhky1hx"))))

+ (build-system rebar-build-system)

+ (inputs

+ (list git-minimal/pinned))

+ (arguments

+ `(;; Running the tests require binary artifact (tar-file containing

+ ;; samples git repos) TODO: remove these from the source

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'patch-path

+ (lambda* (#:key inputs #:allow-other-keys)

+ (let ((git (assoc-ref inputs "git-minimal")))

+ (substitute* "src/rebar3_git_vsn.erl"

+ (("rebar_utils:sh\\(\"git " _)

+ (string-append "rebar_utils:sh(\"" git "/bin/git ")))))))))

+ (home-page "https://github.com/soranoba/rebar3_git_vsn")

+ (synopsis "Rebar3 plugin for generating the version from git")

+ (description "This plugin adds support for generating the version from

+a git checkout.")

+ (license license:expat)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-rebar3-raw-deps

+ (package

+ (name "erlang-rebar3-raw-deps")

+ (version "2.0.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1pzmm3m8gb2s9jn8fp6shzgfmy4mvh2vdci0z6nsm74ma3ffh1i3"))))

+ (build-system rebar-build-system)

+ (home-page "https://github.com/soranoba/rebar3_raw_deps")

+ (synopsis "Rebar3 plugin for supporting \"raw\" dependencies")

+ (description "This plugin provides support for handling non-OTP

+applications as a dependent libraries.")

+ (license license:expat)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-rebar3-proper

+ (package

+ (name "erlang-rebar3-proper")

+ (version "0.12.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1f174fb6h2071wr7qbw9aqqvnglzsjlylmyi8215fhrmi38w94b6"))))

+ (build-system rebar-build-system)

+ (home-page "https://github.com/ferd/rebar3_proper")

+ (synopsis "Rebar3 PropEr plugin")

+ (description "This plugin allows running PropEr test suites from within

+rebar3.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-bbmustache

+ (package

+ (name "erlang-bbmustache")

+ (version "1.12.2")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0fvvaxdpziygxl30j59g98qkh2n47xlb7w5dfpsm2bfcsnj372v8"))))

+ (build-system rebar-build-system)

+ (inputs

+ (list erlang-getopt erlang-rebar3-git-vsn

+ erlang-edown)) ; for building the docs

+ (arguments

+ `(#:tests? #f ;; requires mustache specification file

+ #:phases

+ (modify-phases %standard-phases

+ (add-before 'build 'build-more

+ (lambda _

+ (invoke "rebar3" "as" "dev" "escriptize")))

+ (add-after 'install 'install-escript

+ (lambda* (#:key outputs #:allow-other-keys)

+ (let* ((out (assoc-ref outputs "out")))

+ (install-file "_build/dev/bin/bbmustache"

+ (string-append out "/bin"))))))))

+ (home-page "https://github.com/soranoba/bbmustache/")

+ (synopsis "Binary pattern match Based Mustache template engine for Erlang")

+ (description "This Erlang library provides a Binary pattern match Based

+Mustache template engine")

+ (license license:expat)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-cf

+ (package

+ (name "erlang-cf")

+ (version "0.3.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0wknz4xkqkhgvlx4vx5619p8m65v7g87lfgsvfy04jrsgm28spii"))))

+ (build-system rebar-build-system)

+ (home-page "https://github.com/project-fifo/cf")

+ (synopsis "Terminal colour helper for Erlang io and io_lib")

+ (description "This package provides a helper library for termial colour

+printing extending the io:format syntax to add colours.")

+ (license license:expat)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-yamerl

+ (package

+ (name "erlang-yamerl")

+ (version "0.10.0")

+ (source

+ (origin

+ (method git-fetch)

+ (uri (git-reference

+ ;; There are no tests included on Hex.

+ (url "https://github.com/yakaz/yamerl")

+ (commit (string-append "v" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32 "0if8abgmispcfk7zhd0a5dndzwzbsmqrbyrm5shk375r2dbbwak6"))))

+ (build-system rebar-build-system)

+ (synopsis "YAML and JSON parser in pure Erlang")

+ (description

+ "Erlang application to parse YAML 1.1 and YAML 1.2 documents, as well as

+JSON documents.")

+ (home-page "https://hexdocs.pm/yamerl/")

+ (license license:bsd-2)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-covertool

+ (package

+ (name "erlang-covertool")

+ (version "2.0.4")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1p0c1n3nl4063xwi1sv176l1x68xqf07qwvj444a5z888fx6i5aw"))))

+ (build-system rebar-build-system)

+ (home-page "https://github.com/covertool/covertool")

+ (synopsis "Convert code-coverage data generated by @code{cover} into

+Cobertura XML reports")

+ (description "This package provides a build tool and plugin to convert

+exported Erlang @code{cover} data sets into Cobertura XML reports, which can

+then be feed to the Jenkins Cobertura plug-in.

+

+On @emph{hex.pm}, this plugin was previously called @code{rebar_covertool}.")

+ (license license:bsd-2)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-cth-readable

+ (package

+ (name "erlang-cth-readable")

+ (version "1.5.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "104xgybb6iciy6i28pyyrarqzliddi8kjyq43ajaav7y5si42rb8"))))

+ (build-system rebar-build-system)

+ (propagated-inputs

+ (list erlang-cf))

+ (arguments

+ `(#:tests? #f)) ;; no test-suite in hex-pm package

+ (home-page "https://github.com/ferd/cth_readable")

+ (synopsis "Common Test hooks for more readable logs for Erlang")

+ (description "This package provides an OTP library to be used for CT log

+outputs you want to be readable around all that noise they contain.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-erlware-commons

+ (package

+ (name "erlang-erlware-commons")

+ (version "1.6.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "18qam9xdzi74wppb0cj4zc8161i0i8djr79z8662m6d276f2jz5m"))))

+ (build-system rebar-build-system)

+ (propagated-inputs

+ (list erlang-cf))

+ (native-inputs

+ (list git-minimal/pinned)) ;; Required for tests

+ (arguments

+ `(#:phases

+ (modify-phases %standard-phases

+ (add-before 'check 'check-setup

+ (lambda _

+ (setenv "TERM" "xterm")))))) ; enable color in logs

+ (home-page "https://erlware.github.io/erlware_commons/")

+ (synopsis "Additional standard library for Erlang")

+ (description "Erlware Commons is an Erlware project focused on all aspects

+of reusable Erlang components.")

+ (license license:expat)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-eunit-formatters

+ (package

+ (name "erlang-eunit-formatters")

+ (version "0.5.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1jb3hzb216r29x2h4pcjwfmx1k81431rgh5v0mp4x5146hhvmj6n"))))

+ (build-system rebar-build-system)

+ (home-page "https://github.com/seancribbs/eunit_formatters")

+ (synopsis "Better output for eunit suites")

+ (description "This package provides a better output for Erlang eunits.")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-proper

+ (package

+ (name "erlang-proper")

+ (version "1.4.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1fwcas4a9kz3w3z1jqdk9lw8822srfjk9lcpvbxkxlsv3115ha0q"))))

+ (build-system rebar-build-system)

+ (arguments

+ `(#:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'disable-covertool

+ ;; no need to generate a coverage report

+ (lambda _

+ (substitute* "rebar.config"

+ (("\\{plugins, \\[covertool\\]\\}\\." _) "")))))))

+ (home-page "https://proper-testing.github.io/")

+ (synopsis "QuickCheck-inspired property-based testing tool for Erlang")

+ (description "PropEr is a tool for the automated, semi-random,

+property-based testing of Erlang programs. It is fully integrated with

+Erlang's type language, and can also be used for the model-based random

+testing of stateful systems.")

+ (license license:gpl3+)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-hex-core

+ (package

+ (name "erlang-hex-core")

+ (version "0.8.4")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "06p65hlm29ky03vs3fq3qz6px2ylwp8b0f2y75wdf5cm0kx2332b"))))

+ (build-system rebar-build-system)

+ (arguments

+ `(#:phases

+ (modify-phases %standard-phases

+ (replace 'check

+ (lambda* (#:key tests? #:allow-other-keys)

+ (when tests?

+ (invoke "rebar3" "as" "test" "proper")))))))

+ (inputs

+ (list erlang-proper erlang-rebar3-proper))

+ (home-page "https://github.com/hexpm/hex_core")

+ (synopsis "Reference implementation of Hex specifications")

+ (description "This package provides the reference implementation of Hex

+specifications.")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-jsx

+ (package

+ (name "erlang-jsx")

+ (version "3.1.0")

+ (source (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32

+ "1wr7jkxm6nlgvd52xhniav64xr9rml2ngb35rwjwqlqvq7ywhp0c"))))

+ (build-system rebar-build-system)

+ (synopsis "Streaming, evented JSON parsing toolkit")

+ (description

+ "An Erlang application for consuming, producing and manipulating json.")

+ (home-page "https://github.com/talentdeficit/jsx")

+ (license license:expat)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-relx

+ (package

+ (name "erlang-relx")

+ (version "4.6.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "02gmfx1vxg9m3mq4njsqhs4972l4nb8m5p1pdcf64g09ccf17y1g"))))

+ (build-system rebar-build-system)

+ (propagated-inputs

+ (list erlang-bbmustache))

+ (home-page "https://erlware.github.io/relx/")

+ (synopsis "Release assembler for Erlang/OTP Releases")

+ (description "Relx assembles releases for an Erlang/OTP release. Given a

+release specification and a list of directories in which to search for OTP

+applications it will generate a release output. That output depends heavily on

+what plugins available and what options are defined, but usually it is simply

+a well configured release directory.")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-ssl-verify-fun

+ (package

+ (name "erlang-ssl-verify-fun")

+ (version "1.1.6")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1026l1z1jh25z8bfrhaw0ryk5gprhrpnirq877zqhg253x3x5c5x"))))

+ (build-system rebar-build-system)

+ (home-page "https://github.com/deadtrickster/ssl_verify_fun.erl")

+ (synopsis "SSL verification functions for Erlang")

+ (description "This package provides SSL verification functions for

+Erlang.")

+ (license license:expat)))

+

+(define-public erlang-providers

+ (package

+ (name "erlang-providers")

+ (version "1.9.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "05y0kz3xgx77hzn1l05byaisvmk8bgds7c22hrh0a5ba81sfi1yj"))))

+ (build-system rebar-build-system)

+ (propagated-inputs

+ (list erlang-erlware-commons erlang-getopt))

+ (home-page "https://github.com/tsloughter/providers")

+ (synopsis "Erlang providers library")

+ (description "This package provides an Erlang providers library.")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-jsone

+ (package

+ (name "erlang-jsone")

+ (version "1.7.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1gaxiw76syjp3s9rygskm32y9799b917q752rw8bxj3bxq93g8x3"))))

+ (build-system rebar-build-system)

+ (arguments

+ `(#:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'disable-covertool

+ ;; no need to generate a coverage report

+ (lambda _

+ (substitute* "rebar.config"

+ (("\\{project_plugins, \\[covertool\\]\\}\\." _) "")))))))

+ (home-page "https://github.com/sile/jsone/")

+ (synopsis "Erlang JSON Library")

+ (description "An Erlang library for encoding and decoding JSON data.")

+ (license license:expat)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-parse-trans

+ (package

+ (name "erlang-parse-trans")

+ (version "3.4.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "16p4c2xjrvz16kzpr9pmcvi6nxq6rwckqi9fp0ksibaxwxn402k2"))))

+ (build-system rebar-build-system)

+ (inputs

+ (list erlang-getopt))

+ (home-page "https://github.com/uwiger/parse_trans")

+ (synopsis "Parse transform utilities for Erlang")

+ (description "This package captures some useful patterns in parse

+transformation and code generation for Erlang.

+

+For example generating standardized accessor functions for records or

+evaluating an expression at compile-time and substitute the result as a

+compile-time constant.")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang.scm

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-unicode-util-compat

+ (package

+ (name "erlang-unicode-util-compat")

+ (version "0.7.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "08952lw8cjdw8w171lv8wqbrxc4rcmb3jhkrdb7n06gngpbfdvi5"))))

+ (build-system rebar-build-system)

+ (synopsis "Unicode compatibility library for Erlang < 20")

+ (description "Unicode compatibility library for Erlang < 20.")

+ (home-page "https://hex.pm/packages/unicode_util_compat")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-idna

+ (package

+ (name "erlang-idna")

+ (version "6.1.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1sjcjibl34sprpf1dgdmzfww24xlyy34lpj7mhcys4j4i6vnwdwj"))))

+ (build-system rebar-build-system)

+ (propagated-inputs (list erlang-unicode-util-compat))

+ (synopsis

+ "Erlang Internationalized Domain Names in Applications (IDNA) protocol")

+ (description

+ "Library to register and look up IDNs in a way

+ that does not require changes to the DNS itself. IDNA is only meant for

+processing domain names, not free text. See: RFC 5891.")

+ (home-page "https://hexdocs.pm/idna/")

+ (license license:expat)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-bear

+ (package

+ (name "erlang-bear")

+ (version "1.0.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1nsri73b50n5v1a8252mm8car84j2b53bq7alq6zz16z3a86fyqm"))))

+ (build-system rebar-build-system)

+ (synopsis "Statistics functions for Erlang")

+ (description

+ "This package provides a set of statistics functions for erlang.")

+ (home-page "https://hex.pm/packages/bear")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-erlang-color

+ (package

+ (name "erlang-erlang-color")

+ (version "1.0.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0f707vxihn3f9m3zxal38ajcihnfcwms77jcax0gbzn8i7jya5vb"))))

+ (build-system rebar-build-system)

+ (synopsis "ANSI colors for your Erlang")

+ (description "ANSI colors for your Erlang.")

+ (home-page "https://hex.pm/packages/erlang_color")

+ (license license:expat)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-tdiff

+ (package

+ (name "erlang-tdiff")

+ (version "0.1.2")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0xbq7p9ii2kp49ms1kylj92ih2jiwvqwimb8jy4aalljz5lf3hp0"))))

+ (build-system rebar-build-system)

+ (synopsis "Library to compute the difference between two strings")

+ (description

+ "Erlang implementation of the O(ND) differnence algorithm by EUGENE W. MYERS.")

+ (home-page "https://hex.pm/packages/tdiff")

+ (license license:lgpl2.0)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-rebar3-ex-doc

+ (package

+ (name "erlang-rebar3-ex-doc")

+ (version "0.2.21")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0c720shjf03y4slj56q5nxgyhqif0926cs3pvl3zbv1i64qh8wdm"))))

+ (build-system rebar-build-system)

+ (synopsis "rebar3 plugin for generating docs with ex_doc")

+ (description

+ "rebar3_ex_doc is a rebar3 plugin for creating documentation with ex_doc. It

+includes ex_doc as an escript, eliminating the need for Elixir installation or

+compiling ex_doc dependencies.")

+ (home-page "https://hexdocs.pm/rebar3_ex_doc/")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-samovar

+ (package

+ (name "erlang-samovar")

+ (version "1.0.2")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1nfw5vbzcvqzpsahwxz7zjlshg31pa9f306g3hzm1kfx5rsyvry4"))))

+ (build-system rebar-build-system)

+ (synopsis "SEMVER library for Erlang")

+ (description "SEMVER library for Erlang")

+ (home-page "https://hexdocs.pm/samovar/")

+ (license license:isc)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-geas

+ (package

+ (name "erlang-geas")

+ (version "2.7.14")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1maxv5zg2ckrikr8xpxgg9kpfaxvahqilbkl9dl9ibchlgrbj6i4"))))

+ (build-system rebar-build-system)

+ (propagated-inputs (list erlang-samovar))

+ (synopsis

+ "Tool to detect the runnable official Erlang release window for your project")

+ (description

+ "Geas will tell you also what are the offending functions in the beam/source

+files that reduce the available window, if some beam files are compiled native

+and the installed patches and recommend patches that should be installed

+depending your code.")

+ (home-page "https://hexdocs.pm/geas/")

+ (license license:isc)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-covertool

+ (package

+ (name "erlang-covertool")

+ (version "2.0.4")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1p0c1n3nl4063xwi1sv176l1x68xqf07qwvj444a5z888fx6i5aw"))))

+ (build-system rebar-build-system)

+ (home-page "https://github.com/covertool/covertool")

+ (synopsis "Convert code-coverage data generated by @code{cover} into

+Cobertura XML reports")

+ (description

+ "This package provides a build tool and plugin to convert

+exported Erlang @code{cover} data sets into Cobertura XML reports, which can

+then be feed to the Jenkins Cobertura plug-in. On @emph{hex.pm}, this plugin

+was previously called @code{rebar_covertool}.")

+ (license license:bsd-2)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-telemetry

+ (package

+ (name "erlang-telemetry")

+ (version "1.2.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1mgyx9zw92g6w8fp9pblm3b0bghwxwwcbslrixq23ipzisfwxnfs"))))

+ (build-system rebar-build-system)

+ (native-inputs (list erlang-covertool))

+ (synopsis "Dynamic dispatching library for metrics and instrumentations")

+ (description

+ "Telemetry is a lightweight library for dynamic dispatching of events, with a

+focus on metrics and instrumentation. Any Erlang or Elixir library can use

+telemetry to emit events. Application code and other libraries can then hook

+into those events and run custom handlers.")

+ (home-page "https://hexdocs.pm/telemetry/")

+ (license license:asl2.0)))

+

+++ b/guix/build-system/rebar.scm

+;;; Copyright © 2023 Pierre-Henry Fröhring <phfrohring@deeplinks.com>

+ #:use-module (guix build-system gnu)

+ #:use-module (guix build-system)

+ #:use-module (guix packages)

+ #:use-module (guix store)

+ #:use-module (guix utils)

+ #:use-module (srfi srfi-1)

+ #:use-module (srfi srfi-26)

+

+;;;

+;;; Utils

+;;;

+

+(define (flatten lst) (fold append '() lst))

+

+

+;;;

+;;; Packages

+;;;

+

+(define %erlang-package-prefix "erlang-")

+

+(define (erlang-package-name? name)

+ "Indicates if NAME is an Erlang package name.

+If a package name starts with %erlang-package-prefix, then it is an Erlang package name.

+An Erlang package name must start with %erlang-package-prefix."

+ (string-prefix? %erlang-package-prefix name))

+

+(define (hexpm-name pkg-name)

+ "Given a package name PKG-NAME, returns the corresponding hex.pm package name."

+ (let ((suffix (string-drop pkg-name (string-length %erlang-package-prefix))))

+ (string-replace-substring suffix "-" "_")))

+

+(define (all-transitive-inputs pkg pred)

+ "Given a package PKG and a predicate PRED, return all transitive inputs of PKG

+that match the predicate PRED."

+ (delete-duplicates

+ (append

+ (filter pred (package-transitive-inputs pkg))

+ (filter pred (package-transitive-native-inputs pkg))

+ (filter pred (package-transitive-propagated-inputs pkg)))

+ input=?))

+

+

+;;;

+;;; Input

+;;;

+

+(define (input-mk name package)

+ "Build an Input."

+ (list name package))

+

+(define (input->name input)

+ "Return the name of INPUT."

+ (car input))

+

+(define (input->package input)

+ "Return the package of INPUT."

+ (cadr input))

+

+(define (input=? i1 i2)

+ "Test whether Inputs I1 and I2 are equal."

+ (string=? (input->name i1) (input->name i2)))

+

+(define (erlang-input? input)

+ "Test whether INPUT is an Erlang Input."

+ (erlang-package-name? (input->name input)))

+

+(define (input->all-inputs input pred)

+ "Return the list of implicit satisfying PRED Inputs associated to INPUT, including INPUT."

+ (cons input (all-transitive-inputs (input->package input) pred)))

+

+(define (inputs->all-erlang-inputs erlang-inputs)

+ "Return a list of implicit Erlang Inputs associated to INPUT, including INPUT."

+ (let ((all-inputs (flatten (map (cut input->all-inputs <> erlang-package-name?) erlang-inputs))))

+ (delete-duplicates all-inputs input=?)))

+

+

+;;;

+;;; Source

+;;;

+

+(define (source-mk name origin)

+ "Build a source.

+NAME is an hex.pm package name.

+ORIGIN is an Origin."

+ (list name origin))

+

+(define (source->name source)

+ "Return the name of SOURCE."

+ (car source))

+

+(define (source->origin source)

+ "Return the origin of SOURCE."

+ (cadr source))

+

+(define (source=? s1 s2)

+ "Test whether Sources S1 and S2 are equal."

+ (string=? (source->name s1) (source->name s2)))

+

+(define (input->source input)

+ "Given an Input INPUT, return its associated Source."

+ (source-mk (hexpm-name (input->name input))

+ (package-source (input->package input))))

+

+

+(define (hexpm-uri pkg-name version)

+ (let ((name (if (erlang-package-name? pkg-name) (hexpm-name pkg-name) pkg-name)))

+ (string-append hexpm-package-url name "-" version ".tar")))

+ '(#:target #:rebar #:erlang #:inputs #:native-inputs #:erlang-sources))

+

+ (let* ((inputs-all (append inputs native-inputs))

+ (erlang-inputs (filter erlang-input? inputs-all))

+ (all-erlang-inputs (inputs->all-erlang-inputs erlang-inputs))

+ (all-erlang-sources (map input->source all-erlang-inputs)))

+

+ (and (not target) ;XXX: no cross-compilation

+ (bag

+ (name name)

+ (system system)

+ (host-inputs `(,@(if source

+ `(("source" ,source))

+ '())

+ ,@inputs))

+ (build-inputs `(("rebar" ,rebar)

+ ("erlang" ,erlang) ;; for escriptize

+ ,@inputs

+ ,@native-inputs

+ ;; Keep the standard inputs of 'gnu-build-system'.

+ ,@(standard-packages)))

+ (outputs outputs)

+ (build rebar-build)

+ (arguments (append (list #:erlang-sources all-erlang-sources)

+ (strip-keyword-arguments private-keywords arguments)))))))

+ #:key

+ guile source

+ (rebar-flags ''("skip_deps=true" "-vv"))

+ (tests? #t)

+ (test-target "eunit")

+ ;; TODO: install-name ; default: based on guix package name

+ (install-profile "default")

+ (phases '(@ (guix build rebar-build-system)

+ %standard-phases))

+ (outputs '("out"))

+ (search-paths '())

+ (native-search-paths '())

+ (erlang-sources '())

+ (system (%current-system))

+ (imported-modules %rebar-build-system-modules)

+ (modules '((guix build rebar-build-system)

+ (guix build utils))))

+ #:system #$system

+ #:name #$name

+ #:rebar-flags #$rebar-flags

+ #:tests? #$tests?

+ #:test-target #$test-target

+ ;; TODO: #:install-name #$install-name

+ #:install-profile #$install-profile

+ #:phases #$(if (pair? phases)

+ (sexp->gexp phases)

+ phases)

+ #:outputs %outputs

+ #:search-paths '#$(sexp->gexp

+ (map search-path-specification->sexp

+ search-paths))

+ #:inputs %build-inputs

+ #:erlang-sources '#$erlang-sources)))))

+++ b/guix/build/rebar-build-system.scm

+;;

+;; Utils

+;;

+

+(define sep file-name-separator-string)

+

+

+(define (configure-environment . _)

+ (setenv "REBAR_CACHE_DIR" (getcwd)))

+

+(define* (erlang-depends #:key erlang-sources #:allow-other-keys)

+ (let ((checkouts "_checkouts"))

+ (mkdir-p checkouts)

+ (for-each (lambda (source)

+ (match source

+ ((name archive)

+ (let ((libdir (string-append checkouts sep name)))

+ (mkdir-p libdir)

+ (with-directory-excursion libdir

+ (unpack #:source archive))))))

+ erlang-sources)))

+ (add-after 'unpack 'configure-environment configure-environment)

+++ b/gnu/packages/erlang-xyz.scm

+;;; GNU Guix --- Functional package management for GNU

+;;; Copyright © 2023 Pierre-Henry Fröhring <phfrohring@deeplinks.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 erlang-xyz)

+ #:use-module ((guix licenses) #:prefix license:)

+ #:use-module (gnu packages base)

+ #:use-module (gnu packages)

+ #:use-module (guix build-system rebar)

+ #:use-module (guix download)

+ #:use-module (guix gexp)

+ #:use-module (guix git-download)

+ #:use-module (guix hg-download)

+ #:use-module (guix packages)

+ #:use-module (guix utils)

+ #:use-module (srfi srfi-1)

+ #:use-module (guix git-download)

+ #:use-module (gnu packages version-control)

+ #:use-module (srfi srfi-26))

+

+(define-public erlang-goldrush

+ (package

+ (name "erlang-goldrush")

+ (version "0.1.9")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1ssck5yr7rnrfwzm55pbyi1scgs1sl1xim75h5sj5czwrwl43jwr"))))

+ (build-system rebar-build-system)

+ (synopsis "Erlang event stream processor")

+ (description "Erlang event stream processor")

+ (home-page "https://hex.pm/packages/goldrush")

+ (license license:isc)))

+

+;;;

+;;; Avoid adding new packages to the end of this file. To reduce the chances

+;;; of a merge conflict, place them above by existing packages with similar

+;;; functionality or similar names.

+;;;

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-lager

+ (package

+ (name "erlang-lager")

+ (version "3.9.2")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "0a0c6kvc2jman62vrx2l3nx6xqn8s5l1glvf2mk7xjx8hyg4v43z"))))

+ (build-system rebar-build-system)

+ ;; XXX: tests fail.

+ (arguments (list #:tests? #f))

+ (propagated-inputs (list erlang-goldrush))

+ (synopsis "Erlang logging framework")

+ (description "Erlang logging framework")

+ (home-page "https://hexdocs.pm/lager/")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-unicode-util-compat

+ (package

+ (name "erlang-unicode-util-compat")

+ (version "0.7.0")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "08952lw8cjdw8w171lv8wqbrxc4rcmb3jhkrdb7n06gngpbfdvi5"))))

+ (build-system rebar-build-system)

+ (synopsis "Unicode compatibility library for Erlang < 20")

+ (description "Unicode compatibility library for Erlang < 20.")

+ (home-page "https://hex.pm/packages/unicode_util_compat")

+ (license license:asl2.0)))

+

+++ b/gnu/packages/erlang-xyz.scm

+(define-public erlang-idna

+ (package

+ (name "erlang-idna")

+ (version "6.1.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hexpm-uri name version))

+ (sha256

+ (base32 "1sjcjibl34sprpf1dgdmzfww24xlyy34lpj7mhcys4j4i6vnwdwj"))))

+ (build-system rebar-build-system)

+ (propagated-inputs (list erlang-unicode-util-compat))

+ (synopsis

+ "Erlang Internationalized Domain Names in Applications (IDNA) protocol")

+ (description

+ "Library to register and look up IDNs in a way

+ that does not require changes to the DNS itself. IDNA is only meant for

+processing domain names, not free text. See: RFC 5891.")

+ (home-page "https://hexdocs.pm/idna/")

+ (license license:expat)))

+