402 lines
		
	
	
	
		
			15 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			402 lines
		
	
	
	
		
			15 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>
 | |
| ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
 | |
| ;;; Copyright © 2020 Leo Famulari <leo@famulari.name>
 | |
| ;;;
 | |
| ;;; 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)
 | |
|         ("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 "8.1.1")
 | |
|     (source
 | |
|      (origin
 | |
|        (method url-fetch)
 | |
|        (uri (crate-uri "fd-find" version))
 | |
|        (file-name
 | |
|         (string-append name "-" version ".tar.gz"))
 | |
|        (sha256
 | |
|         (base32
 | |
|          "124a5r8hpk2phs1288jybh34d48yxy44wr7gv5ggchs272gs2jam"))))
 | |
|     (build-system cargo-build-system)
 | |
|     (arguments
 | |
|      `(#:cargo-inputs
 | |
|        (("rust-ansi-term" ,rust-ansi-term-0.12)
 | |
|         ("rust-anyhow" ,rust-anyhow-1.0)
 | |
|         ("rust-atty" ,rust-atty-0.2)
 | |
|         ("rust-clap" ,rust-clap-2)
 | |
|         ("rust-ctrlc" ,rust-ctrlc-3.1)
 | |
|         ("rust-dirs" ,rust-dirs-2.0)
 | |
|         ("rust-globset" ,rust-globset-0.4)
 | |
|         ("rust-humantime" ,rust-humantime-2)
 | |
|         ("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.7)
 | |
|         ("rust-num-cpus" ,rust-num-cpus-1)
 | |
|         ("rust-regex" ,rust-regex-1)
 | |
|         ("rust-regex-syntax" ,rust-regex-syntax-0.6)
 | |
|         ("rust-users" ,rust-users-0.10)
 | |
|         ("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 "12.1.1")
 | |
|     (source
 | |
|      (origin
 | |
|        (method url-fetch)
 | |
|        (uri (crate-uri "ripgrep" version))
 | |
|        (file-name
 | |
|         (string-append name "-" version ".tar.gz"))
 | |
|        (sha256
 | |
|         (base32
 | |
|          "1grfi0j9zczzipipc21lkdbqmd2lvy2wlqy65fy4sckqvix5amdr"))))
 | |
|     (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)
 | |
|         ("rust-regex" ,rust-regex-1)
 | |
|         ("rust-serde-json" ,rust-serde-json-1.0)
 | |
|         ("rust-termcolor" ,rust-termcolor-1))
 | |
|        #: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)))
 | |
|        #: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)
 | |
|         ("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 rust-cbindgen-0.12
 | |
|   (package
 | |
|     (inherit rust-cbindgen)
 | |
|     (name "rust-cbindgen")
 | |
|     (version "0.12.2")
 | |
|     (source
 | |
|       (origin
 | |
|         (method url-fetch)
 | |
|         (uri (crate-uri "cbindgen" version))
 | |
|         (file-name
 | |
|          (string-append name "-" version ".tar.gz"))
 | |
|         (sha256
 | |
|          (base32
 | |
|           "13jzbmjz1bmmfr0i80hw6ar484mgabx3hbpb2ynhk0ddqi0yr58m"))))))
 | |
| 
 | |
| (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)
 | |
|         ("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)
 | |
|         ("rust-serde-json" ,rust-serde-json-1.0)
 | |
|         ("rust-tempfile" ,rust-tempfile-3))
 | |
|        #: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))))
 | |
| 
 | |
| (define-public rust-cargo-c
 | |
|   (package
 | |
|     (name "rust-cargo-c")
 | |
|     (version "0.5.2")
 | |
|     (source
 | |
|       (origin
 | |
|         (method url-fetch)
 | |
|         (uri (crate-uri "cargo-c" version))
 | |
|         (file-name
 | |
|          (string-append name "-" version ".tar.gz"))
 | |
|         (sha256
 | |
|          (base32
 | |
|           "1is72jm0r73pqx2g3h1n6lvrcirwd91mmajsmb3jjg4jnayfkp0w"))))
 | |
|     (build-system cargo-build-system)
 | |
|     (arguments
 | |
|      `(#:cargo-inputs
 | |
|        (("rust-cbindgen" ,rust-cbindgen-0.12)
 | |
|         ("rust-pretty-env-logger" ,rust-pretty-env-logger-0.3)
 | |
|         ("rust-structopt" ,rust-structopt-0.3)
 | |
|         ("rust-log" ,rust-log-0.4)
 | |
|         ("rust-toml" ,rust-toml-0.5)
 | |
|         ("rust-cargo-metadata" ,rust-cargo-metadata-0.9)
 | |
|         ("rust-serde" ,rust-serde-1.0)
 | |
|         ("rust-serde-derive" ,rust-serde-derive-1.0)
 | |
|         ("rust-regex" ,rust-regex-1))))
 | |
|     (home-page "https://github.com/lu-zero/cargo-c")
 | |
|     (synopsis "Build and install C-compatible libraries")
 | |
|     (description
 | |
|      "This package produces and installs a correct pkg-config file, a static
 | |
| library and a dynamic library, and a C header to be used by any C (and
 | |
| C-compatible) software.")
 | |
|     (license license:expat)))
 |