ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-20 09:43:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-base16-theme: Update package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-base16-theme)[arguments]: Use G-expressions.
This commit is contained in:
Nicolas Goaziou 2022-07-11 10:41:55 +02:00
parent eccfd5186b
commit 7fc58dd0db
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/emacs-xyz.scm
View file

@ -8880,20 +8880,20 @@ (define-public emacs-base16-theme
(base32 "0qp71j77zg8gippcn277s0j5a9n6dbwv3kdp2nya6li4b412vgba")))) (base32 "0qp71j77zg8gippcn277s0j5a9n6dbwv3kdp2nya6li4b412vgba"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:include (cons "^build\\/.*\\.el$" (list #:include #~(cons "^build\\/.*\\.el$" %default-include)
%default-include)
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'mv-themes (add-after 'install 'mv-themes
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(use-modules (ice-9 regex)) (use-modules (ice-9 regex))
(let* ((out (assoc-ref outputs "out")) (let ((theme-dir (string-append (elpa-directory #$output)
(theme-dir (string-append (elpa-directory out) "/build"))) "/build")))
(for-each (lambda (theme) (for-each (lambda (theme)
(rename-file (rename-file
theme theme
(regexp-substitute #f (regexp-substitute #f
(string-match "build\\/" theme) (string-match "build\\/"
theme)
'pre 'post))) 'pre 'post)))
(find-files theme-dir "\\.el$")) (find-files theme-dir "\\.el$"))
(delete-file-recursively theme-dir))))))) (delete-file-recursively theme-dir)))))))