me
/
guix
Archived
1
0
Fork 0

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
Leo Prikler 2021-04-17 19:06:32 +02:00
parent c4fac5dd7f
commit c409cea2d8
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 14 additions and 10 deletions

View File

@ -21593,17 +21593,21 @@ asynchronous communications, the RPC response is fairly good.")
`(#:include '("\\.el$" "\\.pl$")
#:phases
(modify-phases %standard-phases
(add-after 'install 'patch-path
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((perl (assoc-ref inputs "perl"))
(dir (string-append (assoc-ref outputs "out")
"/share/emacs/site-lisp")))
(substitute* (string-append dir "/edbi.el")
(add-after 'unpack 'patch-path
(lambda* (#:key inputs #:allow-other-keys)
(let ((perl (assoc-ref inputs "perl")))
(substitute* "edbi.el"
(("\"perl\"") (string-append "\"" perl "/bin/perl\"")))
(chmod (string-append dir "/edbi-bridge.pl") #o555)
(wrap-program (string-append dir "/edbi-bridge.pl")
`("PERL5LIB" ":" prefix (,(getenv "PERL5LIB"))))
#t))))))
#t)))
(add-after 'wrap 'wrap-edbi-bridge
(lambda* (#:key inputs outputs #:allow-other-keys)
(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")
(description "This program connects the database server through Perl's
DBI, and provides DB-accessing API and the simple management UI.")