06/07: emacs-org-roam: Add new phase after unpack.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 7865973ef73ca6f634d68b20e18c28a5ea407fbe
Author: Alexandr Vityazev <avityazev@posteo.org>
AuthorDate: Mon Aug 30 21:42:43 2021 +0000

    emacs-org-roam: Add new phase after unpack.
    
    * gnu/packages/emacs-xyz.scm (emacs-org-roam)[arguments]<phases>:
    After the unpack phase add a move-source-files phase to include
    the org-roam extensions to the package.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/emacs-xyz.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 88368d0..88040de 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -28245,6 +28245,15 @@ snippets for Emacs.")
     (arguments
      `(#:phases
        (modify-phases %standard-phases
+         ;; Move the extensions source files to the top level, which is 
included in
+         ;; the EMACSLOADPATH.
+         (add-after 'unpack 'move-source-files
+           (lambda _
+             (let ((el-files (find-files "./extensions" ".*\\.el$")))
+               (for-each (lambda (f)
+                           (rename-file f (basename f)))
+                         el-files))
+             #t))
          (add-after 'install 'install-image
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))