163/377: gnu: emacs-vertico: Add new phase after unpack.

[guix-commits]

raghavgururajan pushed a commit to branch wip-gnome
in repository guix.

commit b4d132f98e03fae559db832e88897f1e166c4d47
Author: Alexandr Vityazev <avityazev@posteo.org>
AuthorDate: Sat Aug 21 21:58:41 2021 +0000

    gnu: emacs-vertico: Add new phase after unpack.
    
    * gnu/packages/emacs-xyz.scm (emacs-vertico)[arguments]<phases>:
    After the unpack phase add a move-source-files phase.
---
 gnu/packages/emacs-xyz.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 3657d2b..5324404 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -29187,6 +29187,18 @@ and preferred services can easily be configured.")
        (sha256
         (base32 "0rddk76ih44b574lsr6d6r9wa2l7c9zlb9kcyw5xvly17ciiq16h"))))
     (build-system emacs-build-system)
+    (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)))))
     (native-inputs
      `(("texinfo" ,texinfo)))
     (home-page "https://github.com/minad/vertico";)