mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 22:38:07 -05:00
gnu: emacs-irony-mode: Remove propagated input
emacs-irony-mode finds its server binary because its a propagated input and is in the path. We can substitute the variable `irony-server-install-prefix` to not propagate the input and keep the binary isolated from the user. * gnu/packages/emacs.scm (emacs-irony-mode): [propagated-inputs] Remove propagated inputs [inputs] Add emacs-irony-mode-server [arguments] Add phase substituting the variable of the server path Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
ecf7e4ea43
commit
037c3b0ea2
1 changed files with 10 additions and 4 deletions
|
@ -2840,9 +2840,16 @@ (define-public emacs-irony-mode
|
||||||
"0nhjrnlmss535jbshjjd30vydbr8py21vkx4p294w6d8vg2rssf8"))
|
"0nhjrnlmss535jbshjjd30vydbr8py21vkx4p294w6d8vg2rssf8"))
|
||||||
(file-name (string-append name "-" version ".tar.gz"))))
|
(file-name (string-append name "-" version ".tar.gz"))))
|
||||||
(build-system emacs-build-system)
|
(build-system emacs-build-system)
|
||||||
(arguments '())
|
(inputs `(("server" ,emacs-irony-mode-server)))
|
||||||
(propagated-inputs
|
(arguments `(#:phases
|
||||||
`(("emacs-irony-mode-server" ,emacs-irony-mode-server)))
|
(modify-phases %standard-phases
|
||||||
|
(add-after 'unpack 'configure
|
||||||
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
|
(chmod "irony.el" #o644)
|
||||||
|
(emacs-substitute-variables "irony.el"
|
||||||
|
("irony-server-install-prefix"
|
||||||
|
(assoc-ref inputs "server")))
|
||||||
|
#t)))))
|
||||||
(synopsis "C/C++/ObjC Code completion and syntax checks for Emacs")
|
(synopsis "C/C++/ObjC Code completion and syntax checks for Emacs")
|
||||||
(description "Irony-mode provides Clang-assisted syntax checking and
|
(description "Irony-mode provides Clang-assisted syntax checking and
|
||||||
completion for C, C++, and ObjC in GNU Emacs. Using @code{libclang} it can
|
completion for C, C++, and ObjC in GNU Emacs. Using @code{libclang} it can
|
||||||
|
@ -2857,7 +2864,6 @@ (define-public emacs-irony-mode-server
|
||||||
(name "emacs-irony-mode-server")
|
(name "emacs-irony-mode-server")
|
||||||
(inputs
|
(inputs
|
||||||
`(("clang" ,clang)))
|
`(("clang" ,clang)))
|
||||||
(propagated-inputs '())
|
|
||||||
(arguments
|
(arguments
|
||||||
`(#:phases
|
`(#:phases
|
||||||
(modify-phases %standard-phases
|
(modify-phases %standard-phases
|
||||||
|
|
Loading…
Reference in a new issue