rekahsoft
/
guix
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: wordnet: Use 'modify-phases'. 

* gnu/packages/wordnet.scm (wordnet)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-05-30 20:19:04 +03:00
parent c1dbd3a870
commit 983911d627
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
gnu/packages/wordnet.scm
View File

@ -52,30 +52,30 @@
;; Provide the `result' field in `Tcl_Interp'.
;; See <https://bugs.gentoo.org/show_bug.cgi?id=452034>.
"CFLAGS=-DUSE_INTERP_RESULT")
#:phases (alist-cons-after
'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(bin (assoc-ref outputs "tk"))
(tk (assoc-ref inputs "tk"))
(tkv ,(let ((v (package-version tk)))
(string-take v (string-index-right v #\.)))))
;; Move `wishwn' and `wnb' to BIN.
(for-each (lambda (prog)
(let ((orig (string-append out "/bin/" prog))
(dst (string-append bin "/bin/" prog))
(dir (string-append tk "/lib/tk" tkv)))
(mkdir-p (dirname dst))
(copy-file orig dst)
(delete-file orig)
(wrap-program dst
`("TK_LIBRARY" "" = (,dir))
`("PATH" ":" prefix
(,(string-append out
"/bin"))))))
'("wishwn" "wnb"))
#t))
%standard-phases)))
#:phases
(modify-phases %standard-phases
(add-after 'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(bin (assoc-ref outputs "tk"))
(tk (assoc-ref inputs "tk"))
(tkv ,(let ((v (package-version tk)))
(string-take v (string-index-right v #\.)))))
;; Move `wishwn' and `wnb' to BIN.
(for-each (lambda (prog)
(let ((orig (string-append out "/bin/" prog))
(dst (string-append bin "/bin/" prog))
(dir (string-append tk "/lib/tk" tkv)))
(mkdir-p (dirname dst))
(copy-file orig dst)
(delete-file orig)
(wrap-program dst
`("TK_LIBRARY" "" = (,dir))
`("PATH" ":" prefix
(,(string-append out
"/bin"))))))
'("wishwn" "wnb"))
#t))))))
(outputs '("out"
"tk")) ; for the Tcl/Tk GUI
(inputs `(("tk" ,tk)