ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 14:28:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
Use package-elisp-from-package for emacs-clang-format and emacs-clang-rename.
Also remove package-from-clang-elisp-file as it is not needed anymore.

* gnu/packages/llvm.scm (emacs-clang-format): Use package-elisp-from-package
* gnu/packages/llvm.scm (emacs-clang-rename): Use package-elisp-from-package
* gnu/packages/llvm.scm (package-from-clang-elisp-file): Remove function
This commit is contained in:
Tim Gesthuizen 2019-01-04 22:34:56 +01:00 committed by Pierre Neidhardt
parent 7d5856bd45
commit 5bc2e14add
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 32 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/llvm.scm
View file

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