01/06: gnu: emacs-corfu: Add new phase after unpack.

[guix-commits]

monego pushed a commit to branch master
in repository guix.

commit 4809f290ab72ffae9bed526e3ece3af9a41479de
Author: Vinicius Monego <monego@posteo.net>
AuthorDate: Tue Apr 26 23:02:09 2022 -0300

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

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index e8dca21707..92bd8ded4d 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -3068,6 +3068,17 @@ of bibliographic references.")
        (sha256
         (base32 "062lxyqh7nfaixmgfgmqfbkainxc8ypdkj6qjq38xigk55s7c5wk"))))
     (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)))))))
     (home-page "https://github.com/minad/corfu";)
     (synopsis "Completion overlay region function")
     (description "Corfu enhances the default completion in region function