ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: global: Use modify-phases syntax.

Browse source 
* gnu/packages/code.scm (global)[arguments]: Use modify-phases syntax.
This commit is contained in:
Efraim Flashner 2016-01-12 14:47:10 +02:00
parent 94c3a6f1a6
commit 9d9951d6a6
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/code.scm
View file

@ -111,18 +111,17 @@ (define-public global ; a global variable
(string-append "--with-sqlite3=" (string-append "--with-sqlite3="
(assoc-ref %build-inputs "sqlite"))) (assoc-ref %build-inputs "sqlite")))
#:phases (alist-cons-after #:phases
'install 'post-install (modify-phases %standard-phases
(add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Install the Emacs Lisp file in the right place. ;; Install the Emacs Lisp file in the right place.
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(data (string-append out "/share/gtags")) (data (string-append out "/share/gtags"))
(lisp (string-append out "/share/emacs/site-lisp"))) (lisp (string-append out "/share/emacs/site-lisp")))
(install-file (string-append data "/gtags.el") (install-file (string-append data "/gtags.el") lisp)
lisp)
(delete-file (string-append data "/gtags.el")) (delete-file (string-append data "/gtags.el"))
#t)) #t))))))
%standard-phases)))
(home-page "http://www.gnu.org/software/global/") (home-page "http://www.gnu.org/software/global/")
(synopsis "Cross-environment source code tag system") (synopsis "Cross-environment source code tag system")
(description (description