guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: gnu: emacs-base16-theme: Add themes to output.


From: guix-commits
Subject: branch master updated: gnu: emacs-base16-theme: Add themes to output.
Date: Tue, 28 Sep 2021 06:06:33 -0400

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 0c6145e  gnu: emacs-base16-theme: Add themes to output.
0c6145e is described below

commit 0c6145e591e9f381b39a8e9b8c1cd023502b390e
Author: John Soo <jsoo1@asu.edu>
AuthorDate: Mon Sep 27 22:08:41 2021 -0700

    gnu: emacs-base16-theme: Add themes to output.
    
    * gnu/packages/emacs-xyz (emacs-base16-theme)[arguments]: Add build 
directory
    themes to #:include.  Add a phase to move them to the appropriate place.
    
    Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
---
 gnu/packages/emacs-xyz.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index e862cd2..c9f5029 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -8139,6 +8139,24 @@ answers.")
        (sha256
         (base32 "01w89g413s1da6rf94y1xnhw79cjy2bqb01yfjs58cy492cm0vr6"))))
     (build-system emacs-build-system)
+    (arguments
+     `(#:include (cons "^build\\/.*\\.el$"
+                       %default-include)
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'mv-themes
+           (lambda* (#:key outputs #:allow-other-keys)
+             (use-modules (ice-9 regex))
+             (let* ((out (assoc-ref outputs "out"))
+                    (theme-dir (string-append (elpa-directory out) "/build")))
+               (for-each (lambda (theme)
+                           (rename-file
+                            theme
+                            (regexp-substitute #f
+                                               (string-match "build\\/" theme)
+                                               'pre 'post)))
+                         (find-files theme-dir "\\.el$"))
+               (delete-file-recursively theme-dir)))))))
     (home-page "https://github.com/belak/base16-emacs";)
     (synopsis "Base16 color themes for Emacs")
     (description



reply via email to

[Prev in Thread] Current Thread [Next in Thread]