summary refs log tree commit diff
diff options
context:
space:
mode:
authorVinicius Monego <monego@posteo.net>2022-04-26 23:02:09 -0300
committerVinicius Monego <monego@posteo.net>2022-04-26 23:32:15 -0300
commit4809f290ab72ffae9bed526e3ece3af9a41479de (patch)
treeed91dca1ce59f7ad5b5ba29adc54910f8395a0c6
parenta27804a353462455c83b7c372c8cb5c772a60fd5 (diff)
downloadguix-4809f290ab72ffae9bed526e3ece3af9a41479de.tar.gz
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.
-rw-r--r--gnu/packages/emacs-xyz.scm11
1 files changed, 11 insertions, 0 deletions
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