Revert "gnu: Use package-elisp-from-package for clangs emacs lisp files"

This reverts commit 5bc2e14add.
master
Pierre Neidhardt 2019-01-07 14:58:40 +01:00
parent 6fd2ed23ac
commit 3a3d4d9d54
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 33 additions and 32 deletions

View File

@ -8,7 +8,7 @@
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2019 Tim Gesthuizen <tim.gesthuizen@yahoo.de> ;;; Copyright © 2018 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -39,7 +39,6 @@
#:use-module (gnu packages gcc) #:use-module (gnu packages gcc)
#:use-module (gnu packages bootstrap) ;glibc-dynamic-linker #:use-module (gnu packages bootstrap) ;glibc-dynamic-linker
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages emacs)
#:use-module (gnu packages libffi) #:use-module (gnu packages libffi)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages python) #:use-module (gnu packages python)
@ -482,21 +481,22 @@ code analysis tools.")
(define-public emacs-clang-format (define-public emacs-clang-format
(package (package
(inherit (package-elisp-from-package (inherit clang)
clang (name "emacs-clang-format")
"emacs-clang-format" (build-system emacs-build-system)
'("tools/clang-format/clang-format.el"))) (inputs
(inputs `(("clang" ,clang))) `(("clang" ,clang)))
(arguments `(#:phases (arguments
(modify-phases %standard-phases `(#:phases
(add-after 'unpack 'configure (modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'configure
(chmod "clang-format.el" #o644) (lambda* (#:key inputs #:allow-other-keys)
(emacs-substitute-variables "clang-format.el" (let ((clang (assoc-ref inputs "clang")))
("clang-format-executable" (copy-file "tools/clang-format/clang-format.el" "clang-format.el")
(string-append (assoc-ref inputs "clang") (emacs-substitute-variables "clang-format.el"
"/bin/clang-format"))) ("clang-format-executable"
#t))))) (string-append clang "/bin/clang-format"))))
#t)))))
(synopsis "Format code using clang-format") (synopsis "Format code using clang-format")
(description "This package allows to filter code through @code{clang-format} (description "This package allows to filter code through @code{clang-format}
to fix its formatting. @code{clang-format} is a tool that formats to fix its formatting. @code{clang-format} is a tool that formats
@ -505,21 +505,22 @@ C/C++/Obj-C code according to a set of style options, see
(define-public emacs-clang-rename (define-public emacs-clang-rename
(package (package
(inherit (package-elisp-from-package (inherit clang)
clang (name "emacs-clang-rename")
"emacs-clang-rename" (build-system emacs-build-system)
'("tools/clang-rename/clang-rename.el"))) (inputs
(inputs `(("clang" ,clang))) `(("clang" ,clang)))
(arguments `(#:phases (arguments
(modify-phases %standard-phases `(#:phases
(add-after 'unpack 'configure (modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'configure
(chmod "clang-rename.el" #o644) (lambda* (#:key inputs #:allow-other-keys)
(emacs-substitute-variables "clang-rename.el" (let ((clang (assoc-ref inputs "clang")))
("clang-rename-binary" (copy-file "tools/clang-rename/clang-rename.el" "clang-rename.el")
(string-append (assoc-ref inputs "clang") (emacs-substitute-variables "clang-rename.el"
"/bin/clang-rename"))) ("clang-rename-binary"
#t))))) (string-append clang "/bin/clang-rename"))))
#t)))))
(synopsis "Rename every occurrence of a symbol using clang-rename") (synopsis "Rename every occurrence of a symbol using clang-rename")
(description "This package renames every occurrence of a symbol at point (description "This package renames every occurrence of a symbol at point
using @code{clang-rename}."))) using @code{clang-rename}.")))