gnu: emacs-edbi: Adjust to changes in emacs-build-system.
* gnu/packages/emacs-xyz.scm (emacs-edbi)[patch-path]: Execute after unpack. [wrap-edbi-bridge]: New phase (after wrap). Find edbi-bridge in elpa-directory.master
parent
c4fac5dd7f
commit
c409cea2d8
|
@ -21593,17 +21593,21 @@ asynchronous communications, the RPC response is fairly good.")
|
||||||
`(#:include '("\\.el$" "\\.pl$")
|
`(#:include '("\\.el$" "\\.pl$")
|
||||||
#:phases
|
#:phases
|
||||||
(modify-phases %standard-phases
|
(modify-phases %standard-phases
|
||||||
(add-after 'install 'patch-path
|
(add-after 'unpack 'patch-path
|
||||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
(let ((perl (assoc-ref inputs "perl"))
|
(let ((perl (assoc-ref inputs "perl")))
|
||||||
(dir (string-append (assoc-ref outputs "out")
|
(substitute* "edbi.el"
|
||||||
"/share/emacs/site-lisp")))
|
|
||||||
(substitute* (string-append dir "/edbi.el")
|
|
||||||
(("\"perl\"") (string-append "\"" perl "/bin/perl\"")))
|
(("\"perl\"") (string-append "\"" perl "/bin/perl\"")))
|
||||||
(chmod (string-append dir "/edbi-bridge.pl") #o555)
|
#t)))
|
||||||
(wrap-program (string-append dir "/edbi-bridge.pl")
|
(add-after 'wrap 'wrap-edbi-bridge
|
||||||
`("PERL5LIB" ":" prefix (,(getenv "PERL5LIB"))))
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||||
#t))))))
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(bridge (string-append (elpa-directory out)
|
||||||
|
"/edbi-bridge.pl")))
|
||||||
|
(chmod bridge #o555)
|
||||||
|
(wrap-program bridge
|
||||||
|
`("PERL5LIB" ":" prefix (,(getenv "PERL5LIB")))))
|
||||||
|
#t)))))
|
||||||
(synopsis "Database Interface for Emacs Lisp")
|
(synopsis "Database Interface for Emacs Lisp")
|
||||||
(description "This program connects the database server through Perl's
|
(description "This program connects the database server through Perl's
|
||||||
DBI, and provides DB-accessing API and the simple management UI.")
|
DBI, and provides DB-accessing API and the simple management UI.")
|
||||||
|
|
Reference in New Issue