me
/
guix
Archived
1
0
Fork 0
Code

gnu: lesspipe: Update to 2.04. 

* gnu/packages/less.scm (lesspipe): Update to 2.04.
  [arguments] Use new style. <phases>{configure} Adjust to updated source.
  {fix-makefile} New phase.
  {patch-tput-and-file} rename into …
  {patch-command-paths} this; patch other relevant scripts.
  [inputs] Add perl-archive-zip.
Hartmut Goebel 2022-02-10 17:41:43 +01:00
parent be84fb701b
commit d8e353c11b
No known key found for this signature in database
GPG Key ID: 634A8DFFD3F631DF
1 changed files with 44 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
gnu/packages/less.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2019–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -20,10 +21,12 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages less) (define-module (gnu packages less)
#:use-module (guix gexp)
#:use-module (guix licenses) #:use-module (guix licenses)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages perl-compression)
#:use-module (gnu packages file) #:use-module (gnu packages file)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
@ -59,38 +62,57 @@ text editors.")
(define-public lesspipe (define-public lesspipe
(package (package
(name "lesspipe") (name "lesspipe")
(version "1.91") (version "2.04")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/wofr06/lesspipe") (url "https://github.com/wofr06/lesspipe")
(commit version))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"04dqvq6j4h451xqbvxzv6pv679hzzfm39pdm5vg7h3r45gzg0kps")))) "1mwmwkmiyrpib18mli4wrh9n0i12cnf08ssrj6a0s6bgjcfxcjr2"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f ; no tests (list
#:phases (modify-phases %standard-phases #:tests? #f ; no tests
(replace 'configure #:phases
(lambda* (#:key outputs #:allow-other-keys) #~(modify-phases %standard-phases
(let ((out (assoc-ref outputs "out"))) (replace 'configure
(delete-file "Makefile") ; force generating (lambda* (#:key outputs #:allow-other-keys)
(invoke "./configure" ;; configure is a perl script which the standard configure phase
(string-append "--prefix=" out) ;; fails to execute
"--yes")))) (invoke "./configure"
(add-before 'install 'patch-tput-and-file (string-append "--prefix=" (assoc-ref outputs "out")))))
(lambda* (#:key inputs #:allow-other-keys) (add-before 'install 'fix-makefile
(substitute* "lesspipe.sh" (lambda _
(("tput colors") (substitute* "Makefile"
(string-append (search-input-file inputs "/bin/tput") (("\\$\\(DESTDIR\\)/etc") "$(DESTDIR)$(PREFIX)/etc"))))
" colors")) (add-before 'install 'patch-command-paths
(("file -") ;; Depending on the content of the file to be displayed and some
(string-append (search-input-file inputs "/bin/file") ;; settings, lesspipe trees to use a large variety of external
" -")))))))) ;; commands, e.g. rpm, dpkg, vimcolor. We only link the
;; essential ones to avoid this package to pull in all these
;; dependencies which might never ever we used.
(lambda* (#:key inputs #:allow-other-keys)
(let ((file (search-input-file inputs "/bin/file"))
(tput (search-input-file inputs "/bin/tput")))
(substitute* "sxw2txt"
(("^use warnings;" line)
(string-append
line "\nuse lib '" #$(this-package-input "perl-archive-zip")
"/lib/perl5/site_perl';")))
(substitute* "lesscomplete"
(("file -") (string-append file " -")))
(substitute* "lesspipe.sh"
(("tput colors")
(string-append tput " colors"))
(("file -")
(string-append file " -")))))))))
(inputs (inputs
(list file ncurses)) ; for tput (list file
ncurses ;; for tput
perl-archive-zip))
(native-inputs (list perl)) (native-inputs (list perl))
(home-page "https://github.com/wofr06/lesspipe") (home-page "https://github.com/wofr06/lesspipe")
(synopsis "Input filter for less") (synopsis "Input filter for less")