360 lines
14 KiB
Scheme
360 lines
14 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2019, 2020 John Soo <jsoo1@asu.edu>
|
|
;;; Copyright © 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
|
|
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
|
|
;;;
|
|
;;; 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 rust-apps)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (guix build-system cargo)
|
|
#:use-module (guix download)
|
|
#:use-module (guix packages)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages crates-io)
|
|
#:use-module (gnu packages documentation)
|
|
#:use-module (gnu packages jemalloc)
|
|
#:use-module (gnu packages pcre)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages tls)
|
|
#:use-module (gnu packages version-control))
|
|
|
|
(define-public exa
|
|
(package
|
|
(name "exa")
|
|
(version "0.9.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (crate-uri "exa" version))
|
|
(file-name
|
|
(string-append name "-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1s902xgplz1167k0r7x235p914lprpsqy2if0kpa1mlb0fswqqq4"))))
|
|
(build-system cargo-build-system)
|
|
(arguments
|
|
`(#:cargo-inputs
|
|
(("rust-ansi-term" ,rust-ansi-term-0.12)
|
|
("rust-datetime" ,rust-datetime-0.4)
|
|
("rust-env-logger" ,rust-env-logger-0.6)
|
|
("rust-git2" ,rust-git2-0.9)
|
|
("rust-glob" ,rust-glob-0.3)
|
|
("rust-lazy-static" ,rust-lazy-static-1)
|
|
("rust-libc" ,rust-libc-0.2)
|
|
("rust-locale" ,rust-locale-0.2)
|
|
("rust-log" ,rust-log-0.4)
|
|
("rust-natord" ,rust-natord-1.0)
|
|
("rust-num-cpus" ,rust-num-cpus-1.11)
|
|
("rust-number-prefix" ,rust-number-prefix-0.3)
|
|
("rust-scoped-threadpool" ,rust-scoped-threadpool-0.1)
|
|
("rust-term-grid" ,rust-term-grid-0.1)
|
|
("rust-term-size" ,rust-term-size-0.3)
|
|
("rust-unicode-width" ,rust-unicode-width-0.1)
|
|
("rust-users" ,rust-users-0.9)
|
|
("rust-zoneinfo-compiled" ,rust-zoneinfo-compiled-0.4))
|
|
#:cargo-development-inputs
|
|
(("rust-datetime" ,rust-datetime-0.4))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'configure 'dont-vendor-sources
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((openssl (assoc-ref inputs "openssl")))
|
|
(setenv "OPENSSL_DIR" openssl))
|
|
#t))
|
|
;; Ignoring failing tests.
|
|
;; Reported in https://github.com/ogham/exa/issues/318
|
|
(add-before 'check 'disable-failing-tests
|
|
(lambda _
|
|
(substitute* "src/options/mod.rs"
|
|
(("^.*fn oneline_across.*" oneline-across)
|
|
(string-append "#[ignore]\n" oneline-across)))
|
|
|
|
(substitute* "src/options/view.rs"
|
|
(("test!\\(across:.*") "")
|
|
(("test!\\(empty:.*") "")
|
|
(("test!\\(gracross:.*") "")
|
|
(("test!\\(grid:.*") "")
|
|
(("test!\\(icons:.*") "")
|
|
(("test!\\(just_binary:.*") "")
|
|
(("test!\\(just_blocks:.*") "")
|
|
(("test!\\(just_bytes:.*") "")
|
|
(("test!\\(just_git:.*") "")
|
|
(("test!\\(just_group:.*") "")
|
|
(("test!\\(just_header:.*") "")
|
|
(("test!\\(just_inode:.*") "")
|
|
(("test!\\(just_links:.*") "")
|
|
(("test!\\(leg:.*") "")
|
|
(("test!\\(lid:.*") "")
|
|
(("test!\\(original_g:.*") ""))
|
|
#t))
|
|
(add-after 'install 'install-extras
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(share (string-append out "/share"))
|
|
(man1 (string-append share "/man/man1")))
|
|
(install-file "contrib/man/exa.1" man1)
|
|
(mkdir-p (string-append out "/etc/bash_completion.d"))
|
|
(mkdir-p (string-append share "/fish/vendor_completions.d"))
|
|
(mkdir-p (string-append share "/zsh/site-functions"))
|
|
(copy-file "contrib/completions.bash"
|
|
(string-append out "/etc/bash_completion.d/exa"))
|
|
(copy-file "contrib/completions.fish"
|
|
(string-append share "/fish/vendor_completions.d/exa.fish"))
|
|
(copy-file "contrib/completions.zsh"
|
|
(string-append share "/zsh/site-functions/_exa"))
|
|
#t))))))
|
|
(inputs
|
|
`(("libgit2" ,libgit2)
|
|
("zlib" ,zlib)))
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)))
|
|
(home-page "https://the.exa.website/")
|
|
(synopsis "Modern replacement for ls")
|
|
(description "@code{exa} is a modern replacement for the command-line
|
|
program @code{ls}. It uses colours to distinguish file types and metadata. It
|
|
also knows about symlinks, extended attributes, and Git.")
|
|
(license license:expat)))
|
|
|
|
(define-public fd
|
|
(package
|
|
(name "fd")
|
|
(version "7.4.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (crate-uri "fd-find" version))
|
|
(file-name
|
|
(string-append name "-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"147m872zff0srwq9vaxkkbab06g3fkklbk1g2lx90vdhgs37f5xj"))))
|
|
(build-system cargo-build-system)
|
|
(arguments
|
|
`(#:cargo-inputs
|
|
(("rust-ansi-term" ,rust-ansi-term-0.12)
|
|
("rust-atty" ,rust-atty-0.2)
|
|
("rust-clap" ,rust-clap-2)
|
|
("rust-ctrlc" ,rust-ctrlc-3.1)
|
|
("rust-globset" ,rust-globset-0.4)
|
|
("rust-humantime" ,rust-humantime-1.3)
|
|
("rust-ignore" ,rust-ignore-0.4)
|
|
("rust-jemallocator" ,rust-jemallocator-0.3)
|
|
("rust-lazy-static" ,rust-lazy-static-1)
|
|
("rust-libc" ,rust-libc-0.2)
|
|
("rust-lscolors" ,rust-lscolors-0.6)
|
|
("rust-num-cpus" ,rust-num-cpus-1.10)
|
|
("rust-regex" ,rust-regex-1.3)
|
|
("rust-regex-syntax" ,rust-regex-syntax-0.6)
|
|
("rust-version-check" ,rust-version-check-0.9))
|
|
#:cargo-development-inputs
|
|
(("rust-diff" ,rust-diff-0.1)
|
|
("rust-filetime" ,rust-filetime-0.2)
|
|
("rust-tempdir" ,rust-tempdir-0.3))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'override-jemalloc
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((jemalloc (assoc-ref inputs "jemalloc")))
|
|
(setenv "JEMALLOC_OVERRIDE"
|
|
(string-append jemalloc "/lib/libjemalloc.so")))
|
|
#t))
|
|
(add-after 'install 'install-extra
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(install-completion
|
|
(lambda (completion out-dir)
|
|
(for-each
|
|
(lambda (f)
|
|
(install-file f (string-append out out-dir)))
|
|
(find-files "target/release/build/" completion)))))
|
|
;; Manpages
|
|
(install-file "doc/fd.1" (string-append out "/share/man/man1"))
|
|
;; Completions
|
|
(install-completion "^fd.bash$" "/etc/bash-completion.d")
|
|
(install-completion "^fd.fish$" "/share/fish/vendor_completions.d")
|
|
(install-completion "^_fd$" "/share/zsh/site-functions")
|
|
(rename-file (string-append out "/etc/bash-completion.d/fd.bash")
|
|
(string-append out "/etc/bash-completion.d/fd"))
|
|
#t))))))
|
|
(inputs `(("jemalloc" ,jemalloc)))
|
|
(home-page "https://github.com/sharkdp/fd")
|
|
(synopsis "Simple, fast and user-friendly alternative to find")
|
|
(description
|
|
"@code{fd} is a simple, fast and user-friendly alternative to @code{find}.
|
|
While it does not seek to mirror all of find's powerful functionality, it
|
|
provides defaults for 80% of the use cases.")
|
|
(license (list license:expat license:asl2.0))))
|
|
|
|
(define-public ripgrep
|
|
(package
|
|
(name "ripgrep")
|
|
(version "11.0.2")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (crate-uri "ripgrep" version))
|
|
(file-name
|
|
(string-append name "-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0vqjr96s2rs45715hzf0g0wjahig4zjyiqfijmzzg4jyh9ni80yr"))))
|
|
(build-system cargo-build-system)
|
|
(arguments
|
|
`(#:cargo-inputs
|
|
(("rust-bstr" ,rust-bstr-0.2)
|
|
("rust-clap" ,rust-clap-2)
|
|
("rust-grep" ,rust-grep-0.2)
|
|
("rust-ignore" ,rust-ignore-0.4)
|
|
("rust-jemallocator" ,rust-jemallocator-0.3)
|
|
("rust-lazy-static" ,rust-lazy-static-1)
|
|
("rust-log" ,rust-log-0.4)
|
|
("rust-num-cpus" ,rust-num-cpus-1.10)
|
|
("rust-regex" ,rust-regex-1.1)
|
|
("rust-serde-json" ,rust-serde-json-1.0)
|
|
("rust-termcolor" ,rust-termcolor-1.0))
|
|
#:cargo-development-inputs
|
|
(("rust-serde" ,rust-serde-1.0)
|
|
("rust-serde-derive" ,rust-serde-derive-1.0))
|
|
#:modules ((ice-9 match)
|
|
(guix build cargo-build-system)
|
|
(guix build utils))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'build 'install-manpage
|
|
;; NOTE: This is done before 'check so that there's only one output
|
|
;; directory with the man page.
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(match (find-files "target" "^rg\\.1$")
|
|
((manpage)
|
|
(install-file manpage (string-append
|
|
(assoc-ref outputs "out")
|
|
"/share/man/man1"))))
|
|
#t))
|
|
(replace 'install
|
|
;; Adapted from (guix build cargo-build-system). The flags need to
|
|
;; be passed to `cargo install' too, as otherwise it will build
|
|
;; another binary, without the features.
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out")))
|
|
(mkdir-p out)
|
|
(setenv "CARGO_TARGET_DIR" "./target")
|
|
(invoke "cargo" "install" "--path" "." "--root" out
|
|
"--features" "pcre2")))))
|
|
#:cargo-build-flags '("--release" "--features" "pcre2")))
|
|
(native-inputs
|
|
`(("asciidoc" ,asciidoc)
|
|
("pcre2" ,pcre2)
|
|
("pkg-config" ,pkg-config)))
|
|
(home-page "https://github.com/BurntSushi/ripgrep")
|
|
(synopsis "Line-oriented search tool")
|
|
(description
|
|
"ripgrep is a line-oriented search tool that recursively searches
|
|
your current directory for a regex pattern while respecting your
|
|
gitignore rules.")
|
|
(license (list license:unlicense license:expat))))
|
|
|
|
(define-public rust-cbindgen
|
|
(package
|
|
(name "rust-cbindgen")
|
|
(version "0.13.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (crate-uri "cbindgen" version))
|
|
(file-name (string-append name "-" version ".crate"))
|
|
(sha256
|
|
(base32
|
|
"0w70bnwwqyf9fr6z3rcs7m7ad791fmfmhxy828va0dkfwvamp59c"))))
|
|
(build-system cargo-build-system)
|
|
(arguments
|
|
`(#:cargo-inputs
|
|
(("clap" ,rust-clap-2)
|
|
("log" ,rust-log-0.4)
|
|
("proc-macro2" ,rust-proc-macro2-1.0)
|
|
("quote" ,rust-quote-1.0)
|
|
("serde" ,rust-serde-1.0)
|
|
("serde-json" ,rust-serde-json-1.0)
|
|
("syn" ,rust-syn-1.0)
|
|
("tempfile" ,rust-tempfile-3.0)
|
|
("toml" ,rust-toml-0.5))))
|
|
(home-page "https://github.com/eqrion/cbindgen/")
|
|
(synopsis "Tool for generating C bindings to Rust code")
|
|
(description
|
|
"This package provides a tool for generating C/C++ bindings to Rust code.")
|
|
(license license:mpl2.0)))
|
|
|
|
(define-public tokei
|
|
(package
|
|
(name "tokei")
|
|
(version "10.1.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (crate-uri "tokei" version))
|
|
(file-name
|
|
(string-append name "-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"07f5laqw2k9l3k8wrg9h8p2m5d9hkfxngyacwrn3vs7mlnw8l81m"))))
|
|
(build-system cargo-build-system)
|
|
(arguments
|
|
`(#:cargo-inputs
|
|
(("rust-clap" ,rust-clap-2)
|
|
("rust-crossbeam-channel" ,rust-crossbeam-channel-0.4)
|
|
("rust-dirs" ,rust-dirs-2.0)
|
|
("rust-encoding-rs-io" ,rust-encoding-rs-io-0.1)
|
|
("rust-env-logger" ,rust-env-logger-0.7)
|
|
("rust-grep-searcher" ,rust-grep-searcher-0.1)
|
|
("rust-hex" ,rust-hex-0.4)
|
|
("rust-ignore" ,rust-ignore-0.4)
|
|
("rust-log" ,rust-log-0.4)
|
|
("rust-rayon" ,rust-rayon-1.3)
|
|
("rust-serde" ,rust-serde-1.0)
|
|
("rust-serde-cbor" ,rust-serde-cbor-0.10)
|
|
("rust-serde-derive" ,rust-serde-derive-1.0)
|
|
("rust-serde-json" ,rust-serde-json-1.0)
|
|
("rust-serde-yaml" ,rust-serde-yaml-0.8)
|
|
("rust-term-size" ,rust-term-size-0.3)
|
|
("rust-toml" ,rust-toml-0.5))
|
|
#:cargo-development-inputs
|
|
(("rust-git2" ,rust-git2-0.11)
|
|
("rust-handlebars" ,rust-handlebars-2.0)
|
|
("rust-ignore" ,rust-ignore-0.4)
|
|
("rust-lazy-static" ,rust-lazy-static-1)
|
|
("rust-regex" ,rust-regex-1.3)
|
|
("rust-serde-json" ,rust-serde-json-1.0)
|
|
("rust-tempfile" ,rust-tempfile-3.0))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'configure 'unvendor-libraries-from-crates
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((openssl (assoc-ref inputs "openssl")))
|
|
(setenv "OPENSSL_DIR" openssl))
|
|
#t)))))
|
|
(native-inputs
|
|
`(("libgit2" ,libgit2)
|
|
("openssl" ,openssl)
|
|
("pkg-config" ,pkg-config)
|
|
("zlib" ,zlib)))
|
|
(home-page "https://tokei.rs")
|
|
(synopsis "Count code, quickly")
|
|
(description
|
|
"Tokei is a program that displays statistics about your code. Tokei will
|
|
show number of files, total lines within those files and code, comments, and
|
|
blanks grouped by language.")
|
|
(license (list license:expat license:asl2.0))))
|