nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: ranger: Enable image support. 

* gnu/packages/disk.scm (ranger)[inputs]: Add 'w3m'.
[arguments]: Add wrapper for W3MIMGDISPLAY_PATH environment variable.
This commit is contained in:
Rutger Helling 2018-06-04 16:31:58 +02:00
parent fd17434249
commit 19b662ea7c
No known key found for this signature in database
GPG Key ID: F3A727DB44FCCA36
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/packages/disk.scm
View File

@ -11,6 +11,7 @@
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2018 Vasile Dumitrascu <va511e@yahoo.com> ;;; Copyright © 2018 Vasile Dumitrascu <va511e@yahoo.com>
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018 Rutger Helling <rhelling@mykolab.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -53,6 +54,7 @@
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages vim) #:use-module (gnu packages vim)
#:use-module (gnu packages w3m)
#:use-module (gnu packages xml)) #:use-module (gnu packages xml))
(define-public parted (define-public parted
@ -516,12 +518,28 @@ Duperemove can also take input from the @command{fdupes} program.")
(base32 (base32
"1lnzkrxcnlwnyi3z0v8ybyp8d5rm26qm35rr68kbs2lbs06inha0")))) "1lnzkrxcnlwnyi3z0v8ybyp8d5rm26qm35rr68kbs2lbs06inha0"))))
(build-system python-build-system) (build-system python-build-system)
(inputs
`(("w3m" ,w3m)))
(native-inputs ;for tests (native-inputs ;for tests
`(("python-pytest" ,python-pytest) `(("python-pytest" ,python-pytest)
("python-pylint" ,python-pylint) ("python-pylint" ,python-pylint)
("python-flake8" ,python-flake8) ("python-flake8" ,python-flake8)
("which" ,which))) ("which" ,which)))
(arguments '(#:test-target "test")) (arguments
'(#:test-target "test"
#:phases
(modify-phases %standard-phases
(add-after 'configure 'wrap-program
;; Tell 'ranger' where 'w3mimgdisplay' is.
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(ranger (string-append out "/bin/ranger"))
(w3m (assoc-ref inputs "w3m"))
(w3mimgdisplay (string-append w3m
"/libexec/w3m/w3mimgdisplay")))
(wrap-program ranger
`("W3MIMGDISPLAY_PATH" ":" prefix (,w3mimgdisplay)))
#t))))))
(home-page "https://ranger.github.io/") (home-page "https://ranger.github.io/")
(synopsis "Console file manager") (synopsis "Console file manager")
(description "ranger is a console file manager with Vi key bindings. It (description "ranger is a console file manager with Vi key bindings. It