From 2369e8b0ac623aec5508e6eec7246c642787c0d8 Mon Sep 17 00:00:00 2001 From: Andrew Tropin Date: Tue, 28 Feb 2023 06:33:42 +0400 Subject: gnu: emacs-vertico: Generate info from README.org. * gnu/packages/emacs-xyz.scm (emacs-vertico)[arguments]: Migrate to gexps, generate info from README.org. --- gnu/packages/emacs-xyz.scm | 30 ++++++++++++++++++++---------- 1 file changed, 20 insertions(+), 10 deletions(-) diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index f5a907324c..c585dbe6e5 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -34696,16 +34696,26 @@ and preferred services can easily be configured.") (base32 "0djc1im6caa67aq0bi8d607ycb1lq4lsirfqsx8kqbfl46852f60")))) (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))))))) + (list + #: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)))) + (add-after 'install 'makeinfo + (lambda* (#:key outputs #:allow-other-keys) + (invoke "emacs" + "--batch" + "--eval=(require 'ox-texinfo)" + "--eval=(find-file \"README.org\")" + "--eval=(org-texinfo-export-to-info)") + (install-file "vertico.info" + (string-append #$output "/share/info"))))))) (native-inputs (list texinfo)) (propagated-inputs -- cgit v1.2.3