09/09: gnu: pandoc: Install bash completions, man page.

[guix-commits]

efraim pushed a commit to branch mesa-updates
in repository guix.

commit d1b786fe629ae9a80f37f64fdf48b9d7c132cd11
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Nov 15 16:18:54 2023 +0200

    gnu: pandoc: Install bash completions, man page.
    
    * gnu/packages/haskell-xyz.scm (pandoc)[arguments]: Add a phase to
    install the bash completions and the man page.
    
    Change-Id: I3e5c18971e06cc3b69ed49a15ab8da11e809e532
---
 gnu/packages/haskell-xyz.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/haskell-xyz.scm b/gnu/packages/haskell-xyz.scm
index 018033457f..676cdfa912 100644
--- a/gnu/packages/haskell-xyz.scm
+++ b/gnu/packages/haskell-xyz.scm
@@ -8589,6 +8589,17 @@ provided for those who need a drop-in replacement for 
Markdown.pl.")
        #:configure-flags #~(list "-fembed_data_files")
        #:phases
        #~(modify-phases %standard-phases
+           (add-after 'install 'install-more
+             (lambda _
+               (let ((bash (string-append #$output 
"/etc/bash_completion.d/pandoc"))
+                     (man1 (string-append #$output "/share/man/man1")))
+                 (mkdir-p (dirname bash))
+                 (with-output-to-file bash
+                   (lambda _
+                     (invoke (string-append #$output "/bin/pandoc")
+                             "--bash-completion")))
+                 (mkdir-p man1)
+                 (install-file "man/pandoc.1" man1))))
            (add-after 'register 'remove-libraries
              (lambda* (#:key outputs #:allow-other-keys)
                (delete-file-recursively (string-append (assoc-ref outputs 
"out") "/lib")))))