04/07: gnu: emacs-consult: Generate info from README.org.

[guix-commits]

abcdw pushed a commit to branch master
in repository guix.

commit bc3280190b925e1a63984acea00fccb15777a185
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Tue Feb 28 06:31:23 2023 +0400

    gnu: emacs-consult: Generate info from README.org.
    
    * gnu/packages/emacs-xyz.scm (emacs-consult)[native-inputs]: Add texinfo.
    [arguments]: Generate info from README.org.
---
 gnu/packages/emacs-xyz.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 6212d3958f..f7c1ad3fc2 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -10599,6 +10599,20 @@ style, or as multiple word prefixes.")
         (base32 "00cgc3bzj37319ds027rpj60wfk0c10cgp5xish2g1cq5ny74q32"))
        (file-name (git-file-name name version))))
     (build-system emacs-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (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 "consult.info"
+                            (string-append #$output "/share/info")))))))
+    (native-inputs (list texinfo))
     (propagated-inputs (list emacs-compat))
     (home-page "https://github.com/minad/consult";)
     (synopsis "Consulting completing-read")