gnu: emacs-w3m: Return #t from phases.

* gnu/packages/emacs.scm (emacs-w3m)[arguments]: Substitute INVOKE for
SYSTEM* & risky plumbing.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-20 02:55:56 +02:00
parent ff6275fd26
commit 93adf925ba
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -793,7 +793,7 @@ (define-public emacs-w3m
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'autoconf (add-after 'unpack 'autoconf
(lambda _ (lambda _
(zero? (system* "autoconf")))) (invoke "autoconf")))
(add-before 'configure 'support-emacs! (add-before 'configure 'support-emacs!
(lambda _ (lambda _
;; For some reason 'AC_PATH_EMACS' thinks that 'Emacs 26' is ;; For some reason 'AC_PATH_EMACS' thinks that 'Emacs 26' is
@ -824,13 +824,13 @@ (define-public emacs-w3m
#t))) #t)))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(and (zero? (system* "make" "install" "install-icons")) (invoke "make" "install" "install-icons")
(with-directory-excursion (with-directory-excursion
(string-append (assoc-ref outputs "out") (string-append (assoc-ref outputs "out")
"/share/emacs/site-lisp") "/share/emacs/site-lisp")
(for-each delete-file '("ChangeLog" "ChangeLog.1")) (for-each delete-file '("ChangeLog" "ChangeLog.1"))
(symlink "w3m-load.el" "w3m-autoloads.el") (symlink "w3m-load.el" "w3m-autoloads.el")
#t))))))) #t))))))
(home-page "http://emacs-w3m.namazu.org/") (home-page "http://emacs-w3m.namazu.org/")
(synopsis "Simple Web browser for Emacs based on w3m") (synopsis "Simple Web browser for Emacs based on w3m")
(description (description