gnu: Add sh-z shell tool

* gnu/packages/shellutils.scm (sh-z): New variable.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Collin J. Doering 2019-09-11 23:08:37 -04:00 committed by Ludovic Courtès
parent a00a3132c7
commit f69f37d54a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -5,6 +5,7 @@
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net> ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2019 Collin J. Doering <collin@rekahsoft.ca>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -38,6 +39,43 @@ (define-module (gnu packages shellutils)
#:use-module (guix build-system go) #:use-module (guix build-system go)
#:use-module (guix build-system python)) #:use-module (guix build-system python))
(define-public sh-z
(package
(name "sh-z")
(version "1.11")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rupa/z.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"13zbgkj6y0qhvn5jpkrqbd4jjxjr789k228iwma5hjfh1nx7ghyb"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; No tests provided
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'build)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(man (string-append out "/share/man/man1"))
(bin (string-append out "/bin")))
(install-file "z.sh" bin)
(chmod (string-append bin "/z.sh") #o755)
(install-file "z.1" man)
#t))))))
(synopsis "Jump about directories")
(description
"Tracks your most used directories, based on ``frecency''. After a short
learning phase, z will take you to the most ``frecent'' directory that matches
all of the regexes given on the command line in order.")
(home-page "https://github.com/rupa/z")
(license license:expat)))
(define-public envstore (define-public envstore
(package (package
(name "envstore") (name "envstore")