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

gnu: links, lynx, qutebrowser: Update phase style. 

* gnu/packages/web-browsers.scm (links, lynx, qutebrowser)[arguments]:
Substitute INVOKE for SYSTEM and end phases with #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-03-07 00:52:02 +01:00
parent b9499508b4
commit b8b34be61c
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/web-browsers.scm
View File

@ -4,6 +4,7 @@
;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -102,10 +103,10 @@ older or slower computers and embedded systems.")
`((setenv "CHOST" ,(%current-target-system))) `((setenv "CHOST" ,(%current-target-system)))
'()) '())
(setenv "CONFIG_SHELL" (which "bash")) (setenv "CONFIG_SHELL" (which "bash"))
(zero? (invoke "./configure"
(system* "./configure" (string-append "--prefix=" out)
(string-append "--prefix=" out) "--enable-graphics")
"--enable-graphics")))))))) #t))))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("zlib" ,zlib) (inputs `(("zlib" ,zlib)
("openssl" ,openssl) ("openssl" ,openssl)
@ -175,7 +176,8 @@ features including, tables, builtin image display, bookmarks, SSL and more.")
#t)) #t))
(replace 'install (replace 'install
(lambda* (#:key (make-flags '()) #:allow-other-keys) (lambda* (#:key (make-flags '()) #:allow-other-keys)
(zero? (apply system* "make" "install-full" make-flags))))))) (apply invoke "make" "install-full" make-flags)
#t)))))
(synopsis "Text Web Browser") (synopsis "Text Web Browser")
(description (description
"Lynx is a fully-featured World Wide Web (WWW) client for users running "Lynx is a fully-featured World Wide Web (WWW) client for users running
@ -223,7 +225,7 @@ access.")
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(app (string-append out "/share/applications")) (app (string-append out "/share/applications"))
(hicolor (string-append out "/share/icons/hicolor"))) (hicolor (string-append out "/share/icons/hicolor")))
(system* "a2x" "-f" "manpage" "doc/qutebrowser.1.asciidoc") (invoke "a2x" "-f" "manpage" "doc/qutebrowser.1.asciidoc")
(install-file "doc/qutebrowser.1" (install-file "doc/qutebrowser.1"
(string-append out "/share/man/man1")) (string-append out "/share/man/man1"))