me/guix
Archived
1
0
Fork 0
Code Activity

gnu: emacs-w3m: Use 'modify-syntax'.

Browse source 
* gnu/packages/emacs.scm (emacs-w3m)[arguments]: Use 'modify-syntax'.
This commit is contained in:
Alex Kost 2015-12-02 22:47:48 +03:00
parent dcb7119a6d
commit 932ece6553
1 changed files with 33 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
gnu/packages/emacs.scm
View file

@ -600,12 +600,11 @@ provides an optional IDE-like error list.")
out "/share/images/emacs-w3m"))) out "/share/images/emacs-w3m")))
#:tests? #f ; no check target #:tests? #f ; no check target
#:phases #:phases
(alist-cons-after (modify-phases %standard-phases
'unpack 'autoconf (add-after 'unpack 'autoconf
(lambda _ (lambda _
(zero? (system* "autoconf"))) (zero? (system* "autoconf"))))
(alist-cons-before (add-before 'build 'patch-exec-paths
'build 'patch-exec-paths
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
(w3m (assoc-ref inputs "w3m")) (w3m (assoc-ref inputs "w3m"))
@ -613,18 +612,19 @@ provides an optional IDE-like error list.")
(coreutils (assoc-ref inputs "coreutils"))) (coreutils (assoc-ref inputs "coreutils")))
(emacs-substitute-variables "w3m.el" (emacs-substitute-variables "w3m.el"
("w3m-command" (string-append w3m "/bin/w3m")) ("w3m-command" (string-append w3m "/bin/w3m"))
("w3m-touch-command" (string-append coreutils "/bin/touch")) ("w3m-touch-command"
("w3m-image-viewer" (string-append imagemagick "/bin/display")) (string-append coreutils "/bin/touch"))
("w3m-icon-directory" (string-append out ("w3m-image-viewer"
"/share/images/emacs-w3m"))) (string-append imagemagick "/bin/display"))
("w3m-icon-directory"
(string-append out "/share/images/emacs-w3m")))
(emacs-substitute-variables "w3m-image.el" (emacs-substitute-variables "w3m-image.el"
("w3m-imagick-convert-program" (string-append imagemagick ("w3m-imagick-convert-program"
"/bin/convert")) (string-append imagemagick "/bin/convert"))
("w3m-imagick-identify-program" (string-append imagemagick ("w3m-imagick-identify-program"
"/bin/identify"))) (string-append imagemagick "/bin/identify")))
#t)) #t)))
(alist-replace (replace 'install
'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(and (zero? (system* "make" "install" "install-icons")) (and (zero? (system* "make" "install" "install-icons"))
(with-directory-excursion (with-directory-excursion
@ -632,8 +632,7 @@ provides an optional IDE-like error list.")
"/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)))))))
%standard-phases)))))
(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