tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-25 10:31:49 +02:00
Code Activity

gnu: translate-shell: Adjust to changes in emacs-build-system.

Browse Source 
* gnu/packages/dictionaries.scm (translate-shell)[arguments]: Replace
custom 'emacs-install phase with the 'install phase from the
emacs-build-system. Also add 'emacs-make-autoload and
'emacs-autoloads-completion phases from the emacs-build-system. Adjust
modules and imported modules accordingly.
This commit is contained in:
Efraim Flashner
2021-05-06 14:22:59 +03:00
parent 0d6eb69266
commit 2e4f61908b
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/packages/dictionaries.scm
+9 -8
View File
@@ -277,17 +277,18 @@ and a Python library.")
rlwrap "/bin"))))) rlwrap "/bin")))))
#t)) #t))
(add-after 'install 'emacs-install (add-after 'install 'emacs-install
(lambda* (#:key inputs outputs #:allow-other-keys) (assoc-ref emacs:%standard-phases 'install))
(let* ((out (assoc-ref outputs "out")) (add-after 'emacs-install 'emacs-make-autoloads
(dest (string-append out "/share/emacs/site-lisp")) (assoc-ref emacs:%standard-phases 'make-autoloads))
(emacs (string-append (assoc-ref inputs "emacs") "/bin/emacs"))) (add-after 'emacs-make-autoloads 'emacs-autoloads-compilation
(install-file "google-translate-mode.el" dest) (assoc-ref emacs:%standard-phases 'enable-autoloads-compilation)))
(emacs-generate-autoloads ,name dest)))))
#:make-flags (list (string-append "PREFIX=" %output) #:make-flags (list (string-append "PREFIX=" %output)
"NETWORK_ACCESS=no test") "NETWORK_ACCESS=no test")
#:imported-modules (,@%gnu-build-system-modules (guix build emacs-utils)) #:imported-modules (,@%gnu-build-system-modules
(guix build emacs-build-system)
(guix build emacs-utils))
#:modules ((guix build gnu-build-system) #:modules ((guix build gnu-build-system)
(guix build emacs-utils) ((guix build emacs-build-system) #:prefix emacs:)
(guix build utils)) (guix build utils))
#:test-target "test")) #:test-target "test"))
(inputs (inputs